posts: create post in db

3v0k4 · Jul 20, 2019 · 1ec890d · 1ec890d
1 parent 7a0735f
commit 1ec890d
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Handler/Posts.hs b/src/Handler/Posts.hs
@@ -27,7 +27,8 @@ postPostsR = do
   ((result, widget), enctype) <- runFormPost postForm
   allPosts :: [Entity Post] <- runDB $ selectList [] []
   case result of
-    FormSuccess _ ->
+    FormSuccess post -> do
+      _ <- runDB $ insert post
       redirect PostsR
     _ ->
       emptyLayout $ do