14 lines
375 B
Haskell
14 lines
375 B
Haskell
|
{-# LANGUAGE DataKinds #-}
|
||
|
|
{-# LANGUAGE TypeFamilies #-}
|
||
|
|
{-# LANGUAGE OverloadedStrings #-}
|
||
|
|
module AuthUtil where
|
||
|
|
|
||
|
|
import Servant hiding (addHeader)
|
||
|
|
import Servant.Client
|
||
|
|
import Servant.Client.Core.Auth
|
||
|
|
import Servant.Client.Core.Request (addHeader)
|
||
|
|
|
||
|
|
authenticateReq s req = addHeader "Authentication" s req
|
||
|
|
|
||
|
|
type instance AuthClientData (AuthProtect "header-auth") = String
|