Derive Show for Creds type
Useful for doing liftIO $ print inside Yesod handlers like authenticate.
This commit is contained in:
parent
52f67fb04b
commit
0c3e1d2299
@ -105,7 +105,7 @@ data Creds master = Creds
|
||||
{ credsPlugin :: Text -- ^ How the user was authenticated
|
||||
, credsIdent :: Text -- ^ Identifier. Exact meaning depends on plugin.
|
||||
, credsExtra :: [(Text, Text)]
|
||||
}
|
||||
} deriving (Show)
|
||||
|
||||
class (Yesod master, PathPiece (AuthId master), RenderMessage master FormMessage) => YesodAuth master where
|
||||
type AuthId master
|
||||
|
||||
Loading…
Reference in New Issue
Block a user