1.0.2

.gitignore

@@ -1,3 +1,4 @@
 .stack-work/
 *.dump-hi
+dist-newstyle/*
 *~

CHANGELOG.md

@@ -1,6 +1,6 @@
 # `chainweb-miner` Changelog
 
-## 1.0.2 (2019-11-??)
+## 1.0.2 (2019-11-21)
 
 #### New Features
 

chainweb-miner.cabal

@@ -1,7 +1,7 @@
 cabal-version: 2.2
 
 name:          chainweb-miner
-version:       1.0.1
+version:       1.0.2
 description:   Official mining software for the Kadena Public Blockchain.
 homepage:      https://github.com/kadena-io/chainweb-miner
 author:        Kadena Developers

exec/Miner.hs

@@ -115,7 +115,7 @@ work cmd cargs = do
     lopts <- setLogMinLevel (ll cargs) . setLogUseLoc False <$> logOptionsHandle stderr True
     withLogFunc lopts $ \logFunc -> do
         g <- MWC.createSystemRandom
-        m <- newManager (mkManagerSettings ss Nothing)
+        m <- newManager (mkManagerSettings tlsSettings Nothing)
         euvs <- sequence <$> traverse (nodeVer m) (coordinators cargs)
         case euvs of
             Left e -> throwString $ show e

exec/Miner/Balance.hs

@@ -24,15 +24,15 @@ import           Chainweb.ChainId (chainIdFromText)
 import           Chainweb.Pact.RestAPI.Client (pactLocalApiClient)
 import           Chainweb.RestAPI.NodeInfo (NodeInfo(..), NodeInfoApi)
 import           Chainweb.Utils (sshow)
-import           Miner.Types (ss)
+import           Miner.Types (tlsSettings)
 import           Pact.ApiReq
 import qualified Pact.Types.Command as P (CommandResult(..), PactResult(..))
 import           Pact.Types.Exp (Literal(..))
 import           Pact.Types.PactValue (PactValue(..))
 
 getBalances :: BaseUrl -> Text -> IO ()
 getBalances url mi = do
-    balanceStmts <- newManager (mkManagerSettings ss Nothing) >>= go . cenv
+    balanceStmts <- newManager (mkManagerSettings tlsSettings Nothing) >>= go . cenv
     case balanceStmts of
       These errors balances -> do
         printf "-- Retrieved Balances -- \n"

exec/Miner/Types.hs

@@ -16,7 +16,7 @@ module Miner.Types
   , GPUEnv(..)
   , OtherCommand(..)
     -- * miscellaneous
-  , ss
+  , tlsSettings
   ) where
 
 import           Chainweb.Utils (textOption)
@@ -181,5 +181,5 @@ balancesOpts = Balance <$> pUrl <*> pMinerName
 -- | This allows this code to accept the self-signed certificates from
 -- `chainweb-node`.
 --
-ss :: TLSSettings
-ss = TLSSettingsSimple True True True
+tlsSettings :: TLSSettings
+tlsSettings = TLSSettingsSimple True True True