samvv/bolt
1
0
Fork 0
Code Issues 24 Pull requests Projects Releases Packages Wiki Activity Actions

Update to new do-notation in README.md

Browse source
This commit is contained in:
Sam Vervaeck 2024-07-10 09:34:10 +02:00
parent cf782cbf13
commit 6f7da2c588
Signed by: samvv
SSH key fingerprint: SHA256:dIg0ywU1OP+ZYifrYxy8c5esO72cIKB+4/9wkZj1VaY
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
README.md
View file

@ -84,8 +84,8 @@ let app : Html.
let user = perform get_state let user = perform get_state
return match user. return match user.
None => do. None => do
Future.when_done (fetch "/api/login") \data -> do. Future.when_done (fetch "/api/login") \data -> do
perform set_state data perform set_state data
h1 [ "Please log in." ] h1 [ "Please log in." ]
Some { name, .. } => h1 [ f"Welcome Back, {fullname}" ] Some { name, .. } => h1 [ f"Welcome Back, {fullname}" ]