diff --git a/src/Object/Door.hs b/src/Object/Door.hs index 899484d..8669627 100644 --- a/src/Object/Door.hs +++ b/src/Object/Door.hs @@ -70,7 +70,7 @@ doorObjectAction dt t@ObjDoor s@"open" ent = do doorObjectAction _ _ _ _ = return () doorObjectTransition t@ObjDoor s _ ent (Just aent) = do - [clearance] <- efor (anEnt aent) (query clearanceLvl) + clearance <- head <$> efor (anEnt aent) (query clearanceLvl) e <- efor (anEnt ent) $ do dir <- query rot oclear <- query clearanceLvl