login: use authDummy for login

3v0k4 · Jul 21, 2019 · 76c4347 · 76c4347
1 parent 4fea7c6
commit 76c4347
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 8 deletions.
diff --git a/src/Foundation.hs b/src/Foundation.hs
@@ -242,13 +242,13 @@ instance YesodAuth App where
 
     -- Where to send a user after successful login
     loginDest :: App -> Route App
-    loginDest _ = HomeR
+    loginDest _ = PostsR
     -- Where to send a user after logout
     logoutDest :: App -> Route App
     logoutDest _ = HomeR
     -- Override the above two destinations when a Referer: header is present
     redirectToReferer :: App -> Bool
-    redirectToReferer _ = True
+    redirectToReferer _ = False
 
     authenticate :: (MonadHandler m, HandlerSite m ~ App)
                  => Creds App -> m (AuthenticationResult App)
@@ -261,11 +261,11 @@ instance YesodAuth App where
                 , userPassword = Nothing
                 }
 
+    authLayout = liftHandler . emptyLayout
+
     -- You can add other plugins like Google Email, email or OAuth here
     authPlugins :: App -> [AuthPlugin App]
-    authPlugins app = [authOpenId Claimed []] ++ extraAuthPlugins
+    authPlugins _app = [authDummy]
-        -- Enable authDummy login if enabled.
-        where extraAuthPlugins = [authDummy | appAuthDummyLogin $ appSettings app]
 
 -- | Access function to determine if a user is logged in.
 isAuthenticated :: Handler AuthResult

diff --git a/src/Handler/Landing.hs b/src/Handler/Landing.hs
@@ -21,9 +21,7 @@ loginForm =
 
 getLandingR :: Handler Html
 getLandingR = do
-  (widget, enctype) <- generateFormPost loginForm
+  redirect $ AuthR LoginR
-  emptyLayout $ do
-    $(widgetFile "landing")
 
 postLandingR :: Handler Html
 postLandingR = do