Cleanup particles slightly

src/Dodge/Menu.hs

@@ -69,10 +69,6 @@ soundMenuOptions =
 pushMenu :: MenuLayer -> World -> Maybe World
 pushMenu ml w'   = Just $ w' & menuLayers %~ (ml :)
 
---soundOptions :: [MenuOption]
---soundOptions =
---    [ Toggle2 ScancodeY 
-
 graphicsMenuOptions :: [MenuOption]
 graphicsMenuOptions =
     [ Toggle ScancodeW (Just . (config . wall_textured %~ not))  wtextstring
@@ -100,8 +96,8 @@ pauseMenuOptions =
 
 startNewGame :: World -> Maybe World
 startNewGame w = Just $ w
-        & menuLayers .~ [WaitMessage "GENERATING..." 1]
-        & worldEvents .~ const aNewGame
+    & menuLayers .~ [WaitMessage "GENERATING..." 1]
+    & worldEvents .~ const aNewGame
   where
     aNewGame :: World
     aNewGame = updateFramebufferSize $ generateLevelFromRoomList levx $ initialWorld