webpage 0.0.2 → 0.0.3
raw patch · 5 files changed
+7/−9 lines, 5 files
Files
- src/Web/Page/Blaze.hs +1/−1
- src/Web/Page/Hastache.hs +1/−1
- src/Web/Page/Lucid.hs +1/−3
- src/Web/Page/Types.hs +1/−1
- webpage.cabal +3/−3
src/Web/Page/Blaze.hs view
@@ -21,7 +21,7 @@ initScripts page (H.title $ H.toHtml $ pageTitle page) metaVars page- H.link H.! (A.rel "icon") H.! (A.href $ H.toValue (favicon page))+ favicon page beforeStylesScripts page styles page afterStylesScripts page)
src/Web/Page/Hastache.hs view
@@ -24,7 +24,7 @@ , initScripts page , "<title>" <> (LT.fromStrict $ pageTitle page) <> "</title>" , metaVars page- , "<link rel=\"icon\" href=\"" <> (LT.fromStrict $ favicon page) <> "\">"+ , favicon page , beforeStylesScripts page , styles page , afterStylesScripts page
src/Web/Page/Lucid.hs view
@@ -25,9 +25,7 @@ [ initScripts page , title_ $ toHtmlRaw $ pageTitle page , metaVars page- , link_ [ rel_ "icon"- , href_ $ favicon page- ]+ , favicon page , beforeStylesScripts page , styles page , afterStylesScripts page
src/Web/Page/Types.hs view
@@ -14,7 +14,7 @@ -- @ page' = page \{pageTitle = "foo!"\}@ -- data WebPage markup attr = WebPage { pageTitle :: attr -- ^ Page title- , favicon :: attr -- ^ Favicon url+ , favicon :: markup -- ^ Favicon tags , metaVars :: markup -- ^ @\<meta\>@ tags , initScripts :: markup -- ^ JavaScript to include at the top of the page , beforeStylesScripts :: markup -- ^ JavaScript to include before @\<style\>@ tags
webpage.cabal view
@@ -1,5 +1,5 @@ Name: webpage-Version: 0.0.2+Version: 0.0.3 Author: Athan Clark <athan.clark@gmail.com> Maintainer: Athan Clark <athan.clark@gmail.com> License: MIT@@ -33,8 +33,8 @@ > > λ> template page "some content" >- > ↪ "<!DOCTYPE HTML><html><head><title>foo</title><link href- > rel=\"icon\"></head><body>some content<script+ > ↪ "<!DOCTYPE HTML><html><head><title>foo</title>+ > </head><body>some content<script > src=\"jquery.js\"></script></body></html>" . Cabal-Version: >= 1.10