Cleanup

2022-05-23 15:50:49 +01:00
parent dcd3fdf563
commit c2770e6b5c
7 changed files with 20 additions and 9 deletions
@@ -27,7 +27,7 @@ rewindGun = defaultGun
        , _wpCharge = 0
        }
    , _itEffect = ItRewindEffect rewindEffect []
-    , _itUse = defaultlUse {_lUse = \itm cr -> useRewindGun itm cr}
+    , _itUse = defaultlUse {_lUse = useRewindGun}
    }
 rewindEffect :: Item -> Creature -> World -> World
 rewindEffect itm cr w 
@@ -109,7 +109,7 @@ aSelf :: Creature -> World -> World
 aSelf = blinkAction

 aSelfL :: Item -> Creature -> World -> World
-aSelfL _ cr = blinkAction cr
+aSelfL _ = blinkAction

 effectGun :: String -> (Creature -> World -> World) -> Item
 effectGun name eff = defaultGun