ivan/site
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

template blog index

Browse Source
This commit is contained in:
Rawley Fowler
2022-10-12 16:58:44 -06:00
parent 610da9079e
commit 07dd08698c
6 changed files with 32 additions and 48 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
db/database.ml
View File

@@ -1,6 +1,6 @@
open Lwt
module BlogPost = struct
module Blog_post = struct
type t = {
slug : string;
title : string;
@@ -14,7 +14,7 @@ module Q = struct
open Caqti_type.Std
let blog_post =
let open BlogPost in
let open Blog_post in
let encode {slug; title; content; date} = Ok (slug, title, content, date) in
let decode (slug, title, content, date) = Ok {slug; title; content; date} in
let b_rep = Caqti_type.(tup4 string string string string) in

35
db/database.mli
View File

@@ -1,4 +1,4 @@
module BlogPost :
module Blog_post :
sig
type t = {
slug : string;
@@ -8,33 +8,6 @@ module BlogPost :
}
end
module Q :
sig
val blog_post : BlogPost.t Caqti_type.t
val create_blog_post_table : (unit, unit, [ `Zero ]) Caqti_request.t
val create_blog_post :
(string * string * string * string, unit, [ `Zero ]) Caqti_request.t
val get_all_blog_posts :
(unit, BlogPost.t, [ `Many | `One | `Zero ]) Caqti_request.t
val get_all_blog_posts_for_display :
(unit, string * string, [ `Many | `One | `Zero ]) Caqti_request.t
val get_blog_post_by_slug :
(string, BlogPost.t, [ `One | `Zero ]) Caqti_request.t
val update_blog_post_content :
(string * string, unit, [ `Zero ]) Caqti_request.t
val update_blog_post_title :
(string * string, unit, [ `Zero ]) Caqti_request.t
val delete_blog_post : (string, unit, [ `Zero ]) Caqti_request.t
end
module Db : Caqti_lwt.CONNECTION
val create_blog_post_table :
@@ -56,14 +29,14 @@ val update_blog_post_title :
val get_blog_post_by_slug :
string ->
(BlogPost.t option, [> Caqti_error.call_or_retrieve ]) Stdlib.result Lwt.t
(Blog_post.t option, [> Caqti_error.call_or_retrieve ]) Stdlib.result Lwt.t
val get_all_blog_posts :
unit ->
(BlogPost.t list, [> Caqti_error.call_or_retrieve ]) Stdlib.result Lwt.t
(Blog_post.t list, [> Caqti_error.call_or_retrieve ]) Stdlib.result Lwt.t
val iter_blog_posts :
(BlogPost.t ->
(Blog_post.t ->
(unit, [> Caqti_error.call_or_retrieve ] as 'a) Stdlib.result Lwt.t) ->
(unit, 'a) Stdlib.result Lwt.t