mirror of
https://github.com/hasura/graphql-engine.git
synced 2024-12-18 21:12:09 +03:00
47 lines
1.4 KiB
Haskell
47 lines
1.4 KiB
Haskell
|
module Hasura.Generator.Common
|
||
|
|
( genHashMap,
|
||
|
|
genNonEmptyText,
|
||
|
|
genArbitraryUnicodeText,
|
||
|
|
genArbitraryAlphaNumText,
|
||
|
|
genFieldName,
|
||
|
|
genGName,
|
||
|
|
genDescription,
|
||
|
|
)
|
||
|
|
where
|
||
|
|
|
||
|
|
import Data.HashMap.Strict qualified as HM
|
||
|
|
import Data.Text.NonEmpty (NonEmptyText, mkNonEmptyText)
|
||
|
|
import Hasura.Prelude
|
||
|
|
import Hasura.RQL.Types.Common (FieldName (FieldName))
|
||
|
|
import Hedgehog
|
||
|
|
import Hedgehog.Gen
|
||
|
|
import Language.GraphQL.Draft.Syntax qualified as G
|
||
|
|
|
||
|
|
genHashMap ::
|
||
|
|
MonadGen m =>
|
||
|
|
Eq a =>
|
||
|
|
Hashable a =>
|
||
|
|
m a ->
|
||
|
|
m b ->
|
||
|
|
Range Int ->
|
||
|
|
m (HashMap a b)
|
||
|
|
genHashMap genA genB range = fmap HM.fromList . list range $ (,) <$> genA <*> genB
|
||
|
|
|
||
|
|
genNonEmptyText :: MonadGen m => Range Int -> m NonEmptyText
|
||
|
|
genNonEmptyText range = mkNonEmptyText `mapMaybeT` genArbitraryUnicodeText range
|
||
|
|
|
||
|
|
genArbitraryUnicodeText :: MonadGen m => Range Int -> m Text
|
||
|
|
genArbitraryUnicodeText range = text range unicode
|
||
|
|
|
||
|
|
genArbitraryAlphaNumText :: MonadGen m => Range Int -> m Text
|
||
|
|
genArbitraryAlphaNumText range = text range alphaNum
|
||
|
|
|
||
|
|
genFieldName :: MonadGen m => Range Int -> m FieldName
|
||
|
|
genFieldName range = FieldName <$> genArbitraryUnicodeText range
|
||
|
|
|
||
|
|
genGName :: MonadGen m => Range Int -> m G.Name
|
||
|
|
genGName range = G.mkName `mapMaybeT` genArbitraryAlphaNumText range
|
||
|
|
|
||
|
|
genDescription :: MonadGen m => Range Int -> m G.Description
|
||
|
|
genDescription range = G.Description <$> genArbitraryUnicodeText range
|