Cleanup

src/Dodge/DisplayInventory.hs

@@ -204,9 +204,7 @@ filterSectionsPair infocus filtfn itms filtdescription mfilt = (filtsis, itms')
                     True
                     white
                     0
-    itms' = fromMaybe itms $ do
+    itms' = maybe id (IM.filter . filtfn) mfilt itms
-        str <- mfilt
-        return $ IM.filter (filtfn str) itms
     numfiltitems = "  " ++ show (length itms - length itms') ++ " FILTERED"
 
 invDimColor :: Color