From f6c4d634ab026e400f038dd8bcd385d496f13bc2 Mon Sep 17 00:00:00 2001
From: Jesse Brault <jbrault@mac.com>
Date: Tue, 14 Jan 2025 11:09:39 -0600
Subject: [PATCH] More curl sketching.

---
 sketching/curl.dms | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/sketching/curl.dms b/sketching/curl.dms
index 1b0519b..7ab2e94 100644
--- a/sketching/curl.dms
+++ b/sketching/curl.dms
@@ -13,3 +13,16 @@ fn main = jsonClient()
     map || ( it.body.accessToken )
     fold println
     ()
+
+# Better: main which returns IO (a Callable?) automatically calls the IO
+# Also, JsonClient can "login" using various methods, such as a Bearer token
+
+use std::http::{jsonClient, bearerToken}
+
+fn main = jsonClient(
+    baseUrl: 'http:/localhost:1234',
+    auth: bearerToken || ( post('/login', username: 'test', password: 'test') map || ( it.body.accessToken ) )
+)
+    get '/greeting'
+    map || ( it.body.greeting )
+    fold println