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

Optimise applyX a bit.

Browse Source 
This avoids computing the transformation function each time we recurse.
This commit is contained in:
Adam Sampson 2008-05-07 15:51:09 +00:00
parent 0886ab9f9b
commit 2d00b1e5c5
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
pass/Traversal.hs
View File

@ -77,13 +77,16 @@ extC info f = extD info (checkToTransform f)
-- | Apply a set of transformations. -- | Apply a set of transformations.
applyX :: Data s => InfoX -> s -> PassM s applyX :: Data s => InfoX -> s -> PassM s
applyX info@(tks, g) = g doGeneric doGeneric applyX info@(tks, maker) = trans
where where
ts :: TypeSet ts :: TypeSet
ts = makeTypeSet tks ts = makeTypeSet tks
trans :: Data s => s -> PassM s
trans = maker doGeneric doGeneric
doGeneric :: Data t => t -> PassM t doGeneric :: Data t => t -> PassM t
doGeneric = gmapMFor ts (applyX info) doGeneric = gmapMFor ts trans
-- | Apply a transformation, recursing depth-first. -- | Apply a transformation, recursing depth-first.
applyDepthM :: forall t1 s. (Data t1, Data s) => applyDepthM :: forall t1 s. (Data t1, Data s) =>