diff options
| -rw-r--r-- | src/Haddock/GHC/Typecheck.hs | 31 |
1 files changed, 0 insertions, 31 deletions
diff --git a/src/Haddock/GHC/Typecheck.hs b/src/Haddock/GHC/Typecheck.hs index 3f116fed..3ef1957f 100644 --- a/src/Haddock/GHC/Typecheck.hs +++ b/src/Haddock/GHC/Typecheck.hs @@ -6,7 +6,6 @@ module Haddock.GHC.Typecheck ( - typecheckFiles, mkGhcModule ) where @@ -22,7 +21,6 @@ import HscTypes ( msHsFilePath ) import Digraph import BasicTypes import SrcLoc -import MonadUtils ( liftIO ) import Data.List @@ -36,35 +34,6 @@ type FullyCheckedMod = (ParsedSource, ModuleInfo) --- TODO: make it handle cleanup -typecheckFiles :: [FilePath] -> Ghc [GhcModule] -typecheckFiles files = do - targets <- mapM (\f -> guessTarget f Nothing) files - setTargets targets - modgraph <- depanal [] False - let ordered_mods = flattenSCCs $ topSortModuleGraph False modgraph Nothing - process_mods ordered_mods - where - process_mods mods = - forM mods $ \modsum -> - handleSourceError - (\err -> do - printExceptionAndWarnings err - throwE ("Failed to check module: " ++ moduleString (ms_mod modsum))) $ - do - liftIO $ putStrLn $ "Processing " ++ moduleString (ms_mod modsum) - let filename = msHsFilePath modsum - let flags = ms_hspp_opts modsum - tc_mod <- loadModule =<< typecheckModule =<< parseModule modsum - let Just renamed_src = renamedSource tc_mod - return $ mkGhcModule (ms_mod modsum, - filename, - (parsedSource tc_mod, - renamed_src, - typecheckedSource tc_mod, - moduleInfo tc_mod)) - flags - -- | Dig out what we want from the typechecker output mkGhcModule :: CheckedMod -> DynFlags -> GhcModule mkGhcModule (mod, file, checkedMod) dynflags = GhcModule { |