Cleanup

2021-12-11 19:44:48 +00:00
parent c847955b7c
commit 7116129a37
15 changed files with 21 additions and 41 deletions
@@ -16,10 +16,10 @@ import Data.Maybe
 yourControl 
    :: Creature 
    -> World
-    -> (World -> World, Maybe Creature)
+    -> (World -> World, Creature)
 yourControl cr w = 
    ( updateUsingInput
-    , Just . mouseActionsCr (_mouseButtons w) $ wasdWithAiming w speed 0 cr
+    , mouseActionsCr (_mouseButtons w) $ wasdWithAiming w speed 0 cr
    )
  where 
    speed = _mvSpeed $ _crMvType cr