1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
{-# LANGUAGE TupleSections #-}
{-# OPTIONS_GHC -funfolding-case-scaling=5 #-}
module T18730 where
import T18730_A (Gen)
genFields :: Gen [(String, Int)]
genFields =
mapM
(\(f, g) -> (f,) <$> g)
[ ("field", genIntField)
, ("field_10", genIntField)
, ("field_10", genIntField)
, ("field_10", genIntField)
, ("field_10", genIntField)
, ("field_10", genIntField)
, ("field_10", genIntField)
, ("field_10", genIntField)
, ("field_10", genIntField)
, ("field_10", genIntField)
, ("field_10", genIntField)
]
genIntField :: Gen Int
genIntField = pure 0
|
