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

fix perl refugee code

Browse source
This commit is contained in:
Joey Hess 2010-10-22 20:47:14 -04:00
parent ff38e49eb4
commit f4e2dde8a8
6 changed files with 20 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

2
UUID.hs
View file

@ -103,7 +103,7 @@ prettyPrintUUIDs uuids = do
return $ unwords $ map (\u -> "\t"++(prettify m u)++"\n") uuids
where
prettify m u =
if (0 < (length $ findlog m u))
if (not $ null $ findlog m u)
then u ++ " -- " ++ (findlog m u)
else u
findlog m u = M.findWithDefault "" u m