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