Added check for scrbl directory existence
This commit is contained in:
+2
-2
@@ -9,7 +9,8 @@
|
|||||||
(target clean
|
(target clean
|
||||||
(for-each (λ (f) (displayln f) (rm-f f)) (list-files "." #px"([.]bak|~)$" #:recursive #t))
|
(for-each (λ (f) (displayln f) (rm-f f)) (list-files "." #px"([.]bak|~)$" #:recursive #t))
|
||||||
(for-each (λ (d) (displayln d) (rm-rf d)) (list-dirs "." #px"(compiled|doc)$" #:recursive #t))
|
(for-each (λ (d) (displayln d) (rm-rf d)) (list-dirs "." #px"(compiled|doc)$" #:recursive #t))
|
||||||
(for-each (λ (f) (displayln f) (rm-f f)) (list-files "scrbl" #px"[.](css|js|html)$"))
|
(when (directory-exists? "scrbl")
|
||||||
|
(for-each (λ (f) (displayln f) (rm-f f)) (list-files "scrbl" #px"[.](css|js|html)$")))
|
||||||
)
|
)
|
||||||
|
|
||||||
(target package
|
(target package
|
||||||
@@ -28,7 +29,6 @@
|
|||||||
(displayln "Pushing...")
|
(displayln "Pushing...")
|
||||||
(dgit 'push)))
|
(dgit 'push)))
|
||||||
)
|
)
|
||||||
|
|
||||||
|
|
||||||
(target windows
|
(target windows
|
||||||
(deps housekeeping)
|
(deps housekeeping)
|
||||||
|
|||||||
Reference in New Issue
Block a user