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

Changed a few functions to use the new helper function foldFuncs

Browse Source
This commit is contained in:
Neil Brown 2007-11-09 01:21:30 +00:00
parent bacc3115e9
commit 8f96af8bb8
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
transformations/SimplifyComms.hs
View File

@ -26,8 +26,9 @@ import Data.List
import qualified AST as A import qualified AST as A
import CompState import CompState
import Metadata import Metadata
import Types
import Pass import Pass
import Types
import Utils
simplifyComms :: Pass simplifyComms :: Pass
simplifyComms = runPasses passes simplifyComms = runPasses passes
@ -46,11 +47,11 @@ outExprs = doGeneric `extM` doProcess
doProcess :: A.Process -> PassM A.Process doProcess :: A.Process -> PassM A.Process
doProcess (A.Output m c ois) doProcess (A.Output m c ois)
= do (ois', specs) <- mapAndUnzipM changeItem ois = do (ois', specs) <- mapAndUnzipM changeItem ois
let foldedSpec = foldl (.) id specs let foldedSpec = foldFuncs specs
return $ A.Seq m (foldedSpec $ A.OnlyP m $ A.Output m c ois') return $ A.Seq m (foldedSpec $ A.OnlyP m $ A.Output m c ois')
doProcess (A.OutputCase m c tag ois) doProcess (A.OutputCase m c tag ois)
= do (ois', specs) <- mapAndUnzipM changeItem ois = do (ois', specs) <- mapAndUnzipM changeItem ois
let foldedSpec = foldl (.) id specs let foldedSpec = foldFuncs specs
return $ A.Seq m (foldedSpec $ A.OnlyP m $ A.OutputCase m c tag ois') return $ A.Seq m (foldedSpec $ A.OnlyP m $ A.OutputCase m c tag ois')
doProcess p = doGeneric p doProcess p = doGeneric p