From: simonpj <unknown>
Date: Tue, 8 Apr 2003 16:14:29 +0000 (+0000)
Subject: [project @ 2003-04-08 16:14:29 by simonpj]
X-Git-Tag: nhc98-1-18-release~700
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=521e7cf0a33af1da3f6d012fce89c3ea3cb00583;p=haskell-directory.git

[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
--- 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)]