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