test5 initState: limit search to 100

1 files changed, 5 insertions, 1 deletions

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_