diff options
| author | David Waern <davve@dtek.chalmers.se> | 2007-10-17 16:02:28 +0000 |
|---|---|---|
| committer | David Waern <davve@dtek.chalmers.se> | 2007-10-17 16:02:28 +0000 |
| commit | 54d9edbb47657ba67b5b1c5248f295c772bf2948 (patch) | |
| tree | fa9748b5e4be17caf9ddee153eeec4316de6fc24 /src/Main.hs | |
| parent | 0f578158c1745bd98f940c2124c3463055a400b6 (diff) | |
Add --optghc=.. style flag passing to GHC
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/src/Main.hs b/src/Main.hs index 980e2023..c900529c 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -104,13 +104,9 @@ main = handleTopExceptions $ do (flags, fileArgs) <- parseHaddockOpts args libDir <- handleEasyFlags flags fileArgs - -- initialize GHC - restGhcFlags <- tryParseStaticFlags flags - (session, _) <- startGhc libDir - - -- parse and set the GHC flags - dynflags <- parseGhcFlags session restGhcFlags - setSessionDynFlags session dynflags + -- initialize GHC + let ghcFlags = makeGhcFlags flags + (session, dynflags) <- startGhc libDir ghcFlags -- get the -use-package packages, load them in GHC, -- and try to get the corresponding installed HaddockPackages |