I cannot reconfigure my ARM machine

[Joshua Branson]

Hello,

I'm unable to reconfigure my AMD APU AM1 machine.  It looks like it's
failing to install the bootloader:

Installing for x86_64-efi platform.
/gnu/store/1wzysj68sk5p713kd60wdxdiv448y1xs-grub-efi-2.02/sbin/grub-install: 
error: failed to get canonical path of `none'.
guix system: error: failed to install bootloader 
/gnu/store/9sfnqinym73lhz7ad7ab7iy6kl4ir823-bootloader-installer

I can't seem to find anything in /var/log/messages.  Though the failure
to reconfigure have have happened a week ago, and /var/log/messages only
goes back 5 days.

Thanks,

Joshua

P.S.

Here is my config file:

;; This is the config that I am using as of July 30, 2017

;; Installing for x86_64-efi platform.
;; /gnu/store/1wzysj68sk5p713kd60wdxdiv448y1xs-grub-efi-2.02/sbin/grub-install: 
error: failed to get canonical path of `none'.
;; guix system: error: failed to install bootloader 
/gnu/store/9sfnqinym73lhz7ad7ab7iy6kl4ir823-bootloader-installer


(use-modules (gnu) (gnu system nss)
             (ice-9 rdelim))
;; module used in dvorak-layout function
;; (use-modules  (ice-9 rdelim))
(use-service-modules desktop
                     ;; networking is needed for dhcp-client-service
                     ;; networking
                     ssh
                     mcron
                     web
                     xorg ;;dealing with slim
                     ;;cups
                     admin
                     databases
                     mail
                     ;;
                     ;; dict
                     )
(use-package-modules bootloaders admin certs gnome base
                     idutils
                     emacs
                     aspell
                     ;;wm
                     ;;gnuzilla
                     fonts
                     mail
                     guile
                     ;;gnupg
                     web
                     xorg)

(define updatedb-job
  ;; Run 'updatedb' at 3AM every day.
  #~(job '(next-hour '(3))
         (lambda ()
           (execl  (string-append #$findutils "/bin/updatedb")
                   "updatedb"
                   "--prunepaths=/tmp /var/tmp /gnu/store"))))

(define garbage-collector-job
  ;;collect garbage
  #~(job "5 0 * * *"
         "guix gc"))

(define dvorak-layout
  ;; a hacky way to get X to use dvorak
  (call-with-input-file "/etc/X11/xorg.conf.d/10-dvorak-layout.conf" 
read-string))


(operating-system
 (host-name "GuixSD")
 (timezone "America/Indianapolis")
 (locale "en_US.utf8")

 ;;(kernel-arguments
 ;; I can specify kernel arguments here.
 ;;I had specified nomodeset, because that was the only way to boot guixSD from 
a usb.
 ;;But guixSD boots just fine wants it's installed.  And nomodeset, makes the 
display look awful!
 ;; '("nomodeset"
 ;; ))

 (swap-devices '("/dev/sda3"))
 ;; Assuming /dev/sdX is the target hard disk, and "my-root" is
 ;; the label of the target root file system.
 (bootloader (grub-configuration
              (grub grub-efi)
              (target "/dev/sda1")
              ;; (device "/dev/sda1")
              (menu-entries
               (list
                (menu-entry
                 (label "Parabola")
                 (linux "(hd0,gpt1)/vmlinuz-linux")
                 (linux-arguments '("root=/dev/sda2 ro"))
                 (initrd "(hd0,gpt1)/initramfs-linux.img"))))))

 (file-systems (cons* (file-system
                       (device "my-root")
                       (title 'label)
                       (mount-point "/")
                       (type "ext4"))
                      (file-system
                       (mount-point "/home")
                       (device "/dev/sda4")
                       (type "ext4"))
                      (file-system
                       (device "/dev/sda1")
                       (mount-point "/boot/efi")
                       (type "vfat"))
                      %base-file-systems))

 ;; This is where user accounts are specified.  The "root"
 ;; account is implicit, and is initially created with the
 ;; empty password.
 (users (cons* (user-account
                (name "joshua")
                (comment "joshua")
                (uid 1000)
                (group "users")

                ;; Adding the account to the "wheel" group
                ;; makes it a sudoer.  Adding it to "audio"
                ;; and "video" allows the user to play sound
                ;; and access the webcam.
                (supplementary-groups '("wheel"
                                        "audio" "video" "netdev" "users"
                                        ))
                (home-directory "/home/joshua"))

               ;;creating a user account wes, in case I cannot log into joshua
               (user-account
                (name "wes")
                (comment "wes")
                (uid 2025)
                (group "users")
                (home-directory "/home/wes")
                (supplementary-groups '("wheel" "netdev" "audio" "users"
                                        "video" )))
               %base-user-accounts))

 (groups (cons* (user-group
                 (name "users")
                 (id 2000))
                %base-groups))


 ;; Globally-installed packages.
 (packages (cons*
            ;;aspell aspell-dict-en
            gvfs nss-certs tcpdump
            emacs
;;            awesome
            ;; icecat
            setxkbmap

            ;; fonts
            font-awesome
            font-hack
            font-dejavu
            font-ubuntu
            font-tex-gyre

            ;; artanis
            ;;gnupg

            %base-packages))

 ;; Add services to the baseline: a DHCP client and
 ;; an SSH server.
 (services (cons* (gnome-desktop-service)
                  ;;(service rottlog-service-type)
                  ;;(mcron-service (list garbage-collector-job updatedb-job))
                  ;;  the services above work
                  ;;                  (dovecot-service #:config 
(dovecot-configuration (mail-location "maildir:~/.mail")))
                  ;;(openvpn-client-service)
                  ;;(dicod-service)
                  ;; running a mysql server crashes GuixSD
                  (mysql-service)
                  ;;(nginx-service #:server-list (list 
(nginx-server-configuration (root "/home/joshua/programming2/html/") (index 
(list "index.php" "index.html")) (https-port #f))))
                  ;; here's how I can specify the nginx conf file
                  ;;(nginx-service #:config-file "/etc/nginx/nginx.conf")
                  ;; According to irc nginx-service has been removed.  I need 
to use (service nginx-service-type ...)
                  ;; (service (nginx-service-type
                  ;;           (list (nginx-server-configuration
                  ;;                  (root "/home/joshua/programming2/html/")
                  ;;                  (index (list "index.php" "index.html"))
                  ;;                  (https-port #f)))))

                  ;; (simple-service 'my-extra-server nginx-service-type
                  ;;                 (list (nginx-server-configuration
                  ;;                        (https-port #f)
                  ;;                        (root 
"/home/joshua/programming2/html"))))

                  (service nginx-service-type)

                 ;; (console-keymap-service "dvorak")
                  ;; (dhcp-client-service)
                  ;; this is a hacky way to get a dvorak layout on X
                  ;; (modify-services %desktop-services
                  ;;                  (slim-service-type
                  ;;                   config => (slim-configuration
                  ;;                              (inherit config)
                  ;;                              (startx (xorg-start-command
                  ;;                                       #:configuration-file
                  ;;                                       
(xorg-configuration-file
                  ;;                                        #:extra-config
                  ;;                                        (list 
(dvorak-layout))))))))
                  ;; (service cups-service-type)
                  ;;(service openssh-service-type
                  ;;         (openssh-configuration
                  ;;           (port-number 2222)))
                  %desktop-services))

 (name-service-switch %mdns-host-lookup-nss))