claudiomaradonna/plutus-pioneer-program
1
0
Fork 0
mirror of https://github.com/FiloSpaTeam/plutus-pioneer-program.git synced 2024-11-21 22:32:00 +01:00
Code Issues Projects Releases Packages Wiki Activity

fixed regular expression in oracle-client

Browse source
This commit is contained in:
Lars Brünjes 2021-07-27 00:14:05 +02:00
parent 724f9cb7db
commit 01ed74dc2d
No known key found for this signature in database
GPG key ID: B488B9045DC1A087
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
code/week06/app/oracle-client.hs
View file

@ -51,7 +51,7 @@ getExchangeRate = runReq defaultHttpConfig $ do
NoReqBody NoReqBody
bsResponse bsResponse
mempty mempty
let priceRegex = "priceValue___11gHJ\">\\$([\\.0-9]*)" :: ByteString let priceRegex = "priceValue___11gHJ \">\\$([\\.0-9]*)" :: ByteString
(_, _, _, [bs]) = responseBody v =~ priceRegex :: (ByteString, ByteString, ByteString, [ByteString]) (_, _, _, [bs]) = responseBody v =~ priceRegex :: (ByteString, ByteString, ByteString, [ByteString])
d = read $ unpack bs :: Double d = read $ unpack bs :: Double
x = round $ 1_000_000 * d x = round $ 1_000_000 * d