25 lines
805 B
Haskell
25 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)]
|