diff options
Diffstat (limited to 'Command/Unannex.hs')
| -rw-r--r-- | Command/Unannex.hs | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/Command/Unannex.hs b/Command/Unannex.hs index 0d88148c8..83e990921 100644 --- a/Command/Unannex.hs +++ b/Command/Unannex.hs @@ -22,12 +22,13 @@ import qualified Git.DiffTree as DiffTree import Utility.CopyFile import Command.PreCommit (lockPreCommitHook) -cmd :: [Command] -cmd = [withOptions annexedMatchingOptions $ - command "unannex" paramPaths seek SectionUtility - "undo accidential add command"] +cmd :: Command +cmd = withOptions annexedMatchingOptions $ + command "unannex" paramPaths SectionUtility + "undo accidential add command" + (commandParser seek) -seek :: CommandSeek +seek :: CmdParams -> CommandSeek seek = wrapUnannex . (withFilesInGit $ whenAnnexed start) wrapUnannex :: Annex a -> Annex a |