1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

open IntelliFactory.WebSharper.Sitelets
open IntelliFactory.WebSharper.Sitelets.UrlHelpers

type Action =
    | GetComment of id: int
    | PostComment of id: int * username: string * content: string

// This sitelet handles the url "/comments/1234" with GET and POST methods.
let MyRestSitelet =
    {
        Router =
            let route req =
                match req with
                | GET (query, SPLIT_BY '/' ["comments"; INT i]) ->
                    Some (GetComment i)
                | POST (query, SPLIT_BY '/' ["comments"; INT i]) ->
                    let query = Map.ofList query
                    Some (PostComment (i, query.["username"], query.["content"]))
                | _ -> None
            let link _ = None // You're probably not going to use context.Link to point to your API
            Router.New route link
        Controller =
            { Handle = function
                | GetComment id -> Content.NotFound // Handle this...
                | PostComment (id, username, content) -> Content.NotFound // Handle this...
            }
    }