diff options
| author | simonmar <unknown> | 2001-05-08 10:58:48 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2001-05-08 10:58:48 +0000 |
| commit | b8b47abe336d17ae5354a9bb15c44564b51c97ef (patch) | |
| tree | 63e56444d4d5c45a43478e61b48604af72f19fdf /ghc/compiler/compMan/CompManager.lhs | |
| parent | dc673bca305b43342b864445539b49c353dd6a10 (diff) | |
| download | haskell-b8b47abe336d17ae5354a9bb15c44564b51c97ef.tar.gz | |
[project @ 2001-05-08 10:58:48 by simonmar]
Add
DriverPhases.haskellish_src_suffix :: String -> Bool
DriverPhases.haskellish_src_file :: String -> Bool
which return True for suffixes of Haskell source files only. The
existing haskellish_suffix and haskellish_file return True also for
.raw_s and .hc files.
We use these instead of haskellish_file in Main.main when deciding
whether to preprocess a file.
Fixes: compilation of .raw_s files, and potential bugs with
compilation of .hc files.
Diffstat (limited to 'ghc/compiler/compMan/CompManager.lhs')
| -rw-r--r-- | ghc/compiler/compMan/CompManager.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/compiler/compMan/CompManager.lhs b/ghc/compiler/compMan/CompManager.lhs index 7cc8a279b6..34d835b1a0 100644 --- a/ghc/compiler/compMan/CompManager.lhs +++ b/ghc/compiler/compMan/CompManager.lhs @@ -953,7 +953,7 @@ downsweep rootNm old_summaries where getRootSummary :: FilePath -> IO ModSummary getRootSummary file - | haskellish_file file + | haskellish_src_file file = do exists <- doesFileExist file if exists then summariseFile file else do throwDyn (CmdLineError ("can't find file `" ++ file ++ "'")) |