Merge Haddock comment support from ghc.haddock -- big patch

[ghc-hetmet.git] / compiler / main / HeaderInfo.hs

diff --git a/compiler/main/HeaderInfo.hs b/compiler/main/HeaderInfo.hs
index 847d193..48eda22 100644 (file)
--- a/compiler/main/HeaderInfo.hs
+++ b/compiler/main/HeaderInfo.hs
@@ -66,7 +66,7 @@ getImports dflags buf filename = do
        PFailed span err -> parseError span err
        POk _ rdr_module -> 
          case rdr_module of
        PFailed span err -> parseError span err
        POk _ rdr_module -> 
          case rdr_module of

-           L _ (HsModule mod _ imps _ _) ->
+           L _ (HsModule mod _ imps _ _ _ _ _) ->

              let
                mod_name | Just located_mod <- mod = located_mod
                         | otherwise               = L noSrcSpan mAIN_NAME
              let
                mod_name | Just located_mod <- mod = located_mod
                         | otherwise               = L noSrcSpan mAIN_NAME