X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Flib%2Fexts%2FNumExts.lhs;h=35bbcbe57af2843ca40c6fbdbd0aca6ed8acb179;hb=5b4a7c8dde1e820feb275092ffc40d7b8f91ebf6;hp=6371651372868dab0f74013b6d9ecc0a1fabebc2;hpb=5c05f30b050dddeaeaee1ba0e6f521e22f7c984d;p=ghc-hetmet.git

diff --git a/ghc/lib/exts/NumExts.lhs b/ghc/lib/exts/NumExts.lhs
index 6371651..35bbcbe 100644
--- a/ghc/lib/exts/NumExts.lhs
+++ b/ghc/lib/exts/NumExts.lhs
@@ -28,7 +28,6 @@ module NumExts
 
 import Char (ord, chr)
 #ifdef __HUGS__
-import PreludeBuiltin
 ord_0 = ord '0'
 #else
 import PrelNum ( ord_0 )
@@ -106,4 +105,13 @@ from @NumExts@.
 \begin{code}
 showListWith :: (a -> ShowS) -> [a] -> ShowS 
 showListWith = showList__
+#ifdef __HUGS__
+showList__ :: (a -> ShowS) ->  [a] -> ShowS
+showList__ _     []     s = "[]" ++ s
+showList__ showx (x:xs) s = '[' : showx x (showl xs)
+  where
+    showl []     = ']' : s
+    showl (y:ys) = ',' : showx y (showl ys)
+#endif
 \end{code}
+