{-# OPTIONS -W #-}
-----------------------------------------------------------------------------
--- $Id: Main.hs,v 1.54 2000/08/18 04:04:48 qrczak Exp $
+-- $Id: Main.hs,v 1.55 2000/08/18 06:42:37 qrczak Exp $
--
-- GHC Driver program
--
cmdline_includes <- readState cmdline_hc_includes -- -#include options
let cc_injects | hcc = unlines (map mk_include
- (reverse cmdline_includes ++ c_includes))
+ (c_includes ++ reverse cmdline_includes))
| otherwise = ""
mk_include h_file =
case h_file of