hnix-store-tests-0.1.0.0: src/Data/Text/Arbitrary.hs

{-# OPTIONS_GHC -Wno-orphans #-}
module Data.Text.Arbitrary () where

import Data.Text (Text)
import Test.QuickCheck (Arbitrary(..), frequency, suchThat)
import qualified Data.Text

instance Arbitrary Text where
  arbitrary = Data.Text.pack <$> arbitrary
  shrink xs = Data.Text.pack <$> shrink (Data.Text.unpack xs)

instance {-# OVERLAPPING #-} Arbitrary (Maybe Text) where
  arbitrary = frequency
    [ (1, pure Nothing)
    , (3, Just <$> arbitrary `suchThat` (/= mempty))
    ]