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 -- ** More fine-grained
, mkYesodData , mkYesodData
, mkYesodDispatch , mkYesodDispatch
-- ** Path pieces
, SinglePiece (..)
, MultiPiece (..)
, Strings
-- * Convert to WAI -- * Convert to WAI
, toWaiApp , toWaiApp
, basicHandler , basicHandler

View File

@ -138,17 +138,17 @@ maybeCreds = do
_ -> Nothing _ -> Nothing
mkYesodSub "Auth" [''YesodAuth] [$parseRoutes| mkYesodSub "Auth" [''YesodAuth] [$parseRoutes|
/check Check GET /check Check GET
/logout Logout GET /logout Logout GET
/openid OpenIdR GET /openid OpenIdR GET
/openid/forward OpenIdForward GET /openid/forward OpenIdForward GET
/openid/complete OpenIdComplete GET /openid/complete OpenIdComplete GET
/login/rpxnow RpxnowR /login/rpxnow RpxnowR
/register EmailRegisterR GET POST /register EmailRegisterR GET POST
/verify/#/$ EmailVerifyR GET /verify/#EmailId/#String EmailVerifyR GET
/login EmailLoginR GET POST /login EmailLoginR GET POST
/set-password EmailPasswordR GET POST /set-password EmailPasswordR GET POST
|] |]
testOpenId :: GHandler Auth master () testOpenId :: GHandler Auth master ()

View File

@ -53,7 +53,7 @@ import Test.HUnit hiding (Test)
data Static = Static (FilePath -> IO (Maybe (Either FilePath Content))) data Static = Static (FilePath -> IO (Maybe (Either FilePath Content)))
$(mkYesodSub "Static" [] [$parseRoutes| $(mkYesodSub "Static" [] [$parseRoutes|
* StaticRoute GET *Strings StaticRoute GET
|]) |])
-- | Lookup files in a specific directory. -- | Lookup files in a specific directory.

View File

@ -41,7 +41,7 @@ library
convertible-text >= 0.3.0 && < 0.4, convertible-text >= 0.3.0 && < 0.4,
template-haskell >= 2.4 && < 2.5, template-haskell >= 2.4 && < 2.5,
web-routes >= 0.22 && < 0.23, 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, hamlet >= 0.2.2 && < 0.3,
transformers >= 0.1 && < 0.3, transformers >= 0.1 && < 0.3,
clientsession >= 0.4.0 && < 0.5, clientsession >= 0.4.0 && < 0.5,