mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

hlint tweaks

Browse source 
Did all sources except Remotes/* and Command/*
This commit is contained in:
Joey Hess 2011-07-15 03:12:05 -04:00
parent 9bb797c0ea
commit e784757376
32 changed files with 172 additions and 179 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Types/Key.hs
View file

@ -48,7 +48,7 @@ instance Show Key where
"" +++ y = y
x +++ "" = x
x +++ y = x ++ fieldSep:y
c ?: (Just v) = c:(show v)
c ?: (Just v) = c : show v
_ ?: _ = ""
readKey :: String -> Maybe Key
@ -73,4 +73,4 @@ readKey s = if key == Just stubKey then Nothing else key
addfield _ _ _ = Nothing
prop_idempotent_key_read_show :: Key -> Bool
prop_idempotent_key_read_show k = Just k == (readKey $ show k)
prop_idempotent_key_read_show k = Just k == (readKey . show) k