Module Frenetic_async.Common

val profile : (unit ‑> 'a) ‑> float * 'a

val printf : ?⁠level:[ `Debug | `Error | `Info ] ‑> ('a, unit, string, unit) Core.format4 ‑> 'a

val extract_path : Cohttp_async.Request.t ‑> string list

val handle_parse_errors : Cohttp_async.Body.t ‑> (Cohttp_async.Body.t ‑> 'a Async.Deferred.t) ‑> ('a ‑> Cohttp_async.Server.response Async.Deferred.t) ‑> Cohttp_async.Server.response Async.Deferred.t

val handle_parse_errors' : Cohttp_async.Body.t ‑> (string ‑> 'a) ‑> ('a ‑> Cohttp_async.Server.response Async.Deferred.t) ‑> Cohttp_async.Server.response Async.Deferred.t

val parse_update : Cohttp_async.Body.t ‑> Frenetic_netkat.Syntax.policy Async_kernel__Deferred.t

val parse_update_json : Cohttp_async.Body.t ‑> Frenetic_netkat.Syntax.policy Async_kernel__Deferred.t

val parse_config_json : Cohttp_async.Body.t ‑> Frenetic_netkat.Local_compiler.compiler_options Async_kernel__Deferred.t