{-# LANGUAGE TypeFamilies, QuasiQuotes, OverloadedStrings #-}
module Clckwrks.Authenticate.Page.OpenIdRealm where

import Clckwrks.Admin.Template (template)
import Clckwrks.Monad
import Clckwrks.URL             (ClckURL)
import Happstack.Server         (Response, ServerPartT, ok, toResponse)
import Language.Haskell.HSX.QQ (hsx)

openIdRealmPanel :: ClckT ClckURL (ServerPartT IO) Response
openIdRealmPanel :: ClckT ClckURL (ServerPartT IO) Response
openIdRealmPanel =
    do String
-> ()
-> XMLGenT (ClckT ClckURL (ServerPartT IO)) XML
-> ClckT ClckURL (ServerPartT IO) Response
forall (m :: * -> *) url headers body.
(Happstack m, EmbedAsChild (ClckT url m) headers,
 EmbedAsChild (ClckT url m) body) =>
String -> headers -> body -> ClckT url m Response
template String
"Set OpenId Realm" () (XMLGenT (ClckT ClckURL (ServerPartT IO)) XML
 -> ClckT ClckURL (ServerPartT IO) Response)
-> XMLGenT (ClckT ClckURL (ServerPartT IO)) XML
-> ClckT ClckURL (ServerPartT IO) Response
forall a b. (a -> b) -> a -> b
$ [hsx|
        <div ng-controller="OpenIdCtrl">
         <openid-realm />
        </div> |]