Move held item scrolling into dedicated datatype

2022-07-20 15:17:56 +01:00
parent 2755a4ffdd
commit 2c6e5e818a
10 changed files with 79 additions and 58 deletions
@@ -65,7 +65,7 @@ defaultrUse = RightUse
    , _useMods = []
    , _useHammer  = HammerUp
    , _useAim = defaultAimParams
-    , _heldScroll = \_ _ -> id
+    , _heldScroll = HeldScrollDoNothing
    }
 defaultlUse :: ItemUse
 defaultlUse = LeftUse