From ea70ebe26215fd15dfa1b22b6892f6bb7c93723c Mon Sep 17 00:00:00 2001
From: Denis Tereshkin <denis@kasan.ws>
Date: Thu, 29 Sep 2016 16:55:04 +0700
Subject: [PATCH] QuoteSource client test: send more than one tick in separate
 thread

---
 test/TestQuoteSourceClient.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/test/TestQuoteSourceClient.hs b/test/TestQuoteSourceClient.hs
index 0ed9c85..1a0f10d 100644
--- a/test/TestQuoteSourceClient.hs
+++ b/test/TestQuoteSourceClient.hs
@@ -52,9 +52,7 @@ testTickStream = testCase "QuoteSource clients receives ticks" $ withContext (\c
           timestamp = UTCTime (fromGregorian 2016 9 27) 16000,
           value = 1000,
           volume = 1}
-      yield
-      writeChan chan (Just tick)
-      yield
+      forkIO $ writeChan chan (Just tick)
       recvdTick <- readChan clientChan
       tick @=? recvdTick)))