Fix item drop bug

2023-02-23 12:19:33 +00:00
parent d513914886
commit 6fff71cdcc
2 changed files with 16 additions and 9 deletions
@@ -137,8 +137,9 @@ updateInventorySectionItems w = w
    f olditems = fromMaybe olditems $ do
        cr <- w ^? cWorld . lWorld . creatures . ix 0
        invitms <- cr ^? crInv
-        str <- w ^? hud . hudElement . diSections . sssExtra . sssFilters . ix (-1) . _Just
-        return $ IM.filter (plainRegex str) $ IM.mapWithKey (invSelectionItem' cr) invitms
+        return $ case w ^? hud . hudElement . diSections . sssExtra . sssFilters . ix (-1) . _Just of
+            Just str -> IM.filter (plainRegex str) $ IM.mapWithKey (invSelectionItem' cr) invitms
+            _ -> IM.mapWithKey (invSelectionItem' cr) invitms

 plainRegex :: String -> SelectionItem a -> Bool
 plainRegex = flip $ andOrRegex (\si str -> regexList str (_siPictures si))