-- | Construct a 'CtlStream' given some data.
csData :: (ChunkData t) => t -> CtlStream t d
csData t | null t    = CSEmpty
         | otherwise = CSData t CSEmpty
csData :: (ChunkData t) => t -> CtlStream t d
csData t | null t    = CSEmpty
         | otherwise = CSData t CSEmpty
csData t | null t    = CSEmpty
         | otherwise = CSData t CSEmpty