Merge branch 'master' of github.com:yesodweb/yesod
This commit is contained in:
commit
e39be76191
@ -142,6 +142,12 @@ class ( YesodAuth site
|
|||||||
|
|
||||||
-- | Verify the email address on the given account.
|
-- | 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 <https://github.com/yesodweb/yesod/issues/1222>.
|
||||||
|
--
|
||||||
-- Since 1.1.0
|
-- Since 1.1.0
|
||||||
verifyAccount :: AuthEmailId site -> HandlerT site IO (Maybe (AuthId site))
|
verifyAccount :: AuthEmailId site -> HandlerT site IO (Maybe (AuthId site))
|
||||||
|
|
||||||
|
|||||||
@ -58,7 +58,7 @@ parseRoutesNoCheck = QuasiQuoter
|
|||||||
{ quoteExp = lift . resourcesFromString
|
{ 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
|
-- the format of this string. This is a partial function which calls 'error' on
|
||||||
-- invalid input.
|
-- invalid input.
|
||||||
resourcesFromString :: String -> [ResourceTree String]
|
resourcesFromString :: String -> [ResourceTree String]
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user