Cleanup

2025-10-24 23:22:16 +01:00
parent b4012af312
commit 3f5f5d2c6b
12 changed files with 77 additions and 117 deletions
@@ -42,9 +42,8 @@ insertStructureWalls ::
    Int ->
    World ->
    World
-insertStructureWalls f wl ps sid wid = insertWalls wls
-  where
-    wls =
+insertStructureWalls f wl ps sid wid =
+    insertWalls $
        zipWith
            (\i xy -> wl & wlLine .~ xy & wlID .~ i & wlStructure .~ f sid)
            [wid ..]