Commit mid block refactor

src/Dodge/Default/Wall.hs

@@ -23,14 +23,14 @@ defaultWall = Wall
     , _wlWalkable = False
     , _wlHeight = 100
     , _wlDamageEff = defaultWallDamage
-    , _wlMaterial = StoneBlock
+    , _wlMaterial = Stone
     }
 {- Indestructible see-through wall.  -}
 defaultCrystalWall :: Wall
 defaultCrystalWall = defaultWall 
     { _wlColor = withAlpha 0.5 aquamarine
     , _wlOpacity = SeeThrough
-    , _wlMaterial = CrystalBlock
+    , _wlMaterial = Crystal
     }
 defaultMachineWall :: Wall
 defaultMachineWall = defaultWall
@@ -38,7 +38,7 @@ defaultMachineWall = defaultWall
     , _wlDraw = False
     , _wlRotateTo = False
     , _wlStructure = MachinePart 0
-    , _wlMaterial  = MetalBlock
+    , _wlMaterial  = Metal
     }
 defaultDirtWall :: Wall
 defaultDirtWall = defaultWall
@@ -50,7 +50,7 @@ defaultDirtWall = defaultWall
     , _wlRotateTo = False
     , _wlDraw = True
     , _wlFireThrough = True
-    , _wlMaterial    = DirtBlock
+    , _wlMaterial    = Dirt
     }
 defaultWindow :: Wall
 defaultWindow = defaultWall
@@ -62,5 +62,5 @@ defaultWindow = defaultWall
     , _wlOpacity = SeeThrough
     , _wlDraw = True
     , _wlFireThrough = True
-    , _wlMaterial    = GlassBlock
+    , _wlMaterial    = Glass
     }