Remove functions from left use item use field

2022-07-20 17:22:07 +01:00
parent 12246462fe
commit e9f0130013
9 changed files with 61 additions and 75 deletions
@@ -3,6 +3,7 @@ module Dodge.Creature.Impulse.UseItem
    , useLeftItem
    ) where
 import Dodge.Data
+import Dodge.Luse
 import Dodge.Inventory
 import Dodge.Reloading
 import Dodge.Item.Location
@@ -104,7 +105,7 @@ useLeftItem cid w
        f   <- cr ^? crInv . ix invid . itUse . lUse
        return 
            . (runIdentity . pointToItem (_itPos itm) (return . (itUse . useHammer .~ HammerDown)))
-            . f itm cr 
+            . useL f itm cr 
            $ w
  where
    cr = _creatures w IM.! cid