@@ -582,7 +582,7 @@ splitAt = loop
582582 where loop _ Empty = (empty, empty)
583583 loop n t | n <= 0 = (empty, t)
584584 loop n (Chunk t ts)
585− | n < len = let (ts',ts'') = T.splitAt (fromIntegral n) t
585+ | n < len = let (ts',ts'') = T.splitAt n t
586586 in (Chunk ts' Empty, Chunk ts'' Empty)
587587 | otherwise = let (ts',ts'') = loop (n - len) ts
588588 in (Chunk t ts', ts'')