remove old commented out code

src/Object/Door.hs

@@ -36,37 +36,6 @@ doorObjectAction dt t@ObjDoor s@"open" ent = do
       Just ttl -> return (ttl < 0)
   when (head trans) (setEntity ent =<< doorObjectTransition t s False ent Nothing)
 
--- doorObjectAction allRelEnts dt t@ObjDoor s@"shut" ent = do
---   permEnts <- efor (anEnt ent) $ do
---     pos' <- query pos
---     rot' <- query rot
---     clvl <- query clearanceLvl
---     let posEnts = filter
---           (\(_, b, _, _) ->
---             (fmap floor b `elem` deltaCoords || fmap floor b == floorPos) &&
---             distance b pos' < 0.75)
---           allRelEnts
---         floorPos = fmap floor pos'
---         deltas = case rot' of
---           NW ->
---             [ V2 (-1) 0
---             , V2 1    0
---             ]
---           NE ->
---             [ V2 0 (-1)
---             , V2 0    1
---             ]
---         acceptedRots = case rot' of
---           NW -> [NW, SE]
---           NE -> [NE, SW]
---         deltaCoords = map (floorPos +) deltas
---         predicate (_, _, c, d) = c `elem` acceptedRots && d >= clvl
---         ret = filter predicate posEnts
---     return ret
---   mapM_
---     (\(e, _, _, _) -> setEntity ent =<< doorObjectTransition t s False ent (Just e))
---     (head permEnts)
-
 doorObjectAction _ _ _ _ = return ()
 
 doorObjectTransition t@ObjDoor s _ ent (Just aent) = do