projects
/
ghc-base.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add tests from testsuite/tests/h98
[ghc-base.git]
/
GHC
/
Num.lhs
diff --git
a/GHC/Num.lhs
b/GHC/Num.lhs
index
9a81c90
..
5dc5e75
100644
(file)
--- a/
GHC/Num.lhs
+++ b/
GHC/Num.lhs
@@
-1,5
+1,7
@@
\begin{code}
\begin{code}
-{-# OPTIONS_GHC -XNoImplicitPrelude #-}
+{-# LANGUAGE CPP, NoImplicitPrelude, MagicHash, UnboxedTuples #-}
+-- We believe we could deorphan this module, by moving lots of things
+-- around, but we haven't got there yet:
{-# OPTIONS_GHC -fno-warn-orphans #-}
{-# OPTIONS_HADDOCK hide #-}
-----------------------------------------------------------------------------
{-# OPTIONS_GHC -fno-warn-orphans #-}
{-# OPTIONS_HADDOCK hide #-}
-----------------------------------------------------------------------------
@@
-109,6
+111,7
@@
instance Num Int where
| n `eqInt` 0 = 0
| otherwise = 1
| n `eqInt` 0 = 0
| otherwise = 1
+ {-# INLINE fromInteger #-} -- Just to be sure!
fromInteger i = I# (toInt# i)
quotRemInt :: Int -> Int -> (Int, Int)
fromInteger i = I# (toInt# i)
quotRemInt :: Int -> Int -> (Int, Int)