Fix dropping items creating indexes outside of filter

src/Dodge/DisplayInventory.hs

@@ -23,7 +23,7 @@ import Dodge.Data.World
 updateDisplayInventory :: World -> Configuration -> SelectionSections () -> SelectionSections ()
 updateDisplayInventory w cfig sss = case cr ^? crManipulation . manObject of
     Just (InInventory SortInventory) -> sss
-        { _sssSections = updateSections availablelines ((-1),0) [filtinv,filtclose,invx ,youx, closex]
+        { _sssSections = updateSections availablelines (-1,0) [filtinv,filtclose,invx ,youx, closex]
         , _sssSelPos = Just (-1)
         }
     Just (InInventory (SelItem i _)) -> sss
@@ -136,16 +136,6 @@ updateSection mspos sis' availablelines ss = ss
     }
   where
     sis = sis' 
-    -- case _ssRegex ss of
-    --    Regex str -> IM.insert (-1) (f str) $ IM.filter (regexList str . _siPictures) sis'
-    --    _ -> sis'
---    f str = SelectionRegex
---        { _siPictures = ["FILTER: " ++ str]
---        , _siHeight = 1
---        , _siIsSelectable = True
---        , _siColor = white
---        , _siOffX = 0
---        }
     oldoffset = ss ^. ssOffset
     scurs = do
         csel <- mspos