diff options
author | 2011-07-15 12:47:14 -0400 | |
---|---|---|
committer | 2011-07-15 12:47:14 -0400 | |
commit | 6c396a256c93464d726c66a95132536941871ee8 (patch) | |
tree | 7f934c9eae22a9cfd3fb1672ebd7bf6870439c81 /Command/SetKey.hs | |
parent | 185f0b687081f47d059cc0503f4f6b671868f753 (diff) |
finished hlint pass
Diffstat (limited to 'Command/SetKey.hs')
-rw-r--r-- | Command/SetKey.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Command/SetKey.hs b/Command/SetKey.hs index b000a4e8b..f2a5259ba 100644 --- a/Command/SetKey.hs +++ b/Command/SetKey.hs @@ -16,7 +16,7 @@ import Content import Messages command :: [Command] -command = [repoCommand "setkey" (paramPath) seek +command = [repoCommand "setkey" paramPath seek "sets annexed content for a key using a temp file"] seek :: [CommandSeek] @@ -34,7 +34,7 @@ perform file = do -- the file might be on a different filesystem, so mv is used -- rather than simply calling moveToObjectDir; disk space is also -- checked this way. - ok <- getViaTmp key $ \dest -> do + ok <- getViaTmp key $ \dest -> if dest /= file then liftIO $ boolSystem "mv" [File file, File dest] |