Notmuch.search: support passing additional args

1 files changed, 3 insertions, 3 deletions

diff --git a/Notmuch.hs b/Notmuch.hs
index e6d0d32..ffe403d 100644
--- a/Notmuch.hs
+++ b/Notmuch.hs
@@ -140,9 +140,9 @@ notmuchWithInput args input = do
     return (exitCode, out, err)
 
 
-search :: String -> IO (Either String [SearchResult])
-search term =
-    notmuch [ "search", "--format=json", "--format-version=2", term ]
+search :: [String] -> IO (Either String [SearchResult])
+search args =
+    notmuch ("search" : "--format=json" : "--format-version=2" : args)
         >>= return . eitherDecode'