From 8daa261a079626a5ad2611bcc7e89d36983ccc89 Mon Sep 17 00:00:00 2001 From: Tycho Grouwstra Date: Mon, 4 Jun 2018 21:06:46 +0200 Subject: [PATCH] pass in extra arg to ClientEnv, closes #1 --- binding-hs/examples/Agent.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/binding-hs/examples/Agent.hs b/binding-hs/examples/Agent.hs index f82acfd..c602834 100644 --- a/binding-hs/examples/Agent.hs +++ b/binding-hs/examples/Agent.hs @@ -23,7 +23,7 @@ import Network.HTTP.Client main :: IO () main = do manager <- newManager defaultManagerSettings - out <- runClientM example (ClientEnv manager url) + out <- runClientM example (ClientEnv manager url Nothing) case out of Left err -> print err Right ok -> print ok