diff options
| author | krasimir <krasimir@chalmers.se> | 2010-06-29 09:00:41 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2010-06-29 09:00:41 +0000 |
| commit | 272dcf69176234c0f032a8442ce4e7b449426bfd (patch) | |
| tree | 2622624af219ccd9e17acfe3cdef03cd75efcca3 /src/runtime/haskell/PGF/Macros.hs | |
| parent | 88d7631b62fd004ac4d84d37cc94a133f0776f60 (diff) | |
introduce the type synonym Token=String in the PGF API
Diffstat (limited to 'src/runtime/haskell/PGF/Macros.hs')
| -rw-r--r-- | src/runtime/haskell/PGF/Macros.hs | 6 |
1 files changed, 3 insertions, 3 deletions
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 |