natskell-1.0.0.1: internal/Policy/Auth/Token.hs

module Auth.Token
  ( auth
  , authHandler
  ) where

import           Auth.Types

auth :: AuthTokenData -> Auth
auth = authHandler . pure . Right

authHandler :: AuthTokenHandler -> Auth
authHandler handler = emptyAuth { authTokenHandler = Just handler }