13 lines
350 B
Haskell
13 lines
350 B
Haskell
{-# LANGUAGE DataKinds #-}
|
|
{-# LANGUAGE TypeFamilies #-}
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
module ClientAuth where
|
|
|
|
import Servant.API (AuthProtect)
|
|
import Servant.Client.Core
|
|
|
|
type instance AuthClientData (AuthProtect "header-auth") = String
|
|
|
|
authenticateReq :: String -> Request -> Request
|
|
authenticateReq s req = addHeader "Authentication" s req
|