summaryrefslogtreecommitdiff
path: root/Backend
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-07-15 03:12:05 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-07-15 03:12:05 -0400
commite78475737636a5d1e0d0a36b475c300cc7bb56cc (patch)
tree1d88de569e951b66ff5321eefaec49ad4b33bf89 /Backend
parent9bb797c0eae3c9d2f119a734762a6d5fa7321a80 (diff)
hlint tweaks
Did all sources except Remotes/* and Command/*
Diffstat (limited to 'Backend')
-rw-r--r--Backend/SHA.hs2
-rw-r--r--Backend/WORM.hs2
2 files changed, 2 insertions, 2 deletions
diff --git a/Backend/SHA.hs b/Backend/SHA.hs
index bd6e411a0..dc27b3000 100644
--- a/Backend/SHA.hs
+++ b/Backend/SHA.hs
@@ -114,7 +114,7 @@ checkKeyChecksum size key = do
fast <- Annex.getState Annex.fast
let file = gitAnnexLocation g key
present <- liftIO $ doesFileExist file
- if (not present || fast)
+ if not present || fast
then return True
else do
s <- shaN size file
diff --git a/Backend/WORM.hs b/Backend/WORM.hs
index 036d0564c..831c9e8ce 100644
--- a/Backend/WORM.hs
+++ b/Backend/WORM.hs
@@ -35,7 +35,7 @@ backend = Types.Backend.Backend {
keyValue :: FilePath -> Annex (Maybe Key)
keyValue file = do
stat <- liftIO $ getFileStatus file
- return $ Just $ Key {
+ return $ Just Key {
keyName = takeFileName file,
keyBackendName = name backend,
keySize = Just $ fromIntegral $ fileSize stat,