44 lines
1.1 KiB
Haskell
44 lines
1.1 KiB
Haskell
{-# LANGUAGE DataKinds #-}
|
|
{-# LANGUAGE TypeFamilies #-}
|
|
{-# LANGUAGE TypeOperators #-}
|
|
{-# OPTIONS_GHC -fno-warn-name-shadowing #-}
|
|
{-# OPTIONS_GHC -fno-warn-missing-methods #-}
|
|
module T8 where
|
|
|
|
import Control.Monad.Trans.Either
|
|
import Servant
|
|
import Servant.Client
|
|
|
|
import T3
|
|
|
|
position :: Int -- ^ value for "x"
|
|
-> Int -- ^ value for "y"
|
|
-> EitherT ServantError IO Position
|
|
|
|
hello :: Maybe String -- ^ an optional value for "name"
|
|
-> EitherT ServantError IO HelloMessage
|
|
|
|
marketing :: ClientInfo -- ^ value for the request body
|
|
-> EitherT ServantError IO Email
|
|
|
|
position :<|> hello :<|> marketing = client api baseUrl
|
|
|
|
baseUrl :: BaseUrl
|
|
baseUrl = BaseUrl Http "localhost" 8081
|
|
|
|
queries :: EitherT ServantError IO (Position, HelloMessage, Email)
|
|
queries = do
|
|
pos <- position 10 10
|
|
msg <- hello (Just "servant")
|
|
em <- marketing (ClientInfo "Alp" "alp@foo.com" 26 ["haskell", "mathematics"])
|
|
return (pos, msg, em)
|
|
|
|
run :: IO ()
|
|
run = do
|
|
res <- runEitherT queries
|
|
case res of
|
|
Left err -> putStrLn $ "Error: " ++ show err
|
|
Right (pos, msg, em) -> do
|
|
print pos
|
|
print msg
|
|
print em
|