From 5f78ec96b34fe96b933d079776a24f2b23e767a3 Mon Sep 17 00:00:00 2001
From: tv <tv@krebsco.de>
Date: Sun, 30 Apr 2017 15:24:03 +0200
Subject: Notmuch.search: support passing additional args

---
 test5.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'test5.hs')

diff --git a/test5.hs b/test5.hs
index d2732cf..4e7cccb 100644
--- a/test5.hs
+++ b/test5.hs
@@ -83,7 +83,7 @@ data State = State
 
 initState :: String -> IO State
 initState query = do
-    r_ <- either error id <$> Notmuch.search query
+    r_ <- either error id <$> Notmuch.search [query]
 
     return State
         { cursor = Z.fromTree $ fromSearchResults query r_
-- 
cgit v1.2.3