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

Materialize.base -> render

This commit is contained in:
Christine Dodrill 2015-07-29 15:29:54 -07:00
parent bf5d7a8f8c
commit 1f6f5fc809
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
web/src/Main.hs
View File

@ -37,10 +37,10 @@ main = do
S.middleware $ RequestLogger.logStdout S.middleware $ RequestLogger.logStdout
S.get S.root $ S.get S.root $
S.html $ toStrict (renderMarkup (Materialize.base "The OP" (Post.render h (User.render user)))) S.html $ toStrict (renderMarkup (Materialize.render "The OP" (Post.render h (User.render user))))
S.get "user" $ S.get "user" $
S.html $ toStrict (renderMarkup (Materialize.base "The first poster" (User.render user))) S.html $ toStrict (renderMarkup (Materialize.render "The first poster" (User.render user)))
S.get ("page" <//> S.var) $ \(id_ :: Int) -> do S.get ("page" <//> S.var) $ \(id_ :: Int) -> do
posts <- liftIO $ posts <- liftIO $
@ -50,4 +50,4 @@ main = do
let title = "Thread page " ++ (show id_) let title = "Thread page " ++ (show id_)
page = Thread.render id_ posts userMap page = Thread.render id_ posts userMap
S.html $ toStrict (renderMarkup (Materialize.base (Text.pack title) page)) S.html $ toStrict (renderMarkup (Materialize.render (Text.pack title) page))

4
web/src/Within/DBMemorial/Views/Materialize.hs
View File

@ -9,8 +9,8 @@ import Text.Blaze.Html
import Text.Blaze.Html5 as H import Text.Blaze.Html5 as H
import Text.Blaze.Html5.Attributes as A import Text.Blaze.Html5.Attributes as A
base :: Text -> Html -> Html render :: Text -> Html -> Html
base pageTitle inner = render pageTitle inner =
docTypeHtml ! lang "en" $ do docTypeHtml ! lang "en" $ do
H.head $ do H.head $ do
H.title $ toHtml pageTitle H.title $ toHtml pageTitle