removed another 10 lines via ifM

2012-03-16 01:59:07 -04:00 · 2012-03-16 01:59:07 -04:00 · 184a69171d
commit 184a69171d
parent c0c9991c9f
9 changed files with 95 additions and 106 deletions
--- a/Logs/Presence.hs
+++ b/Logs/Presence.hs
@ -99,10 +99,9 @@ type LogMap = M.Map String LogLine
 {- Inserts a log into a map of logs, if the log has better (ie, newer)
 - information than the other logs in the map -}
 mapLog :: LogLine -> LogMap -> LogMap
-mapLog l m = 
-	if better
-		then M.insert i l m
-		else m
+mapLog l m
+	| better = M.insert i l m
+	| otherwise = m
 	where
 		better = maybe True newer $ M.lookup i m
 		newer l' = date l' <= date l