diff options
author | Kierán Meinhardt <kieran.meinhardt@gmail.com> | 2020-09-22 23:40:00 +0200 |
---|---|---|
committer | Kierán Meinhardt <kieran.meinhardt@gmail.com> | 2020-09-23 00:10:07 +0200 |
commit | ca8439b6787eb238d7b07544dfc728488f3c71b6 (patch) | |
tree | 0f812affaa5c569248ee2c1c7e8b39c6e8a405c7 /MBox.hs | |
parent | 121d703bcd3ecbaba031499070907251b5eae1a9 (diff) |
lint
Diffstat (limited to 'MBox.hs')
-rw-r--r-- | MBox.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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 |