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 , getAuthIdHashDB
-- * Predefined data type -- * Predefined data type
, User , User
, UserG (..) , UserGeneric (..)
, UserId , UserId
, migrateUsers , migrateUsers
) where ) where
@ -253,7 +253,7 @@ User
UniqueUser username UniqueUser username
|] |]
instance HashDBUser (UserG backend) where instance HashDBUser (UserGeneric backend) where
userPasswordHash = Just . userPassword userPasswordHash = Just . userPassword
userPasswordSalt = Just . userSalt userPasswordSalt = Just . userSalt
setUserHashAndSalt s h u = u { userSalt = s setUserHashAndSalt s h u = u { userSalt = s