From: sewardj <unknown>
Date: Wed, 14 Mar 2001 17:53:04 +0000 (+0000)
Subject: [project @ 2001-03-14 17:53:04 by sewardj]
X-Git-Tag: Approximately_9120_patches~2406
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=a4932bcbfcb9dfb40ed44a37ddd797642917c5dd;p=ghc-hetmet.git

[project @ 2001-03-14 17:53:04 by sewardj]
Don't try and do `take' of a negative number in compMsg.  The Golden
Lemon award for 2001 goes to <name_deleted_to_protect_the_guilty_party>.
---

diff --git a/ghc/compiler/main/HscMain.lhs b/ghc/compiler/main/HscMain.lhs
index 540ea63..90ca27e 100644
--- a/ghc/compiler/main/HscMain.lhs
+++ b/ghc/compiler/main/HscMain.lhs
@@ -174,7 +174,7 @@ hscNoRecomp ghci_mode dflags mod location (Just old_iface) hst hit pcs_ch
       }}}
 
 compMsg mod location =
-    mod_str ++ take (12 - length mod_str) (repeat ' ')
+    mod_str ++ take (max 0 (16 - length mod_str)) (repeat ' ')
     ++ " (" ++ unJust "hscRecomp" (ml_hs_file location) ++ ")"
  where mod_str = moduleUserString mod