Commits

Anonymous committed 39c3924

amall.dbi: result_data#downcast

Comments (0)

Files changed (1)

src/dbi/dbi_pg.ml

 ;
 
 
+exception Pg_result_data of P.result
+;
+
+
 class result_data
   (presult : P.result) =
   let names_lazy = lazy presult#get_fnames in
     inherit Dbi.result ['v];
 *)
 
+    method downcast : unit = raise (Pg_result_data presult);
+
     value mutable v_current_nrow = 0;
 
     method nrows = some_nrows;