Remove call to truename to fix CNAME generation.
This commit is contained in:
parent
7b8c5bb2ae
commit
1aefd3e520
1 changed files with 1 additions and 1 deletions
|
@ -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")
|
||||
|
|
Loading…
Add table
Reference in a new issue