web-routes-quasi 0.3
This commit is contained in:
parent
ae43848001
commit
30e1739bf8
@ -9,6 +9,10 @@ module Yesod.Dispatch
|
||||
-- ** More fine-grained
|
||||
, mkYesodData
|
||||
, mkYesodDispatch
|
||||
-- ** Path pieces
|
||||
, SinglePiece (..)
|
||||
, MultiPiece (..)
|
||||
, Strings
|
||||
-- * Convert to WAI
|
||||
, toWaiApp
|
||||
, basicHandler
|
||||
|
||||
@ -138,17 +138,17 @@ maybeCreds = do
|
||||
_ -> Nothing
|
||||
|
||||
mkYesodSub "Auth" [''YesodAuth] [$parseRoutes|
|
||||
/check Check GET
|
||||
/logout Logout GET
|
||||
/openid OpenIdR GET
|
||||
/openid/forward OpenIdForward GET
|
||||
/openid/complete OpenIdComplete GET
|
||||
/login/rpxnow RpxnowR
|
||||
/check Check GET
|
||||
/logout Logout GET
|
||||
/openid OpenIdR GET
|
||||
/openid/forward OpenIdForward GET
|
||||
/openid/complete OpenIdComplete GET
|
||||
/login/rpxnow RpxnowR
|
||||
|
||||
/register EmailRegisterR GET POST
|
||||
/verify/#/$ EmailVerifyR GET
|
||||
/login EmailLoginR GET POST
|
||||
/set-password EmailPasswordR GET POST
|
||||
/register EmailRegisterR GET POST
|
||||
/verify/#EmailId/#String EmailVerifyR GET
|
||||
/login EmailLoginR GET POST
|
||||
/set-password EmailPasswordR GET POST
|
||||
|]
|
||||
|
||||
testOpenId :: GHandler Auth master ()
|
||||
|
||||
@ -53,7 +53,7 @@ import Test.HUnit hiding (Test)
|
||||
data Static = Static (FilePath -> IO (Maybe (Either FilePath Content)))
|
||||
|
||||
$(mkYesodSub "Static" [] [$parseRoutes|
|
||||
* StaticRoute GET
|
||||
*Strings StaticRoute GET
|
||||
|])
|
||||
|
||||
-- | Lookup files in a specific directory.
|
||||
|
||||
@ -41,7 +41,7 @@ library
|
||||
convertible-text >= 0.3.0 && < 0.4,
|
||||
template-haskell >= 2.4 && < 2.5,
|
||||
web-routes >= 0.22 && < 0.23,
|
||||
web-routes-quasi >= 0.2 && < 0.3,
|
||||
web-routes-quasi >= 0.3 && < 0.4,
|
||||
hamlet >= 0.2.2 && < 0.3,
|
||||
transformers >= 0.1 && < 0.3,
|
||||
clientsession >= 0.4.0 && < 0.5,
|
||||
|
||||
Loading…
Reference in New Issue
Block a user