X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FInt.hs;h=27ee9906cd89b6e9bf1cea1f4576f0369ca0a79b;hb=f98950484a7cb01e43352e3d88277a2784cd58bf;hp=7a42bb3b6e2bb317af76e3bee53478d9a5696b3d;hpb=a07504ab09e4c63e7ef25c13e4e97466c36a651a;p=ghc-base.git

diff --git a/GHC/Int.hs b/GHC/Int.hs
index 7a42bb3..27ee990 100644
--- 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 #-}
 -----------------------------------------------------------------------------
 -- |
@@ -42,6 +43,7 @@ import GHC.Word hiding (uncheckedShiftL64#, uncheckedShiftRL64#)
 import GHC.Show
 import GHC.Float ()     -- for RealFrac methods
 
+
 ------------------------------------------------------------------------
 -- 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
 
+
 {-
 Note [Order of tests]
 
@@ -1031,4 +1034,3 @@ so the
     y == (-1) && x == minBound
 order gives us better code in the common case.
 -}
-