coinbase-pro 0.7.0.0 → 0.7.1.0

raw patch · 3 files changed

+17/−20 lines, 3 files

Files

• changelog.md +3/−0
• coinbase-pro.cabal +2/−2
• src/example/request/Main.hs +12/−18

@@ -1,3 +1,6 @@+# Version 0.7.1.0+ - Fixed broken examples+ # Version 0.7.0.0  - Unauthenticated requests are now all in the `ClientM` monad. `CoinbasePro.Request.run` is now required    to operate in the IO monad.

@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: 1ab32e4b55d042111e39fa8c604bf0b9bfeae0e5462638e322911b1ae0a0b59a+-- hash: 1b0e7a2a88033345218e186ffcb056ef043bd04fc8557f5aadb11e0ef9805efb  name:           coinbase-pro-version:        0.7.0.0+version:        0.7.1.0 synopsis:       Client for Coinbase Pro description:    Client for Coinbase Pro REST and Websocket APIs category:       Web, Finance

@@ -18,7 +18,6 @@ main :: IO () main = do     run (stats btcusd) >>= print-    run (stats btcusd) >>= print     run (candles btcusd Nothing Nothing Minute) >>= print     run (trades btcusd) >>= print     run time >>= print@@ -26,23 +25,18 @@     run (aggregateOrderBook btcusd (Just Best)) >>= print     run (aggregateOrderBook btcusd (Just TopFifty)) >>= print     run (fullOrderBook btcusd) >>= print-    run_ $ do-        currencies-        products-    -- runCbAuthT cpc $ do-        -- accounts >>= liftIO . print-        -- fees >>= liftIO . print-        -- trailingVolume >>= liftIO . print-        -- account aid >>= liftIO . print-        -- fills (Just btcusd) Nothing >>= liftIO . print-        -- listOrders (Just [All]) (Just btcusd) >>= liftIO . print-        -- placeOrder btcusd Sell (Size 0.001) (Price 99999.00) True Nothing Nothing Nothing >>= liftIO . print-        -- placeOrder btcusd Buy (Size 1.0) (Price 1.00) True Nothing Nothing Nothing >>= liftIO . print-        -- cancelAll (Just btcusd) >>= liftIO . print+    runCbAuthT cpc $ do+        accounts >>= liftIO . print+        account aid >>= liftIO . print+        fills (Just btcusd) Nothing >>= liftIO . print+        listOrders (Just [All]) (Just btcusd) >>= liftIO . print+        placeOrder btcusd Sell (Size 0.001) (Price 99999.00) True Nothing Nothing Nothing >>= liftIO . print+        placeOrder btcusd Buy (Size 1.0) (Price 1.00) True Nothing Nothing Nothing >>= liftIO . print+        cancelAll (Just btcusd) >>= liftIO . print   where-    accessKey  = CBAccessKey "315dd0794fd50876e0c3235e79fb7a92"-    secretKey  = CBSecretKey "M37/sDmlZtI+Qxm9ODr6RNWzfoW+4w/fyyx5x8LxSRg8keHjt8Aepr+RmlprYzUaOQoi/ZHsYu0bNGiMUDl35g=="-    passphrase = CBAccessPassphrase "test123"+    accessKey  = CBAccessKey "accesskey"+    secretKey  = CBSecretKey "secretkey"+    passphrase = CBAccessPassphrase "passphrase"     cpc        = CoinbaseProCredentials accessKey secretKey passphrase-    accountId  = AccountId "e4a37481-12e7-4564-b073-90627d202c2a"+    aid        = AccountId "accountid"     btcusd     = ProductId "BTC-USD"