fork(1) download
  1. type a = {id : string}
  2. type b = {id : string}
  3.  
  4. let get_id (a : a) = a.id
  5.  
  6. let b : b = {id = "test"}
  7. let test = get_id b
  8.  
Compilation error #stdin compilation error #stdout 0s 0KB
stdin
Standard input is empty
compilation info
File "prog.ml", line 7, characters 18-19:
Error: This expression has type b but an expression was expected of type a
stdout
Standard output is empty