result fmap

2022-08-20 06:47:23 +02:00 · 2022-08-20 06:47:23 +02:00 · feb7627ad0
commit feb7627ad0
parent ddb6d7f958
1 changed files with 7 additions and 0 deletions
--- a/packages/squiggle-lang/src/rescript/ForTS/ForTS_Result.res
+++ b/packages/squiggle-lang/src/rescript/ForTS/ForTS_Result.res
@ -29,3 +29,10 @@ let getTag = (r: result_<'a, 'e>): int =>
  | Ok(_) => rtOk_
  | Error(_) => rtError_
  }
+
+@genType
+let fmap = (r: result_<'a, 'e>, f: 'a => 'b): result_<'b, 'e> =>
+  switch r {
+  | Ok(v) => Ok(f(v))
+  | Error(e) => Error(e)
+  }