haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Rpxnow supporting GET and POST

Browse Source
This commit is contained in:
Michael Snoyman 2009-10-04 20:25:20 +02:00
parent 5231da57a3
commit ab49c1e0fa
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Web/Restful/Helpers/Auth.hs
View File

@ -57,6 +57,8 @@ instance ResourceName AuthResource (Maybe RpxnowApiKey) where
getHandler _ Openid Get = authOpenidForm getHandler _ Openid Get = authOpenidForm
getHandler _ OpenidForward Get = authOpenidForward getHandler _ OpenidForward Get = authOpenidForward
getHandler _ OpenidComplete Get = authOpenidComplete getHandler _ OpenidComplete Get = authOpenidComplete
-- two different versions of RPX protocol apparently...
getHandler (Just key) LoginRpxnow Get = rpxnowLogin key
getHandler (Just key) LoginRpxnow Post = rpxnowLogin key getHandler (Just key) LoginRpxnow Post = rpxnowLogin key
getHandler _ _ _ = notFound getHandler _ _ _ = notFound
@ -132,8 +134,8 @@ authOpenidComplete = do
data RpxnowRequest = RpxnowRequest String (Maybe String) data RpxnowRequest = RpxnowRequest String (Maybe String)
instance Request RpxnowRequest where instance Request RpxnowRequest where
parseRequest = do parseRequest = do
token <- postParam "token" token <- anyParam "token"
dest <- postParam "dest" dest <- anyParam "dest"
return $! RpxnowRequest token $ chopHash `fmap` dest return $! RpxnowRequest token $ chopHash `fmap` dest
chopHash :: String -> String chopHash :: String -> String