From f5eb629cc93920cec9b48d13c5600cf64c8e5b85 Mon Sep 17 00:00:00 2001
From: tv <tv@krebsco.de>
Date: Sun, 30 Apr 2017 15:25:09 +0200
Subject: test5 initState: limit search to 100

---
 test5.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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