X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Data%2FInt.hs;h=1033270df0938cf0cf0593268d162411ed2449fd;hb=696a935b0818ab9cf1a4fbd93faf9add88ead1cd;hp=fd635897505e8ddaaa0f7390603c9ea45806e0bb;hpb=62f970f4cba2f6701a51fd5aa8f920c5b257ed59;p=ghc-base.git diff --git a/Data/Int.hs b/Data/Int.hs index fd63589..1033270 100644 --- a/Data/Int.hs +++ b/Data/Int.hs @@ -1,4 +1,4 @@ -{-# OPTIONS -fno-implicit-prelude #-} +{-# OPTIONS_GHC -fno-implicit-prelude #-} ----------------------------------------------------------------------------- -- | -- Module : Data.Int @@ -29,6 +29,17 @@ import GHC.Base ( Int ) import GHC.Int ( Int8, Int16, Int32, Int64 ) #endif +#ifdef __HUGS__ +import Hugs.Int ( Int8, Int16, Int32, Int64 ) +#endif + +#ifdef __NHC__ +import Prelude +import Prelude (Int) +import NHC.FFI (Int8, Int16, Int32, Int64) +import NHC.SizedTypes (Int8, Int16, Int32, Int64) -- instances of Bits +#endif + {- $notes * All arithmetic is performed modulo 2^n, where @n@ is the number of