suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Removed the makePasses functions that did not deal with pre- and post- properties

Browse Source
This commit is contained in:
Neil Brown 2008-02-19 09:49:14 +00:00
parent 5cb964092d
commit e8189e196b
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
common/Pass.hs
View File

@ -89,12 +89,6 @@ runPassR p t
Left err -> throwError err Left err -> throwError err
Right result -> tell w >> return result Right result -> tell w >> return result
makePasses :: [(String, A.AST -> PassM A.AST)] -> [Pass]
makePasses = map (\(s, p) -> Pass p s Set.empty Set.empty (const True))
makePasses' :: (CompState -> Bool) -> [(String, A.AST -> PassM A.AST)] -> [Pass]
makePasses' f = map (\(s, p) -> Pass p s Set.empty Set.empty f)
makePassesDep :: [(String, A.AST -> PassM A.AST, [Property], [Property])] -> [Pass] makePassesDep :: [(String, A.AST -> PassM A.AST, [Property], [Property])] -> [Pass]
makePassesDep = map (\(s, p, pre, post) -> Pass p s (Set.fromList pre) (Set.fromList post) (const True)) makePassesDep = map (\(s, p, pre, post) -> Pass p s (Set.fromList pre) (Set.fromList post) (const True))