24 lines
805 B
Haskell
24 lines
805 B
Haskell
--------------------------------------------------------------------------------
|
|
module Hakyll.Core.Metadata
|
|
( Metadata
|
|
, MonadMetadata (..)
|
|
) where
|
|
|
|
|
|
--------------------------------------------------------------------------------
|
|
import Data.Map (Map)
|
|
|
|
|
|
--------------------------------------------------------------------------------
|
|
import Hakyll.Core.Identifier
|
|
|
|
|
|
--------------------------------------------------------------------------------
|
|
type Metadata = Map String String
|
|
|
|
|
|
--------------------------------------------------------------------------------
|
|
class MonadMetadata m where
|
|
identifierMetadata :: Identifier a -> m Metadata
|
|
-- allMetadata :: m [(Resource, Metadata)]
|
|
-- patternMetadata :: Pattern a -> m [(Resource, Metadata)]
|