Tweak combine filtering

2023-01-16 00:57:55 +00:00
parent bb72ec9baa
commit 43e3c1fe4c
6 changed files with 35 additions and 12 deletions
@@ -19,7 +19,8 @@ import qualified SDL
 -- | The AI equivalent for your control.
 yourControl :: Creature -> World -> World
 yourControl cr w
-    | inTermFocus w = w & updateUsingInput
+    | inTermFocus w = w & updateUsingInput -- do we really want to do this?
+    | inputFocus w = w
    | otherwise =
        w
            & cWorld . lWorld . creatures . ix (_crID cr)