EndpointWithMiniMediaType.fs

type MiniColour = {
    Id   : string
    Name : string
    Hex  : string
}

type MiniMyColoursDto = { Colours : MiniColour list }

let toMiniColour (c : Colour) = { MiniColour.Id = c.Id; Name = c.Name; Hex = c.Hex }

let getMyColours: HttpHandler =
    fun next ctx ->
        match ctx.TryGetRequestHeader "Accept" with
        | Some x when x.Contains "application/vnd.chamook.mini-colours+json" ->
            Successful.OK
                { MiniMyColoursDto.Colours = myColours |> List.map toMiniColour }
                next
                ctx
        | _ ->
            Successful.OK
                { MyColoursDto.Colours = myColours }
                next
                ctx