projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
b18c5cd
)
[project @ 1999-07-06 15:12:47 by sof]
author
sof
<unknown>
Tue, 6 Jul 1999 15:12:47 +0000
(15:12 +0000)
committer
sof
<unknown>
Tue, 6 Jul 1999 15:12:47 +0000
(15:12 +0000)
Added maxPrecedence
ghc/compiler/basicTypes/BasicTypes.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/basicTypes/BasicTypes.lhs
b/ghc/compiler/basicTypes/BasicTypes.lhs
index
39daeec
..
cd07f57
100644
(file)
--- a/
ghc/compiler/basicTypes/BasicTypes.lhs
+++ b/
ghc/compiler/basicTypes/BasicTypes.lhs
@@
-16,7
+16,8
@@
types that
module BasicTypes(
Version, Arity,
Unused, unused,
module BasicTypes(
Version, Arity,
Unused, unused,
- Fixity(..), FixityDirection(..), defaultFixity,
+ Fixity(..), FixityDirection(..),
+ defaultFixity, maxPrecedence,
NewOrData(..),
RecFlag(..), isRec, isNonRec,
TopLevelFlag(..), isTopLevel, isNotTopLevel
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
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}
\end{code}