From d25590cdf6c3a9415e622f724600d2451aa67f84 Mon Sep 17 00:00:00 2001 From: Jacob Barber Date: Sun, 24 Nov 2019 12:57:18 -0500 Subject: [PATCH] re-break TLS --- exec/Miner/Http.hs | 2 +- kda-miner.cabal | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/exec/Miner/Http.hs b/exec/Miner/Http.hs index dcba7d4..6a7e01a 100644 --- a/exec/Miner/Http.hs +++ b/exec/Miner/Http.hs @@ -32,7 +32,7 @@ post :: WT.Postable a => HostAddress -> String -> a -> IO (Either T.Text ByteStr post addr path a = second C.responseBody <$> readResponse (W.postWith httpOpts (url addr path) a) getWithBody :: (Show a, WT.Postable a) => HostAddress -> String -> a -> IO (Either T.Text ByteString) -getWithBody addr path a = second C.responseBody <$> readResponse (W.customPayloadMethod "GET" (url addr path) a) +getWithBody addr path a = second C.responseBody <$> readResponse (W.customPayloadMethodWith "GET" httpOpts (url addr path) a) getJSON :: FromJSON a => HostAddress -> String -> IO (Either T.Text a) getJSON addr path = getJSONWith addr path [] diff --git a/kda-miner.cabal b/kda-miner.cabal index 880949d..bd48d94 100644 --- a/kda-miner.cabal +++ b/kda-miner.cabal @@ -1,7 +1,7 @@ cabal-version: 2.2 name: kda-miner -version: 1.0.3 +version: 1.0.4 description: Unofficial mining software for the Kadena Public Blockchain. homepage: https://github.com/kadena-io/chainweb-miner author: Jacob Barber