Post: align record better
This commit is contained in:
parent
4221aca52e
commit
32acbcedda
|
@ -6,14 +6,14 @@ import Data.Monoid()
|
|||
import Data.Text
|
||||
import Database.SQLite.Simple.FromRow
|
||||
|
||||
data Post = Post {
|
||||
postID :: Int
|
||||
data Post = Post
|
||||
{ postID :: Int
|
||||
, postOID :: Text
|
||||
, postBody :: Text
|
||||
, postMarkdown :: Text
|
||||
, postAuthor :: Text
|
||||
, postPage :: Int
|
||||
} deriving (Show, Eq)
|
||||
} deriving (Show, Eq)
|
||||
|
||||
instance FromRow Post where
|
||||
fromRow = Post <$> field <*> field <*> field <*> field <*> field <*> field
|
||||
|
|
Loading…
Reference in New Issue