diff options
| author | Pierre-Marie Pédrot | 2015-10-22 15:43:52 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2015-10-22 16:45:38 +0200 |
| commit | d0530179206ff98a327bc189139f75b83ece35ed (patch) | |
| tree | f77c4fa44e117ca2b927a37872c5264185c3c47d /ide/xmlprotocol.mli | |
| parent | 1b2a1f0229b485496497ebd1ddbbc561825d61e6 (diff) | |
Using GADTs in Xmlprotocol.
This removes 109 Obj.magic in one patch!
Diffstat (limited to 'ide/xmlprotocol.mli')
| -rw-r--r-- | ide/xmlprotocol.mli | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ide/xmlprotocol.mli b/ide/xmlprotocol.mli index 2c8ebc655a..7806550d1c 100644 --- a/ide/xmlprotocol.mli +++ b/ide/xmlprotocol.mli @@ -13,7 +13,7 @@ open Xml_datatype type 'a call -type unknown +type unknown_call = Unknown : 'a call -> unknown_call val add : add_sty -> add_rty call val edit_at : edit_at_sty -> edit_at_rty call @@ -43,7 +43,7 @@ val protocol_version : string (** * XML data marshalling *) val of_call : 'a call -> xml -val to_call : xml -> unknown call +val to_call : xml -> unknown_call val of_answer : 'a call -> 'a value -> xml val to_answer : 'a call -> xml -> 'a value |