BlogRouter.fs

let Router : Router<Action> =
    let route = function
        | GET (_, SPLIT_BY '/' []) ->
            Some ShowRecentBlogs
        | GET (_, SPLIT_BY '/' ["create"]) ->
            Some CreateBlog
        | GET (_, SPLIT_BY '/' ["read"; INT id]) ->
            Some (ReadBlog id)
        | GET (_, SPLIT_BY '/' ["update"; INT id]) ->
            Some (UpdateBlog id)
        | GET (_, SPLIT_BY '/' ["delete"; INT id]) ->
            Some (DeleteBlog id)
        | _ ->
            None
    let link x =
        let uri =
            match x with
            | ShowRecentBlogs   -> "/"
            | CreateBlog        -> "/create"
            | ReadBlog x        -> sprintf "/read/%i" x
            | UpdateBlog x      -> sprintf "/update/%i" x
            | DeleteBlog x      -> sprintf "/delete/%i" x
        Some (Uri(uri, UriKind.Relative))
    Router.New route link