diff --git a/src/Web/Page/Blaze.hs b/src/Web/Page/Blaze.hs
--- a/src/Web/Page/Blaze.hs
+++ b/src/Web/Page/Blaze.hs
@@ -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)
diff --git a/src/Web/Page/Hastache.hs b/src/Web/Page/Hastache.hs
--- a/src/Web/Page/Hastache.hs
+++ b/src/Web/Page/Hastache.hs
@@ -24,7 +24,7 @@
, initScripts page
, "" <> (LT.fromStrict $ pageTitle page) <> ""
, metaVars page
- , " (LT.fromStrict $ favicon page) <> "\">"
+ , favicon page
, beforeStylesScripts page
, styles page
, afterStylesScripts page
diff --git a/src/Web/Page/Lucid.hs b/src/Web/Page/Lucid.hs
--- a/src/Web/Page/Lucid.hs
+++ b/src/Web/Page/Lucid.hs
@@ -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
diff --git a/src/Web/Page/Types.hs b/src/Web/Page/Types.hs
--- a/src/Web/Page/Types.hs
+++ b/src/Web/Page/Types.hs
@@ -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 -- ^ @\@ tags
, initScripts :: markup -- ^ JavaScript to include at the top of the page
, beforeStylesScripts :: markup -- ^ JavaScript to include before @\@ tags
diff --git a/webpage.cabal b/webpage.cabal
--- a/webpage.cabal
+++ b/webpage.cabal
@@ -1,5 +1,5 @@
Name: webpage
-Version: 0.0.2
+Version: 0.0.3
Author: Athan Clark
Maintainer: Athan Clark
License: MIT
@@ -33,8 +33,8 @@
>
> λ> template page "some content"
>
- > ↪ "foo rel=\"icon\">some content"
.
Cabal-Version: >= 1.10