Add toggle for shadows on clouds

src/Dodge/Menu.hs

@@ -32,7 +32,6 @@ data MenuOption
         { _moKey    :: Scancode
         , _moEff    :: World -> Maybe World
         }
-
 optionsOptions :: [MenuOption]
 optionsOptions =
     [ Toggle ScancodeV (pushMenu SoundOptionMenu) (const "VOLUME")
@@ -73,11 +72,13 @@ graphicsMenuOptions :: [MenuOption]
 graphicsMenuOptions =
     [ Toggle ScancodeW (Just . (config . wall_textured %~ not))  wtextstring
     , Toggle ScancodeS upf resostring
+    , Toggle ScancodeD (Just . (config . cloud_shadows %~ not)) cshadstring
     ]
   where
     wtextstring w = "WALL TEXTURES:" ++ show (_wall_textured $ _config w)
     resostring w  = "RESOLUTION: 1/" ++ show (_resolution_factor $ _config w)
     upf w = Just $ updateFramebufferSize $ w & config . resolution_factor %~ cycleResolution
+    cshadstring w = "CLOUD SHADOWS:" ++ show (_cloud_shadows $ _config w)
 
 cycleResolution :: (Eq a, Num a, Num p) => a -> p
 cycleResolution 1 = 2