diff options
| author | David Waern <david.waern@gmail.com> | 2008-08-13 21:46:54 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2008-08-13 21:46:54 +0000 |
| commit | 52bd87cfa72a33dbcfef8eaf5817f3be12128c3e (patch) | |
| tree | 21737e55ba4dbeba516d337d54dfa3f9dbfa0a89 | |
| parent | b6573161349d35dd94b51a64b06cfd1e6ad32105 (diff) | |
Follow changes to parseDynamic- parseStaticFlags in GHC
| -rw-r--r-- | src/Haddock/GHC.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/Haddock/GHC.hs b/src/Haddock/GHC.hs index 6ea72a29..d5b59e0e 100644 --- a/src/Haddock/GHC.hs +++ b/src/Haddock/GHC.hs @@ -32,7 +32,11 @@ import StaticFlags startGhc :: String -> [String] -> IO (Session, DynFlags) startGhc libDir flags = do -- TODO: handle warnings? +#if __GLASGOW_HASKELL__ >= 609 (restFlags, _) <- parseStaticFlags flags +#else + restFlags <- parseStaticFlags flags +#endif session <- newSession (Just libDir) dynflags <- getSessionDynFlags session let dynflags' = dopt_set dynflags Opt_Haddock |