Use the last compiler if more than one is specified
authorIan Lynagh <igloo@earth.li>
Sat, 5 Jul 2008 12:14:26 +0000 (12:14 +0000)
committerIan Lynagh <igloo@earth.li>
Sat, 5 Jul 2008 12:14:26 +0000 (12:14 +0000)
utils/hsc2hs/Main.hs

index 978cc4b..e541e21 100644 (file)
@@ -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