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

module Auth.UserPass
  ( auth
  , authHandler
  ) where

import           Auth.Types

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

authHandler :: UserPassHandler -> Auth
authHandler handler = emptyAuth { authUserPassHandler = Just handler }