summaryrefslogtreecommitdiffstats
path: root/Notmuch.hs
diff options
context:
space:
mode:
authorKierán Meinhardt <kieran.meinhardt@gmail.com>2020-09-22 23:40:00 +0200
committerKierán Meinhardt <kieran.meinhardt@gmail.com>2020-09-23 00:10:07 +0200
commitca8439b6787eb238d7b07544dfc728488f3c71b6 (patch)
tree0f812affaa5c569248ee2c1c7e8b39c6e8a405c7 /Notmuch.hs
parent121d703bcd3ecbaba031499070907251b5eae1a9 (diff)
lint
Diffstat (limited to 'Notmuch.hs')
-rw-r--r--Notmuch.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Notmuch.hs b/Notmuch.hs
index 4d0ddd1..fc24d0e 100644
--- a/Notmuch.hs
+++ b/Notmuch.hs
@@ -141,8 +141,8 @@ notmuchWithInput args input = do
search :: [String] -> IO (Either String [SearchResult])
search args =
- notmuch ("search" : "--format=json" : "--format-version=2" : args)
- >>= return . eitherDecodeLenient'
+ eitherDecodeLenient' <$>
+ notmuch ("search" : "--format=json" : "--format-version=2" : args)
data ReplyTo = ToAll | ToSender