From a48b53c385192dd21e4a49269206cdd5cdc45757 Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Thu, 7 Mar 2013 11:18:34 +0100 Subject: Add utility getMetadataField --- src/Hakyll/Web/Template/Context.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Hakyll/Web') diff --git a/src/Hakyll/Web/Template/Context.hs b/src/Hakyll/Web/Template/Context.hs index 1a9aba3..f9c96d0 100644 --- a/src/Hakyll/Web/Template/Context.hs +++ b/src/Hakyll/Web/Template/Context.hs @@ -100,8 +100,8 @@ bodyField key = field key $ return . itemBody -- | Map any field to its metadata value, if present metadataField :: Context String metadataField = Context $ \k i -> do - metadata <- getMetadata $ itemIdentifier i - maybe empty return $ M.lookup k metadata + value <- getMetadataField (itemIdentifier i) k + maybe empty return value -------------------------------------------------------------------------------- -- cgit v1.2.3