From ad8052bc5c6a0656becef2e104db652d841b01ab Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Sat, 4 Jan 2025 15:31:06 +0000
Subject: [PATCH] Cleanup

---
 src/Dodge/DisplayInventory.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/src/Dodge/DisplayInventory.hs b/src/Dodge/DisplayInventory.hs
index d6ca9da94..5b99fa17f 100644
--- a/src/Dodge/DisplayInventory.hs
+++ b/src/Dodge/DisplayInventory.hs
@@ -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