2019-09-08 10:48:57 +00:00
|
|
|
{-# LANGUAGE DataKinds #-}
|
|
|
|
|
{-# LANGUAGE TypeFamilies #-}
|
|
|
|
|
{-# LANGUAGE OverloadedStrings #-}
|
2019-09-08 15:27:38 +00:00
|
|
|
module Util where
|
2019-09-08 10:48:57 +00:00
|
|
|
|
|
|
|
|
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
|
