better error reporting in Extraction.v

[coq-hetmet.git] / src / HaskWeakToCore.v

diff --git a/src/HaskWeakToCore.v b/src/HaskWeakToCore.v
index 1194251..88c6830 100644 (file)
--- a/src/HaskWeakToCore.v
+++ b/src/HaskWeakToCore.v
@@ -88,5 +88,7 @@ Definition weakCoercionToCoreCoercion : WeakCoercion -> CoreCoercion :=
   end.
 
 
+Instance weakExprToString : ToString WeakExpr  :=
+  { toString := fun we => toString (weakExprToCoreExpr we) }.