Skip to content

Commit 44cd018

Browse files
committed
fix(learnocaml_common.mli): Expose (box_button, close_button)
* otherwise the interface is quite unpractical, e.g., using ext_alert with custom buttons would need to copy in the client code, the definition of box_button; so, DRY!
1 parent ab0f4f0 commit 44cd018

File tree

1 file changed

+8
-0
lines changed

1 file changed

+8
-0
lines changed

src/app/learnocaml_common.mli

Lines changed: 8 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -23,6 +23,14 @@ val fatal : ?title: string -> string -> unit
2323

2424
val alert : ?title: string -> ?buttons: Html_types.div_content Tyxml_js.Html.elt list -> string -> unit
2525

26+
val box_button :
27+
string Tyxml_js.Html5.wrap -> (unit -> 'a) ->
28+
[> Html_types.button ] Tyxml_js.Html5.elt
29+
30+
val close_button :
31+
string Tyxml_js.Html5.wrap ->
32+
[> Html_types.button ] Tyxml_js.Html5.elt
33+
2634
val ext_alert :
2735
title: string ->
2836
?buttons: Html_types.div_content_fun Tyxml_js.Html.elt list ->

0 commit comments

Comments
 (0)