|
|
|
@ -27,7 +27,6 @@
|
|
|
|
|
(very-nice-path (car args)))))
|
|
|
|
|
|
|
|
|
|
(define (dispatch command-name)
|
|
|
|
|
(parameterize ([current-logger pollen-logger])
|
|
|
|
|
(with-logging-to-port
|
|
|
|
|
(current-error-port)
|
|
|
|
|
(λ ()
|
|
|
|
@ -42,8 +41,9 @@
|
|
|
|
|
[("setup") (handle-setup (get-first-arg-or-current-dir))]
|
|
|
|
|
[("clone" "publish") (handle-publish)]
|
|
|
|
|
[else (handle-unknown command-name)]))
|
|
|
|
|
#:logger pollen-logger
|
|
|
|
|
'info
|
|
|
|
|
'pollen)))
|
|
|
|
|
'pollen))
|
|
|
|
|
|
|
|
|
|
(define (very-nice-path x)
|
|
|
|
|
(path->complete-path (simplify-path (cleanse-path (->path x)))))
|
|
|
|
|