make post an entity

3v0k4 · Jul 20, 2019 · 5253688 · 5253688
1 parent fb55bd9
commit 5253688
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 4 deletions.
diff --git a/config/models.persistentmodels b/config/models.persistentmodels
@@ -16,3 +16,6 @@ Comment json -- Adding "json" causes ToJSON and FromJSON instances to be derived
     userId UserId Maybe
     deriving Eq
     deriving Show
+Post
+    title Text
+    text Textarea
diff --git a/src/Handler/Posts.hs b/src/Handler/Posts.hs
@@ -9,10 +9,6 @@ module Handler.Posts where
 
 import Import
 
-data Post =
-  Post { title :: Text, text :: Textarea }
-  deriving Show
-
 postForm :: Form Post
 postForm =
   renderDivs $