From 286851b7c0628ec9aaecf6d41bd56d13218f53cd Mon Sep 17 00:00:00 2001
From: "kr.angelov" <kr.angelov@gmail.com>
Date: Tue, 25 Sep 2007 05:55:49 +0000
Subject: remove the dependency to GF.Data.Operations from GF Embed API

---
 src/GF/Infra/Print.hs | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/GF/Infra/Print.hs')

diff --git a/src/GF/Infra/Print.hs b/src/GF/Infra/Print.hs
index c4a310c29..17f2c2188 100644
--- a/src/GF/Infra/Print.hs
+++ b/src/GF/Infra/Print.hs
@@ -121,4 +121,7 @@ instance Print CFFun where
 instance Print Exp where
     prt = P.printTree
 
+instance Print a => Print (Err a) where
+    prt (Ok a) = prt a
+    prt (Bad str) = str
 
-- 
cgit v1.2.3