Commit 505f84a8 authored by simonmar's avatar simonmar
Browse files

[project @ 2002-02-12 09:43:08 by simonmar]

fromInt ==> fromIntegral
parent ccaf7057
......@@ -64,10 +64,6 @@ import Panic ( panic, assertPanic )
import Maybes ( maybeToBool )
import Constants
import List ( partition, intersperse )
#if __GLASGOW_HASKELL__ >= 404
import GlaExts ( fromInt )
#endif
\end{code}
%************************************************************************
......@@ -1034,12 +1030,12 @@ getLRPrecs is_infix get_fixity nm = [lp, rp]
| otherwise = paren_con_prec + 1
defaultPrecedence :: Integer
defaultPrecedence = fromInt maxPrecedence
defaultPrecedence = fromIntegral maxPrecedence
getPrecedence :: FixityEnv -> Name -> Integer
getPrecedence get_fixity nm
= case lookupFixity get_fixity nm of
Fixity x _ -> fromInt x
Fixity x _ -> fromIntegral x
isLRAssoc :: FixityEnv -> Name -> (Bool, Bool)
isLRAssoc get_fixity nm =
......
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