DataType Price renamed to LastTradePrice

8 years ago · 15aaed2a6f
2 changed files with 2 additions and 2 deletions
--- 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}
--- 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}