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

Add unix epoch

Browse Source
This commit is contained in:
Rawley Fowler
2022-09-07 12:22:27 -06:00
committed by GitHub
parent 5592adcaee
commit 449c1f7129
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
db/database.ml
View File

@@ -28,7 +28,8 @@ module Q = struct
title text NOT NULL, title text NOT NULL,
content text NOT NULL, content text NOT NULL,
date text NOT NULL, date text NOT NULL,
active TINYINT DEFAULT 1) active TINYINT DEFAULT 1,
hidden_date INT GENERATED ALWAYS AS unixepoch('now')
|eos} |eos}
let create_blog_post = let create_blog_post =
@@ -37,7 +38,7 @@ module Q = struct
let get_all_blog_posts = let get_all_blog_posts =
unit ->* blog_post @@ unit ->* blog_post @@
"SELECT slug, title, content, date FROM blog_post WHERE active = 1" "SELECT slug, title, content, date FROM blog_post WHERE active = 1 ORDER BY hidden_date DESC"
let get_all_blog_posts_for_display = let get_all_blog_posts_for_display =
unit ->* tup2 string string @@ unit ->* tup2 string string @@