Combine Door and AutoDoor type constructors, add doorPathable field

2021-03-21 13:33:57 +01:00
parent 8108772894
commit a34c578786
6 changed files with 8 additions and 22 deletions
@@ -546,14 +546,6 @@ data Wall
        , _blHP :: Int
        , _wlIsSeeThrough :: Bool
        }
-    | AutoDoor 
-        { _wlLine :: [Point2] , _wlID :: Int 
-        , _doorMech :: World -> World
-        , _wlColor :: Color
-        , _wlDraw :: Maybe (Wall -> Drawing)
-        , _wlSeen :: Bool
-        , _wlIsSeeThrough :: Bool
-        }
    | Door 
        { _wlLine :: [Point2] , _wlID :: Int 
        , _doorMech :: World -> World
@@ -561,6 +553,7 @@ data Wall
        , _wlDraw :: Maybe (Wall -> Drawing)
        , _wlSeen :: Bool
        , _wlIsSeeThrough :: Bool
+        , _doorPathable :: Bool
        }
    | Block 
        { _wlLine :: [Point2]