BlogController.fs

let Controller =
    let handle = function
        | ShowRecentBlogs ->
            let blogs = Model.WithBlogs <| fun db -> db.GetRecentBlogs()
            View.ShowRecentBlogs blogs
        | CreateBlog ->
            View.CreateBlog ()
        | ReadBlog id ->
            let blog = Model.WithBlogs <| fun db -> db.ReadBlog id
            match blog with
            | Some blog ->
                View.ReadBlog blog
            | None ->
                Content.NotFound
        | UpdateBlog id ->
            let blog = Model.WithBlogs <| fun db -> db.ReadBlog id
            match blog with
            | None      -> Content.Redirect Action.CreateBlog
            | Some blog -> View.UpdateBlog blog
        | DeleteBlog id ->
            let blog = Model.WithBlogs <| fun db ->
                let blog = db.ReadBlog id
                if blog.IsSome then
                    db.DeleteBlog id
                    |> ignore
                blog
            match blog with
            | Some blog ->
                View.BlogDeleted blog
            | None ->
                Content.ServerError

    { Handle = handle }