Overwrite loginHandler (not working atm)

Foundation.hs

  loginHandler = do
    ma <- lift maybeAuthId
    when (isJust ma) $ lift $ redirect HomeR
    toParentRoute <- getRouteToParent
    master <- getYesod
    (widget, enctype) <- generateFormPost loginForm
    lift $
      authLayout $ do
        setTitle "Log In"
        -- mapM_ (flip apLogin toParentRoute) (authPlugins master)
        $(widgetFile "auth/login")
    where
      loginForm extra = do
        let emailSettings emailMsg =
              FieldSettings
              { fsLabel = "Email"
              , fsTooltip = Nothing
              , fsId = Just "email"
              , fsName = Just "email"
              , fsAttrs = [("autofocus", ""), ("placeholder", emailMsg)]
              }
        let passwordSettings passwordMsg =
              FieldSettings
              { fsLabel = "Password"
              , fsTooltip = Nothing
              , fsId = Just "password"
              , fsName = Just "password"
              , fsAttrs = [("placeholder", passwordMsg)]
              }
        (emailRes, emailView) <- mreq emailField (emailSettings "Email") Nothing
        (passwordRes, passwordView) <-
          mreq passwordField (passwordSettings "Password") Nothing
        let userRes = UserLoginForm <$> emailRes <*> passwordRes
        let widget = $(widgetFile "auth/login-widget")
        return (userRes, widget)