Hi guys, <br>I'm trying to build a good looking login page, but I noticed the loginHandler that comes with yesod-auth just concatenates all the widgets from all the used auth backends. To make matters worse, the markup some of the backends generate is not even my preferred brand! :)<br>
<br>So I try to at least wrap the authEmail widget inside my own html, with a login.hamlet file that looks a bit like this:<br>.box<br> %h1 Login<br> .wrapper<br> ^email^<br><br>I manage to get the widget out of the authEmail backend, but then I can't use it inside my hamlet file that I add using addHamlet b/c it doesn't typecheck.<br>
<br>loginHandler = do<br> let tm = liftHandler getRouteToMaster<br> let email = tm >>= apLogin authEmail<br> defaultLayout $ do<br> setTitle $ string "Login"<br> addHamlet $(Settings.hamletFile "login")<br>
<br>Is there any way around this? Am I approaching this the wrong way?<br>This could also be solved if instead of a widget I could get the url and fieldname information from the backend, so I can use those things inside my ad-hoc html.<br>
Moreso, as a way to customize the html I'm tempted to override or redefine apLogin inside my app's domain so I can customize the html it generates. But just to keep taking advantage of haskell's strenghts it would be nice to formalize this idea a bit more (and I don't know how to approach that).<br>
<br>thanks in advance for your help<br>cheers!<br>----nubis :)<br>