Test

HelloInnerTypes

namespace Test.ServiceModel

open System
open System.IO
open System.Collections
open System.Collections.Generic
open System.Runtime.Serialization
open ServiceStack
open ServiceStack.DataAnnotations

    [<AllowNullLiteral>]
    type InnerType() = 
        member val Id:Int64 = new Int64() with get,set
        member val Name:String = null with get,set

    type InnerEnum =
        | Foo = 0
        | Bar = 1
        | Baz = 2

    [<AllowNullLiteral>]
    type HelloInnerTypesResponse() = 
        member val InnerType:InnerType = null with get,set
        member val InnerEnum:InnerEnum = new InnerEnum() with get,set

    [<AllowNullLiteral>]
    type HelloInnerTypes() = 
        class end

F# HelloInnerTypes DTOs

To override the Content-type in your clients, use the HTTP Accept Header, append the .xml suffix or ?format=xml

HTTP + XML

The following are sample HTTP requests and responses. The placeholders shown need to be replaced with actual values.

POST /xml/reply/HelloInnerTypes HTTP/1.1 
Host: test.servicestack.net 
Accept: application/xml
Content-Type: application/xml
Content-Length: length

<HelloInnerTypes xmlns:i="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://schemas.datacontract.org/2004/07/Test.ServiceModel" />

HTTP/1.1 200 OK
Content-Type: application/xml
Content-Length: length

<HelloInnerTypesResponse xmlns:i="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://schemas.datacontract.org/2004/07/Test.ServiceModel">
  <InnerEnum>Foo</InnerEnum>
  <InnerType>
    <Id>0</Id>
    <Name>String</Name>
  </InnerType>
</HelloInnerTypesResponse>