diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-07-15 03:12:05 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-07-15 03:12:05 -0400 |
| commit | e78475737636a5d1e0d0a36b475c300cc7bb56cc (patch) | |
| tree | 1d88de569e951b66ff5321eefaec49ad4b33bf89 /Backend | |
| parent | 9bb797c0eae3c9d2f119a734762a6d5fa7321a80 (diff) | |
hlint tweaks
Did all sources except Remotes/* and Command/*
Diffstat (limited to 'Backend')
| -rw-r--r-- | Backend/SHA.hs | 2 | ||||
| -rw-r--r-- | Backend/WORM.hs | 2 |
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, |