diff options
Diffstat (limited to 'frontend/src/BlogEntry.purs')
| -rw-r--r-- | frontend/src/BlogEntry.purs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/frontend/src/BlogEntry.purs b/frontend/src/BlogEntry.purs index 360b962..f64f127 100644 --- a/frontend/src/BlogEntry.purs +++ b/frontend/src/BlogEntry.purs @@ -10,7 +10,8 @@ import Network.HTTP.Affjax (AJAX, get) import Prelude (bind, pure, show, ($), (<>), (<<<)) import Pux (EffModel, noEffects) import Pux.Html (Html, div, h1, p, text) -import Pux.Html.Attributes (className, id_) +import Pux.Html.Attributes (className, id_, title) +import Pux.DocumentTitle (documentTitle) data Action = RequestPost | ReceivePost (Either String Post) @@ -73,6 +74,7 @@ view { id: id, status: status, post: (Post post) } = (Just _) -> div [ className "row" ] [ h1 [] [ text status ] + , documentTitle [ title $ post.title <> " - Christine Dodrill" ] [] , div [ className "col s8 offset-s2" ] [ p [ id_ "blogpost" ] [ text post.body ] ] ] |