diff options
author | Eric Stolten <stoltene2@gmail.com> | 2013-08-20 22:03:04 -0400 |
---|---|---|
committer | Eric Stolten <stoltene2@gmail.com> | 2013-08-20 22:03:04 -0400 |
commit | fbc43b3a04583a3c23e30cb3382f32faacb39a4d (patch) | |
tree | a3fd214c0cdb7e7fa552b81284f667a4b2493043 /src/Hakyll/Web/Template/Context.hs | |
parent | f14f52040a5377dbca229ab34674542148a4868b (diff) | |
parent | 5679681ac15de8b3b7d1cc0db6745f6787141e23 (diff) | |
download | hakyll-fbc43b3a04583a3c23e30cb3382f32faacb39a4d.tar.gz |
Merge branch 'upstream-master'
Diffstat (limited to 'src/Hakyll/Web/Template/Context.hs')
-rw-r--r-- | src/Hakyll/Web/Template/Context.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Hakyll/Web/Template/Context.hs b/src/Hakyll/Web/Template/Context.hs index 98662dd..cd52eb0 100644 --- a/src/Hakyll/Web/Template/Context.hs +++ b/src/Hakyll/Web/Template/Context.hs @@ -130,7 +130,7 @@ bodyField key = field key $ return . itemBody -------------------------------------------------------------------------------- -- | Map any field to its metadata value, if present -metadataField :: Context String +metadataField :: Context a metadataField = Context $ \k i -> do value <- getMetadataField (itemIdentifier i) k maybe empty (return . StringField) value |