Broken implementation of window colours, move towards stencil ceilings

src/Dodge/Update/Camera.hs

@@ -24,7 +24,7 @@ import Dodge.Zoning.Wall
 import Geometry
 import LensHelp
 import SDL (MouseButton (..))
-import qualified SDL as SDL
+import qualified SDL
 
 {- Update the screen camera rotation and position, including any in rold scope/remote camera modifiers;
 update where your avatar's view is from.  -}

src/Dodge/Update/WallDamage.hs

@@ -32,7 +32,7 @@ updateEdgesWall is w =
     hack w'
         | null is = w'
         | otherwise =
-            (foldMap Sum $ w' ^.. cWorld . incGraph . each . each . seObstacles . to length)
+            foldMap Sum (w' ^.. cWorld . incGraph . each . each . seObstacles . to length)
                 `seq` w'
 
 updateEdgesWall' :: S.Set (Int, Int) -> World -> World