Cleanup

src/Dodge/DisplayInventory.hs

@@ -236,8 +236,7 @@ listSelectionColorPicture  = foldMap f
         g str = (_siColor si,translate indent 0 .  color (_siColor si) $ text str)
 
 enterCombineInv :: Configuration -> World -> World
-enterCombineInv cfig w =
-    w & hud . hudElement . subInventory .~ CombineInventory sss
+enterCombineInv cfig w = w & hud . hudElement . subInventory .~ CombineInventory sss
   where
     cm' = IM.fromDistinctAscList . zip [0 ..] $ combineList w
     cm
@@ -258,7 +257,7 @@ enterCombineInv cfig w =
     availablelines = getAvailableListLines secondColumnParams cfig
     filtsection =
         SelectionSection
-            { _ssItems = IM.singleton 0 $ SelectionInfo ["No possible combinations"] 1 False white 0
+            { _ssItems = mempty
             , _ssCursor = Nothing
             , _ssMinSize = 0
             , _ssOffset = 0
@@ -266,9 +265,7 @@ enterCombineInv cfig w =
             , _ssIndent = 0
             , _ssDescriptor = "COMB FILTER"
             }
-    combsection = updateSection cm (Just 0) availablelines combinationssection'
-    combinationssection' =
-        SelectionSection
+    combsection = updateSection cm (Just 0) availablelines SelectionSection
             { _ssItems = cm
             , _ssCursor = do
                 (_, si) <- IM.lookupMin cm