gemini-exports 0.1.0.0 → 0.1.0.1

raw patch · 3 files changed

+15/−6 lines, 3 filesdep ~base64PVP ok

version bump matches the API change (PVP)

Dependency ranges changed: base64

API changes (from Hackage documentation)

Files

• CHANGELOG.md +8/−0
• gemini-exports.cabal +4/−4
• src/Web/Gemini.hs +3/−2

@@ -1,5 +1,13 @@ # CHANGELOG +## master+++## v0.1.0.1++* Bump `base64` requirement to v1.0.+* Documentation fixes.+ ## v0.1.0.0  * Initial release

@@ -1,18 +1,18 @@ cabal-version: 1.12 --- This file has been generated from package.yaml by hpack version 0.34.4.+-- This file has been generated from package.yaml by hpack version 0.36.0. -- -- see: https://github.com/sol/hpack  name:           gemini-exports-version:        0.1.0.0+version:        0.1.0.1 synopsis:       Generate CSV Exports of Your Gemini Trades, Transfers, & Earn Transactions description:    @gemini-exports@ is a CLI program that queries the Gemini Exchange's API                 for your Trade History, Transfer History, & Earn History and exports all                 fetched data to a CSV file.                 .                 You can install @gemini-exports@ with Stack: @stack install --resolver-                nightly gemii-exports@. Then run the following to print out your complete+                nightly gemini-exports@. Then run the following to print out your complete                 history:                 .                 @@@ -62,7 +62,7 @@   build-depends:       aeson <3     , base >=4.7 && <5-    , base64 <1+    , base64 ==1.*     , bytestring <1     , cassava <1     , cmdargs >=0.10 && <1

@@ -52,7 +52,8 @@                                                 , encode                                                 , withObject                                                 )-import           Data.ByteString.Base64         ( encodeBase64 )+import           Data.Base64.Types              ( extractBase64 )+import           Data.ByteString.Base64         ( encodeBase64' ) import           Data.Maybe                     ( fromMaybe                                                 , listToMaybe                                                 , mapMaybe@@ -354,7 +355,7 @@     -> m (JsonResponse response) protectedGeminiRequest method url body = do     cfg <- ask-    let payload   = encodeUtf8 . encodeBase64 . LBS.toStrict $ encode body+    let payload   = extractBase64 . encodeBase64' . LBS.toStrict $ encode body         signature = createSignature cfg payload     let authorizedOptions = mconcat             [ header "Content-Type"       "text/plain"