From 5342f891f39f1088049436a38ec51aca52a5e032 Mon Sep 17 00:00:00 2001 From: Bryan Richter Date: Sat, 14 May 2016 15:40:07 -0700 Subject: [PATCH 1/2] Add key reuse warning (#1222) (#1233) --- yesod-auth/Yesod/Auth/Email.hs | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/yesod-auth/Yesod/Auth/Email.hs b/yesod-auth/Yesod/Auth/Email.hs index 88bba70f..c7e26db9 100644 --- a/yesod-auth/Yesod/Auth/Email.hs +++ b/yesod-auth/Yesod/Auth/Email.hs @@ -142,6 +142,12 @@ class ( YesodAuth site -- | Verify the email address on the given account. -- + -- __/Warning!/__ If you have persisted the @'AuthEmailId' site@ + -- somewhere, this method should delete that key, or make it unusable + -- in some fashion. Otherwise, the same key can be used multiple times! + -- + -- See . + -- -- Since 1.1.0 verifyAccount :: AuthEmailId site -> HandlerT site IO (Maybe (AuthId site)) From b85ffbaf5222baeef990035fed1fc91f7df81b45 Mon Sep 17 00:00:00 2001 From: Alex Greif Date: Tue, 17 May 2016 17:21:03 +0200 Subject: [PATCH 2/2] fix typos --- yesod-core/Yesod/Routes/Parse.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/yesod-core/Yesod/Routes/Parse.hs b/yesod-core/Yesod/Routes/Parse.hs index ba0466e1..b5be876a 100644 --- a/yesod-core/Yesod/Routes/Parse.hs +++ b/yesod-core/Yesod/Routes/Parse.hs @@ -58,7 +58,7 @@ parseRoutesNoCheck = QuasiQuoter { quoteExp = lift . resourcesFromString } --- | Convert a multi-line string to a set of resources. See documentation for +-- | Converts a multi-line string to a set of resources. See documentation for -- the format of this string. This is a partial function which calls 'error' on -- invalid input. resourcesFromString :: String -> [ResourceTree String]