diff --git a/src/Client/Message.hs b/src/Client/Message.hs
index d1acf87d..d6f098b9 100644
--- a/src/Client/Message.hs
+++ b/src/Client/Message.hs
@@ -41,7 +41,7 @@ import Data.Maybe (isJust)
 import Data.Text (Text)
 import Data.Text qualified as Text
 import Data.Time (ZonedTime)
-import Irc.Codes ( pattern RPL_NOWAWAY, pattern RPL_UNAWAY, pattern RPL_MONONLINE, pattern RPL_MONOFFLINE )
+import Irc.Codes (pattern RPL_NOWAWAY, pattern RPL_UNAWAY, pattern RPL_MONONLINE, pattern RPL_MONOFFLINE)
 import Irc.Identifier (Identifier, mkId)
 import Irc.Message (IrcMsg(..), ircMsgText, Source(srcUser))
 import Irc.UserInfo (UserInfo(userNick), parseUserInfo, uiNick)
diff --git a/src/Client/View/Messages.hs b/src/Client/View/Messages.hs
index 299c7140..960ef599 100644
--- a/src/Client/View/Messages.hs
+++ b/src/Client/View/Messages.hs
@@ -61,7 +61,7 @@ chatMessageImages focus w st =
           if hideMeta
             then detailedImagesWithoutMetadata st
             else map (view wlFullImage)
-      | otherwise = windowLinesToImages st w hideMeta . filter ((/= WLSquelch) . _wlImportance)
+      | otherwise = windowLinesToImages st w hideMeta . filter (hasn't (wlImportance . only WLSquelch))
 
 detailedImagesWithoutMetadata :: ClientState -> [WindowLine] -> [Image']
 detailedImagesWithoutMetadata st wwls =