diff options
| author | davve <davve@dtek.chalmers.se> | 2006-07-11 11:30:03 +0000 |
|---|---|---|
| committer | davve <davve@dtek.chalmers.se> | 2006-07-11 11:30:03 +0000 |
| commit | 0a173d19da27c15fd4229c3a138d0a0d8625e5d6 (patch) | |
| tree | fc2a161401a288de5a9a7207d90d3fb0011b2923 | |
| parent | a3c7ba9932ddbeaad3e453633ee752b2983b41a7 (diff) | |
Make the repos temporarily compile and illustrate a problem
| -rw-r--r-- | examples/Test.hs | 2 | ||||
| -rw-r--r-- | src/Main.hs | 8 |
2 files changed, 5 insertions, 5 deletions
diff --git a/examples/Test.hs b/examples/Test.hs index 2f6a50cf..73e585ac 100644 --- a/examples/Test.hs +++ b/examples/Test.hs @@ -102,7 +102,7 @@ module Test ( import Hidden import Visible ---hej = visible +hej = visible -- | This comment applies to the /following/ declaration -- and it continues until the next non-comment line 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 |