diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-12-13 00:45:27 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-12-13 00:45:27 -0400 |
| commit | 7db480af0f944ca0e6c062cd1243c63ad7f878d1 (patch) | |
| tree | 21d7efe0b866dd7db1a5396a842652f49c676e84 /Command/Unlock.hs | |
| parent | 94554782894ec6c26da3b46312d5d1d16d596458 (diff) | |
whitespace fixes
Diffstat (limited to 'Command/Unlock.hs')
| -rw-r--r-- | Command/Unlock.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Command/Unlock.hs b/Command/Unlock.hs index 6489fc333..5a0e6efeb 100644 --- a/Command/Unlock.hs +++ b/Command/Unlock.hs @@ -39,12 +39,12 @@ perform dest key = do tmpdest <- fromRepo $ gitAnnexTmpLocation key liftIO $ createDirectoryIfMissing True (parentDir tmpdest) showAction "copying" - ok <- liftIO $ copyFileExternal src tmpdest - if ok - then do + ifM (liftIO $ copyFileExternal src tmpdest) + ( do liftIO $ do removeFile dest moveFile tmpdest dest thawContent dest next $ return True - else error "copy failed!" + , error "copy failed!" + ) |