Skip to content
Permalink
Browse files

make post an entity

  • Loading branch information...
3v0k4 committed Jul 20, 2019
1 parent fb55bd9 commit 525368882062eeeb1717e7112c74b25214fdf736
Showing with 3 additions and 4 deletions.
  1. +3 −0 config/models.persistentmodels
  2. +0 −4 src/Handler/Posts.hs
@@ -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
@@ -9,10 +9,6 @@ module Handler.Posts where

import Import

data Post =
Post { title :: Text, text :: Textarea }
deriving Show

postForm :: Form Post
postForm =
renderDivs $

0 comments on commit 5253688

Please sign in to comment.
You can’t perform that action at this time.