Remove Either construct over invAdj

2024-10-26 15:03:45 +01:00
parent 6402ab11da
commit 53557965d0
4 changed files with 8 additions and 15 deletions
@@ -72,9 +72,7 @@ drawInventory sss w cfig =
    curs = invCursorParams w
    iextra = fromMaybe mempty $ do
        inv <- w ^? cWorld . lWorld . creatures . ix 0 . crInv
-        let x = case invAdj inv of
-                Left str -> error $ "drawInventory: " ++ str
-                Right y -> y
+        let x = invAdj inv
        return $ inventoryExtra sss cfig w x

 drawDIMouseOver :: World -> Picture