summaryrefslogtreecommitdiffstats
path: root/MBox.hs
diff options
context:
space:
mode:
Diffstat (limited to 'MBox.hs')
-rw-r--r--MBox.hs4
1 files changed, 2 insertions, 2 deletions
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