Commit cde3484c authored by sof's avatar sof
Browse files

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

Added maxPrecedence
parent b18c5cdd
......@@ -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}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment