summaryrefslogtreecommitdiff
path: root/src/Hakyll/Web
diff options
context:
space:
mode:
authorJasper Van der Jeugt <m@jaspervdj.be>2013-08-16 11:48:05 +0200
committerJasper Van der Jeugt <m@jaspervdj.be>2013-08-16 11:48:26 +0200
commit5679681ac15de8b3b7d1cc0db6745f6787141e23 (patch)
tree709bb47c6698f8eca5930f24aa061272ac870b73 /src/Hakyll/Web
parent64569d7b724add2c30ee233a1b73703d0e25a8f0 (diff)
downloadhakyll-5679681ac15de8b3b7d1cc0db6745f6787141e23.tar.gz
Change type: metadataField :: Context a
Closes #175
Diffstat (limited to 'src/Hakyll/Web')
-rw-r--r--src/Hakyll/Web/Template/Context.hs2
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