Remove call to truename to fix CNAME generation.

This commit is contained in:
Muhammad Attiyah 2018-05-30 15:52:44 +02:00 committed by Javier Olaechea
parent 7b8c5bb2ae
commit 1aefd3e520

View file

@ -17,7 +17,7 @@
"The domain CNAME for github to serve pages from.")
(defmethod deploy :after (staging)
(let ((blog (truename (rel-path (deploy-dir *config*) ".curr"))))
(let ((blog (rel-path (deploy-dir *config*) ".curr")))
(delete-file (rel-path blog "index.html"))
(cl-fad:copy-file (rel-path blog "1.html") (rel-path blog "index.html"))
(with-open-file (out (rel-path blog "CNAME")