Attempt to simplify text positioning

2023-05-05 02:37:18 +01:00
parent 031af611cd
commit 03c3d34ea1
4 changed files with 16 additions and 15 deletions
@@ -77,7 +77,7 @@ toggleEquipmentAt rbops invid cr w = case rbops ^? opAllocateEquipment of
            & crpoint . crEquipment . at newp ?~ invid
            & crpoint . crInvEquipped . at invid ?~ newp
            & onequip itm cr
-            & assignNewHotkey invid
+            & crpoint %~ assignNewHotkey invid
    Just MoveEquipment{_allocNewPos = newp, _allocOldPos = oldp} ->
        w
            & crpoint . crEquipment . at newp ?~ invid
@@ -97,7 +97,7 @@ toggleEquipmentAt rbops invid cr w = case rbops ^? opAllocateEquipment of
            & onremove (itmat rid) cr
            & onequip itm cr
            & crpoint %~ removeHotkey rid
-            & assignNewHotkey invid
+            & crpoint %~ assignNewHotkey invid
    Just RemoveEquipment{_allocOldPos = oldp} ->
        w
            & crpoint . crEquipment . at oldp .~ Nothing