module - 模块OCaml中的函数中的语法错误

嗨，我的以下代码给出了“语法错误”，我不知道为什么...

您能看到任何基本错误吗？

(* ajouter_itineraire: itineraire -> plan -> plan *)
let  ajouter_itineraire (i: itineraire) (p: plan) = match p with
   | Vide ->[i]
   | Ilist l ->if itineraire_existe(i.num) then
       Err("Itineraire deja present") else i::p.Ilist

Err是一个以字符串为参数的异常。

最佳答案

您的代码尝试将异常作为值返回。我想您想说raise (Err "Itineraire deja present")。另外p.Ilist看起来也不对。这很可能应该只是l。