{-# LANGUAGE DataKinds #-} {-# LANGUAGE TypeFamilies #-} {-# LANGUAGE OverloadedStrings #-} module ClientAuth where import Servant.API (AuthProtect) import Servant.Client.Core type instance AuthClientData (AuthProtect "Bearer") = String authenticateReq :: String -> Request -> Request authenticateReq = addHeader "Bearer" nonAuthenticateRequest :: String -> Request -> Request nonAuthenticateRequest _ = id