Add to_result and from_result to option module

1 files changed, 32 insertions, 0 deletions

diff --git a/src/gleam/option.gleam b/src/gleam/option.gleam
index 30bc1e2..e5be4cc 100644
--- a/src/gleam/option.gleam
+++ b/src/gleam/option.gleam
@@ -36,3 +36,35 @@ pub fn is_some(option: Option(a)) -> Bool {
 pub fn is_none(option: Option(a)) -> Bool {
   option == None
 }
+
+/// Converts an Option type to a Result type
+///
+/// ## Examples
+///
+///    > to_result(Some(1), "some_error")
+///    Ok(1)
+///    > to_result(None, "some_error")
+///    Error("some_error")
+///
+pub fn to_result(option: Option(a), e) -> Result(a, e) {
+  case option {
+    Some(a) -> Ok(a)
+    _ -> Error(e)
+  }
+}
+
+/// Converts a Result type to an Option type
+///
+/// ## Examples
+///
+///    > from_result(Ok(1))
+///    Some(1)
+///    > from_result(Error"some_error"))
+///    None
+///
+pub fn from_result(result: Result(a, e)) -> Option(a) {
+  case result {
+    Ok(a) -> Some(a)
+    _ -> None
+  }
+}