diff options
| author | Cadey Dodrill <me@christine.website> | 2016-12-17 06:15:29 -0800 |
|---|---|---|
| committer | Cadey Dodrill <me@christine.website> | 2016-12-17 06:15:29 -0800 |
| commit | dee2a2605cb2df6bd638d5ab5b4a2dc304574907 (patch) | |
| tree | c7c2a33c97f2453e1d3fe6dd1daaabc14c505e3c /frontend/src/BlogEntry.purs | |
| parent | 0dd6f1c40bbb8aabbc9a4af49692e7c5613d4e45 (diff) | |
| download | xesite-dee2a2605cb2df6bd638d5ab5b4a2dc304574907.tar.xz xesite-dee2a2605cb2df6bd638d5ab5b4a2dc304574907.zip | |
document titles
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 ] ] ] |