X-Git-Url: http://git.megacz.com/?p=coq-hetmet.git;a=blobdiff_plain;f=src%2FHaskStrongToWeak.v;h=1761b834e98fc7a6cfcfccc6d95929552bc1286d;hp=ad1dee7faf013a1238ad37eb858befcfe3072e63;hb=44cdd9c14df650166e0ba7fa880c7a9ffd8521c0;hpb=b3214686b18b2d6f6905394494da8d1c17587bdb

diff --git a/src/HaskStrongToWeak.v b/src/HaskStrongToWeak.v
index ad1dee7..1761b83 100644
--- a/src/HaskStrongToWeak.v
+++ b/src/HaskStrongToWeak.v
@@ -209,7 +209,7 @@ Section HaskStrongToWeak.
   Fixpoint strongExprToWeakExpr (us:UniqSupply){Γ}{Δ}{ξ}{τ}(exp:@Expr _ eqVV Γ Δ ξ τ)
     (ite:InstantiatedTypeEnv (fun _ => WeakTypeVar) Γ)
     : ???WeakExpr :=
-    match exprToWeakExpr (fun v => Error ("unbound variable " +++ v)) exp ite with
+    match exprToWeakExpr (fun v => Error ("unbound variable " +++ toString v)) exp ite with
       uniqM f => f us >>= fun x => OK (snd x)
       end.