diff --git a/GHC/Integer/Type.lhs b/GHC/Integer/Type.lhs index d74b2f7d0882cd8fe5a691e71f058a2d711edcd8..eef256b2745d91c68a603ea107781b7f0ae5f02e 100644 --- a/GHC/Integer/Type.lhs +++ b/GHC/Integer/Type.lhs @@ -72,11 +72,11 @@ data Integer = S# Int# -- small integers | J# Int# ByteArray# -- large integers -{-# INLINE [0] smallInteger #-} +{-# NOINLINE smallInteger #-} smallInteger :: Int# -> Integer smallInteger i = S# i -{-# INLINE [0] wordToInteger #-} +{-# NOINLINE wordToInteger #-} wordToInteger :: Word# -> Integer wordToInteger w = case word2Integer# w of (# s, d #) -> J# s d