From b663980b4b274d43fa5d8acdbb024e012906718b Mon Sep 17 00:00:00 2001 From: Christine Dodrill Date: Tue, 28 Jul 2015 10:06:09 -0700 Subject: [PATCH] Fix Post rendering, thanks andy --- web/src/Within/DBMemorial/Post.hs | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/web/src/Within/DBMemorial/Post.hs b/web/src/Within/DBMemorial/Post.hs index 2a95c09..6636f5e 100644 --- a/web/src/Within/DBMemorial/Post.hs +++ b/web/src/Within/DBMemorial/Post.hs @@ -23,13 +23,14 @@ instance FromRow Post where fromRow = Post <$> field <*> field <*> field <*> field <*> field <*> field render :: Post -> H.Html -render post = do - H.div ! A.class_ "card blue-grey darken-1" $ do - H.div ! A.class_ "card-content white-text" $ do - H.span ! A.class_ "card-title" $ H.toHtml $ unpack (author post) +render post = + let state = case readTextile def (unpack $ body post) of + Right v -> v + Left err -> error (show err) - state <- case readTextile def (unpack $ body post) of - Right v -> return v - Left err -> error (show err) + in do + H.div ! A.class_ "card blue-grey darken-1" $ do + H.div ! A.class_ "card-content white-text" $ do + H.span ! A.class_ "card-title" $ H.toHtml $ unpack (author post) - H.p $ writeHtml def state + H.p $ writeHtml def state