From bae62cf7c2138d7d59127bde04e545818e907425 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Fri, 13 Mar 2009 07:00:04 +0000
Subject: remove the obsolete GF.Infra.PrintClass

---
 src/GF/Speech/CFG.hs | 1 -
 src/GF/Speech/SRG.hs | 6 +-----
 2 files changed, 1 insertion(+), 6 deletions(-)

(limited to 'src/GF/Speech')

diff --git a/src/GF/Speech/CFG.hs b/src/GF/Speech/CFG.hs
index 7f00d87ad..6a34dfba3 100644
--- a/src/GF/Speech/CFG.hs
+++ b/src/GF/Speech/CFG.hs
@@ -9,7 +9,6 @@ module GF.Speech.CFG where
 import GF.Data.Utilities
 import PGF.CId
 import GF.Infra.Option
-import GF.Infra.PrintClass
 import GF.Data.Relation
 
 import Control.Monad
diff --git a/src/GF/Speech/SRG.hs b/src/GF/Speech/SRG.hs
index 1baa126f1..5d1bbdfed 100644
--- a/src/GF/Speech/SRG.hs
+++ b/src/GF/Speech/SRG.hs
@@ -15,14 +15,13 @@ module GF.Speech.SRG (SRG(..), SRGRule(..), SRGAlt(..), SRGItem, SRGSymbol
                      , makeNonRecursiveSRG
                      , getSpeechLanguage
                      , isExternalCat
-                     , lookupFM_, prtS
+                     , lookupFM_
                      ) where
 
 import GF.Data.Operations
 import GF.Data.Utilities
 import GF.Infra.Ident
 import GF.Infra.Option
-import GF.Infra.PrintClass
 import GF.Speech.CFG
 import GF.Speech.PGFToCFG
 import GF.Data.Relation
@@ -204,6 +203,3 @@ lookupFM_ :: (Ord key, Show key) => Map key elt -> key -> elt
 lookupFM_ fm k = Map.findWithDefault err k fm
   where err = error $ "Key not found: " ++ show k
                       ++ "\namong " ++ show (Map.keys fm)
-
-prtS :: Print a => a -> ShowS
-prtS = showString . prt
-- 
cgit v1.2.3