Remove separate wall color, should be handled by material type

src/Dodge/Data/GenWorld.hs

@@ -9,7 +9,6 @@ module Dodge.Data.GenWorld (
 ) where
 
 import ShortShow
-import Color
 import Control.Lens
 import Control.Monad.State
 import qualified Data.Set as S
@@ -55,7 +54,7 @@ data PSType
     | PutWall {_pwPoly :: [Point2], _pwWall :: Wall}
     | PutSlideDr Door Wall (S.Set EdgeObstacle) Float Point2 Point2
 --    | PutDoor Color EdgeObstacle WdBl [(Point2, Point2)]
-    | PutDoor Color (S.Set EdgeObstacle) WdBl Float Point2A Point2A -- [(Point2, Point2)]
+    | PutDoor (S.Set EdgeObstacle) WdBl Float Point2A Point2A -- [(Point2, Point2)]
     | RandPS (State StdGen PSType)
     | PutForeground ForegroundShape
     | PutWorldUpdate (Int -> PlacementSpot -> GenWorld -> GenWorld)