nek0/tracer
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

satisfy MonadFail

Browse source
This commit is contained in:
nek0 2019-03-28 20:20:35 +01:00
parent d7151cb11f
commit daac9470e5
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Object/Door.hs
View file

@ -70,7 +70,7 @@ doorObjectAction dt t@ObjDoor s@"open" ent = do
doorObjectAction _ _ _ _ = return () doorObjectAction _ _ _ _ = return ()
doorObjectTransition t@ObjDoor s _ ent (Just aent) = do 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 e <- efor (anEnt ent) $ do
dir <- query rot dir <- query rot
oclear <- query clearanceLvl oclear <- query clearanceLvl