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/runtime/haskell/PGF/Macros.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/runtime/haskell/PGF/Macros.hs') diff --git a/src/runtime/haskell/PGF/Macros.hs b/src/runtime/haskell/PGF/Macros.hs index f6116ba60..f0d9b92a8 100644 --- a/src/runtime/haskell/PGF/Macros.hs +++ b/src/runtime/haskell/PGF/Macros.hs @@ -145,7 +145,7 @@ _V = mkCId "__gfV" -- as usual but we also want to retain the ''brackets'' that -- mark the beginning and the end of each constituent. data BracketedString - = Leaf String -- ^ this is the leaf i.e. a single token + = Leaf Token -- ^ this is the leaf i.e. a single token | Bracket CId {-# UNPACK #-} !FId {-# UNPACK #-} !LIndex [Expr] [BracketedString] -- ^ this is a bracket. The 'CId' is the category of -- the phrase. The 'FId' is an unique identifier for @@ -160,8 +160,8 @@ data BracketedString -- that represents the same constituent. data BracketedTokn - = LeafKS [String] - | LeafKP [String] [Alternative] + = LeafKS [Token] + | LeafKP [Token] [Alternative] | Bracket_ CId {-# UNPACK #-} !FId {-# UNPACK #-} !LIndex [Expr] [BracketedTokn] -- Invariant: the list is not empty deriving Eq -- cgit v1.2.3