[project @ 2003-04-08 16:14:29 by simonpj]

add fixity for +++, <++

diff --git a/Text/ParserCombinators/ReadP.hs b/Text/ParserCombinators/ReadP.hs
index 145dfe2..7b64185 100644 (file)
--- a/Text/ParserCombinators/ReadP.hs
+++ b/Text/ParserCombinators/ReadP.hs
@@ -49,6 +49,8 @@ import Control.Monad( MonadPlus(..) )
 import GHC.Show( isSpace  )
 import GHC.Base
 
+infixr 5 +++, <++
+
 -- We define a local version of ReadS here,
 -- because its "real" definition site is in GHC.Read
 type ReadS a = String -> [(a,String)]