homework-2: improving clarity of parse function

fenak · Feb 12, 2015 · 4c24712 · 4c24712
1 parent a94fb2e
commit 4c24712
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/homework-2/LogAnalyzer.hs b/homework-2/LogAnalyzer.hs
@@ -16,8 +16,7 @@ parseMessage m = case (words m) of
                     s         -> Unknown m
 
 parse :: String -> [LogMessage]
-parse s = let ls = lines s
-          in map (parseMessage) ls
+parse = map parseMessage . lines
 
 -- Putting the logs in order