summaryrefslogtreecommitdiff
path: root/Annex/Content
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-04-03 03:52:41 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-04-03 03:52:41 -0400
commit6543d5406c64bb00a58e74305ec9ca09a49faf0b (patch)
tree5e33ceb3ea5b5bf5ad4f2cbb7d08b19cb1026897 /Annex/Content
parentf0dd3c6c1624cb5441eab175c6f5a683d3806885 (diff)
hlint
Diffstat (limited to 'Annex/Content')
-rw-r--r--Annex/Content/Direct.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/Annex/Content/Direct.hs b/Annex/Content/Direct.hs
index bbf6e310d..25e257918 100644
--- a/Annex/Content/Direct.hs
+++ b/Annex/Content/Direct.hs
@@ -139,11 +139,10 @@ sameFileStatus :: Key -> FileStatus -> Annex Bool
sameFileStatus key status = do
old <- recordedInodeCache key
let curr = toInodeCache status
- r <- case (old, curr) of
+ case (old, curr) of
(Just o, Just c) -> compareInodeCaches o c
(Nothing, Nothing) -> return True
_ -> return False
- return r
{- If the inodes have changed, only the size and mtime are compared. -}
compareInodeCaches :: InodeCache -> InodeCache -> Annex Bool