From 15aaed2a6fd54eb223d938be8a37d5be7f46b994 Mon Sep 17 00:00:00 2001
From: Denis Tereshkin <denis@kasan.ws>
Date: Sun, 15 Oct 2017 18:12:08 +0700
Subject: [PATCH] DataType Price renamed to LastTradePrice

---
 test/TestQuoteSourceClient.hs | 2 +-
 test/TestQuoteSourceServer.hs | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/test/TestQuoteSourceClient.hs b/test/TestQuoteSourceClient.hs
index e369384..6df2936 100644
--- a/test/TestQuoteSourceClient.hs
+++ b/test/TestQuoteSourceClient.hs
@@ -48,7 +48,7 @@ testTickStream = testCase "QuoteSource clients receives ticks" $ withContext (\c
     bracket (startQuoteSourceClient clientChan ["FOOBAR"] ctx ep) stopQuoteSourceClient (\qc -> do
       let tick = Tick {
           security = "FOOBAR",
-          datatype = Price,
+          datatype = LastTradePrice,
           timestamp = UTCTime (fromGregorian 2016 9 27) 16000,
           value = 1000,
           volume = 1}
diff --git a/test/TestQuoteSourceServer.hs b/test/TestQuoteSourceServer.hs
index 0cf43a2..4fce690 100644
--- a/test/TestQuoteSourceServer.hs
+++ b/test/TestQuoteSourceServer.hs
@@ -38,7 +38,7 @@ testTickStream = testCase "QuoteSource Server sends ticks" $ withContext (\ctx -
       subscribe s "FOOBAR"
       let tick = Tick {
           security = "FOOBAR",
-          datatype = Price,
+          datatype = LastTradePrice,
           timestamp = UTCTime (fromGregorian 2016 9 27) 16000,
           value = 1000,
           volume = 1}