{- | Get fee structure and 30-day volume (as of midnight) for a currency pair

@Perm_R_Orders@ permission required.
-}

getFeeInfo :: BitXAuth -> CcyPair -> IO (BitXAPIResponse FeeInfo)
getFeeInfo auth cpair = simpleBitXGetAuth_ auth ("fee_info?pair=" <> Txt.pack (show cpair))
getFeeInfo :: BitXAuth -> CcyPair -> IO (BitXAPIResponse FeeInfo)
getFeeInfo auth cpair = simpleBitXGetAuth_ auth ("fee_info?pair=" <> Txt.pack (show cpair))
getFeeInfo auth cpair = simpleBitXGetAuth_ auth ("fee_info?pair=" <> Txt.pack (show cpair))