Cleanup

2022-05-21 21:53:49 +01:00
parent e9cc7e64c9
commit f555a4bf05
12 changed files with 32 additions and 31 deletions
@@ -48,8 +48,8 @@ toggleEquipmentAt invid itm cr = case cr ^? crInvEquipped . ix invid of

 equipUsingSite :: Int -> Item -> Creature -> Creature
 equipUsingSite invid itm cr = cr
-    & crInvEquipped . at invid .~ Just epos
-    & crEquipment . at epos .~ Just invid
+    & crInvEquipped . at invid ?~ epos
+    & crEquipment . at epos ?~ invid
    & removeOtherEquipment
  where
    epos = eqSiteToPos cr (_eqSite $ _itUse itm)