fix arbitrary P_ViewDef

AmpersandTarski · Sep 18, 2023 · 2c72afe · 2c72afe
1 parent d5d465c
commit 2c72afe
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Ampersand/Test/Parser/ArbitraryTree.hs b/src/Ampersand/Test/Parser/ArbitraryTree.hs
@@ -485,7 +485,7 @@ instance Arbitrary P_ViewDef where
     P_Vd <$> arbitrary
       <*> arbitrary
       <*> arbitrary
-      <*> arbitrary
+      <*> arbitrary `suchThat` noLabel
       <*> arbitrary
       <*> arbitrary
       <*> arbitrary