Cleanup

src/Dodge/Default/Wall.hs

@@ -9,18 +9,14 @@ module Dodge.Default.Wall (
 ) where
 
 import Control.Lens
-import qualified Data.Set as S
 import Dodge.Data.Wall
 import Geometry.Data
 
-{- Indestructible wall.  -}
 defaultWall :: Wall
 defaultWall =
     Wall
         { _wlLine = (V2 0 0, V2 50 0)
         , _wlID = 0
---        , _wlPathFlag =
---            S.fromList [minBound .. maxBound]
         , _wlOpacity = Opaque 11
         , _wlUnshadowed = True
         , _wlRotateTo = True
@@ -31,23 +27,13 @@ defaultWall =
         }
 
 defaultDoorWall :: Wall
-defaultDoorWall =
-    defaultWall
---        & wlPathFlag . at WallNotDestrucable .~ Nothing
-        & wlMaterial .~ Metal
-        & wlOpacity .~ Opaque 0
+defaultDoorWall = defaultWall & wlMaterial .~ Metal & wlOpacity .~ Opaque 0
 
 defaultAutoWall :: Wall
-defaultAutoWall =
-    defaultDoorWall
-        & wlOpacity .~ Opaque 9
---        & wlPathFlag . at WallNotAutoOpen .~ Nothing
+defaultAutoWall = defaultDoorWall & wlOpacity .~ Opaque 9
 
-{- Indestructible see-through wall.  -}
 defaultCrystalWall :: Wall
-defaultCrystalWall =
-    defaultWall & wlOpacity .~ SeeThrough & wlMaterial .~ Crystal
---        & wlPathFlag . at WallBlockVisibility .~ Nothing
+defaultCrystalWall = defaultWall & wlOpacity .~ SeeThrough & wlMaterial .~ Crystal
 
 defaultMachineWall :: Wall
 defaultMachineWall =
@@ -58,27 +44,14 @@ defaultMachineWall =
         , _wlMaterial = Metal
         , _wlTouchThrough = True
         }
---        & wlPathFlag . at WallBlockVisibility .~ Nothing
---        & wlPathFlag . at WallNotDestrucable .~ Nothing
 
 defaultDirtWall :: Wall
 defaultDirtWall =
     defaultWall
-        { _wlLine = (V2 0 0, V2 50 0)
-        , _wlID = 0
-        , _wlOpacity = Opaque 6
+        { _wlOpacity = Opaque 6
         , _wlRotateTo = False
         , _wlMaterial = Dirt
         }
---        & wlPathFlag . at WallNotDestrucable .~ Nothing
 
 defaultWindow :: Wall
-defaultWindow =
-    defaultWall
-        { _wlLine = (V2 0 0, V2 50 0)
-        , _wlID = 0
-        , _wlOpacity = SeeThrough
-        , _wlMaterial = Glass
-        }
---        & wlPathFlag . at WallNotDestrucable .~ Nothing
---        & wlPathFlag . at WallBlockVisibility .~ Nothing
+defaultWindow = defaultWall & wlOpacity .~ SeeThrough & wlMaterial .~ Glass