mirror of github:amycatgirl/amycatgirl.github.io
chore: replace unwind-protect with handler-case
also return exit code 1 on fail!
Signed-off-by: Amy <amy+git@amogus.cloud>
+8
-6
+8
-6
fallback.lisp
+8
-6
fallback.lisp
···
147
147
(let ((records (getf (fetch-entries +user-did+
148
148
+max-entries+) :records)))
149
149
(write-to-noscript-block #p"./index.html"
150
-
records)
151
-
(unwind-protect
152
-
(progn (git-add "index.html")
153
-
(git-commit "chore(ci): generate noscript fallback")
154
-
(git-push))
155
-
(format t "Either:~%- There were no changes between runs~%-Creating a commit failed for some reason (check git status)~%- Or the current branch doesn't have an upstream~%2~Please try running the publishing steps manually or run the fallback script again"))))
150
+
records))
151
+
(handler-case
152
+
(progn (git-add "index.html")
153
+
(git-commit "generate noscript fallback")
154
+
(git-push))
155
+
(t ()
156
+
(format t "Either:~%- There were no changes between runs~%- Creating a commit failed for some reason (check git status)~%- Or the current branch doesn't have an upstream~2%Please try running the publishing steps manually or run the fallback script again")
157
+
(uiop:quit 1))))