remove the dependency to GF.Data.Operations from GF Embed API

This commit is contained in:
kr.angelov
2007-09-25 05:55:49 +00:00
parent c6c7557b13
commit 286851b7c0
3 changed files with 9 additions and 6 deletions

View File

@@ -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

View File

@@ -1,7 +1,6 @@
module GF.Infra.PrintClass where
import Data.List (intersperse)
import GF.Data.Operations (Err(..))
class Print a where
prt :: a -> String
@@ -50,7 +49,3 @@ instance Print Integer where
instance Print a => Print (Maybe a) where
prt (Just a) = prt a
prt Nothing = "Nothing"
instance Print a => Print (Err a) where
prt (Ok a) = prt a
prt (Bad str) = str