2 files changed, 1 insertions, 6 deletions
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