add Fun.id to Kloth

davesnx · Aug 24, 2024 · b77c095 · b77c095
1 parent 10014e4
commit b77c095
Show file tree

Hide file tree

Showing 5 changed files with 18 additions and 2 deletions.
diff --git a/packages/runtime/melange/Kloth.ml b/packages/runtime/melange/Kloth.ml
@@ -82,3 +82,7 @@ module Option = struct
 
   let map ~f opt = match opt with Some x -> Some (f x) | None -> None
 end
+
+module Fun = struct
+  let id = Fun.id
+end
diff --git a/packages/runtime/native/Kloth.ml b/packages/runtime/native/Kloth.ml
@@ -87,3 +87,7 @@ module Option = struct
 
   let map ~f opt = match opt with Some x -> Some (f x) | None -> None
 end
+
+module Fun = struct
+  let id = Fun.id
+end
diff --git a/packages/runtime/native/Kloth.mli b/packages/runtime/native/Kloth.mli
@@ -25,3 +25,7 @@ module Option : sig
   val map_with_default : 'a option -> 'b -> ('a -> 'b) -> 'b
   val map : f:('a -> 'b) -> 'a option -> 'b option
 end
+
+module Fun : sig
+  val id : 'a -> 'a
+end
diff --git a/packages/runtime/native/shared/Css_types.ml b/packages/runtime/native/shared/Css_types.ml
@@ -3059,8 +3059,8 @@ module TextDecorationLine = struct
             (if lineThrough then Some {js|line-through|js} else None);
             (if blink then Some {js|blink|js} else None);
           |]
-          |> Kloth.Array.filter_map ~f:Fun.id
-          |> Kloth.Array.map_and_join ~f:Fun.id ~sep:{js| |js})
+          |> Kloth.Array.filter_map ~f:Kloth.Fun.id
+          |> Kloth.Array.map_and_join ~f:Kloth.Fun.id ~sep:{js| |js})
       | #None.t -> None.toString
   end
 

diff --git a/packages/runtime/rescript/Kloth.ml b/packages/runtime/rescript/Kloth.ml
@@ -84,3 +84,7 @@ module Option = struct
 
   let map ~f opt = match opt with Some x -> Some (f x) | None -> None
 end
+
+module Fun = struct
+  external id : 'a -> 'a = "%identity"
+end