Improve combine menu visuals

2022-05-24 15:25:05 +01:00
parent 7f55ba117f
commit 7c472c4ca4
4 changed files with 37 additions and 68 deletions
@@ -152,7 +152,7 @@ wheelEvent y w = case _hudElement $ _hud w of
 scrollRBOption :: Float -> World -> World
 scrollRBOption y w
    | y < 0 = w & rbOptions . opSel %~ (min (length (_opEquip (_rbOptions w))-1) . (+1))
-    | y > 0 = w & rbOptions . opSel %~ (max 0 . (subtract 1))
+    | y > 0 = w & rbOptions . opSel %~ (max 0 . subtract 1)
    | otherwise = w

 -- nice idea, but the chain of setters and getters seems prohibitive