From 6552dd5bc01e122d550e9ce664646a4c719145f7 Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Wed, 26 Mar 2014 11:30:08 +0100 Subject: Revert "Track metadata dependencies" This reverts commit 712ffa39b5857fdc5cdae1db38a177267a430b11. Conflicts: src/Hakyll/Core/Metadata.hs src/Hakyll/Core/Rules/Default.hs --- src/Hakyll/Core/Metadata.hs | 11 ----------- 1 file changed, 11 deletions(-) (limited to 'src/Hakyll/Core/Metadata.hs') diff --git a/src/Hakyll/Core/Metadata.hs b/src/Hakyll/Core/Metadata.hs index a123c18..7902b94 100644 --- a/src/Hakyll/Core/Metadata.hs +++ b/src/Hakyll/Core/Metadata.hs @@ -5,7 +5,6 @@ module Hakyll.Core.Metadata , getMetadataField , getMetadataField' , makePatternDependency - , metadataFiles ) where @@ -13,7 +12,6 @@ module Hakyll.Core.Metadata import Control.Monad (forM) import Data.Map (Map) import qualified Data.Map as M -import System.FilePath.Posix ((), takeDirectory) -------------------------------------------------------------------------------- @@ -63,12 +61,3 @@ makePatternDependency :: MonadMetadata m => Pattern -> m Dependency makePatternDependency pattern = do matches' <- getMatches pattern return $ PatternDependency pattern matches' - --------------------------------------------------------------------------------- --- | Returns a list of all directory-wise metadata files, subdir first, global last -metadataFiles :: Identifier -> [Identifier] -metadataFiles identifier = local : go (takeDirectory $ toFilePath identifier) where - go "." = [fromFilePath "metadata"] - go dir = fromFilePath (dir "metadata") : go (takeDirectory dir) - local = fromFilePath $ toFilePath identifier ++ ".metadata" - -- cgit v1.2.3