Derive Show for Creds type

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

View File

@ -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