servant-client basic auth example, calling httpbin.org

servant-basic-auth-example.hs

{-# LANGUAGE DataKinds         #-}
{-# LANGUAGE DeriveGeneric     #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TypeOperators     #-}

module Main where

import Data.Aeson (FromJSON, ToJSON)
import Data.Proxy (Proxy (Proxy))
import Data.Text (Text)
import GHC.Generics
import Network.HTTP.Client (defaultManagerSettings, newManager)
import Servant.API
import Servant.Client (BaseUrl (BaseUrl), ClientM, Scheme (Http), client,
                       mkClientEnv, runClientM)
main :: IO ()
main = do
  mgr <- newManager defaultManagerSettings
  runClientM (basicAuthClient u) (mkClientEnv mgr (BaseUrl Http "httpbin.org" 80 "basic-auth"))
      >>= print
    where u = BasicAuthData "john" "123"


type API = BasicAuth "Realm doesnt matter" () :> "john" :> "123" :> Get '[JSON] User

api :: Proxy API
api = Proxy


data User = User
  { authenticated :: Bool
  , user          :: Text
  } deriving (Show, Eq, Generic)

instance FromJSON User where
instance ToJSON User where

basicAuthClient :: BasicAuthData -> ClientM User
basicAuthClient = client api