From 0faf55683d3032dce0f16cb69c3127d94dc729bc Mon Sep 17 00:00:00 2001 From: tv Date: Thu, 25 Dec 2014 18:03:54 +0100 Subject: main' :: String -> IO () --- test3.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/test3.hs b/test3.hs index e182e5f..2f7bec4 100644 --- a/test3.hs +++ b/test3.hs @@ -73,9 +73,12 @@ untagMessage tag m = unsetTag (T.unpack tag) (unMessageID $ messageId m) - main :: IO () main = + main' "tag:inbox AND NOT tag:killed" + +main' :: String -> IO () +main' query = bracket (mkVty def) finit run where @@ -89,7 +92,6 @@ main = --let c = findMessage (MessageID "87egtmvj0n.fsf@write-only.cryp.to") v --rec vty 0 c v - let query = "tag:inbox AND NOT tag:killed" Right r_ <- search query rec State { vty = vty0 -- cgit v1.2.3