Commits

Anonymous committed 5ab10b3

Copy the changes to example.hs into the documentation

Comments (0)

Files changed (1)

Yesod/Auth/Account.hs

 -- >    renderMessage _ _ = defaultFormMessage
 -- >
 -- >instance YesodPersist MyApp where
--- >    type YesodPersistBackend MyApp = SqlPersist
+-- >    type YesodPersistBackend MyApp = SqlPersistT
 -- >    runDB action = do
 -- >        MyApp pool <- getYesod
 -- >        runSqlPool action pool
 -- >    authPlugins _ = [accountPlugin]
 -- >    authHttpManager _ = error "No manager needed"
 -- >    onLogin = return ()
+-- >    maybeAuthId = lookupSession "_ID"
 -- >
 -- >instance AccountSendEmail MyApp
 -- >
 -- >main :: IO ()
 -- >main = withSqlitePool "test.db3" 10 $ \pool -> do
 -- >    runStderrLoggingT $ runSqlPool (runMigration migrateAll) pool
--- >    warpDebug 3000 $ MyApp pool
+-- >    warp 3000 $ MyApp pool
 --
 accountPlugin :: YesodAuthAccount db master => AuthPlugin master
 accountPlugin = AuthPlugin "account" dispatch loginWidget