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

module Data.Text.Generators where

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

text :: Gen Char -> Gen Text
text = fmap X.pack . listOf