From 085f60ab4fa29abae17ee11b88bcf0631150ab8f Mon Sep 17 00:00:00 2001
From: Jesse Brault <jbrault@mac.com>
Date: Mon, 13 Jan 2025 15:20:38 -0600
Subject: [PATCH] Add curl sketch.

---
 sketching/curl.dms | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 sketching/curl.dms

diff --git a/sketching/curl.dms b/sketching/curl.dms
new file mode 100644
index 0000000..1b0519b
--- /dev/null
+++ b/sketching/curl.dms
@@ -0,0 +1,15 @@
+use std::http::jsonClient
+
+fn main = jsonClient() # json client
+    post 'http://localhost:1234/login', username: 'test', password: 'test' # Either<Err, Response>
+    -> || ( it.body.accessToken ) # Either<Error, *>
+    |> println # IO
+    ()
+
+# Without operators
+
+fn main = jsonClient()
+    post 'http://localhost:1234/login', username: 'test', password: 'test'
+    map || ( it.body.accessToken )
+    fold println
+    ()