diff options
| author | Vincent Ambo <v.ambo@me.com> | 2012-03-22T13·34+0100 |
|---|---|---|
| committer | Vincent Ambo <v.ambo@me.com> | 2012-03-22T13·34+0100 |
| commit | 6a8ffaf25a87905a9a6b15b26ffd1db03312d793 (patch) | |
| tree | 74d5d2246ba22d4f80d7e0da1786721a16796ed3 /src/Blog.hs | |
| parent | f6f066a93e7f62846b5bac5d469f4f4c6170c351 (diff) | |
* cleaned up res/ folder
* serving static/ content from res/ with 20 years expiration date * linen texture
Diffstat (limited to 'src/Blog.hs')
| -rw-r--r-- | src/Blog.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Blog.hs b/src/Blog.hs index 0e6ed519547b..7e719466a014 100644 --- a/src/Blog.hs +++ b/src/Blog.hs @@ -43,7 +43,7 @@ blogTemplate lang t_append body = H.docTypeHtml $ do --add body H.head $ do H.title $ (toHtml $ blogTitle lang t_append) H.link ! A.rel "alternate" ! A.type_ "application/rss+xml" ! A.title "RSS-Feed" ! A.href "/rss" - H.link ! A.rel "stylesheet" ! A.type_ "text/css" ! A.href "/res/blog.css" ! A.media "all" + H.link ! A.rel "stylesheet" ! A.type_ "text/css" ! A.href "/static/blogv31.css" ! A.media "all" H.meta ! A.httpEquiv "content-type" ! A.content "text/html;charset=UTF-8" --H.style ! A.type_ "text/css" ! A.title "iOS iMessage" ! A.media "screen and (max-device-width: 1024px)" $ "#cosx{display:none;}" preEscapedText analytics @@ -175,7 +175,7 @@ showSiteNotice = H.docTypeHtml $ do adminTemplate :: Text -> Html -> Html adminTemplate title body = H.docTypeHtml $ do H.head $ do - H.link ! A.rel "stylesheet" ! A.type_ "text/css" ! A.href "/res/admin.css" ! A.media "all" + H.link ! A.rel "stylesheet" ! A.type_ "text/css" ! A.href "/static/admin.css" ! A.media "all" H.meta ! A.httpEquiv "content-type" ! A.content "text/html;charset=UTF-8" H.title $ toHtml $ T.append "TazBlog Admin: " title H.body @@ -191,7 +191,7 @@ adminLogin = adminTemplate "Login" $ ! A.name "account" -- ! A.value "tazjin" ! A.readonly "1" H.p $ "Passwort" H.p $ H.input ! A.type_ "password" ! A.style "font-size: 2;" ! A.name "password" - H.p $ H.input ! A.alt "Anmelden" ! A.type_ "image" ! A.src "/res/signin.gif" + H.p $ H.input ! A.alt "Anmelden" ! A.type_ "image" ! A.src "/static/signin.gif" adminIndex :: Text -> Html adminIndex sUser = adminTemplate "Index" $ |