Remove separate wall color, should be handled by material type

src/Dodge/Default/Door.hs

@@ -3,25 +3,24 @@ module Dodge.Default.Door (
     module Dodge.Default.Wall,
 ) where
 
-import Color
 import Control.Lens
 import Dodge.Data.Door
 import Dodge.Data.Wall
 import Dodge.Default.Wall
 
-switchWallCol :: Color -> Wall
-switchWallCol col = defaultSwitchWall & wlColor .~ col
+--switchWallCol :: Color -> Wall
+--switchWallCol col = defaultSwitchWall
 
 defaultAutoWall :: Wall
 defaultAutoWall =
     defaultDoorWall
-        & wlColor .~ dim yellow
+--        & wlColor .~ dim yellow
         & wlOpacity .~ Opaque 9
 
 defaultSwitchWall :: Wall
 defaultSwitchWall =
     defaultDoorWall
-        & wlColor .~ red
+--        & wlColor .~ red
         & wlOpacity .~ Opaque 0
 
 defaultDoor :: Door