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

Added an applyBottomUp function (non-monadic)

Browse Source
This commit is contained in:
Neil Brown 2008-12-02 17:17:22 +00:00
parent 6a0529a9ce
commit e78a30c231
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
polyplate/Data/Generics/Polyplate/Schemes.hs
View File

@ -100,6 +100,13 @@ applyBottomUpM f = makeRecurseM ops
where where
ops = baseOp `extOpM` makeBottomUpM ops f ops = baseOp `extOpM` makeBottomUpM ops f
applyBottomUp :: (Polyplate t (OneOp s) (),
Polyplate s () (OneOp s)) =>
(s -> s) -> t -> t
applyBottomUp f = makeRecurse ops
where
ops = baseOp `extOp` makeBottomUp ops f
-- | Given a monadic function that applies to a particular type (s), automatically -- | Given a monadic function that applies to a particular type (s), automatically
-- applies that function to every instance of s in a larger structure of type t, -- applies that function to every instance of s in a larger structure of type t,
-- performing the transformations in a top-down fashion. It does a depth first -- performing the transformations in a top-down fashion. It does a depth first