Slight cleanup

src/Dodge/Render/MenuScreen.hs

@@ -44,7 +44,7 @@ menuScreen cfig hw hh mLays = case mLays of
         ]
     (GraphicsOptionMenu : _) -> optionsList hw hh "OPTIONS:GRAPHICS" 
         ["W - WALL TEXTURES:" ++ show (_wall_textured cfig)
-        ,"S - SHADOW RESOLUTION:" ++ showShadRes (_shadow_resolution cfig)
+        ,"S - RESOLUTION: 1/" ++ show (_resolution_factor cfig)
         ]
     (ControlList : _) -> pictures 
         [color (withAlpha 0.5 black) $ polygon $ screenBox hw hh
@@ -61,7 +61,6 @@ menuScreen cfig hw hh mLays = case mLays of
     snvol = f $ _volume_sound  cfig
     muvol = f $ _volume_music  cfig
     f x = show (round $ 10 * x :: Int)
-    showShadRes i = "1/"++ show i
 
 displayStringList :: Float -> Float -> [String] -> Picture
 displayStringList hw hh ss = pictures