this repo has no description
0
fork

Configure Feed

Select the types of activity you want to include in your feed.

Merge branch 'cmstatefield'

+8 -1
+8 -1
src/decoration.ml
··· 49 49 Jv.call range_set "of" [| Jv.of_array Range.to_jv ranges |] |> of_jv 50 50 51 51 let empty = Jv.get range_set "empty" |> of_jv 52 - let map t changes = Jv.call t "map" [| changes |] |> of_jv 52 + 53 + let safe_map = 54 + Jv.new' (Jv.get Jv.global "Function") 55 + [| Jv.of_string "rs"; Jv.of_string "ch"; Jv.of_string "em"; 56 + Jv.of_string "try { return rs.map(ch); } catch(e) { return em; }" |] 57 + 58 + let map t changes = 59 + Jv.call safe_map "call" [| Jv.null; t; changes; to_jv empty |] |> of_jv 53 60 end