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

more hlint

Browse source
This commit is contained in:
Joey Hess 2014-02-11 01:35:11 -04:00
parent 4515fa10aa
commit 40cec65ace
6 changed files with 34 additions and 44 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Remote.hs
View file

@ -189,8 +189,7 @@ prettyUUID u = concat <$> prettyListUUIDs [u]
remoteFromUUID :: UUID -> Annex (Maybe Remote)
remoteFromUUID u = ifM ((==) u <$> getUUID)
( return Nothing
, do
maybe tryharder (return . Just) =<< findinmap
, maybe tryharder (return . Just) =<< findinmap
)
where
findinmap = M.lookup u <$> remoteMap id