fix perl refugee code
This commit is contained in:
parent
ff38e49eb4
commit
f4e2dde8a8
6 changed files with 20 additions and 20 deletions
2
UUID.hs
2
UUID.hs
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue