b6339876957fea1f4708ebd8a65c1866d1d4536ad8c5405926f5f0e3348f6d23

Download raw

Created: 2023-12-19 03:40:10.302489 UTC

Size: 1805

Preview (limited to 512 bytes)

"{-# LANGUAGE BangPatterns #-}\n\nmodule QC.Rechunked (\n rechunkBS\n , rechunkT\n ) where\n\nimport Control.Monad (forM, forM_)\nimport Control.Monad.ST (ST, runST)\nimport Data.List (unfoldr)\nimport Test.QuickCheck (Gen, choose)\nimport qualified Data.ByteString as B\nimport qualified Data.Text as T\nimport qualified Data.Vector as V\nimport qualified Data.Vector.Generic as G\nimport qualified Data.Vector.Generic.Mutable as M\n\nrechunkBS :: B.ByteString -> Gen [B.ByteString]\nrechunkBS = fmap (map B.copy) . rec"

Casa is a service provided by the Haskell Foundation │ Originally developed by FP Complete