From 46b6f78da8ed814bef6972f4712d8b13e76c1122 Mon Sep 17 00:00:00 2001
From: Alexey Kreshchuk <akrsch@gmail.com>
Date: Fri, 18 Oct 2013 01:23:14 +0400
Subject: Added test case for global metadata
---
src/Hakyll/Core/Provider/Metadata.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
(limited to 'src/Hakyll')
diff --git a/src/Hakyll/Core/Provider/Metadata.hs b/src/Hakyll/Core/Provider/Metadata.hs
index 4331861..a54b84a 100644
--- a/src/Hakyll/Core/Provider/Metadata.hs
+++ b/src/Hakyll/Core/Provider/Metadata.hs
@@ -151,7 +151,7 @@ loadGlobalMetadata p fp = liftM M.fromList $ loadgm fp where
-- TODO: It might be better to print warning and continue
in either (error.show) (findMetadata dir) . P.parse namedMetadata path <$> readFile path
findMetadata dir =
- concatMap snd . filter (flip matches fp . fromGlob . combine dir . fst)
+ concatMap snd . filter (flip matches fp . fromGlob . normalise . combine dir . fst)
namedMetadata :: Parser [(String, [(String, String)])]
namedMetadata = P.many namedMetadataBlock
--
cgit v1.2.3