Cleanup

2022-06-07 14:20:13 +01:00
parent cc5d431d4c
commit c8c299cfb5
8 changed files with 61 additions and 67 deletions
@@ -17,7 +17,7 @@ import Data.Maybe
 {- | The AI equivalent for your control. -}
 yourControl :: Creature -> World -> World
 yourControl cr w 
-    | hasTerminalFocus w = w
+    | inTermFocus w = w
    | otherwise = w
        & creatures . ix (_crID cr) %~ 
            (wasdWithAiming w (_mvSpeed $ _crMvType cr) . mouseActionsCr (_mouseButtons w))