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