Notmuch.search: support passing additional args

1 files changed, 1 insertions, 1 deletions

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_