Change type: metadataField :: Context a

Closes #175
2013-08-16 11:48:05 +02:00 · 2013-08-16 11:48:05 +02:00 · 5679681ac1
commit 5679681ac1
parent 64569d7b72
1 changed files with 1 additions and 1 deletions
--- 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