diff options
| -rw-r--r-- | src/Haddock/GHC/Typecheck.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Haddock/GHC/Typecheck.hs b/src/Haddock/GHC/Typecheck.hs index ff636bfd..2cb90344 100644 --- a/src/Haddock/GHC/Typecheck.hs +++ b/src/Haddock/GHC/Typecheck.hs @@ -60,7 +60,7 @@ typecheckFiles files = do (\err -> do printExceptionAndWarnings err throwE ("Failed to check module: " ++ moduleString mod)) $ - do tc_mod <- typecheckModule =<< parseModule (moduleName mod) + do tc_mod <- typecheckModule =<< parseModule =<< getModSummary (moduleName mod) let Just renamed_src = renamedSource tc_mod return $ mkGhcModule (mod, file, (parsedSource tc_mod, renamed_src, |