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

Derive Show for Creds type

Browse Source 
Useful for doing liftIO $ print inside Yesod handlers like
authenticate.
This commit is contained in:
Sibi Prabakaran 2017-02-05 20:25:23 +05:30
parent 52f67fb04b
commit 0c3e1d2299
No known key found for this signature in database
GPG Key ID: D19E3E0EBB557613
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -105,7 +105,7 @@ data Creds master = Creds
{ credsPlugin :: Text -- ^ How the user was authenticated { credsPlugin :: Text -- ^ How the user was authenticated
, credsIdent :: Text -- ^ Identifier. Exact meaning depends on plugin. , credsIdent :: Text -- ^ Identifier. Exact meaning depends on plugin.
, credsExtra :: [(Text, Text)] , credsExtra :: [(Text, Text)]
} } deriving (Show)
class (Yesod master, PathPiece (AuthId master), RenderMessage master FormMessage) => YesodAuth master where class (Yesod master, PathPiece (AuthId master), RenderMessage master FormMessage) => YesodAuth master where
type AuthId master type AuthId master