Improve item location code, including some error detection

2024-09-23 14:33:14 +01:00
parent 3a08cf93f5
commit 43b365185d
8 changed files with 93 additions and 47 deletions
@@ -62,7 +62,10 @@ drawInventory sss w cfig = drawSelectionSections sss (invDisplayParams w) cfig
  where
    iextra = fromMaybe mempty $ do
        inv <- w ^? cWorld . lWorld . creatures . ix 0 . crInv
-        return $ inventoryExtra sss cfig w (invAdj inv)
+        let x = case invAdj' inv of
+                Left str -> error $ "drawInventory: " ++ str
+                Right y -> y
+        return $ inventoryExtra sss cfig w x

 drawSubInventory :: SubInventory -> Configuration -> World -> Picture
 drawSubInventory subinv cfig w = case subinv of