Cleanup

2025-10-24 23:22:16 +01:00
parent b4012af312
commit 3f5f5d2c6b
12 changed files with 77 additions and 117 deletions
@@ -38,20 +38,18 @@ defaultCrystalWall = defaultWall & wlOpacity .~ SeeThrough & wlMaterial .~ Cryst
 defaultMachineWall :: Wall
 defaultMachineWall =
    defaultWall
-        { _wlOpacity = SeeAbove
-        , _wlRotateTo = False
-        , _wlStructure = MachinePart 0
-        , _wlMaterial = Metal
-        , _wlTouchThrough = True
-        }
+        & wlOpacity .~ SeeAbove
+        & wlRotateTo .~ False
+        & wlStructure .~ MachinePart 0
+        & wlMaterial .~ Metal
+        & wlTouchThrough .~ True

 defaultDirtWall :: Wall
 defaultDirtWall =
    defaultWall
-        { _wlOpacity = Opaque 6
-        , _wlRotateTo = False
-        , _wlMaterial = Dirt
-        }
+        & wlOpacity .~ Opaque 6
+        & wlRotateTo .~ False
+        & wlMaterial .~ Dirt

 defaultWindow :: Wall
 defaultWindow = defaultWall & wlOpacity .~ SeeThrough & wlMaterial .~ Glass