Remove functions from left use item use field

src/Dodge/Default/Weapon.hs

@@ -28,35 +28,6 @@ defaultBulletLoadable = defaultLoadable & laAmmoType .~ basicBullet
 defaultChargeable :: ItemConsumption
 defaultChargeable = ChargeableAmmo 100 100
 
---ruseRate :: Int 
---    -> (Item -> Creature -> World -> World) 
---    -> [(Item -> Creature -> World -> World) -> Item -> Creature -> World -> World]
---    -> ItemUse
---ruseRate i f usemods = RightUse
---    { _rUse = f
---    , _useDelay = FixedRate
---        { _rateMax = i
---        , _rateTime = 0
---        }
---    , _useMods = usemods
---    , _useHammer = HammerUp
---    , _useAim = defaultAimParams
---    , _heldScroll = \_ _ -> id
---    }
-
---ruseInstant 
---    :: (Item -> Creature -> World -> World) 
---    -> [(Item -> Creature -> World -> World) -> Item -> Creature -> World -> World]
---    -> ItemUse
---ruseInstant f usemods = RightUse
---    { _rUse = f
---    , _useDelay = NoDelay
---    , _useMods  = usemods
---    , _useHammer = HammerUp
---    , _useAim = defaultAimParams
---    , _heldScroll = \_ _ -> id
---    }
-
 defaultrUse :: ItemUse
 defaultrUse = RightUse
     { _rUse = HeldDoNothing
@@ -68,7 +39,7 @@ defaultrUse = RightUse
     }
 defaultlUse :: ItemUse
 defaultlUse = LeftUse
-    { _lUse = \_ _ -> id
+    { _lUse = LDoNothing
     , _useDelay = FixedRate {_rateMax = 8, _rateTime = 0}
     , _useHammer    = HammerUp
     , _eqEq = defaultEquip
@@ -83,7 +54,7 @@ defaultEquip = Equipment
     , _eqViewDist = Nothing
     }
 
-luseInstantNoH :: (Item -> Creature -> World -> World) -> ItemUse
+luseInstantNoH :: Luse -> ItemUse
 luseInstantNoH f = defaultlUse 
     & lUse .~ f
     & useDelay .~ NoDelay