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:
parent
456b45b9b3
commit
35145202d2
33 changed files with 55 additions and 63 deletions
|
@ -17,6 +17,7 @@ import Content
|
|||
import Utility.RsyncFile
|
||||
import Utility.Conditional
|
||||
import Messages
|
||||
import Types
|
||||
|
||||
command :: [Command]
|
||||
command = [repoCommand "sendkey" paramKey seek
|
||||
|
@ -25,7 +26,7 @@ command = [repoCommand "sendkey" paramKey seek
|
|||
seek :: [CommandSeek]
|
||||
seek = [withKeys start]
|
||||
|
||||
start :: CommandStartKey
|
||||
start :: Key -> CommandStart
|
||||
start key = do
|
||||
g <- Annex.gitRepo
|
||||
let file = gitAnnexLocation g key
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue