diff options
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 8 |
1 files changed, 4 insertions, 4 deletions
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 |