Restrict some arguments

2022-10-28 22:00:38 +01:00
parent d496c4c523
commit 14e2b5cf8f
6 changed files with 55 additions and 53 deletions
@@ -25,7 +25,8 @@ wallsToDraw w =
                <*> L.prefilter wlSeeThroughDraw (L.premap f L.list)
                <*> L.premap getWallSPic L.mconcat
            )
-            (wlsFromIXs w $ zonesExtract (w ^. cWorld . lWorld . wlZoning) $ zoneOfSight wlZoneSize w)
+            (wlsFromIXs w $ zonesExtract (w ^. cWorld . lWorld . wlZoning) $ zoneOfSight wlZoneSize cam)
+    cam = w ^. cWorld . lWorld . camPos

 --wallsToDraw
 --    :: World