// CreatePostRequestDto -> Result<CreatePostRequest, string>
let toCreatePostRequest (dto : CreatePostRequestDto) =
// Result<Location option, string>
let locationR = resultOption {
|> Option.traverseResult Latitude.TryCreate
|> Option.traverseResult Longitude.TryCreate
let tweetR = Tweet.TryCreate dto.Tweet
// Result<CreatePostRequest, string>
Result.map2 createPostRequest2 tweetR locationR