http.fs

let defaultRouter = router {
    post "/newwish" (fun next (ctx: HttpContext) -> task {
        let! message = ctx.ReadBodyFromRequestAsync()

        let wish = {
            OriginalMessage = message
        }
        let data = Newtonsoft.Json.JsonConvert.SerializeObject wish
        let message = ServiceBusMessage data
        do! serviceBusSender.Force().SendMessageAsync message

        return! Response.ok ctx ""
    })
}