projects
/
ghc-base.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
final revision to GArrow classes
[ghc-base.git]
/
GHC
/
Int.hs
diff --git
a/GHC/Int.hs
b/GHC/Int.hs
index
7a42bb3
..
27ee990
100644
(file)
--- a/
GHC/Int.hs
+++ b/
GHC/Int.hs
@@
-1,4
+1,5
@@
-{-# LANGUAGE CPP, NoImplicitPrelude, BangPatterns, MagicHash #-}
+{-# LANGUAGE CPP, NoImplicitPrelude, BangPatterns, MagicHash,
+ StandaloneDeriving #-}
{-# OPTIONS_HADDOCK hide #-}
-----------------------------------------------------------------------------
-- |
{-# OPTIONS_HADDOCK hide #-}
-----------------------------------------------------------------------------
-- |
@@
-42,6
+43,7
@@
import GHC.Word hiding (uncheckedShiftL64#, uncheckedShiftRL64#)
import GHC.Show
import GHC.Float () -- for RealFrac methods
import GHC.Show
import GHC.Float () -- for RealFrac methods
+
------------------------------------------------------------------------
-- type Int8
------------------------------------------------------------------------
------------------------------------------------------------------------
-- type Int8
------------------------------------------------------------------------
@@
-908,6
+910,7
@@
instance Ix Int64 where
unsafeIndex (m,_) i = fromIntegral i - fromIntegral m
inRange (m,n) i = m <= i && i <= n
unsafeIndex (m,_) i = fromIntegral i - fromIntegral m
inRange (m,n) i = m <= i && i <= n
+
{-
Note [Order of tests]
{-
Note [Order of tests]
@@
-1031,4
+1034,3
@@
so the
y == (-1) && x == minBound
order gives us better code in the common case.
-}
y == (-1) && x == minBound
order gives us better code in the common case.
-}
-