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

Adjust yesod-auth for split DB

Browse Source
This commit is contained in:
Eric Easley 2016-02-07 19:17:50 -08:00
parent 1dea0ef5b1
commit 4bc4fc3b36
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
yesod-auth/Yesod/Auth.hs
View File

@ -500,10 +500,10 @@ class (YesodAuth master, YesodPersist master) => YesodAuthPersist master where
getAuthEntity :: AuthId master -> HandlerT master IO (Maybe (AuthEntity master)) getAuthEntity :: AuthId master -> HandlerT master IO (Maybe (AuthEntity master))
default getAuthEntity default getAuthEntity
:: ( YesodPersistBackend master :: ( YesodPersistBackend master ~ backend
~ PersistEntityBackend (AuthEntity master) , BaseBackend backend ~ PersistEntityBackend (AuthEntity master)
, Key (AuthEntity master) ~ AuthId master , Key (AuthEntity master) ~ AuthId master
, PersistStore (YesodPersistBackend master) , PersistStore backend
, PersistEntity (AuthEntity master) , PersistEntity (AuthEntity master)
) )
=> AuthId master -> HandlerT master IO (Maybe (AuthEntity master)) => AuthId master -> HandlerT master IO (Maybe (AuthEntity master))