Skip to content

Commit a1652af

Browse files
committed
Applid review suggestions
1 parent 7ac5f9a commit a1652af

File tree

1 file changed

+1
-1
lines changed
  • lambda-buffers-compiler/test/Test/LambdaBuffers/Compiler

1 file changed

+1
-1
lines changed

lambda-buffers-compiler/test/Test/LambdaBuffers/Compiler/Gen.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -92,7 +92,7 @@ genTyVar args = do
9292

9393
genConstructor :: [TyArg] -> ConstrName -> QC.Gen Sum'Constructor
9494
genConstructor args cn = do
95-
tys <- QC.chooseInt (1, limit) >>= vecOf (genTy [] args)
95+
tys <- QC.chooseInt (1, limit) >>= vecOf (genTy mempty args)
9696
return $
9797
defMessage
9898
& constrName .~ cn

0 commit comments

Comments
 (0)