X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fmain%2FFinder.lhs;h=f9e3aa48139606fea7fe61068a0b95d0a5b47280;hp=1f047fa8d01bf42ea913caeb350f6b1c9f04bd4e;hb=ad94d40948668032189ad22a0ad741ac1f645f50;hpb=26637fd8651f55fd424f3f6190220335ab5b80e9

diff --git a/compiler/main/Finder.lhs b/compiler/main/Finder.lhs
index 1f047fa..f9e3aa4 100644
--- a/compiler/main/Finder.lhs
+++ b/compiler/main/Finder.lhs
@@ -4,6 +4,13 @@
 \section[Finder]{Module Finder}
 
 \begin{code}
+{-# OPTIONS -w #-}
+-- The above warning supression flag is a temporary kludge.
+-- While working on this module you are encouraged to remove it and fix
+-- any warnings in the module. See
+--     http://hackage.haskell.org/trac/ghc/wiki/CodingStyle#Warnings
+-- for details
+
 module Finder (
     flushFinderCaches,
     FindResult(..),
@@ -37,13 +44,12 @@ import FiniteMap
 import UniqFM
 import Maybes		( expectJust )
 
-import DATA_IOREF	( IORef, writeIORef, readIORef, modifyIORef )
-
+import Data.IORef	( IORef, writeIORef, readIORef, modifyIORef )
 import Data.List
 import System.Directory
 import System.IO
 import Control.Monad
-import Time		( ClockTime )
+import System.Time	( ClockTime )
 
 
 type FileExt = String	-- Filename extension
@@ -244,6 +250,14 @@ findHomeModule hsc_env mod_name =
      exts | isOneShot (ghcMode dflags) = hi_exts
           | otherwise      	       = source_exts
    in
+
+  -- special case for GHC.Prim; we won't find it in the filesystem.
+  -- This is important only when compiling the base package (where GHC.Prim
+  -- is a home module).
+  if mod == gHC_PRIM 
+        then return (Found (error "GHC.Prim ModLocation") mod)
+        else 
+
    searchPathExts home_path mod exts