From f8fd2a5da08346a74c22e5abc8dcb757857fe8f2 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Wed, 25 Nov 2009 19:41:47 +0000 Subject: [PATCH] Tweak layout to be accepted by the alternative layout rul --- Text/ParserCombinators/ReadP.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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. -- 1.7.10.4