Cleanup

2022-07-11 10:26:33 +01:00
parent 75d597f774
commit 3447b9b0bb
15 changed files with 28 additions and 28 deletions
@@ -91,7 +91,7 @@ plLineBlock basePane blwidth a b gw = ( 0
        {_wlID = k
        ,_wlStructure = BlockPart $ i + blid
        ,_wlLine = ps
-        ,_wlDraw = visStatus
+        ,_wlUnshadowed = visStatus
        }

 -- | Must be done after inserting the block
@@ -105,7 +105,7 @@ plLineBlock basePane blwidth a b gw = ( 0
        {_wlID = k
        ,_wlStructure = BlockPart $ i + blid
        ,_wlLine = ps
-        ,_wlDraw = visStatus
+        ,_wlUnshadowed = visStatus
        }
    listWalls = concat $ zipWith makeWallAt blockCenPs is