From cde3484c0226563dec3f7ed0fb82b58099fa9a11 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Tue, 6 Jul 1999 15:12:47 +0000
Subject: [PATCH] [project @ 1999-07-06 15:12:47 by sof] Added maxPrecedence
---
ghc/compiler/basicTypes/BasicTypes.lhs | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/ghc/compiler/basicTypes/BasicTypes.lhs b/ghc/compiler/basicTypes/BasicTypes.lhs
index 39daeeca830b..cd07f5745bc7 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}
--
GitLab