Start simplifying/removing Wall records

src/Dodge/Item/BackgroundEffect.hs

@@ -80,10 +80,9 @@ shieldWall crid =
     defaultWall
         { _wlColor = yellow
         , _wlOpacity = SeeAbove
-        , _wlPathable = True
         , _wlWalkable = True
         , _wlFireThrough = False
-        , _wlReflect = True
+        , _wlMaterial = Metal
         , _wlRotateTo = False
         , _wlStructure = CreaturePart crid -- shieldWallDamage
         }

src/Dodge/Item/Weapon/LaserPath.hs

@@ -4,6 +4,7 @@ module Dodge.Item.Weapon.LaserPath (
     reflectPulseLaserAlong,
 ) where
 
+import Control.Lens
 import Dodge.Data.Object
 import Data.Bifunctor
 import Data.Tuple
@@ -22,7 +23,7 @@ reflectLaserAlong ::
 {-# INLINE reflectLaserAlong #-}
 reflectLaserAlong phasev sp ep w = case thingHitFilt (const True) _wlUnshadowed sp ep w of
     Just (p, Right wl)
-        | _wlReflect wl ->
+        | Metal <- wl ^. wlMaterial ->
             second (p :) $
                 reflectLaserAlong
                     phasev
@@ -72,7 +73,7 @@ reflectPulseLaserAlong phasev sp ep w = f $ filter (isunshad . snd) $ crWlPbHit
   where
     f = \case
         ((p, OWall wl) : _)
-            | _wlReflect wl ->
+            | Metal <- wl ^. wlMaterial ->
                 second (p :) $
                     reflectPulseLaserAlong
                         phasev