Work on wall materials etc

src/Dodge/Placement/Instance/Block.hs

@@ -16,6 +16,8 @@ decoratedBlock decf mat col h ps = PutBlock bl wl $ reverse ps
             & blHeight .~ h
     wl =
         defaultWall
+            & wlPathFlag . at WallNotDestrucable .~ Nothing
+            & wlPathFlag . at WallBlockVisibility .~ Nothing
             & wlRotateTo .~ False
             & wlOpacity .~ SeeAbove
             & wlMaterial .~ mat

src/Dodge/Placement/Instance/Door.hs

@@ -5,12 +5,13 @@ module Dodge.Placement.Instance.Door (
     switchDoor, -- not used 9/3/22
 ) where
 
+import Dodge.Default.Wall
+import Dodge.Default.Door
 import qualified Data.Set as S
 import Color
 import Control.Lens
 import Dodge.Data.CreatureEffect
 import Dodge.Data.GenWorld
-import Dodge.Default.Door
 import Dodge.LevelGen.PlacementHelper
 import Dodge.LevelGen.Switch
 import Geometry