Commits

Dmitry Grebeniuk  committed 59d189a

+ Dbi_pg.expect_result_data

  • Participants
  • Parent commits cf81d9c

Comments (0)

Files changed (1)

File src/dbi/dbi_pg.ml

   ]
 ;
 
+value expect_result_data = fun
+  [ `Data d -> d
+  | `Cmd -> failwith "Dbi_pg.expect_result_data: result is `Cmd"
+  | `Error e -> raise e
+  ]
+;
+
 
 value make_result presult : result =
   match presult#status with