diff options
Diffstat (limited to 'ghc/compiler/main/Main.hs')
| -rw-r--r-- | ghc/compiler/main/Main.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ghc/compiler/main/Main.hs b/ghc/compiler/main/Main.hs index 99b9629220..4678065665 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.63 2001/04/26 13:52:57 simonmar Exp $ +-- $Id: Main.hs,v 1.64 2001/05/08 10:58:48 simonmar Exp $ -- -- GHC Driver program -- @@ -33,7 +33,7 @@ import DriverFlags import DriverMkDepend import DriverUtil import Panic -import DriverPhases ( Phase(..), haskellish_file, objish_file ) +import DriverPhases ( Phase(..), haskellish_src_file, objish_file ) import CmdLineOpts import TmpFiles import Finder ( initFinder ) @@ -291,8 +291,8 @@ main = -- OPTIONS pragma that affects the compilation pipeline (eg. -fvia-C) let (basename, suffix) = splitFilename src - -- just preprocess - pp <- if not (haskellish_file src) || mode == StopBefore Hsc + -- just preprocess (Haskell source only) + pp <- if not (haskellish_src_file src) || mode == StopBefore Hsc then return src else do phases <- genPipeline (StopBefore Hsc) stop_flag False{-not persistent-} defaultHscLang src |