satisfy monadFail

This commit is contained in:
nek0 2019-03-15 01:50:38 +01:00
parent abb3ad3cd3
commit 8438454477

View file

@ -111,7 +111,8 @@ computerObjectTransition
-> Maybe Ent
-> SystemT Entity m (Entity 'SetterOf)
computerObjectTransition ObjComputer "off" pa ent (Just aent) = do
[dir] <- efor (anEnt aent) (query rot)
ldir <- efor (anEnt aent) (query rot)
let dir = head ldir
e <- efor (anEnt ent) $ do
solved <- queryMaybe objSolved
if pa