cadey
/
time-wasting-thread-memorial
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Post: align record better

This commit is contained in:
Christine Dodrill 2015-07-27 23:47:39 -07:00
parent 4221aca52e
commit 32acbcedda
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
web/src/Within/DBMemorial/Post.hs
View File

@ -6,14 +6,14 @@ import Data.Monoid()
import Data.Text import Data.Text
import Database.SQLite.Simple.FromRow import Database.SQLite.Simple.FromRow
data Post = Post { data Post = Post
postID :: Int { postID :: Int
, postOID :: Text , postOID :: Text
, postBody :: Text , postBody :: Text
, postMarkdown :: Text , postMarkdown :: Text
, postAuthor :: Text , postAuthor :: Text
, postPage :: Int , postPage :: Int
} deriving (Show, Eq) } deriving (Show, Eq)
instance FromRow Post where instance FromRow Post where
fromRow = Post <$> field <*> field <*> field <*> field <*> field <*> field fromRow = Post <$> field <*> field <*> field <*> field <*> field <*> field