Browse Source

Fix titles

master
Gil Mizrahi 4 months ago
parent
commit
dd265ce071
4 changed files with 4 additions and 4 deletions
  1. +1
    -1
      hablog.cabal
  2. +1
    -1
      src/Web/Hablog/Html.hs
  3. +1
    -1
      src/Web/Hablog/Present.hs
  4. +1
    -1
      src/Web/Hablog/Run.hs

+ 1
- 1
hablog.cabal View File

@@ -1,5 +1,5 @@
Name: hablog
Version: 0.8.0
Version: 0.8.1
Synopsis: A blog system
Description: blog system with tags
License: MIT


+ 1
- 1
src/Web/Hablog/Html.hs View File

@@ -21,7 +21,7 @@ template cfg preview highlight title' pageRoute container = do
title = T.concat [blogTitle cfg, " - ", title']
H.docTypeHtml $ do
H.head $ do
H.title (H.toHtml (T.concat [blogTitle cfg, " - ", title]))
H.title (H.toHtml title)
H.meta ! A.charset "utf-8"
H.meta ! A.content "width=650" ! A.name "viewport"
addPreview (preview { Post.previewTitle = Just title })


+ 1
- 1
src/Web/Hablog/Present.hs View File

@@ -128,7 +128,7 @@ showOrNotFound showP result = do
cfg <- getCfg
case result of
(p:_) -> html $ HR.renderHtml $ showP cfg p
[] -> html $ HR.renderHtml $ errorPage cfg "Hablog - 404: not found" "Could not find the page you were looking for."
[] -> html $ HR.renderHtml $ errorPage cfg "404: not found" "Could not find the page you were looking for."

presentTags :: HablogAction ()
presentTags = do


+ 1
- 1
src/Web/Hablog/Run.hs View File

@@ -67,7 +67,7 @@ router domain = do

notFound $ do
cfg <- getCfg
html $ HR.renderHtml $ errorPage cfg (blogTitle cfg `TL.append` " - 404: not found") "404 - Could not find the page you were looking for."
html $ HR.renderHtml $ errorPage cfg "404: not found" "404 - Could not find the page you were looking for."

where
hasdots [] = False


Loading…
Cancel
Save