aboutsummaryrefslogtreecommitdiff
path: root/src/content/chapter5_advanced_features/lesson01_use_sugar/code.gleam
diff options
context:
space:
mode:
authorLouis Pilfold <louis@lpil.uk>2024-01-18 17:47:12 +0000
committerLouis Pilfold <louis@lpil.uk>2024-01-18 17:47:12 +0000
commit3bfbe688f5a62e29835c7d3c4f282e7fff57949d (patch)
tree038cd1bf7a72949f7d68358ffd8af59d073ef70a /src/content/chapter5_advanced_features/lesson01_use_sugar/code.gleam
parentf92661980deac22b54e79cd44c25caba17910c95 (diff)
downloadtour-3bfbe688f5a62e29835c7d3c4f282e7fff57949d.tar.gz
tour-3bfbe688f5a62e29835c7d3c4f282e7fff57949d.zip
Rename
Diffstat (limited to 'src/content/chapter5_advanced_features/lesson01_use_sugar/code.gleam')
-rw-r--r--src/content/chapter5_advanced_features/lesson01_use_sugar/code.gleam30
1 files changed, 30 insertions, 0 deletions
diff --git a/src/content/chapter5_advanced_features/lesson01_use_sugar/code.gleam b/src/content/chapter5_advanced_features/lesson01_use_sugar/code.gleam
new file mode 100644
index 0000000..ac61062
--- /dev/null
+++ b/src/content/chapter5_advanced_features/lesson01_use_sugar/code.gleam
@@ -0,0 +1,30 @@
+import gleam/io
+import gleam/result
+
+pub fn main() {
+ let x = {
+ use username <- result.try(get_usename())
+ use password <- result.try(get_password())
+ use greeting <- result.map(log_in(username, password))
+ greeting <> ", " <> username
+ }
+
+ case x {
+ Ok(greeting) -> io.println(greeting)
+ Error(error) -> io.println_error(error)
+ }
+}
+
+// Here are some pretend functions for this example:
+
+fn get_usename() {
+ Ok("alice")
+}
+
+fn get_password() {
+ Ok("hunter2")
+}
+
+fn log_in(_username: String, _password: String) {
+ Ok("Welcome")
+}