From dd13c277ea1e34f591a31f52b9d2f18d78d4675b Mon Sep 17 00:00:00 2001
From: Stephen Paul Weber <singpolyma@singpolyma.net>
Date: Mon, 17 Oct 2022 23:08:20 -0500
Subject: [PATCH] lint

---
 Email.hs              | 3 +--
 Util.hs               | 8 +++-----
 test/IQManagerTest.hs | 2 +-
 3 files changed, 5 insertions(+), 8 deletions(-)

diff --git a/Email.hs b/Email.hs
index 8cf55ef..8bd896b 100644
--- a/Email.hs
+++ b/Email.hs
@@ -297,8 +297,7 @@ mkMessageID domain now message = ((s"<" ++) . (++ s">")) $
 mkReferences :: XMPP.Message -> Maybe ByteString
 mkReferences =
 	fmap (limitReferencesLength . encodeUtf8) .
-	(T.stripPrefix (s"References: ") =<<) .
-	fmap (mconcat . XML.elementText) .
+	(T.stripPrefix (s"References: ") . mconcat . XML.elementText) <=<
 	child (s"{jabber:component:accept}thread")
 
 data EmailWithEnvelope = EmailWithEnvelope {
diff --git a/Util.hs b/Util.hs
index 6ff6bd6..a488789 100644
--- a/Util.hs
+++ b/Util.hs
@@ -134,11 +134,9 @@ errorPayload typ definedCondition english morePayload =
 	XML.Element (s"{jabber:component:accept}error")
 	[(s"type", [XML.ContentText $ fromString typ])]
 	(
-		(
-			XML.NodeElement $ XML.Element definedConditionName [] []
-		) :
-		(
-			XML.NodeElement $ XML.Element
+		XML.NodeElement (XML.Element definedConditionName [] []) :
+		XML.NodeElement (
+				XML.Element
 				(s"{urn:ietf:params:xml:ns:xmpp-stanzas}text")
 				[(s"xml:lang", [XML.ContentText $ s"en"])]
 				[XML.NodeContent $ XML.ContentText english]
diff --git a/test/IQManagerTest.hs b/test/IQManagerTest.hs
index a4369e0..86f2f4d 100644
--- a/test/IQManagerTest.hs
+++ b/test/IQManagerTest.hs
@@ -18,7 +18,7 @@ unit_iqManager = do
 	iqReceived iqResult
 	result <- atomically stm
 	fmap XMPP.stanzaToElement result @?=
-		(Just $ XMPP.stanzaToElement iqResult)
+		Just (XMPP.stanzaToElement iqResult)
 	where
 	iqToSend = (XMPP.emptyIQ XMPP.IQSet) {
 		XMPP.iqID = Just (s"theID")
-- 
2.38.5