From: Ian Lynagh <igloo@earth.li>
Date: Wed, 25 Nov 2009 19:41:47 +0000 (+0000)
Subject: Tweak layout to be accepted by the alternative layout rul
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=f8fd2a5da08346a74c22e5abc8dcb757857fe8f2;p=ghc-base.git

Tweak layout to be accepted by the alternative layout rul
---

diff --git a/Text/ParserCombinators/ReadP.hs b/Text/ParserCombinators/ReadP.hs
index 09fc10d..fb506f6 100644
--- a/Text/ParserCombinators/ReadP.hs
+++ b/Text/ParserCombinators/ReadP.hs
@@ -307,7 +307,8 @@ munch1 :: (Char -> Bool) -> ReadP String
 --   Hence NOT the same as (many1 (satisfy p))
 munch1 p =
   do c <- get
-     if p c then do s <- munch p; return (c:s) else pfail
+     if p c then do s <- munch p; return (c:s)
+            else pfail
 
 choice :: [ReadP a] -> ReadP a
 -- ^ Combines all parsers in the specified list.