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

Fix openid test

Browse Source
This commit is contained in:
Michael Snoyman 2012-02-07 11:13:37 +02:00
parent 935912f31c
commit 0b6930fc23
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
yesod-auth/openid.hs
View File

@ -11,8 +11,9 @@ import Text.Hamlet (hamlet)
import Control.Monad.IO.Class (liftIO) import Control.Monad.IO.Class (liftIO)
import Yesod.Form import Yesod.Form
import Network.Wai.Handler.Warp (run) import Network.Wai.Handler.Warp (run)
import Network.HTTP.Conduit
data BID = BID data BID = BID { httpManager :: Manager }
mkYesod "BID" [parseRoutes| mkYesod "BID" [parseRoutes|
/ RootR GET / RootR GET
@ -44,11 +45,14 @@ instance YesodAuth BID where
loginDest _ = AfterLoginR loginDest _ = AfterLoginR
logoutDest _ = AuthR LoginR logoutDest _ = AuthR LoginR
getAuthId = return . Just . credsIdent getAuthId = return . Just . credsIdent
authPlugins = [authOpenId] authPlugins _ = [authOpenId]
authHttpManager = httpManager
instance RenderMessage BID FormMessage where instance RenderMessage BID FormMessage where
renderMessage _ _ = defaultFormMessage renderMessage _ _ = defaultFormMessage
main :: IO () main :: IO ()
main = toWaiApp BID >>= run 3000 main = do
m <- newManager def
toWaiApp (BID m) >>= run 3000