cycle +bytestring

cycle :: ByteString -> ByteString
bytestring Data.ByteString.Lazy, bytestring Data.ByteString.Lazy.Char8
cycle ties a finite ByteString into a circular one, or equivalently, the infinite repetition of the original ByteString.