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

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

(limited to 'Notmuch.hs')

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
-- 
cgit v1.2.3