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-15 01:50:38 +01:00
parent abb3ad3cd3
commit 8438454477
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Object/Computer.hs
View file

@ -111,7 +111,8 @@ computerObjectTransition
-> Maybe Ent -> Maybe Ent
-> SystemT Entity m (Entity 'SetterOf) -> SystemT Entity m (Entity 'SetterOf)
computerObjectTransition ObjComputer "off" pa ent (Just aent) = do 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 e <- efor (anEnt ent) $ do
solved <- queryMaybe objSolved solved <- queryMaybe objSolved
if pa if pa