                             (erase-buffer)))
                         (when (> n 0)
                           (push (list n pretime time recipe)
-                                packages)))))
-                (error
-                 (push (list package e (string-trim (or (straight--process-get-output) "")))
-                       errors))))
+                                packages))))
+                  (error
+                   (push (list package e (string-trim (or (straight--process-get-output) "")))
+                         errors)))))
             (if errors
                 (cons 'error errors)
               (cons 'ok (nreverse packages))))

                               (shell-command-to-string "git log -1 --format=%at HEAD")))
                             (time
                              (string-to-number
                               ;; HACK `straight--get-call' has a higher
                               ;; failure rate when querying FETCH_HEAD; not
                               ;; sure why. Doing this manually, with
                               ;; `shell-command-to-string' works fine.
                               (shell-command-to-string "git log -1 --format=%at FETCH_HEAD"))))
                        (with-current-buffer (straight--process-get-buffer)

          (let (packages errors)
            (load ,(concat doom-core-dir "core.el"))
            (dolist (recipe ',group)
              (straight--with-plist recipe
                  (package local-repo remote upstream-repo upstream-host)
                (condition-case e
                    ;; HACK There's a contingency of `straight-fetch-package'
                    ;; where it will pop up a window for confirmation, but this
                    ;; window is invisible because a) this command runs in a
