From c36848112fcaa4ee83e34f4484dca45e39798e1e Mon Sep 17 00:00:00 2001 From: Stephen Paul Weber Date: Thu, 22 Jul 2021 20:59:56 -0500 Subject: [PATCH] hlint clean --- Session.hs | 2 +- gateway.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/Session.hs b/Session.hs index a28a6ed..99501b7 100644 --- a/Session.hs +++ b/Session.hs @@ -96,7 +96,7 @@ sendPresenceToMUC config presence@XMPP.Presence { where nickReplacement = maybe id replaceNotInClass (Config.nickChars targetMuc) target = maybeAddNick (Config.jid targetMuc) $ nickReplacement $ - (maybeTruncate nickLength fromNick) ++ subscript + maybeTruncate nickLength fromNick ++ subscript subscript = s"[" ++ tag ++ s"]" nickLength = fmap (subtract 2 . subtract (T.length tag) . fromIntegral) $ Config.nickLength targetMuc diff --git a/gateway.hs b/gateway.hs index 498c01f..50896e2 100644 --- a/gateway.hs +++ b/gateway.hs @@ -58,7 +58,7 @@ handlePresence config presence@XMPP.Presence { ) | typ == XMPP.PresenceUnavailable, hasMucCode 110 presence, -- done leaving room - Just source <- (XMPP.parseJID . unescapeJid . XMPP.strNode) =<< XMPP.jidNode to = do + Just source <- (XMPP.parseJID . unescapeJid . XMPP.strNode) =<< XMPP.jidNode to = Session.mkSession config typ (Just source) from | bareTxt to /= bareTxt (Config.bridgeJid config) = -- This is to one of our ghosts, so just ignore it -- 2.45.2