Преобразование ленивой ByteString в строгую ByteString

У меня есть функция, которая принимает lazy ByteString , и я хочу иметь списки возврата strict ByteStrings ( лень надо перенести на список вывода).

import qualified Data.ByteString as B
import qualified Data.ByteString.Lazy as L
csVals :: L.ByteString -> [B.ByteString]

Я хочу сделать это по разным причинам, несколько функций лексирования требуют строгих ByteString s, и я могу гарантировать вывод строгих ByteString s на выходе of csVal s выше очень малы.

Как мне «ограничить» ByteString без разбиения на части их?

Update0

Я хочу использовать Lazy ByteString , и сделать одну строгую ByteString , содержащую все ее данные.