Cleanup

2025-01-04 15:31:06 +00:00
parent f9eca28b80
commit ad8052bc5c
1 changed files with 1 additions and 3 deletions
@@ -204,9 +204,7 @@ filterSectionsPair infocus filtfn itms filtdescription mfilt = (filtsis, itms')
                    True
                    white
                    0
-    itms' = fromMaybe itms $ do
-        str <- mfilt
-        return $ IM.filter (filtfn str) itms
+    itms' = maybe id (IM.filter . filtfn) mfilt itms
    numfiltitems = "  " ++ show (length itms - length itms') ++ " FILTERED"

 invDimColor :: Color