{-# LANGUAGE TypeFamilies, QuasiQuotes, OverloadedStrings #-}
module Clckwrks.Authenticate.Page.ChangePassword 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)

changePasswordPanel :: ClckT ClckURL (ServerPartT IO) Response
changePasswordPanel :: ClckT ClckURL (ServerPartT IO) Response
changePasswordPanel =
    do String
-> ()
-> GenChildList (ClckT ClckURL (ServerPartT IO))
-> 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
"Change Password" () (GenChildList (ClckT ClckURL (ServerPartT IO))
 -> ClckT ClckURL (ServerPartT IO) Response)
-> GenChildList (ClckT ClckURL (ServerPartT IO))
-> ClckT ClckURL (ServerPartT IO) Response
forall a b. (a -> b) -> a -> b
$ [hsx|
        <%>
         <h2>Change Password</h2>
         <div ng-controller="UsernamePasswordCtrl">
          <up-change-password />
         </div>
        </%> |]