projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2001-02-13 17:40:37 by qrczak]
[ghc-hetmet.git]
/
ghc
/
utils
/
hsc2hs
/
Main.hs
diff --git
a/ghc/utils/hsc2hs/Main.hs
b/ghc/utils/hsc2hs/Main.hs
index
18534df
..
d0afcd5
100644
(file)
--- a/
ghc/utils/hsc2hs/Main.hs
+++ b/
ghc/utils/hsc2hs/Main.hs
@@
-1,5
+1,5
@@
-----------------------------------------------------------------------------
-----------------------------------------------------------------------------
--- $Id: Main.hs,v 1.17 2001/02/10 10:43:25 qrczak Exp $
+-- $Id: Main.hs,v 1.21 2001/02/13 17:40:37 qrczak Exp $
--
-- (originally "GlueHsc.hs" by Marcin 'Qrczak' Kowalczyk)
--
--
-- (originally "GlueHsc.hs" by Marcin 'Qrczak' Kowalczyk)
--
@@
-13,7
+13,7
@@
import GetOpt
import System (getProgName, getArgs, ExitCode(..), exitWith, exitFailure)
import GetOpt
import System (getProgName, getArgs, ExitCode(..), exitWith, exitFailure)
-import KludgedSystem (system)
+import KludgedSystem (system, defaultCompiler)
import Directory (removeFile)
import Parsec
import ParsecError
import Directory (removeFile)
import Parsec
import ParsecError
@@
-213,7
+213,7
@@
output flags name toks = let
[c] -> return c
_ -> onlyOne "compiler"
linker <- case [l | Linker l <- flags] of
[c] -> return c
_ -> onlyOne "compiler"
linker <- case [l | Linker l <- flags] of
- [] -> return "gcc"
+ [] -> return defaultCompiler
[l] -> return l
_ -> onlyOne "linker"
[l] -> return l
_ -> onlyOne "linker"