diff options
author | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-01-18 13:29:42 +0100 |
---|---|---|
committer | Jasper Van der Jeugt <jaspervdj@gmail.com> | 2011-01-18 13:29:42 +0100 |
commit | 0bbc01f0128f0c9e0a217f1d33f876ab03d29905 (patch) | |
tree | 6fed4e40ba3928149f193d0cd3664b99f72e63ac /src/Hakyll/Web/Page.hs | |
parent | 821dd38c138e33194105162f7ad4140c9c46fcf2 (diff) | |
download | hakyll-0bbc01f0128f0c9e0a217f1d33f876ab03d29905.tar.gz |
Backports feeds
Diffstat (limited to 'src/Hakyll/Web/Page.hs')
-rw-r--r-- | src/Hakyll/Web/Page.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/Hakyll/Web/Page.hs b/src/Hakyll/Web/Page.hs index 35a58ff..a7c237a 100644 --- a/src/Hakyll/Web/Page.hs +++ b/src/Hakyll/Web/Page.hs @@ -5,6 +5,7 @@ {-# LANGUAGE DeriveDataTypeable #-} module Hakyll.Web.Page ( Page (..) + , fromBody , toMap , pageRead , addDefaultFields @@ -24,6 +25,11 @@ import Hakyll.Web.Page.Read import Hakyll.Web.Page.Metadata import Hakyll.Web.Util.String +-- | Create a page from a body, without metadata +-- +fromBody :: a -> Page a +fromBody = Page M.empty + -- | Convert a page to a map. The body will be placed in the @body@ key. -- toMap :: Page String -> Map String String |