part 5 markdown rendering

Author: mo-sqrd

Application/Migration/1760934194.sql

@@ -0,0 +1,2 @@
+ALTER TABLE posts ADD COLUMN created_at TIMESTAMP WITH TIME ZONE DEFAULT now() NOT NULL;
+CREATE INDEX posts_created_at_index ON posts (created_at);

Application/Schema.sql

@@ -2,5 +2,7 @@
 CREATE TABLE posts (
     id UUID DEFAULT uuid_generate_v4() PRIMARY KEY NOT NULL,
     title TEXT NOT NULL,
-    body TEXT NOT NULL
+    body TEXT NOT NULL,
+    created_at TIMESTAMP WITH TIME ZONE DEFAULT NOW() NOT NULL
 );
+CREATE INDEX posts_created_at_index ON posts (created_at);

Web/Controller/Posts.hs

@@ -8,7 +8,9 @@ import Web.View.Posts.Show
 
 instance Controller PostsController where
     action PostsAction = do
-        posts <- query @Post |> fetch
+        posts <- query @Post
+            |> orderByDesc #createdAt
+            |> fetch
         render IndexView { .. }
 
     action NewPostAction = do
@@ -53,3 +55,4 @@ instance Controller PostsController where
 
 buildPost post = post
     |> fill @'["title", "body"]
+    |> validateField #title nonEmpty

Web/View/Posts/Index.hs

@@ -15,7 +15,6 @@ instance View IndexView where
                         <th>Post</th>
                         <th></th>
                         <th></th>
-                        <th></th>
                     </tr>
                 </thead>
                 <tbody>{forEach posts renderPost}</tbody>
@@ -31,8 +30,7 @@ instance View IndexView where
 renderPost :: Post -> Html
 renderPost post = [hsx|
     <tr>
-        <td>{post}</td>
-        <td><a href={ShowPostAction post.id}>Show</a></td>
+        <td><a href={ShowPostAction post.id}>{post.title}</a></td>
         <td><a href={EditPostAction post.id} class="text-muted">Edit</a></td>
         <td><a href={DeletePostAction post.id} class="js-delete text-muted">Delete</a></td>
     </tr>

Web/View/Posts/Show.hs

@@ -1,17 +1,22 @@
 module Web.View.Posts.Show where
 import Web.View.Prelude
+import qualified Text.MMark as MMark
+
 
 data ShowView = ShowView { post :: Post }
 
 instance View ShowView where
     html ShowView { .. } = [hsx|
         {breadcrumb}
-        <h1>Show Post</h1>
-        <p>{post}</p>
+        <h1>{post.title}</h1>
+        <p>{post.createdAt |> timeAgo}</p>
+        <div>{post.body |> renderMarkdown}</div>
+
 
     |]
         where
             breadcrumb = renderBreadcrumb
                             [ breadcrumbLink "Posts" PostsAction
                             , breadcrumbText "Show Post"
-                            ]
+                            ]
+

flake.nix

@@ -28,6 +28,7 @@
                         base
                         wai
                         text
+                        mmark
 
                         # Uncomment on local development for testing
                         # hspec