Change selection set to work for multiple sections

2026-05-13 11:18:52 +01:00
parent e4bd971017
commit 91480c957d
14 changed files with 372 additions and 299 deletions
@@ -95,7 +95,8 @@ setInvPosFromSS w = w
        & cWorld . lWorld . creatures . ix 0 . crManipulation . manObject .~ thesel
  where
    thesel = fromMaybe SelNothing $ do
-        Sel i j _ <- w ^? hud . diSelection . _Just
+        --Sel i j _ <- w ^? hud . diSelection . _Just
+        Sel i j <- w ^? hud . diSelection . _Just
        case i of
            (-1) -> Just SortInventory
            0 -> do