yesod-auth 1.4.13 → 1.4.13.1

raw patch · 4 files changed

+11/−4 lines, 4 files

Files

ChangeLog.md +4/−0
Yesod/Auth/Dummy.hs +4/−1
Yesod/Auth/Message.hs +2/−2
yesod-auth.cabal +1/−1

ChangeLog.md view

@@ -1,3 +1,7 @@+## 1.4.13.1++* Add CSRF token to login form from `Yesod.Auth.Dummy` [#1205](https://github.com/yesodweb/yesod/pull/1205)+ ## 1.4.13  * Add a CSRF token to the login form from `Yesod.Auth.Hardcoded`, making it compatible with the CSRF middleware [#1161](https://github.com/yesodweb/yesod/pull/1161)

Yesod/Auth/Dummy.hs view

@@ -20,10 +20,13 @@         lift $ setCredsRedirect $ Creds "dummy" ident []     dispatch _ _ = notFound     url = PluginR "dummy" []-    login authToMaster =+    login authToMaster = do+        request <- getRequest         toWidget [hamlet| $newline never <form method="post" action="@{authToMaster url}">+    $maybe t <- reqToken request+        <input type=hidden name=#{defaultCsrfParamName} value=#{t}>     Your new identifier is: #     <input type="text" name="ident">     <input type="submit" value="Dummy Login">

Yesod/Auth/Message.hs view

@@ -20,7 +20,7 @@     , danishMessage     ) where -import           Data.Monoid (mappend,(<>))+import           Data.Monoid (mappend, (<>)) import           Data.Text   (Text)  data AuthMessage =@@ -625,7 +625,7 @@ russianMessage SetPassTitle = "Установить пароль" russianMessage SetPass = "Установить новый пароль" russianMessage NewPass = "Новый пароль"-russianMessage ConfirmPass = "Подтверждение"+russianMessage ConfirmPass = "Подтверждение пароля" russianMessage PassMismatch = "Пароли не совпадают, повторите снова" russianMessage PassUpdated = "Пароль обновлён" russianMessage Facebook = "Войти с помощью Facebook"

yesod-auth.cabal view

@@ -1,5 +1,5 @@ name:            yesod-auth-version:         1.4.13+version:         1.4.13.1 license:         MIT license-file:    LICENSE author:          Michael Snoyman, Patrick Brisbin