satisfy MonadFail

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