marcuskammer/coleslaw
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

removed printing cname path

Browse source
This commit is contained in:
Do Nhat Minh 2013-04-21 22:06:18 +08:00 • committed by Brit Butler
parent 55613d717f
commit b97bd2b99d
1 changed files with 0 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/coleslaw.lisp
View file

@ -67,7 +67,6 @@ Additional args to render CONTENT can be passed via RENDER-ARGS."
(let ((cname-filename (rel-path "" "~a/CNAME" new-build)) (let ((cname-filename (rel-path "" "~a/CNAME" new-build))
(stripped-url (puri:uri-host (puri:parse-uri (stripped-url (puri:uri-host (puri:parse-uri
(domain *config*))))) (domain *config*)))))
(format t "~a" cname-filename)
(with-open-file (cname cname-filename (with-open-file (cname cname-filename
:direction :output :direction :output
:if-exists :supersede) :if-exists :supersede)