From 8b668b394009cb2bcc96dd45abe255f63acc0963 Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Mon, 18 Jan 2010 08:17:41 +0100 Subject: Fixed bug in section metadata writing. --- src/Text/Hakyll/Page.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') diff --git a/src/Text/Hakyll/Page.hs b/src/Text/Hakyll/Page.hs index db5360d..f2664e2 100644 --- a/src/Text/Hakyll/Page.hs +++ b/src/Text/Hakyll/Page.hs @@ -86,7 +86,7 @@ cachePage page@(Page mapping) = do makeDirectories destination liftIO writePageToCache where - (sectionMetaData, simpleMetaData) = M.partition (not . elem '\n') + (sectionMetaData, simpleMetaData) = M.partition (elem '\n') (M.delete "body" mapping) writePageToCache = do -- cgit v1.2.3