diff options
| author | kr.angelov <kr.angelov@gmail.com> | 2007-09-25 05:55:49 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@gmail.com> | 2007-09-25 05:55:49 +0000 |
| commit | 286851b7c0628ec9aaecf6d41bd56d13218f53cd (patch) | |
| tree | 62c34d6dabd6d1b7d75ec25dcae734a63c23b0f8 /src/GF/Infra/Print.hs | |
| parent | c6c7557b13091116f66884c0d6105dca0fd33df3 (diff) | |
remove the dependency to GF.Data.Operations from GF Embed API
Diffstat (limited to 'src/GF/Infra/Print.hs')
| -rw-r--r-- | src/GF/Infra/Print.hs | 3 |
1 files changed, 3 insertions, 0 deletions
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 |