remove command type definitions

These were a mistake, they make the type signatures harder to read and
less flexible. The CommandSeek, CommandStart, CommandPerform, and
CommandCleanup types were a good idea, but composing them with the
parameters expected is going too far.
This commit is contained in:
Joey Hess 2011-09-15 16:50:49 -04:00
parent 456b45b9b3
commit 35145202d2
33 changed files with 55 additions and 63 deletions

View file

@ -15,6 +15,7 @@ import CmdLine
import Content
import Utility.RsyncFile
import Utility.Conditional
import Types
command :: [Command]
command = [repoCommand "recvkey" paramKey seek
@ -23,7 +24,7 @@ command = [repoCommand "recvkey" paramKey seek
seek :: [CommandSeek]
seek = [withKeys start]
start :: CommandStartKey
start :: Key -> CommandStart
start key = do
whenM (inAnnex key) $ error "key is already present in annex"