web-routes-quasi 0.3

This commit is contained in:
Michael Snoyman 2010-05-21 13:46:53 +03:00
parent ae43848001
commit 30e1739bf8
4 changed files with 16 additions and 12 deletions

View File

@ -9,6 +9,10 @@ module Yesod.Dispatch
-- ** More fine-grained
, mkYesodData
, mkYesodDispatch
-- ** Path pieces
, SinglePiece (..)
, MultiPiece (..)
, Strings
-- * Convert to WAI
, toWaiApp
, basicHandler

View File

@ -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 ()

View File

@ -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.

View File

@ -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,