justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Rearrange zone sizes

Browse Source
This commit is contained in:
justin
2022-06-28 09:38:24 +01:00
parent 480fc2df5e
commit e8849eb8d5
8 changed files with 23 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Wall/Zone.hs
+1 -1
View File
@@ -11,7 +11,7 @@ import Streaming
import qualified Streaming.Prelude as S
zoneOfWall :: Wall -> Stream (Of (V2 Int)) Identity ()
zoneOfWall = uncurry (zoneOfSeg wallZoneSize) . _wlLine
zoneOfWall = uncurry (zoneOfSeg wlZoneSize) . _wlLine
insertWallInZones :: Wall -> World -> World
insertWallInZones wl = wallsZone . znObjects