diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-02-16 00:41:30 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-02-16 00:44:51 -0400 |
| commit | a1e52f0ce5984058c737ed709fc5d4b6398e019a (patch) | |
| tree | baaeb46b5eb5e7edb4a8a4ef80d6c1ab256bbcba /Command/Get.hs | |
| parent | e7aaa55c53fb54c6dd5a1a1aeb0955b05227676b (diff) | |
hlint
Diffstat (limited to 'Command/Get.hs')
| -rw-r--r-- | Command/Get.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/Get.hs b/Command/Get.hs index 928ab0f1b..9b12b9599 100644 --- a/Command/Get.hs +++ b/Command/Get.hs @@ -23,7 +23,7 @@ seek = [withField Command.Move.fromOption Remote.byName $ \from -> start :: Maybe Remote -> FilePath -> (Key, Backend) -> CommandStart start from file (key, _) = stopUnless (not <$> inAnnex key) $ - autoCopies file key (<) $ \_numcopies -> do + autoCopies file key (<) $ \_numcopies -> case from of Nothing -> go $ perform key Just src -> do @@ -36,7 +36,7 @@ start from file (key, _) = stopUnless (not <$> inAnnex key) $ next a perform :: Key -> CommandPerform -perform key = stopUnless (getViaTmp key $ getKeyFile key) $ do +perform key = stopUnless (getViaTmp key $ getKeyFile key) $ next $ return True -- no cleanup needed {- Try to find a copy of the file in one of the remotes, |