Fold aiming parameters into item use datatype

2021-11-27 18:10:05 +00:00
parent 8639b2d428
commit 652af6b0a9
24 changed files with 135 additions and 155 deletions
@@ -61,7 +61,7 @@ changeFuse
    -> Item
 changeFuse scrollAmount _ it = it
        & ( itAttachment .~ ItFuse newTime )
-        & ( itAimZoom .~ defaultItZoom{_itZoomMax = zm, _itZoomMin = zm} )
+        & ( itUse . useAim . aimZoom .~ defaultItZoom{_itZoomMax = zm, _itZoomMin = zm} )
  where 
    oldTime = _itFuseTime $ _itAttachment it
    newTime = min 90 $ max 20 $ oldTime - round (5 * scrollAmount)