diff options
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 |