From 272dcf69176234c0f032a8442ce4e7b449426bfd Mon Sep 17 00:00:00 2001 From: krasimir Date: Tue, 29 Jun 2010 09:00:41 +0000 Subject: introduce the type synonym Token=String in the PGF API --- src/compiler/GF/Speech/CFG.hs | 1 - src/compiler/GF/Speech/SRGS_XML.hs | 2 +- 2 files changed, 1 insertion(+), 2 deletions(-) (limited to 'src/compiler') diff --git a/src/compiler/GF/Speech/CFG.hs b/src/compiler/GF/Speech/CFG.hs index 9ec8416c5..f396faace 100644 --- a/src/compiler/GF/Speech/CFG.hs +++ b/src/compiler/GF/Speech/CFG.hs @@ -27,7 +27,6 @@ import qualified Data.Set as Set -- type Cat = String -type Token = String data Symbol c t = NonTerminal c | Terminal t deriving (Eq, Ord, Show) diff --git a/src/compiler/GF/Speech/SRGS_XML.hs b/src/compiler/GF/Speech/SRGS_XML.hs index 1f94de66d..5f3579406 100644 --- a/src/compiler/GF/Speech/SRGS_XML.hs +++ b/src/compiler/GF/Speech/SRGS_XML.hs @@ -13,7 +13,7 @@ import GF.Speech.CFG import GF.Speech.RegExp import GF.Speech.SISR as SISR import GF.Speech.SRG -import PGF (PGF, CId) +import PGF (PGF, CId, Token) import Control.Monad import Data.Char (toUpper,toLower) -- cgit v1.2.3