spacepaste

  1.  
  2. # new BatIO.out_channel |- Csv.to_out_obj;;
  3. Error: This expression has type Csv.out_obj_channel -> Csv.out_channel
  4. but an expression was expected of type BatIO.out_channel -> 'a
  5. Type
  6. Csv.out_obj_channel =
  7. < close_out : unit -> unit; output : string -> int -> int -> int >
  8. is not compatible with type
  9. BatIO.out_channel =
  10. < close_out : unit -> unit; flush : unit -> unit;
  11. output : string -> int -> int -> int >
  12. The first object type has no method flush
  13.