testloop-0.1.0.0: src/System/TestLoop/Util.hs

module System.TestLoop.Util where

--------------------

import           Data.List (intersperse)

--------------------------------------------------------------------------------

join :: [a] -> [[a]] -> [a]
join delim l = concat (intersperse delim l)