diff options
author | Joey Hess <joey@kitenet.net> | 2010-10-25 14:10:38 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2010-10-25 14:10:38 -0400 |
commit | e29210d1dddb79abc0f93fc5175add8e10455688 (patch) | |
tree | d33cec0cdc8079842a22917b490b785ffd72cbef /Core.hs | |
parent | 81f71e57b9ac68b8d79c30fb27a22c5e3941fcee (diff) |
update
Diffstat (limited to 'Core.hs')
-rw-r--r-- | Core.hs | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -97,7 +97,7 @@ logStatus key status = do {- Runs an action, passing it a temporary filename to download, - and if the action succeeds, moves the temp file into - the annex as a key's content. -} -getViaTmp :: Key -> (FilePath -> Annex (Bool)) -> Annex () +getViaTmp :: Key -> (FilePath -> Annex Bool) -> Annex Bool getViaTmp key action = do g <- Annex.gitRepo let dest = annexLocation g key @@ -108,9 +108,9 @@ getViaTmp key action = do then do liftIO $ renameFile tmp dest logStatus key ValuePresent - showEndOk + return True else do - showEndFail + return False {- Output logging -} showStart :: String -> String -> Annex () |