From 8460598801b644f323db0b7d7ca879e3acb9215b Mon Sep 17 00:00:00 2001 From: krasimir Date: Fri, 30 Apr 2010 14:36:06 +0000 Subject: first incarnation of the bracketed string API --- src/runtime/haskell/PGF/Data.hs | 3 +-- 1 file changed, 1 insertion(+), 2 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 b604317fc..7623a05f3 100644 --- a/src/runtime/haskell/PGF/Data.hs +++ b/src/runtime/haskell/PGF/Data.hs @@ -56,7 +56,7 @@ data Symbol data Production = PApply {-# UNPACK #-} !FunId [FId] | PCoerce {-# UNPACK #-} !FId - | PConst Expr [String] + | PConst CId Expr [String] 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) @@ -86,7 +86,6 @@ data Tokn = | KP [String] [Alternative] deriving (Eq,Ord,Show) - -- merge two PGFs; fails is differens absnames; priority to second arg unionPGF :: PGF -> PGF -> PGF -- cgit v1.2.3