fix the other packages not compiling

templatespiler-generator/src/Templatespiler/Generate.hs

@@ -25,13 +25,13 @@ arbitraryCombinator (ArrayCombinator count g) =
   join
     <$> Gen.list
       (Range.singleton count)
-      (arbitraryType g)
+      (arbitraryBindingOrCombinator g)
 arbitraryCombinator (SepByCombinator sep bs) = do
   bs' <- arbitraryInput bs
   pure [Text.intercalate sep bs']
 arbitraryCombinator (ListCombinator g) = do
   i <- Gen.int (Range.linear 1 10)
-  outputs <- join <$> Gen.list (Range.singleton i) (arbitraryType g)
+  outputs <- join <$> Gen.list (Range.singleton i) (arbitraryBindingOrCombinator g)
   pure ([show i] <> outputs)
 arbitraryCombinator (GroupCombinator bs) = arbitraryInput bs
 
@@ -42,6 +42,11 @@ arbitraryType :: Type -> Gen [Text]
 arbitraryType (TerminalType t) = arbitraryTerminalType t
 arbitraryType (CombinatorType c) = arbitraryCombinator c
 
+arbitraryBindingOrCombinator :: BindingOrCombinator -> Gen [Text]
+arbitraryBindingOrCombinator (NamedBinding b) = arbitraryBinding b
+arbitraryBindingOrCombinator (GroupBinding bs) = arbitraryInput bs
+arbitraryBindingOrCombinator (UnnamedBinding c) = arbitraryCombinator c
+
 arbitraryTerminalType :: TerminalType -> Gen [Text]
 arbitraryTerminalType IntType = pure . show <$> arbitrarySaneInt
 arbitraryTerminalType StringType = pure . toText <$> Gen.string (Range.linear 1 20) Gen.alphaNum