Remove separate wall color, should be handled by material type

src/Dodge/Room/Door.hs

@@ -1,7 +1,6 @@
 {- Rooms that connect other rooms, blocking sight.  -}
 module Dodge.Room.Door where
 
-import Color
 import Data.Maybe
 import Dodge.Data.GenWorld
 import Dodge.Default.Door
@@ -43,5 +42,6 @@ triggerDoorRoom i =
     f gw = fromMaybe (error "tried to put a door using an empty placement list") $ do
         pmnt <- gw ^? genPmnt . ix i
         return $ putDoubleDoor 
-            switchWallObs (switchWallCol red) (cond pmnt) (V2 0 20) (V2 40 20) 2
+            --switchWallObs (switchWallCol red) (cond pmnt) (V2 0 20) (V2 40 20) 2
+            switchWallObs defaultSwitchWall (cond pmnt) (V2 0 20) (V2 40 20) 2
     cond pmnt = WdTrig $ fromJust (_plMID pmnt)