Cleanup

src/Dodge/Data/Block.hs

@@ -26,7 +26,6 @@ data Block = Block
     , _blPos :: Point2
     , _blDir :: Float
     , _blHeight :: Float
-    , _blMaterial :: Material
     , _blDraw :: BlockDraw
     }
     deriving (Eq, Ord, Show, Read) --Generic, Flat)

src/Dodge/Data/Wall.hs

@@ -18,7 +18,6 @@ import qualified Data.Set as S
 data Wall = Wall
     { _wlLine :: (Point2, Point2)
     , _wlID :: Int
---    , _wlColor :: Color
     , _wlOpacity :: Opacity
     , _wlPathFlag :: S.Set WallFlag
     , _wlTouchThrough :: Bool