Skip to content

Instantly share code, notes, and snippets.

@ChristopherBiscardi

ChristopherBiscardi/Site.hs

Created February 11, 2014 02:06
Show Gist options
  • Save ChristopherBiscardi/8928021 to your computer and use it in GitHub Desktop.
Save ChristopherBiscardi/8928021 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Site.hs
handleLogin :: Maybe T.Text -> Handler App (AuthManager App) ()
handleLogin authError = heistLocal (I.bindSplices errs) $ render "login"
where
errs = maybe noSplices splice authError
splice err = "loginError" ## I.textSplice err
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment