module Happstack.Authenticate.Password.Forms where
import HSP
import Happstack.Server.HSP.HTML ()
import Language.Haskell.HSX.QQ (hsx)
import Happstack.Authenticate.Core (AuthenticateURL)
import Happstack.Authenticate.Password.URL (PasswordURL)
import Web.Routes
import Web.Routes.XMLGenT ()
usernamePasswordForm :: (Functor m, Monad m) =>
XMLGenT (RouteT AuthenticateURL m) XML
usernamePasswordForm = [hsx|
<div>
<div ngshow="!isAuthenticated">
<form ngsubmit="login()" role="form" class="form-inline">
<div class="form-group">
<label class="sr-only" for="username">username</label>
<input class="form-control" ngmodel="user.user" type="text" id="username" name="user" placeholder="Username" />
</div><% " " %>
<div class="form-group">
<label class="sr-only" for="password">password</label>
<input class="form-control" ngmodel="user.password" type="password" id="password" name="pass" placeholder="Password" />
</div><% " " %>
<div class="form-group">
<input class="form-control" type="submit" value="Sign in" />
</div>
</form>
<div>{{username_password_error}}</div>
</div>
<div ngshow="isAuthenticated">
<a ngclick="logout()" href="">Logout</a>
</div>
</div>
|]