From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: X-Original-To: caml-list@sympa.inria.fr Delivered-To: caml-list@sympa.inria.fr Received: from mail2-relais-roc.national.inria.fr (mail2-relais-roc.national.inria.fr [192.134.164.83]) by sympa.inria.fr (Postfix) with ESMTPS id DA10D7FACB for ; Sat, 23 Aug 2014 17:49:18 +0200 (CEST) Received-SPF: None (mail2-smtp-roc.national.inria.fr: no sender authenticity information available from domain of daniel.buenzli@erratique.ch) identity=pra; client-ip=74.55.86.74; receiver=mail2-smtp-roc.national.inria.fr; envelope-from="daniel.buenzli@erratique.ch"; x-sender="daniel.buenzli@erratique.ch"; x-conformance=sidf_compatible Received-SPF: None (mail2-smtp-roc.national.inria.fr: no sender authenticity information available from domain of daniel.buenzli@erratique.ch) identity=mailfrom; client-ip=74.55.86.74; receiver=mail2-smtp-roc.national.inria.fr; envelope-from="daniel.buenzli@erratique.ch"; x-sender="daniel.buenzli@erratique.ch"; x-conformance=sidf_compatible Received-SPF: None (mail2-smtp-roc.national.inria.fr: no sender authenticity information available from domain of postmaster@smtp.webfaction.com) identity=helo; client-ip=74.55.86.74; receiver=mail2-smtp-roc.national.inria.fr; envelope-from="daniel.buenzli@erratique.ch"; x-sender="postmaster@smtp.webfaction.com"; x-conformance=sidf_compatible X-IronPort-Anti-Spam-Filtered: true X-IronPort-Anti-Spam-Result: AjACAAe3+FNKN1ZKnGdsb2JhbABZhhGBIopCqSCdUAGBHRABAQEBAQYNCQkUKYQEAQUjVhALGgImAgJHEAYbiDoEr2aUSReBLI4gB4J5NoEdBZIkkTwYkTyDOgEBAQ X-IPAS-Result: AjACAAe3+FNKN1ZKnGdsb2JhbABZhhGBIopCqSCdUAGBHRABAQEBAQYNCQkUKYQEAQUjVhALGgImAgJHEAYbiDoEr2aUSReBLI4gB4J5NoEdBZIkkTwYkTyDOgEBAQ X-IronPort-AV: E=Sophos;i="5.04,386,1406584800"; d="scan'208";a="90879278" Received: from mail6.webfaction.com (HELO smtp.webfaction.com) ([74.55.86.74]) by mail2-smtp-roc.national.inria.fr with ESMTP; 23 Aug 2014 17:49:18 +0200 Received: from [172.20.10.2] (188.29.164.28.threembb.co.uk [188.29.164.28]) by smtp.webfaction.com (Postfix) with ESMTP id 4A37820BDB7C; Sat, 23 Aug 2014 15:48:27 +0000 (UTC) Date: Sat, 23 Aug 2014 16:48:20 +0100 From: =?utf-8?Q?Daniel_B=C3=BCnzli?= To: Jeremy Yallop Cc: Caml-list Message-ID: In-Reply-To: References: <4060AF3441F149839C46804E64E2B9CE@erratique.ch> <83ADBE14262643EA9519BBE719987901@erratique.ch> X-Mailer: sparrow 1.6.4 (build 1178) MIME-Version: 1.0 Content-Type: text/plain; charset="utf-8" Content-Transfer-Encoding: quoted-printable Content-Disposition: inline Subject: Re: [Caml-list] Phantom types and variants Le samedi, 23 ao=C3=BBt 2014 =C3=A0 16:40, Jeremy Yallop a =C3=A9crit : > let coerce (#kind as k) ({kind} as v) =3D if v.kind <> k then > invalid_arg "" else v Wonderful. Thanks !=20=20 Daniel =20=20