From 549f289423e58d6036290ce14fb4d86fa6fda726 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Tue, 24 Jun 2008 12:26:18 +0000 Subject: [PATCH] Fix warnings in ghc-prim modules --- GHC/Bool.hs | 2 +- GHC/IntWord32.hs | 3 +-- GHC/IntWord64.hs | 3 +-- GHC/Ordering.hs | 2 +- 4 files changed, 4 insertions(+), 6 deletions(-) diff --git a/GHC/Bool.hs b/GHC/Bool.hs index c4389a4..39cb5e1 100644 --- a/GHC/Bool.hs +++ b/GHC/Bool.hs @@ -4,7 +4,7 @@ module GHC.Bool where -- We need Inl etc behind the scenes for the Bool definition -import GHC.Generics +import GHC.Generics () default () diff --git a/GHC/IntWord32.hs b/GHC/IntWord32.hs index 7eac21b..af4a391 100644 --- a/GHC/IntWord32.hs +++ b/GHC/IntWord32.hs @@ -24,11 +24,10 @@ module GHC.IntWord32 ( #endif ) where +#if WORD_SIZE_IN_BITS < 32 import GHC.Bool import GHC.Prim -#if WORD_SIZE_IN_BITS < 32 - foreign import unsafe "stg_eqWord32" eqWord32# :: Word32# -> Word32# -> Bool foreign import unsafe "stg_neWord32" neWord32# :: Word32# -> Word32# -> Bool foreign import unsafe "stg_ltWord32" ltWord32# :: Word32# -> Word32# -> Bool diff --git a/GHC/IntWord64.hs b/GHC/IntWord64.hs index 29f353c..1facda4 100644 --- a/GHC/IntWord64.hs +++ b/GHC/IntWord64.hs @@ -24,11 +24,10 @@ module GHC.IntWord64 ( #endif ) where +#if WORD_SIZE_IN_BITS < 64 import GHC.Bool import GHC.Prim -#if WORD_SIZE_IN_BITS < 64 - foreign import ccall unsafe "hs_eqWord64" eqWord64# :: Word64# -> Word64# -> Bool foreign import ccall unsafe "hs_neWord64" neWord64# :: Word64# -> Word64# -> Bool foreign import ccall unsafe "hs_ltWord64" ltWord64# :: Word64# -> Word64# -> Bool diff --git a/GHC/Ordering.hs b/GHC/Ordering.hs index acd92a1..ebc1e23 100644 --- a/GHC/Ordering.hs +++ b/GHC/Ordering.hs @@ -4,7 +4,7 @@ module GHC.Ordering where -- We need Inl etc behind the scenes for the Ordering definition -import GHC.Generics +import GHC.Generics () default () -- 1.7.10.4