summaryrefslogtreecommitdiff
path: root/Command/InitRemote.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Command/InitRemote.hs')
-rw-r--r--Command/InitRemote.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/InitRemote.hs b/Command/InitRemote.hs
index 4c2fc3a07..eda50ee5d 100644
--- a/Command/InitRemote.hs
+++ b/Command/InitRemote.hs
@@ -39,7 +39,7 @@ start params = notBareRepo $ do
t <- findType fullconfig
showStart "initremote" name
- return $ Just $ perform t u $ M.union config c
+ next $ perform t u $ M.union config c
where
ws = words params
@@ -49,7 +49,7 @@ start params = notBareRepo $ do
perform :: RemoteClass.RemoteType Annex -> UUID -> RemoteClass.RemoteConfig -> CommandPerform
perform t u c = do
c' <- RemoteClass.setup t u c
- return $ Just $ cleanup u c'
+ next $ cleanup u c'
cleanup :: UUID -> RemoteClass.RemoteConfig -> CommandCleanup
cleanup u c = do