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

Renamed the listify methods to be shorter

Browse Source
This commit is contained in:
Neil Brown 2008-12-14 17:05:41 +00:00
parent cdcbebd2ae
commit 2b05480889
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -83,14 +83,14 @@ applyQuery2 qfA qfB = transformSpine ops ()
where
ops = baseOp `extOpQ` qfA `extOpQ` qfB
applyListifyDepth :: PolyplateSpine t (OneOpQ (Maybe s) s) () (Maybe s) => (s -> Bool) -> t -> [s]
applyListifyDepth qf = catMaybes . flatten . fmap (fromMaybe Nothing) . transformSpine ops ()
listifyDepth :: PolyplateSpine t (OneOpQ (Maybe s) s) () (Maybe s) => (s -> Bool) -> t -> [s]
listifyDepth qf = catMaybes . flatten . fmap (fromMaybe Nothing) . transformSpine ops ()
where
qf' x = if qf x then Just x else Nothing
ops = baseOp `extOpQ` qf'
applyListifyBreadth :: PolyplateSpine t (OneOpQ (Maybe s) s) () (Maybe s) => (s -> Bool) -> t -> [s]
applyListifyBreadth qf = catMaybes . (concat . levels) . fmap (fromMaybe Nothing) . transformSpine ops ()
listifyBreadth :: PolyplateSpine t (OneOpQ (Maybe s) s) () (Maybe s) => (s -> Bool) -> t -> [s]
listifyBreadth qf = catMaybes . (concat . levels) . fmap (fromMaybe Nothing) . transformSpine ops ()
where
qf' x = if qf x then Just x else Nothing
ops = baseOp `extOpQ` qf'