Fix combinations filter

src/Dodge/Update/Input.hs

@@ -3,6 +3,11 @@ module Dodge.Update.Input (
 ) where
 
 --import Control.Monad
+
+--import Control.Monad
+
+--import Control.Monad
+import Dodge.DisplayInventory
 import Data.List (sort)
 import Dodge.Inventory.Add
 import Dodge.Data.Combine
@@ -20,7 +25,6 @@ import Data.Maybe
 --import Data.Monoid (First)
 import Dodge.Base.You
 import Dodge.Button.Event
-import Dodge.Combine
 import Dodge.Creature.Action
 import Dodge.Data.Universe
 import Dodge.Debug.Terminal
@@ -219,6 +223,7 @@ updateEnterRegex w = case w ^? hud . hudElement . subInventory of
             w & cWorld . lWorld . creatures . ix 0 . crManipulation . manObject .~ InNearby SortNearby
                 & hud . hudElement .  diSections %~ enterregex 2
     Just CombineInventory{} -> w & hud . hudElement . subInventory . ciSections %~ enterregex (-1)
+            & hud . hudElement . subInventory . ciSections . sssExtra . sssSelPos ?~ (-1,0)
     _ -> w
   where
     di = w ^. hud . hudElement