Commits

Anonymous committed 15788d0

call_resp_error: + `Exn of exn

Comments (0)

Files changed (3)

+CMT _build
+I +site-lib/cadastr
     exception Ty_ver of ty_ver_error;
 
     type call_resp_error =
-      [= `Exn_string of string
+      [= `Exn of exn
+      |  `Exn_string of string
       ]
     ;
 
              ~constr:
                [| ti_ctr_variant1 "`Exn_string" ti_string &
                   fun s -> `Exn_string s
+                ; ti_ctr_variant1 "`Exn" Exn.ti &
+                  fun e -> `Exn e
                 |]
              & fun
              [ `Exn_string s -> ti_variant "`Exn_string"
-                 [| ubox ti_string s |] ]
+                 [| ubox ti_string s |]
+             | `Exn e -> ti_variant "`Exn"
+                 [| ubox Exn.ti e |]
+             ]
            ) :> ti _)
         ;
 
 ;
 
 type call_resp_error =
-  [= `Exn_string of string
+  [= `Exn of exn
+  |  `Exn_string of string
   ]
 ;