Н
Size: a a a
Н
MB
((
MB
((
MB
OR
NA
MB
((
let add ownerName text = asyncResult {
let! id = IdGenerator.generate() |> FeedbackId.Create
let! ownerName = ownerName |> FeedbackOwnerName.Create
let! text = text |> FeedbackText.Create
let! feedback = FeedbackDomain.create id ownerName text DateTime.UtcNow
let! feedbackRead = feedback |> Mapper.Domain.Feedback.toRead
do! FeedbackRepo.add feedbackRead
return feedbackRead
}
(f/ok-> (load) (validate-request-status) (pull-request-body))
Н
((
Н
let add ownerName text = asyncResult {
let! id = IdGenerator.generate() |> FeedbackId.Create
let! ownerName = ownerName |> FeedbackOwnerName.Create
let! text = text |> FeedbackText.Create
let! feedback = FeedbackDomain.create id ownerName text DateTime.UtcNow
let! feedbackRead = feedback |> Mapper.Domain.Feedback.toRead
do! FeedbackRepo.add feedbackRead
return feedbackRead
}
(f/ok-> (load) (validate-request-status) (pull-request-body))
((
Н
ch
((
((
Н
((