summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
5942db8)
HsLit instance of Eq; need by Check
-- also: "overloaded" type; but
-- must resolve to boxed-primitive!
-- (WDP 94/10)
-- also: "overloaded" type; but
-- must resolve to boxed-primitive!
-- (WDP 94/10)
+ToDo: an improved Eq instance JJQC 30-Nov-1997
+
\begin{code}
negLiteral (HsInt i) = HsInt (-i)
negLiteral (HsFrac f) = HsFrac (-f)
\begin{code}
negLiteral (HsInt i) = HsInt (-i)
negLiteral (HsFrac f) = HsFrac (-f)