From ca8439b6787eb238d7b07544dfc728488f3c71b6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Kier=C3=A1n=20Meinhardt?= <kieran.meinhardt@gmail.com>
Date: Tue, 22 Sep 2020 23:40:00 +0200
Subject: lint

---
 MBox.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'MBox.hs')

diff --git a/MBox.hs b/MBox.hs
index 0bd3889..5071e48 100644
--- a/MBox.hs
+++ b/MBox.hs
@@ -72,7 +72,7 @@ sortTree :: Tree Message -> Tree Message
 sortTree t =
     Tree.Node (Tree.rootLabel t) $
         map sortTree $
-        List.sortBy (comparing $ getMessageDate . Tree.rootLabel) $
+        List.sortOn (getMessageDate . Tree.rootLabel) $
         Tree.subForest t
 
 
@@ -131,7 +131,7 @@ headerMessageIds headerName =
 
 parseMsgIds :: P.SourceName -> Text -> Either P.ParseError [Ident]
 parseMsgIds srcName =
-    either Left (Right . map (Text.init . Text.tail . Text.pack)) .
+    fmap (map (Text.init . Text.tail . Text.pack)) .
     P.parse obs_in_reply_to_parser srcName .
     Text.unpack
   where
-- 
cgit v1.2.3