Commit 56d75185 authored by Seb Mondet's avatar Seb Mondet
Browse files

Add `IFmt.tag` to `Experiments`

parent aa00d61f
......@@ -19,8 +19,8 @@ module More_fmt = struct
cut ppf () ;
string ppf (String.make 45 '`') )
let shout ppf f =
Format.pp_open_tag ppf "shout" ;
f ppf ;
Format.pp_close_tag ppf ()
let tag tag ppf f =
Format.pp_open_tag ppf tag ; f ppf ; Format.pp_close_tag ppf ()
let shout = tag "shout"
end
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment