type HttpResponse<'a, 'b> =
// CreatePostRequest -> Async<Result<PostId, exn>>
let createPost (req : CreatePostRequest) = async {
let handler (httpReq : HttpRequest) =
// Async<Result<PostId, exn>>
let createPostAR = createPost httpReq
|> AsyncResult.fold Ok InternalError