hlint tweaks
Did all sources except Remotes/* and Command/*
This commit is contained in:
parent
9bb797c0ea
commit
e784757376
32 changed files with 172 additions and 179 deletions
|
@ -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
|
||||
|
|
|
@ -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,
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue