Remove now-redundant "return ()"s
authorIan Lynagh <igloo@earth.li>
Sat, 4 Jul 2009 21:19:57 +0000 (21:19 +0000)
committerIan Lynagh <igloo@earth.li>
Sat, 4 Jul 2009 21:19:57 +0000 (21:19 +0000)
Main.hs

diff --git a/Main.hs b/Main.hs
index 89f97a7..4f56482 100644 (file)
--- a/Main.hs
+++ b/Main.hs
@@ -273,12 +273,10 @@ satisfy_ p = satisfy p >> return ()
 char_ :: Char -> Parser ()
 char_ c = do
     satisfy_ (== c) `message` (show c++" expected")
-    return ()
 
 anyChar_ :: Parser ()
 anyChar_ = do
     satisfy_ (const True) `message` "Unexpected end of file"
-    return ()
 
 any2Chars_ :: Parser ()
 any2Chars_ = anyChar_ >> anyChar_