Updated Http.fs file from F# Applied to work with current version of Http.fs

Http.fs

module Http

open HttpFs.Client
open Hopac
open FSharp.Control.Reactive

type HttpResponse =
| Ok of string
| Error of int


let getResponseAsync url =
    let request =
        url
        |> Request.createUrl Get
        |> Request.setHeader (UserAgent "FsharpRx")

    job {
        let! response =
            request |> getResponse

        let! httpResponse =
          // https://github.com/haf/Http.fs/blob/1222c62e24165cd6611a33e4fefb0dbe59b734f5/HttpFs.SamplePostApplication/Program.fs
          match response.statusCode with
          | 200 ->
                Response.readBodyAsString response
                |> Job.map Ok

          | _ ->
                response.statusCode
                |> Error
                |> Job.result

        return httpResponse
    }

let asyncResponseToObservable = getResponseAsync >> Job.toAsync >> Observable.ofAsync