X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FDriverPipeline.hs;h=d11ff1f3c84b39989a4c9df828a7614f9c666c9a;hb=948e7f388748078a8d9a324b284da7c4029f7060;hp=e889a72845edfe45e210c332fb3262859ecf6ede;hpb=a35a6325322ea7fef4fe66d34bba5bf59231f7cc;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs
index e889a72..d11ff1f 100644
--- a/ghc/compiler/main/DriverPipeline.hs
+++ b/ghc/compiler/main/DriverPipeline.hs
@@ -70,7 +70,7 @@ import Maybe
 
 preprocess :: FilePath -> IO FilePath
 preprocess filename =
-  ASSERT(haskellish_src_file filename) 
+  ASSERT(isHaskellSrcFilename filename) 
   do restoreDynFlags	-- Restore to state of last save
      runPipeline (StopBefore Hsc) ("preprocess") 
 	False{-temporary output file-}
@@ -562,7 +562,7 @@ runPhase Hsc basename suff input_fn get_output_fn _maybe_loc = do
 	
   -- gather the imports and module name
         (_,_,mod_name) <- 
-            if extcoreish_suffix suff
+            if isExtCoreFilename ('.':suff)
 	     then do
                -- no explicit imports in ExtCore input.
 	       m <- getCoreModuleName input_fn