From daac9470e5f63cc0dd283ab3f3adf6f3a064c7bb Mon Sep 17 00:00:00 2001 From: nek0 Date: Thu, 28 Mar 2019 20:20:35 +0100 Subject: [PATCH] satisfy MonadFail --- src/Object/Door.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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