wrapDataSource
    :: (IAuthDataSource r)
    => r -- ^ A value of class IAuthDataSource.
    -> AuthDataWrapper -- ^ A container for an arbitrary object of class IAuthDataSource.
wrapDataSource b = AuthDataWrapper (getUser b, validateUser b)
wrapDataSource
    :: (IAuthDataSource r)
    => r -- ^ A value of class IAuthDataSource.
    -> AuthDataWrapper
wrapDataSource b = AuthDataWrapper (getUser b, validateUser b)
wrapDataSource b = AuthDataWrapper (getUser b, validateUser b)