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

Fix Post rendering, thanks andy

This commit is contained in:
Christine Dodrill 2015-07-28 10:06:09 -07:00
parent 99567b586b
commit b663980b4b
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -23,13 +23,14 @@ instance FromRow Post where
fromRow = Post <$> field <*> field <*> field <*> field <*> field <*> field fromRow = Post <$> field <*> field <*> field <*> field <*> field <*> field
render :: Post -> H.Html render :: Post -> H.Html
render post = do render post =
let state = case readTextile def (unpack $ body post) of
Right v -> v
Left err -> error (show err)
in do
H.div ! A.class_ "card blue-grey darken-1" $ do H.div ! A.class_ "card blue-grey darken-1" $ do
H.div ! A.class_ "card-content white-text" $ do H.div ! A.class_ "card-content white-text" $ do
H.span ! A.class_ "card-title" $ H.toHtml $ unpack (author post) H.span ! A.class_ "card-title" $ H.toHtml $ unpack (author post)
state <- case readTextile def (unpack $ body post) of
Right v -> return v
Left err -> error (show err)
H.p $ writeHtml def state H.p $ writeHtml def state