pandoc-crossref-0.1.0.0: src/References/Types.hs

module References.Types ( References(..)
                        , WS
                        , RefRec(..)
                        , RefMap
                        ) where

import qualified Data.Map as M
import Text.Pandoc.Definition
import Control.Monad.State

data RefRec = RefRec { refIndex :: (Int, Int)
                     , refTitle :: [Inline]
                     }

type RefMap = M.Map String RefRec

-- state data type
data References = References { imgRefs :: RefMap
                             , eqnRefs :: RefMap
                             , tblRefs :: RefMap
                             , curChap :: Int
                             , stMeta  :: Meta
                             , stTmplV :: String -> Maybe MetaValue
                             , stDTV   :: Meta
                             }

--state monad
type WS a = State References a