quantified.uncertainty/squiggle
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

result fmap

Browse Source
This commit is contained in:
Umur Ozkul 2022-08-20 06:47:23 +02:00
parent ddb6d7f958
commit feb7627ad0
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/squiggle-lang/src/rescript/ForTS/ForTS_Result.res
View File

@ -29,3 +29,10 @@ let getTag = (r: result_<'a, 'e>): int =>
| Ok(_) => rtOk_ | Ok(_) => rtOk_
| Error(_) => rtError_ | 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)
}