satisfy monadFail

2019-03-15 01:50:38 +01:00 · 2019-03-15 01:50:38 +01:00 · 8438454477
parent abb3ad3cd3
commit 8438454477
1 changed files with 2 additions and 1 deletions
--- a/src/Object/Computer.hs
+++ b/src/Object/Computer.hs
@ -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