diff options
| author | krasimir <krasimir@chalmers.se> | 2009-03-13 07:00:04 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2009-03-13 07:00:04 +0000 |
| commit | bae62cf7c2138d7d59127bde04e545818e907425 (patch) | |
| tree | 9354b19ebd0bf9738077a8a80393d839b635db02 /src/GF/Speech | |
| parent | d1276ee52b2065111b5e45c669de42d025ff0574 (diff) | |
remove the obsolete GF.Infra.PrintClass
Diffstat (limited to 'src/GF/Speech')
| -rw-r--r-- | src/GF/Speech/CFG.hs | 1 | ||||
| -rw-r--r-- | src/GF/Speech/SRG.hs | 6 |
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 |