bitx-bitcoin 0.7.0.1 → 0.7.0.2
raw patch · 5 files changed
+16/−5 lines, 5 files
Files
- CHANGES +3/−0
- bitx-bitcoin.cabal +2/−2
- src/Network/Bitcoin/BitX/Private/Order.hs +2/−2
- src/Network/Bitcoin/BitX/Types.hs +2/−1
- test/Network/Bitcoin/BitX/Spec/Specs/LensSpec.hs +7/−0
CHANGES view
@@ -1,3 +1,6 @@+v0.7.0.2+* Forgot to export "status" lens,+ v0.7.0.1 * Added new "completed_timestamp" field to private order types.
bitx-bitcoin.cabal view
@@ -1,5 +1,5 @@ name: bitx-bitcoin-version: 0.7.0.1+version: 0.7.0.2 synopsis: A Haskell library for working with the BitX bitcoin exchange. description:@@ -36,7 +36,7 @@ homepage: https://github.com/tebello-thejane/bitx-haskell -tested-with: GHC >=7.8.1 && <=7.10.2+tested-with: GHC >=7.8.1 && <=8.0.1 --------------------------------------------------------------------------------
src/Network/Bitcoin/BitX/Private/Order.hs view
@@ -47,9 +47,9 @@ -} getAllOrders :: BitXAuth -> Maybe CcyPair -> Maybe RequestStatus -> IO (BitXAPIResponse [PrivateOrder])-getAllOrders auth cpair status = simpleBitXGetAuth_ auth url+getAllOrders auth cpair stat = simpleBitXGetAuth_ auth url where- url = "listorders" ++ case (cpair, status) of+ url = "listorders" ++ case (cpair, stat) of (Nothing, Nothing) -> "" (Just pr, Nothing) -> "?pair=" ++ show pr (Nothing, Just st) -> "?state=" ++ show st
src/Network/Bitcoin/BitX/Types.hs view
@@ -125,7 +125,8 @@ HasDiscarded(..), HasExercised(..), HasName(..),- HasIsBuy(..)+ HasIsBuy(..),+ HasStatus(..) ) where import Data.Aeson (FromJSON(..))
test/Network/Bitcoin/BitX/Spec/Specs/LensSpec.hs view
@@ -185,3 +185,10 @@ let _ = x ^. BitX.orderType let _ = x ^. BitX.volume Nothing++_withdrawalRequest :: Maybe Int+_withdrawalRequest = do+ let x = BitX.WithdrawalRequest PENDING ""+ let _ = x ^. BitX.status+ let _ = x ^. BitX.id+ Nothing