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