diff options
| author | Isaac Dupree <id@isaac.cedarswampstudios.org> | 2009-08-23 03:08:03 +0000 |
|---|---|---|
| committer | Isaac Dupree <id@isaac.cedarswampstudios.org> | 2009-08-23 03:08:03 +0000 |
| commit | 70945271f1f4deab363c1acfef3ce51a1b7f617d (patch) | |
| tree | 81d518f2ca4dde1a1c72072b8a67290de2952388 /src/Haddock/Interface.hs | |
| parent | 9dc98d20af5bbcb8bff7624b3d8c4d840ed6bb4e (diff) | |
Move doc parsing/lexing into Haddock for ghc>=6.11
Diffstat (limited to 'src/Haddock/Interface.hs')
| -rw-r--r-- | src/Haddock/Interface.hs | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/Haddock/Interface.hs b/src/Haddock/Interface.hs index 7bcd91d6..7ba2467e 100644 --- a/src/Haddock/Interface.hs +++ b/src/Haddock/Interface.hs @@ -180,8 +180,7 @@ mkGhcModule (mdl, file, checkedMod) dynflags = GhcModule { ghcModule = mdl, ghcFilename = file, ghcMbDocOpts = mbOpts, - ghcHaddockModInfo = info, - ghcMbDoc = mbDoc, + ghcMbDocHdr = mbDocHdr, ghcGroup = group_, ghcMbExports = mbExports, ghcExportedNames = modInfoExports modInfo, @@ -191,7 +190,12 @@ mkGhcModule (mdl, file, checkedMod) dynflags = GhcModule { } where mbOpts = haddockOptions dynflags +#if __GLASGOW_HASKELL__ >= 611 + (group_, _, mbExports, mbDocHdr) = renamed +#else (group_, _, mbExports, mbDoc, info) = renamed + mbDocHdr = (info, mbDoc) +#endif (_, renamed, _, modInfo) = checkedMod |