@@ -128,15 +128,15 @@ That's it. Let's now write some code that uses our client functions.
128128``` haskell
129129queries :: ClientM (Position, HelloMessage, Email)
130130queries = do
131− pos <- position 10 10
132− message <- hello (Just "servant")
131+ pos <- position 10 10
132+ message <- hello (Just "servant")
133133 em <- marketing (ClientInfo "Alp" "alp@foo.com" 26 ["haskell", "mathematics"])
134134 return (pos, message, em)
135135
136136run :: IO ()
137137run = do
138− manager <- newManager defaultManagerSettings
139− res <- runClientM queries (ClientEnv manager (BaseUrl Http "localhost" 8081 ""))
138+ manager' <- newManager defaultManagerSettings
139+ res <- runClientM queries (ClientEnv manager' (BaseUrl Http "localhost" 8081 ""))
140140 case res of
141141 Left err -> putStrLn $ "Error: " ++ show err
142142 Right (pos, message, em) -> do