1 files changed, 12 insertions, 8 deletions
diff --git a/src/Hakyll/Core/Provider/Metadata.hs b/src/Hakyll/Core/Provider/Metadata.hs
index af2dd43..0101d25 100644
--- a/src/Hakyll/Core/Provider/Metadata.hs
+++ b/src/Hakyll/Core/Provider/Metadata.hs
@@ -44,7 +44,7 @@ loadMetadata p identifier = do
         Nothing  -> return M.empty
         Just mi' -> loadMetadataFile $ resourceFilePath p mi'
 
-    gmd <- loadGlobalMetadata p identifier
+    gmd <- loadGlobalMetadata p $ toFilePath identifier
 
     return (M.unions [md, gmd], body)
   where
@@ -141,17 +141,21 @@ page = do
 
 --------------------------------------------------------------------------------
 -- | Load directory-wise metadata
-loadGlobalMetadata :: Provider -> Identifier -> IO Metadata
-loadGlobalMetadata p fp = liftM M.fromList $ loadgm fp where 
-    loadgm :: Identifier -> IO [(String, String)]
-    loadgm = liftM concat . mapM loadOne . reverse . filter (resourceExists p) . metadataFiles
-    loadOne mfp =
+loadGlobalMetadata :: Provider -> FilePath -> IO (M.Map String String)
+loadGlobalMetadata p fp = liftM M.fromList $ loadgm $ takeDirectory fp where 
+    loadgm :: FilePath -> IO [(String, String)]
+    loadgm dir | dir == "." = return []
+               | otherwise = do
+        let mfp = fromFilePath $ combine dir "metadata"
+        md <- if resourceExists p mfp then loadOne mfp dir else return []
+        others <- loadgm (takeDirectory dir)
+        return $ others ++ md 
+    loadOne mfp dir =
         let path = resourceFilePath p mfp
-            dir = takeDirectory $ toFilePath mfp
         -- 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 (fromFilePath fp) . fromGlob . combine dir . fst)
 
 namedMetadata :: Parser [(String, [(String, String)])]
 namedMetadata = liftA2 (:) (namedMetadataBlock False) $ P.many $ namedMetadataBlock True