Reorganise/cleanup

src/Dodge/Combine.hs

@@ -140,7 +140,7 @@ toggleCombineInv uv = case uv ^? uvWorld . hud . hudElement . subInventory of
 enterCombineInv :: Configuration -> World -> World
 enterCombineInv cfig w = w & hud . hudElement . subInventory .~ CombineInventory 
     cm'
-    FilterableSections {_fssFilters=IM.singleton (-1) Nothing,_fssSections = sss}
+    sss
     --(updateCombineSelections w cfig sss)
   where
     cm' = IM.fromAscList $ zip [0..] $ combineList' w 
@@ -148,7 +148,10 @@ enterCombineInv cfig w = w & hud . hudElement . subInventory .~ CombineInventory
        | otherwise = cm'
     sss = SelectionSections  
         { _sssSections = IM.fromDistinctAscList [(-1,filtsection),(0,combsection)]
-        , _sssSelPos = selpos
+        , _sssExtra = SSSExtra
+            {_sssSelPos = selpos
+            , _sssFilters=IM.singleton (-1) Nothing
+            }
         }
     selpos | null cm' = Nothing
        | otherwise = Just (0,0)