Commits

Anonymous committed 395e342

.

Comments (0)

Files changed (1)

   ]
 ;
 
-value expect_result_data = fun
+value expect_result_data
+ : result -> result_data
+ = fun
   [ `Data d -> d
-  | `Cmd -> failwith "Dbi_pg.expect_result_data: result is `Cmd"
+  | `Cmd _ -> failwith "Dbi_pg.expect_result_data: result is `Cmd"
   | `Error e -> raise e
   ]
 ;