Cleanup

2024-09-26 16:32:07 +01:00
parent 772886c8c6
commit fb6fcff61c
9 changed files with 59 additions and 192 deletions
@@ -62,7 +62,7 @@ drawInventory sss w cfig = drawSelectionSections sss (invDisplayParams w) cfig
  where
    iextra = fromMaybe mempty $ do
        inv <- w ^? cWorld . lWorld . creatures . ix 0 . crInv
-        let x = case invAdj' inv of
+        let x = case invAdj inv of
                Left str -> error $ "drawInventory: " ++ str
                Right y -> y
        return $ inventoryExtra sss cfig w x