F# FubuMVC Endpoints Hypothetical

CustomerEndpoints.fs

module CustomerEndpoints

let ``GET /customers/list`` (repository: ICustomerRepository) =
    repository.List
        |> Seq.map customerToViewRecord

type GetCustomerInput = {Id: int;}

let ``GET /customers/{Id}`` (repository: ICustomerRepository) (input: GetCustomerInput) =
	repository.Get input.Id |> customerToViewRecord

type EditCustomerInput = {Id: int; FirstName: string; LastName: string;}

let ``POST /customers/{Id}/edit`` (repository: ICustomerRepository) (input: EditCustomerInput) =
    input |> toCustomer |> repository.Save |> ignore