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.")
|
"The domain CNAME for github to serve pages from.")
|
||||||
|
|
||||||
(defmethod deploy :after (staging)
|
(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"))
|
(delete-file (rel-path blog "index.html"))
|
||||||
(cl-fad:copy-file (rel-path blog "1.html") (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")
|
(with-open-file (out (rel-path blog "CNAME")
|
||||||
|
|
Loading…
Add table
Reference in a new issue