fix 'planet remove' commandline argument checking

This commit is contained in:
Robby Findler 2014-04-27 14:12:48 -05:00
parent da600ad291
commit 4131b0c3d1

View File

@ -64,7 +64,9 @@ Remove the specified package from the local cache, optionally also removing its
"uninstalled-package cache") "uninstalled-package cache")
(erase? #t)] (erase? #t)]
#:args (owner pkg maj min) #:args (owner pkg maj min)
((if (erase?) erase remove) owner pkg maj min)] (begin
(verify-package-name pkg)
((if (erase?) erase remove) owner pkg maj min))]
["show" "list the packages installed in the local cache" ["show" "list the packages installed in the local cache"
"\nList the packages installed in the local cache" "\nList the packages installed in the local cache"
#:once-any #:once-any