Remove equality derivation for hud elements

2023-01-15 12:38:06 +00:00
parent a50e2ff406
commit 17734738f6
4 changed files with 7 additions and 5 deletions
@@ -328,9 +328,13 @@ determineInvSelCursorWidth w = case _rbOptions w of
    NoRightButtonOptions -> topInvW
    EquipOptions{}
        | ButtonRight `M.member` _mouseButtons (_input w)
-            && w ^? hud . hudElement . subInventory == Just NoSubInventory ->
+            && hasnosubinv ->
            47
        | otherwise -> topInvW
+  where
+    hasnosubinv = case w ^? hud . hudElement . subInventory of
+        Just NoSubInventory -> True
+        _ -> False

 combineListSelection :: World -> Maybe Int -> String -> Bool -> SelectionList ()
 combineListSelection w mi regex x =