-----------------------------------------------------------------------------
--- $Id: DriverMkDepend.hs,v 1.18 2002/03/05 14:30:51 simonmar Exp $
+-- $Id: DriverMkDepend.hs,v 1.19 2002/03/20 20:20:26 sof Exp $
--
-- GHC Driver
--
#include "HsVersions.h"
-import DriverState
-import DriverUtil
+import DriverState
+import DriverUtil ( add, softGetDirectoryContents )
import DriverFlags
import SysTools ( newTempName )
import qualified SysTools
-import Module
-import Module ( isHomeModule )
+import Module ( ModuleName, moduleNameUserString, isHomeModule )
import Finder ( findModuleDep )
import HscTypes ( ModuleLocation(..) )
-import Util
+import Util ( global )
import Panic
import IOExts
import Directory
import IO
-import Monad
-import Maybe
+import Monad ( when )
+import Maybe ( isJust )
-------------------------------------------------------------------------------
-- mkdependHS
Just (mod,loc)
| isHomeModule mod || include_prelude
-> return (Just (ml_hi_file loc, not is_source))
- | otherwise
+ | otherwise
-> return Nothing
Nothing -> throwDyn (ProgramError
- (src ++ ": " ++ "can't locate import `" ++ imp_mod ++ "'"))
+ (src ++ ": " ++ "can't locate import `" ++ imp_mod ++ "'" ++
+ if is_source then " (SOURCE import)" else ""))