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

Fix OpenID for Wordpress

Browse Source
This commit is contained in:
Michael Snoyman 2012-02-29 07:06:30 +02:00
parent 2a7d0d3beb
commit d4d223f97f
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
authenticate/Web/Authenticate/OpenId.hs
View File

@ -12,6 +12,7 @@ import OpenId2.Normalization (normalize)
import OpenId2.Discovery (discover, Discovery (..)) import OpenId2.Discovery (discover, Discovery (..))
import OpenId2.Types import OpenId2.Types
import Control.Monad (unless) import Control.Monad (unless)
import qualified Data.Text as T
import Data.Text.Lazy.Encoding (decodeUtf8With) import Data.Text.Lazy.Encoding (decodeUtf8With)
import Data.Text.Encoding.Error (lenientDecode) import Data.Text.Encoding.Error (lenientDecode)
import Data.Text.Lazy (toStrict) import Data.Text.Lazy (toStrict)
@ -41,7 +42,11 @@ getForwardUrl
getForwardUrl openid' complete mrealm params manager = do getForwardUrl openid' complete mrealm params manager = do
let realm = fromMaybe complete mrealm let realm = fromMaybe complete mrealm
disc <- normalize openid' >>= flip discover manager disc <- normalize openid' >>= flip discover manager
let helper s q = return $ s `mappend` decodeUtf8 (toByteString $ renderQueryText True $ map (second Just) q) let helper s q = return $ T.concat
[ s
, if "?" `T.isInfixOf` s then "&" else "?"
, decodeUtf8 (toByteString $ renderQueryText False $ map (second Just) q)
]
case disc of case disc of
Discovery1 server mdelegate -> helper server Discovery1 server mdelegate -> helper server
$ ("openid.mode", "checkid_setup") $ ("openid.mode", "checkid_setup")

2
authenticate/authenticate.cabal
View File

@ -1,5 +1,5 @@
name: authenticate name: authenticate
version: 1.0.0 version: 1.0.0.1
license: BSD3 license: BSD3
license-file: LICENSE license-file: LICENSE
author: Michael Snoyman, Hiromi Ishii, Arash Rouhani author: Michael Snoyman, Hiromi Ishii, Arash Rouhani