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/Data.hs | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'src/runtime/haskell/PGF/Data.hs') diff --git a/src/runtime/haskell/PGF/Data.hs b/src/runtime/haskell/PGF/Data.hs index 8b2fb41f8..fd357a678 100644 --- a/src/runtime/haskell/PGF/Data.hs +++ b/src/runtime/haskell/PGF/Data.hs @@ -44,19 +44,20 @@ data Concr = Concr { totalCats :: {-# UNPACK #-} !FId } +type Token = String type FId = Int type LIndex = Int type DotPos = Int data Symbol = SymCat {-# UNPACK #-} !Int {-# UNPACK #-} !LIndex | SymLit {-# UNPACK #-} !Int {-# UNPACK #-} !LIndex - | SymKS [String] - | SymKP [String] [Alternative] + | SymKS [Token] + | SymKP [Token] [Alternative] deriving (Eq,Ord,Show) data Production = PApply {-# UNPACK #-} !FunId [FId] | PCoerce {-# UNPACK #-} !FId - | PConst CId Expr [String] + | PConst CId Expr [Token] deriving (Eq,Ord,Show) data CncCat = CncCat {-# UNPACK #-} !FId {-# UNPACK #-} !FId {-# UNPACK #-} !(Array LIndex String) data CncFun = CncFun CId {-# UNPACK #-} !(UArray LIndex SeqId) deriving (Eq,Ord,Show) @@ -65,7 +66,7 @@ type FunId = Int type SeqId = Int data Alternative = - Alt [String] [String] + Alt [Token] [String] deriving (Eq,Ord,Show) -- cgit v1.2.3