Continue inventory tweak

src/Dodge/DisplayInventory.hs

@@ -21,8 +21,9 @@ import Dodge.Data.SelectionList
 import Dodge.Data.World
 
 updateDisplayInventory :: World -> Configuration -> SelectionSections () -> SelectionSections ()
-updateDisplayInventory w cfig sss = case cr ^? crManipulation . isel of
-    Just (SelItem i _) -> sss
+updateDisplayInventory w cfig sss = case cr ^? crManipulation . manObject of
+    Just (InInventory SortInventory) -> sss
+    Just (InInventory (SelItem i _)) -> sss
         { _sssSections = updateSections availablelines (0,i) [invx ,youx, closex]
         , _sssSelPos = Just 0
         }
@@ -36,6 +37,9 @@ updateDisplayInventory w cfig sss = case cr ^? crManipulation . isel of
         }
     _ -> error "error when getting cr inv sel"
   where
+    filtinv = (-1,(filtinvsec,filtinvitems))
+    filtinvsec = undefined
+    filtinvitems = undefined
     invx = (0,(invsec, invitems))
     youx = (1,(yousec, youitems))
     closex = (2,(cosec, coitems))