diff --git a/web/src/Within/DBMemorial/Post.hs b/web/src/Within/DBMemorial/Post.hs index 25cfb23..b9e55dd 100644 --- a/web/src/Within/DBMemorial/Post.hs +++ b/web/src/Within/DBMemorial/Post.hs @@ -6,14 +6,14 @@ import Data.Monoid() import Data.Text import Database.SQLite.Simple.FromRow -data Post = Post { - postID :: Int - , postOID :: Text - , postBody :: Text - , postMarkdown :: Text - , postAuthor :: Text - , postPage :: Int -} deriving (Show, Eq) +data Post = Post + { postID :: Int + , postOID :: Text + , postBody :: Text + , postMarkdown :: Text + , postAuthor :: Text + , postPage :: Int + } deriving (Show, Eq) instance FromRow Post where fromRow = Post <$> field <*> field <*> field <*> field <*> field <*> field