do not depend on moonpool.fib in core

src/core/log_ctx.ml

@@ -1,15 +1,15 @@
-module FLS = Moonpool_fib.Fls
+module LS = Moonpool.Task_local_storage
 
 type 'a tag = 'a Logs.Tag.def
 
 (** Storage key for the ambient context. *)
-let ctx_k : Logs.Tag.t Str_map.t FLS.key =
-  FLS.new_key ~init:(fun () -> Str_map.empty) ()
+let ctx_k : Logs.Tag.t Str_map.t LS.key =
+  LS.new_key ~init:(fun () -> Str_map.empty) ()
 
 let create_tag ?doc name pp : _ tag = Logs.Tag.def ?doc name pp
 
 let get_tags_from_ctx () : Logs.Tag.set =
-  match FLS.get ctx_k with
+  match LS.get ctx_k with
   | exception Failure _ -> Logs.Tag.empty
   | map ->
     (* build the current set of tags *)
@@ -18,10 +18,10 @@ let get_tags_from_ctx () : Logs.Tag.set =
       map Logs.Tag.empty
 
 let with_tag (tag : _ tag) v (f : unit -> 'b) : 'b =
-  match FLS.get ctx_k with
+  match LS.get ctx_k with
   | exception Failure _ -> f ()
   | old_map ->
     let new_map =
       Str_map.add (Logs.Tag.name tag) (Logs.Tag.V (tag, v)) old_map
     in
-    FLS.with_value ctx_k new_map f
+    LS.with_value ctx_k new_map f

src/thread/dune

@@ -12,7 +12,6 @@
   containers
   threads.posix
   moonpool
-  moonpool.fib
   imandrakit
   hmap
   ptime