gistfile1.txt

data U = U Int Int Int

u :: U
u = convertResults (take 3 $ repeat aField) $ Just <$> ["0","1","2"]

deriving stock    instance Generic U
deriving stock    instance Show U
deriving anyclass instance QueryResults U

data T = T Int Int Int Int Int Int

deriving stock    instance Generic T
deriving stock    instance Show T
deriving anyclass instance QueryResults T

aField = Field mempty mempty mempty mempty mempty mempty mempty 0 0 mempty 0 0 Short

t :: T
t = convertResults (take 6 $ repeat aField) $ Just <$> ["0","1","2","3","4","5"]