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

@ -31,7 +31,7 @@ seek = [withFilesInGit start]
{- The unlock subcommand replaces the symlink with a copy of the file's
- content. -}
start :: CommandStartString
start :: FilePath -> CommandStart
start file = isAnnexed file $ \(key, _) -> do
showStart "unlock" file
next $ perform file key