fix perl refugee code

1 files changed, 1 insertions, 1 deletions

diff --git a/UUID.hs b/UUID.hs
index 47d305c4f..a7783d614 100644
--- a/UUID.hs
+++ b/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