diff options
| author | Thomas Schilling <nominolo@googlemail.com> | 2008-10-03 10:45:08 +0000 |
|---|---|---|
| committer | Thomas Schilling <nominolo@googlemail.com> | 2008-10-03 10:45:08 +0000 |
| commit | 58fc84d409acbdb19803cd863047fdf20db3f1ee (patch) | |
| tree | 28f723aca89a3bae76fe0523120e6113fd113777 /src/Haddock | |
| parent | d8a90447a5758cf12f155ea63f858ff6fd276ddc (diff) | |
Follow GHC API change of parseModule.
Diffstat (limited to 'src/Haddock')
| -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, |