From 01ed74dc2d10b64ea9a6b03018679f14dc45658c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Lars=20Br=C3=BCnjes?= <brunjlar@gmail.com>
Date: Tue, 27 Jul 2021 00:14:05 +0200
Subject: [PATCH] fixed regular expression in oracle-client

---
 code/week06/app/oracle-client.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/code/week06/app/oracle-client.hs b/code/week06/app/oracle-client.hs
index b003f87..9ec08fe 100644
--- a/code/week06/app/oracle-client.hs
+++ b/code/week06/app/oracle-client.hs
@@ -51,7 +51,7 @@ getExchangeRate = runReq defaultHttpConfig $ do
         NoReqBody
         bsResponse
         mempty
-    let priceRegex      = "priceValue___11gHJ\">\\$([\\.0-9]*)" :: ByteString
+    let priceRegex      = "priceValue___11gHJ \">\\$([\\.0-9]*)" :: ByteString
         (_, _, _, [bs]) = responseBody v =~ priceRegex :: (ByteString, ByteString, ByteString, [ByteString])
         d               = read $ unpack bs :: Double
         x               = round $ 1_000_000 * d