matebeamter/src/Util.hs
2019-09-08 17:27:38 +02:00

14 lines
371 B
Haskell

{-# LANGUAGE DataKinds #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE OverloadedStrings #-}
module Util 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