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

Fix for Persistent G -> Generic

Browse Source
This commit is contained in:
Michael Snoyman 2011-08-18 16:30:45 +03:00
parent 55f4ddd258
commit bc5079383d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
yesod-auth/Yesod/Auth/HashDB.hs
View File

@ -66,7 +66,7 @@ module Yesod.Auth.HashDB
, getAuthIdHashDB
-- * Predefined data type
, User
, UserG (..)
, UserGeneric (..)
, UserId
, migrateUsers
) where
@ -253,7 +253,7 @@ User
UniqueUser username
|]
instance HashDBUser (UserG backend) where
instance HashDBUser (UserGeneric backend) where
userPasswordHash = Just . userPassword
userPasswordSalt = Just . userSalt
setUserHashAndSalt s h u = u { userSalt = s