rainbow-tests-0.14.0.2: lib/Data/Text/Coarbitrary.hs

module Data.Text.Coarbitrary where

import Test.QuickCheck
import Data.Text (Text)
import qualified Data.Text as X

text :: Text -> Gen b -> Gen b
text = coarbitrary . X.unpack