Test

HelloWithDataContract

namespace Test.ServiceModel

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

    [<DataContract>]
    [<AllowNullLiteral>]
    type HelloWithDataContract() = 
        [<DataMember(Name="name", Order=1, IsRequired=true, EmitDefaultValue=false)>]
        member val Name:String = null with get,set

        [<DataMember(Name="id", Order=2, EmitDefaultValue=false)>]
        member val Id:Int32 = new Int32() with get,set

    [<DataContract>]
    [<AllowNullLiteral>]
    type HelloWithDataContractResponse() = 
        [<DataMember(Name="result", Order=1, IsRequired=true, EmitDefaultValue=false)>]
        member val Result:String = null with get,set

F# HelloWithDataContract DTOs

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

To embed the response in a jsonp callback, append ?callback=myCallback

HTTP + JSON

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

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

{"name":"String"}

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

{"result":"String"}