summaryrefslogtreecommitdiff
path: root/Command/Uninit.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Command/Uninit.hs')
-rw-r--r--Command/Uninit.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/Uninit.hs b/Command/Uninit.hs
index 4c70ec80c..ce1266542 100644
--- a/Command/Uninit.hs
+++ b/Command/Uninit.hs
@@ -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