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

hlint

Browse source
This commit is contained in:
Joey Hess 2013-04-03 03:52:41 -04:00
parent bcea51171a
commit 8a5b397ac4
26 changed files with 48 additions and 52 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Remote.hs
View file

@ -150,7 +150,7 @@ prettyListUUIDs :: [UUID] -> Annex [String]
prettyListUUIDs uuids = do
hereu <- getUUID
m <- uuidDescriptions
return $ map (\u -> prettify m hereu u) uuids
return $ map (prettify m hereu) uuids
where
finddescription m u = M.findWithDefault "" u m
prettify m hereu u