2 files changed, 2 insertions(+), 2 deletions(-)

M Session.hs
M gateway.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

@@ 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