can get rid of some parens

1 files changed, 2 insertions, 2 deletions

diff --git a/2/2.hs b/2/2.hs
index ba01542..55619a2 100644
--- a/2/2.hs
+++ b/2/2.hs
@@ -20,11 +20,11 @@ color = red <|> green <|> blue
 handful = liftM2 (flip (,)) (space *> (read <$> many1 digit)) (space *> color)
 
 set = M.fromList <$> (sepBy handful $ string ",")
-game = liftM2 (,) (string "Game " *> (read <$> many1 digit)) (string ":" *> sepBy set (string ";"))
+game = (,) <$> (string "Game " *> (read <$> many1 digit)) <*> (string ":" *> sepBy set (string ";"))
 
 games = sepBy game newline
 
 solution :: Game -> Int
 solution = product . M.elems . M.unionsWith max . snd
 
-main = liftM2 (>>=) readFile (((print . sum . map solution . either (error.show) id) .) . parse games) =<< head <$> getArgs
\ No newline at end of file
+main = (>>=) <$> readFile <*> ((print . sum . map solution . either (error.show) id) .) . parse games =<< head <$> getArgs
\ No newline at end of file