Replace PutShape with PutForeground

src/Dodge/CullBox.hs

@@ -7,15 +7,14 @@ import Dodge.Base.Window
 import Geometry
 import Dodge.Update.Camera
 
+import Data.Maybe
 import Control.Lens
 
 findBoundDists :: Configuration -> World -> (Float,Float,Float,Float)
 findBoundDists cfig w
     | debugOn Bound_box_screen cfig = (hh,-hh,hw,-hw)
-    | otherwise = f $ farWallDistDirection (_cameraCenter w) w
+    | otherwise = fromMaybe (0,0,0,0) $ farWallDistDirection (_cameraCenter w) w
   where
-    f (Just a,Just b,Just c,Just d) = (max 0 a,min 0 b,max 0 c,min 0 d)
-    f _ = (0,0,0,0)
     hw = halfWidth cfig
     hh = halfHeight cfig