module Text.Mustache.Types
(
ASTree
, STree
, Node(..)
, DataIdentifier(..)
, Template(..)
, TemplateCache
, Value(..)
, Key
, object
, (~>), (↝), (~=), (⥱)
, ToMustache, toMustache, mFromJSON, integralToMustache
, Array, Object, Pair
, SubM, askContext, askPartials
, Context(..)
) where
import Control.Monad.Reader
import qualified Data.Aeson as Aeson
import qualified Data.HashMap.Strict as HM
import Data.Text (Text)
import Text.Mustache.Internal.Types
object :: [Pair] -> Value
object :: [Pair] -> Value
object = Object -> Value
Object (Object -> Value) -> ([Pair] -> Object) -> [Pair] -> Value
forall b c a. (b -> c) -> (a -> b) -> a -> c
. [Pair] -> Object
forall k v. (Eq k, Hashable k) => [(k, v)] -> HashMap k v
HM.fromList
(~>) :: ToMustache ω => Text -> ω -> Pair
~> :: Text -> ω -> Pair
(~>) Text
t = (Text
t, ) (Value -> Pair) -> (ω -> Value) -> ω -> Pair
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ω -> Value
forall ω. ToMustache ω => ω -> Value
toMustache
{-# INLINEABLE (~>) #-}
infixr 8 ~>
(↝) :: ToMustache ω => Text -> ω -> Pair
↝ :: Text -> ω -> Pair
(↝) = Text -> ω -> Pair
forall ω. ToMustache ω => Text -> ω -> Pair
(~>)
{-# INLINEABLE (↝) #-}
infixr 8 ↝
(~=) :: Aeson.ToJSON ι => Text -> ι -> Pair
~= :: Text -> ι -> Pair
(~=) Text
t = (Text
t Text -> Value -> Pair
forall ω. ToMustache ω => Text -> ω -> Pair
~>) (Value -> Pair) -> (ι -> Value) -> ι -> Pair
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ι -> Value
forall a. ToJSON a => a -> Value
Aeson.toJSON
{-# INLINEABLE (~=) #-}
infixr 8 ~=
(⥱) :: Aeson.ToJSON ι => Text -> ι -> Pair
⥱ :: Text -> ι -> Pair
(⥱) = Text -> ι -> Pair
forall ι. ToJSON ι => Text -> ι -> Pair
(~=)
{-# INLINEABLE (⥱) #-}
infixr 8 ⥱
mFromJSON :: Aeson.ToJSON ι => ι -> Value
mFromJSON :: ι -> Value
mFromJSON = Value -> Value
forall ω. ToMustache ω => ω -> Value
toMustache (Value -> Value) -> (ι -> Value) -> ι -> Value
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ι -> Value
forall a. ToJSON a => a -> Value
Aeson.toJSON
askContext :: SubM (Context Value)
askContext :: SubM (Context Value)
askContext = ((Context Value, TemplateCache) -> Context Value)
-> SubM (Context Value)
forall r (m :: * -> *) a. MonadReader r m => (r -> a) -> m a
asks (Context Value, TemplateCache) -> Context Value
forall a b. (a, b) -> a
fst
askPartials :: SubM TemplateCache
askPartials :: SubM TemplateCache
askPartials = ((Context Value, TemplateCache) -> TemplateCache)
-> SubM TemplateCache
forall r (m :: * -> *) a. MonadReader r m => (r -> a) -> m a
asks (Context Value, TemplateCache) -> TemplateCache
forall a b. (a, b) -> b
snd