From 693255e8d7c52e0e6e88e6b9c112ae123877a6a8 Mon Sep 17 00:00:00 2001 From: simonpj Date: Mon, 2 Jun 2003 14:32:14 +0000 Subject: [PATCH] [project @ 2003-06-02 14:32:14 by simonpj] Add (<++) --- Text/ParserCombinators/ReadPrec.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/Text/ParserCombinators/ReadPrec.hs b/Text/ParserCombinators/ReadPrec.hs index 3c33bb1..ae4a365 100644 --- a/Text/ParserCombinators/ReadPrec.hs +++ b/Text/ParserCombinators/ReadPrec.hs @@ -32,6 +32,7 @@ module Text.ParserCombinators.ReadPrec get, -- :: ReadPrec Char look, -- :: ReadPrec String (+++), -- :: ReadPrec a -> ReadPrec a -> ReadPrec a + (<++), -- :: ReadPrec a -> ReadPrec a -> ReadPrec a pfail, -- :: ReadPrec a choice, -- :: [ReadPrec a] -> ReadPrec a @@ -53,7 +54,7 @@ import Text.ParserCombinators.ReadP import qualified Text.ParserCombinators.ReadP as ReadP ( get , look - , (+++) + , (+++), (<++) , pfail ) @@ -123,6 +124,9 @@ look = lift ReadP.look (+++) :: ReadPrec a -> ReadPrec a -> ReadPrec a P f1 +++ P f2 = P (\n -> f1 n ReadP.+++ f2 n) +(<++) :: ReadPrec a -> ReadPrec a -> ReadPrec a +P f1 <++ P f2 = P (\n -> f1 n ReadP.<++ f2 n) + pfail :: ReadPrec a pfail = lift ReadP.pfail -- 1.7.10.4