snaplet-oauth-0.0.6: example/src/Splices.hs

{-# LANGUAGE OverloadedStrings #-}


module Splices where

import           Snap.Snaplet.OAuth
import           Text.Templating.Heist

----------------------------------------------------------------------
--  Splices
----------------------------------------------------------------------


rawResponseSplices :: (Monad m, Show a) => a -> Splice m
rawResponseSplices = textSplice . sToText

bindRawResponseSplices :: (Monad m, Show a)
                          => a
                          -> HeistState m
                          -> HeistState m
bindRawResponseSplices value = bindSplice "rawResponseSplices" (rawResponseSplices value)