|
By:
let placeBet (marketId, selectionId) side size price = async {
let! result = betfairServiceProvider.BettingOperations.PlaceOrder(marketId, selectionId, side, size, price) if result.IsSuccessResult then let placeExecutionReport = result.SuccessResult printfn "Bet ID: %s" placeExecutionReport.instructionReports.[0].betId else printfn "%s" result.FailureMessage } let cancelBet marketId betId = async { let instructions = [| { betId = betId; sizeReduction = Nullable() } |] let! result = betfairServiceProvider.BettingOperations.CancelOrders(marketId, instructions) if result.IsSuccessResult then result.SuccessResult.instructionReports |> Seq.iter (fun instructionReport -> printfn "Cancelled Bet ID: %s" instructionReport.instruction.betId) else printfn "%s" result.FailureMessage } |