{-# LANGUAGE FlexibleContexts #-} {-# OPTIONS_GHC -F -pgmFtrhsx #-} module Clckwrks.Admin.Template where import Clckwrks import Control.Monad.State (get) import Data.Maybe (mapMaybe) import qualified Data.Text as T import Data.Set (Set) import qualified Data.Set as Set template :: ( Happstack m , EmbedAsChild (ClckT url m) headers , EmbedAsChild (ClckT url m) body ) => String -> headers -> body -> ClckT url m Response template title headers body = toResponse <$> (unXMLGenT $