Use a fun lens combinator

glguy · Aug 15, 2024 · 9b435a9 · 9b435a9
1 parent 1e130fc
commit 9b435a9
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git 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
@@ -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 =