From 843845447734473b975502534ae02c7ef204e46f Mon Sep 17 00:00:00 2001
From: nek0 <nek0@nek0.eu>
Date: Fri, 15 Mar 2019 01:50:38 +0100
Subject: [PATCH] satisfy monadFail

---
 src/Object/Computer.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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