From 0a173d19da27c15fd4229c3a138d0a0d8625e5d6 Mon Sep 17 00:00:00 2001 From: davve Date: Tue, 11 Jul 2006 11:30:03 +0000 Subject: Make the repos temporarily compile and illustrate a problem --- src/Main.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src') diff --git a/src/Main.hs b/src/Main.hs index 0fcd66fc..918e1a33 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -301,7 +301,7 @@ run flags files = do then die "Failed to load all modules" else return (zip modules checked_modules) - let module_map = Map.empty + {- let module_map = Map.empty let loop ((mod, checkedMod):modules) module_map = do exported_names <- get_exported_names @@ -320,7 +320,7 @@ run flags files = do return (GHC.modInfoExports module_info) - +-} --let Just (group, imports, exports) = GHC.renamedSource (head sorted_checked_modules) --printSDoc (ppr group) defaultUserStyle @@ -412,7 +412,7 @@ run flags files = do pprList [] = [] pprList [x] = show x pprList (x:xs) = show x ++ ", " ++ pprList xs - +{- mk_exported_decls_map :: [GHC.Name] -> GHC.HsGroup GHC.Name -> Map GHC.Name (GHC.HsDecl GHC.Name) mk_exported_decls_map exported_names group = Map.fromList [ (name, decl) | name <- exported_names, @@ -443,7 +443,7 @@ getDeclFromGroup group name = case catMaybes [getDeclFromVals (GHC.hs_valds gr _ -> Nothing where matching = [ for | L _ for@(GHC.ForeignExport n _ _ _) <- lfors, (unLoc n) == name ] - + -} parseIfaceOption :: String -> (FilePath,FilePath) parseIfaceOption s = case break (==',') s of -- cgit v1.2.3