KiCS-0.8.4: src/Brace.hs

module Brace where

import List

separate :: [a] -> [[a]] -> [a] 
separate s xs = concat (intersperse s (filter (not . null) xs))

brace :: [a] -> [a] -> [a] -> [[a]] -> [a] 
brace _ _ _ [] = []
brace begin end sep xs = begin++separate sep xs++end