FParsec.FF.LiftCustomer.fs

let customer country name street city state postal = 
    { Country = country
      FullName = name
      Street = street
      State = state
      City = city
      PostalCode = postal }

let optApply fOpt xOpt =
    match fOpt, xOpt with
    | Some f, Some x -> f x |> Some
    | _, _ -> None    

let optCustomer country name street city state postal =
    let (<!>) = Option.map
    let (<*>) = optApply

    customer <!> country <*> name <*> street <*> city <*> state <*> postal

let pcustomer = pipe6 country fullname street city state postal optCustomer