summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authortv <tv@shackspace.de>2014-12-25 18:03:54 +0100
committertv <tv@shackspace.de>2014-12-25 18:03:54 +0100
commit0faf55683d3032dce0f16cb69c3127d94dc729bc (patch)
treeebc5448101753d9ccc607169af6407a7cb0dd745
parent2003af95197e041224a068ce84bad413fac8d010 (diff)
main' :: String -> IO ()
-rw-r--r--test3.hs6
1 files 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