[project @ 1999-02-02 17:37:39 by simonm]

[ghc-hetmet.git] / ghc / lib / std / PrelNumExtra.lhs

diff --git a/ghc/lib/std/PrelNumExtra.lhs b/ghc/lib/std/PrelNumExtra.lhs
index 4ab38ed..7fb14a8 100644 (file)
--- a/ghc/lib/std/PrelNumExtra.lhs
+++ b/ghc/lib/std/PrelNumExtra.lhs
@@ -551,7 +551,7 @@ prR n r e0
        s@(h:t) = show ((round (r * 10^n))::Integer)
        e       = e0+1
        
-       takeN (I# n#) ls rs = takeUInt n# ls rs
+       takeN (I# n#) ls rs = takeUInt_append n# ls rs
 
 drop0 :: String -> String -> String
 drop0     [] rs = rs