projects
/
haskell-directory.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
7cb47d9
)
[project @ 2003-06-02 14:32:14 by simonpj]
author
simonpj
<unknown>
Mon, 2 Jun 2003 14:32:14 +0000
(14:32 +0000)
committer
simonpj
<unknown>
Mon, 2 Jun 2003 14:32:14 +0000
(14:32 +0000)
Add (<++)
Text/ParserCombinators/ReadPrec.hs
patch
|
blob
|
history
diff --git
a/Text/ParserCombinators/ReadPrec.hs
b/Text/ParserCombinators/ReadPrec.hs
index
3c33bb1
..
ae4a365
100644
(file)
--- 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
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
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
import qualified Text.ParserCombinators.ReadP as ReadP
( get
, look
- , (+++)
+ , (+++), (<++)
, pfail
)
, 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)
+(<++) :: ReadPrec a -> ReadPrec a -> ReadPrec a
+P f1 <++ P f2 = P (\n -> f1 n ReadP.<++ f2 n)
+
pfail :: ReadPrec a
pfail = lift ReadP.pfail
pfail :: ReadPrec a
pfail = lift ReadP.pfail