make commands that take a key as a parameter error if it's bad

This commit is contained in:
Joey Hess 2011-03-15 22:46:47 -04:00
parent 2e1cc2f8b9
commit 9d24cc7bdb
2 changed files with 5 additions and 4 deletions

View file

@ -9,12 +9,10 @@ module Command.DropKey where
import Command
import qualified Annex
import qualified Backend
import LocationLog
import Types
import Content
import Messages
import Key
command :: [Command]
command = [Command "dropkey" (paramRepeating paramKey) seek