mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

remove command type definitions

Browse source 
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
Download patch file Download diff file Expand all files Collapse all files

4
Command/Uninit.hs
View file

@ -28,7 +28,7 @@ command = [repoCommand "uninit" paramPaths seek
seek :: [CommandSeek]
seek = [withFilesInGit startUnannex, withNothing start]
startUnannex :: CommandStartString
startUnannex :: FilePath -> CommandStart
startUnannex file = do
-- Force fast mode before running unannex. This way, if multiple
-- files link to a key, it will be left in the annex and hardlinked
@ -36,7 +36,7 @@ startUnannex file = do
Annex.changeState $ \s -> s { Annex.fast = True }
Command.Unannex.start file
start :: CommandStartNothing
start :: CommandStart
start = next perform
perform :: CommandPerform