haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix warnings

Browse Source
This commit is contained in:
Michael Snoyman 2012-02-12 15:35:44 +02:00
parent 2e71fb0a28
commit a58f859d41
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
yesod-auth/Yesod/Auth/GoogleEmail.hs
View File

@ -18,7 +18,6 @@ module Yesod.Auth.GoogleEmail
import Yesod.Auth import Yesod.Auth
import qualified Web.Authenticate.OpenId as OpenId import qualified Web.Authenticate.OpenId as OpenId
import Yesod.Form
import Yesod.Handler import Yesod.Handler
import Yesod.Widget import Yesod.Widget
import Yesod.Request import Yesod.Request
@ -39,7 +38,6 @@ authGoogleEmail =
AuthPlugin "googleemail" dispatch login AuthPlugin "googleemail" dispatch login
where where
complete = PluginR "googleemail" ["complete"] complete = PluginR "googleemail" ["complete"]
name = "openid_identifier"
login tm = login tm =
[whamlet|<a href=@{tm forwardUrl}>_{Msg.LoginGoogle}|] [whamlet|<a href=@{tm forwardUrl}>_{Msg.LoginGoogle}|]
dispatch "GET" ["forward"] = do dispatch "GET" ["forward"] = do