@@ -12,27 +12,24 @@ import GS3
1212
1313position :: Int -- ^ value for "x"
1414 -> Int -- ^ value for "y"
15− -> BaseUrl
1615 -> EitherT ServantError IO Position
1716
1817hello :: Maybe String -- ^ an optional value for "name"
19− -> BaseUrl
2018 -> EitherT ServantError IO HelloMessage
2119
2220marketing :: ClientInfo -- ^ value for the request body
23− -> BaseUrl
2421 -> EitherT ServantError IO Email
2522
26−position :<|> hello :<|> marketing = client api
23+position :<|> hello :<|> marketing = client api baseUrl
2724
2825baseUrl :: BaseUrl
2926baseUrl = BaseUrl Http "localhost" 8081
3027
3128queries :: EitherT ServantError IO (Position, HelloMessage, Email)
3229queries = do
33− pos <- position 10 10 baseUrl
34− msg <- hello (Just "servant") baseUrl
35− em <- marketing (ClientInfo "Alp" "alp@foo.com" 26 ["haskell", "mathematics"]) baseUrl
30+ pos <- position 10 10
31+ msg <- hello (Just "servant")
32+ em <- marketing (ClientInfo "Alp" "alp@foo.com" 26 ["haskell", "mathematics"])
3633 return (pos, msg, em)
3734
3835run :: IO ()