X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FMain.hs;h=1753cd3b7e06c16faa6dfb34ca7fc41b212c2c7b;hb=d14c46d36924cb16b5619c0ba37241324ca1c3bd;hp=a5b094fac170600a90ba9ee6e5a6ff9cd31030c6;hpb=8a097699a0fe3493286391cb9d59208f2cf0733f;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/Main.hs b/ghc/compiler/main/Main.hs
index a5b094f..1753cd3 100644
--- a/ghc/compiler/main/Main.hs
+++ b/ghc/compiler/main/Main.hs
@@ -1,6 +1,6 @@
 {-# OPTIONS -fno-warn-incomplete-patterns #-}
 -----------------------------------------------------------------------------
--- $Id: Main.hs,v 1.56 2001/02/27 15:25:18 simonmar Exp $
+-- $Id: Main.hs,v 1.58 2001/03/05 12:18:21 simonpj Exp $
 --
 -- GHC Driver program
 --
@@ -18,6 +18,7 @@ module Main (main) where
 
 #ifdef GHCI
 import InteractiveUI
+import Char		( toLower )
 #endif
 
 #ifndef mingw32_TARGET_OS
@@ -138,7 +139,7 @@ main =
 	else do am_inplace <- doesFileExist inplace_pkgconfig
 	        if am_inplace
 		    then writeIORef v_Path_package_config inplace_pkgconfig
-		    else throwDyn (OtherError "can't find package.conf")
+		    else throwDyn (OtherError ("Can't find package.conf in " ++ inplace_pkgconfig))
 
 	-- set the location of our various files
    if am_installed