From 58fc84d409acbdb19803cd863047fdf20db3f1ee Mon Sep 17 00:00:00 2001 From: Thomas Schilling Date: Fri, 3 Oct 2008 10:45:08 +0000 Subject: Follow GHC API change of parseModule. --- src/Haddock/GHC/Typecheck.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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, -- cgit v1.2.3