X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FShow.lhs;h=dc19d8741a61cee33cfe7a816fc437f2810cd3f9;hb=4c29f6f110d23b890567b8696a964bb212eba52e;hp=ffcd01364abc4c49affdf9360cf02fde769c2af8;hpb=06ffe41b5a1730c93f5e3add2d0f32fe6677d223;p=ghc-base.git

diff --git a/GHC/Show.lhs b/GHC/Show.lhs
index ffcd013..dc19d87 100644
--- a/GHC/Show.lhs
+++ b/GHC/Show.lhs
@@ -35,11 +35,7 @@ module GHC.Show
 
 import GHC.Base
 import Data.Maybe
-import GHC.List ( (!!), foldr1
-#ifdef USE_REPORT_PRELUDE
-                , concatMap
-#endif
-                )
+import GHC.List ((!!), foldr1)
 \end{code}
 
 
@@ -392,7 +388,7 @@ showSignedInt (I# p) (I# n) r
 itos :: Int# -> String -> String
 itos n# cs
     | n# <# 0# =
-        let I# minInt# = minInt in
+        let !(I# minInt#) = minInt in
         if n# ==# minInt#
                 -- negateInt# minInt overflows, so we can't do that:
            then '-' : itos' (negateInt# (n# `quotInt#` 10#))