X-Git-Url: http://git.megacz.com/?p=coq-hetmet.git;a=blobdiff_plain;f=src%2FHaskWeak.v;h=22f0e6042b254d84e56f688c2423ecd9a1ac67eb;hp=85f5b24f25dd9866bccb0aa78d9ff516c4c6b627;hb=68f41d71d573b422b04ed3f4a3eb3ab41de09a79;hpb=4ec2860679a25b16cba9df2de6ea971064200756

diff --git a/src/HaskWeak.v b/src/HaskWeak.v
index 85f5b24..22f0e60 100644
--- a/src/HaskWeak.v
+++ b/src/HaskWeak.v
@@ -20,6 +20,8 @@ Inductive WeakAltCon :=
 Inductive WeakExpr :=
 | WEVar       : WeakExprVar                                                  -> WeakExpr
 | WELit       : HaskLiteral                                                  -> WeakExpr
+
+(* TO DO: add a WEWhere and use the source location to detect which one the user used *)
 | WELet       : WeakExprVar -> WeakExpr         -> WeakExpr                  -> WeakExpr
 | WELetRec    : Tree ??(WeakExprVar * WeakExpr) -> WeakExpr                  -> WeakExpr
 | WECast      : WeakExpr                        -> WeakCoercion              -> WeakExpr