We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 7ac5f9a commit a1652afCopy full SHA for a1652af
lambda-buffers-compiler/test/Test/LambdaBuffers/Compiler/Gen.hs
@@ -92,7 +92,7 @@ genTyVar args = do
92
93
genConstructor :: [TyArg] -> ConstrName -> QC.Gen Sum'Constructor
94
genConstructor args cn = do
95
- tys <- QC.chooseInt (1, limit) >>= vecOf (genTy [] args)
+ tys <- QC.chooseInt (1, limit) >>= vecOf (genTy mempty args)
96
return $
97
defMessage
98
& constrName .~ cn
0 commit comments