[project @ 2001-10-25 02:13:10 by sof]

[ghc-hetmet.git] / ghc / compiler / main / HscMain.lhs

diff --git a/ghc/compiler/main/HscMain.lhs b/ghc/compiler/main/HscMain.lhs
index 773e6f5..b5085cd 100644 (file)
--- a/ghc/compiler/main/HscMain.lhs
+++ b/ghc/compiler/main/HscMain.lhs
@@ -191,7 +191,7 @@ hscNoRecomp ghci_mode dflags have_object
       }}}
 
 compMsg use_object mod location =
-    mod_str ++ take (max 0 (16 - length mod_str)) (repeat ' ')
+    mod_str ++ replicate (max 0 (16 - length mod_str)) ' '
     ++" ( " ++ unJust "hscRecomp" (ml_hs_file location) ++ ", "
     ++ (if use_object
          then unJust "hscRecomp" (ml_obj_file location)