diff --git a/src/Object/Computer.hs b/src/Object/Computer.hs index 0557bdf..0eeb8f0 100644 --- 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