Refactor

2021-05-04 18:11:59 +02:00
parent 6d4c17fc07
commit f0e5095b5f
28 changed files with 477 additions and 584 deletions
@@ -59,7 +59,7 @@ handlePressedKeyInGame _ w = Just w
 handlePressedKey :: Bool -> Scancode -> World -> Maybe World
 handlePressedKey True _       w = Just w
 handlePressedKey _    scode w
-    | _menuLayers w == [] 
+    | null (_menuLayers w)
                = handlePressedKeyInGame scode w
    | otherwise = handlePressedKeyInMenu (head $ _menuLayers w) scode w
 handlePressedKey _ _ w = Just w