2012-11-09 15:34:45 +00:00
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
module Hakyll.Core.Metadata
|
|
|
|
( Metadata
|
|
|
|
, MonadMetadata (..)
|
|
|
|
) where
|
|
|
|
|
|
|
|
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
import Data.Map (Map)
|
|
|
|
|
|
|
|
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
import Hakyll.Core.Identifier
|
|
|
|
|
|
|
|
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
type Metadata = Map String String
|
|
|
|
|
|
|
|
|
|
|
|
--------------------------------------------------------------------------------
|
|
|
|
class MonadMetadata m where
|
2012-11-13 12:13:17 +00:00
|
|
|
identifierMetadata :: Identifier -> m Metadata
|
2012-11-09 15:34:45 +00:00
|
|
|
-- allMetadata :: m [(Resource, Metadata)]
|
|
|
|
-- patternMetadata :: Pattern a -> m [(Resource, Metadata)]
|