aboutsummaryrefslogtreecommitdiff
path: root/src/content/chapter5_advance_features/lesson01_use_sugar/code.gleam
diff options
context:
space:
mode:
authorLouis Pilfold <louis@lpil.uk>2024-01-18 16:44:27 +0000
committerLouis Pilfold <louis@lpil.uk>2024-01-18 16:44:27 +0000
commitf92661980deac22b54e79cd44c25caba17910c95 (patch)
tree165923d00aab8e7a5d5944d388dbb182c6d57b51 /src/content/chapter5_advance_features/lesson01_use_sugar/code.gleam
parente35f26eb4a034aad8a531986bf876075ffb02e3c (diff)
downloadtour-f92661980deac22b54e79cd44c25caba17910c95.tar.gz
tour-f92661980deac22b54e79cd44c25caba17910c95.zip
Last of the content!
Diffstat (limited to 'src/content/chapter5_advance_features/lesson01_use_sugar/code.gleam')
-rw-r--r--src/content/chapter5_advance_features/lesson01_use_sugar/code.gleam30
1 files changed, 30 insertions, 0 deletions
diff --git a/src/content/chapter5_advance_features/lesson01_use_sugar/code.gleam b/src/content/chapter5_advance_features/lesson01_use_sugar/code.gleam
new file mode 100644
index 0000000..ac61062
--- /dev/null
+++ b/src/content/chapter5_advance_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")
+}