Simplify doors somewhat, unsure what to do about edge obstacles

src/Dodge/Data/Door.hs

@@ -11,7 +11,6 @@ module Dodge.Data.Door (
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
-import qualified Data.IntSet as IS
 import Dodge.Data.MountedObject
 import Dodge.Data.PathGraph
 import Dodge.Data.WorldEffect
@@ -29,7 +28,6 @@ data PushSource
 
 data Door = Door
     { _drID :: Int
-    , _drWallIDs :: IS.IntSet
     , _drTrigger :: WdBl
     , _drMech :: DrWdWd
     , _drZeroPos :: (Point2,Float)
@@ -41,8 +39,6 @@ data Door = Door
     , _drPushedBy :: PushSource
     , _drPushes :: Maybe Int
     , _drMounts :: [MountedObject]
---    , _drObstructs :: [(Int,Int)]
-    , _drObstacleType :: EdgeObstacle
     }
 
 makeLenses ''Door