Segmentation fault when decoding long and chunked input

[msakai]

I'm investigating msakai/toysolver#60 and found that the following program causes Segmentation fault:

import Control.DeepSeq
import qualified Data.ByteString as B
import qualified Data.ByteString.Lazy as BL
import qualified Data.ByteString.Lazy.Encoding as Enc

main :: IO ()
main = do
  let ls = [32752, 32752, 32752, 32752, 32752, 32752, 32752, 32752, 32752, 18193]
      bs = BL.fromChunks [B.pack (replicate l (fromIntegral (fromEnum 'a'))) | l <- ls]
  let t = Enc.decode Enc.utf8 bs
  deepseq t $ return ()

[msakai]

I uploaded version 0.1.1.0 with this fix to Hackage.