diff options
| author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-02-11 17:52:19 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-02-11 17:52:19 +0100 |
| commit | 2b9858a8f9212219718625b7c5891bcb11cbaefb (patch) | |
| tree | a4c502a199a8ce9ffc51ef096f7f5848ae0f0093 /src/Hakyll/Web/Page.hs | |
| parent | fc6df44c2218f5c0265c978a02f9cb7fcf50562a (diff) | |
| download | hakyll-2b9858a8f9212219718625b7c5891bcb11cbaefb.tar.gz | |
Add Resource type for improved type-safety
Diffstat (limited to 'src/Hakyll/Web/Page.hs')
| -rw-r--r-- | src/Hakyll/Web/Page.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Hakyll/Web/Page.hs b/src/Hakyll/Web/Page.hs index 220ee29..03995cd 100644 --- a/src/Hakyll/Web/Page.hs +++ b/src/Hakyll/Web/Page.hs @@ -68,6 +68,7 @@ import Data.Ord (comparing) import Hakyll.Core.Identifier import Hakyll.Core.Compiler +import Hakyll.Core.ResourceProvider import Hakyll.Web.Page.Internal import Hakyll.Web.Page.Read import Hakyll.Web.Page.Metadata @@ -90,7 +91,7 @@ toMap (Page m b) = M.insert "body" b m -- | Read a page (do not render it) -- -pageRead :: Compiler a (Page String) +pageRead :: Compiler Resource (Page String) pageRead = getResourceString >>^ readPage -- | Add a number of default metadata fields to a page. These fields include: |