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}