Add seagull sounds, remove random generator paramatricity for level gen

2022-05-19 17:56:45 +01:00
parent 40fc6792ae
commit 887dd547d9
10 changed files with 147 additions and 138 deletions
@@ -11,5 +11,5 @@ data ComposingNode a
    | UseNone   {_unCompose :: a}
    | UseLabel  {_composeIndex :: Int, _unCompose :: a} -- defaults to using no children
 type SubCompTree a = Tree (ComposingNode a)
-type CompTree a = Tree (Tree (ComposingNode a))
+type CompTree a = Tree (SubCompTree a)
 makeLenses ''ComposingNode