From: sof <unknown>
Date: Tue, 6 Jul 1999 15:12:47 +0000 (+0000)
Subject: [project @ 1999-07-06 15:12:47 by sof]
X-Git-Tag: Approximately_9120_patches~6027
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=cde3484c0226563dec3f7ed0fb82b58099fa9a11;p=ghc-hetmet.git

[project @ 1999-07-06 15:12:47 by sof]
Added maxPrecedence
---

diff --git a/ghc/compiler/basicTypes/BasicTypes.lhs b/ghc/compiler/basicTypes/BasicTypes.lhs
index 39daeec..cd07f57 100644
--- a/ghc/compiler/basicTypes/BasicTypes.lhs
+++ b/ghc/compiler/basicTypes/BasicTypes.lhs
@@ -16,7 +16,8 @@ types that
 module BasicTypes(
 	Version, Arity, 
 	Unused, unused,
-	Fixity(..), FixityDirection(..), defaultFixity,
+	Fixity(..), FixityDirection(..), 
+	defaultFixity, maxPrecedence,
 	NewOrData(..), 
 	RecFlag(..), isRec, isNonRec,
 	TopLevelFlag(..), isTopLevel, isNotTopLevel
@@ -87,8 +88,8 @@ instance Outputable FixityDirection where
 instance Eq Fixity where		-- Used to determine if two fixities conflict
   (Fixity p1 dir1) == (Fixity p2 dir2) = p1==p2 && dir1 == dir2
 
-
-defaultFixity = Fixity 9 InfixL
+maxPrecedence = (9::Int)
+defaultFixity = Fixity maxPrecedence InfixL
 \end{code}