1module Language.PureScript.CST.Traversals where
2
3import Prelude
4
5import Language.PureScript.CST.Types
6
7everythingOnSeparated :: (r -> r -> r) -> (a -> r) -> Separated a -> r
8everythingOnSeparated op k (Separated hd tl) = go hd tl
9  where
10  go a [] = k a
11  go a (b : bs) = k a `op` go (snd b) bs
12