X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=src%2FHaskWeakToCore.v;fp=src%2FHaskWeakToCore.v;h=88c6830b78354e565b23fca353ae68c626bc7de4;hb=f6732490f83e19174b8a8a6b487da95913d9f02d;hp=1194251c394191dc201ebc3063d8cc3388021dec;hpb=8efffc7368b5e54c42461f45a9708ff2828409a4;p=coq-hetmet.git

diff --git a/src/HaskWeakToCore.v b/src/HaskWeakToCore.v
index 1194251..88c6830 100644
--- 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) }.