Refactoring, add screen when generating level

src/Dodge/Render/MenuScreen.hs

@@ -50,7 +50,7 @@ menuScreen cfig hw hh mLays = case mLays of
         ,tst (-100) 100 0.4 "CONTROLS"
         ,controlsList
         ]
-    (WaitMessage s : _) -> optionsList hw hh s []
+    (WaitMessage s _ : _) -> optionsList hw hh s []
     _ -> blank
   where 
     tst x y sc t = translate x y $ scale sc sc $ color white $ text t