diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-07-05 12:14:26 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-07-05 12:14:26 +0000 |
| commit | e796c0f1a48b71be6917da401f5c1cbaf699a87e (patch) | |
| tree | 64ce9f56e57780efd368ff8ca4a6305c374b75a3 /utils | |
| parent | ec05d3bbba14c9c022a9752819f7fd4aa9277e1c (diff) | |
| download | haskell-e796c0f1a48b71be6917da401f5c1cbaf699a87e.tar.gz | |
Use the last compiler if more than one is specified
Diffstat (limited to 'utils')
| -rw-r--r-- | utils/hsc2hs/Main.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/utils/hsc2hs/Main.hs b/utils/hsc2hs/Main.hs index 978cc4beb7..e541e21d14 100644 --- a/utils/hsc2hs/Main.hs +++ b/utils/hsc2hs/Main.hs @@ -575,8 +575,7 @@ output flags name toks = do -- (called hsc2hs-inplace, generated from hsc2hs.sh) compiler <- case [c | Compiler c <- flags] of [] -> locateGhc "ghc" - [c] -> return c - _ -> onlyOne "compiler" + cs -> return (last cs) linker <- case [l | Linker l <- flags] of [] -> locateGhc compiler |