diff options
Diffstat (limited to 'Command/FsckFile.hs')
| -rw-r--r-- | Command/FsckFile.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/FsckFile.hs b/Command/FsckFile.hs index c74e94e62..e7c3d4915 100644 --- a/Command/FsckFile.hs +++ b/Command/FsckFile.hs @@ -24,6 +24,6 @@ start file = isAnnexed file $ \(key, backend) -> do perform :: Key -> Backend -> SubCmdPerform perform key backend = do success <- Backend.fsckKey backend key - if (success) + if success then return $ Just $ return True else return Nothing |