From 075436cc3ef105ccbc3d8c1861fe6edb768c9485 Mon Sep 17 00:00:00 2001 From: ilyabarishnikov Date: Tue, 1 Mar 2022 00:07:59 +0800 Subject: [PATCH] add 4 extra spaces to example on http client --- http-client/Network/HTTP/Client.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/http-client/Network/HTTP/Client.hs b/http-client/Network/HTTP/Client.hs index f3786548..9efa501f 100644 --- a/http-client/Network/HTTP/Client.hs +++ b/http-client/Network/HTTP/Client.hs @@ -349,9 +349,9 @@ managerSetProxy po = managerSetInsecureProxy po . managerSetSecureProxy po -- > -- Create the request -- > let requestObject = object ["name" .= "Michael", "age" .= 30] -- > let requestObject = object --- > [ "name" .= ("Michael" :: Text) --- > , "age" .= (30 :: Int) --- > ] +-- > [ "name" .= ("Michael" :: Text) +-- > , "age" .= (30 :: Int) +-- > ] -- > -- > initialRequest <- parseRequest "http://httpbin.org/post" -- > let request = initialRequest { method = "POST", requestBody = RequestBodyLBS $ encode requestObject }