From 8bc8929c59d2bd6f28d5dab9c7a9ca8a1c23609e Mon Sep 17 00:00:00 2001 From: krasimir Date: Tue, 16 Jun 2009 11:56:08 +0000 Subject: completely phrase based parser and support for pre {} in PMCFG --- src/PGF/Binary.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/PGF/Binary.hs') diff --git a/src/PGF/Binary.hs b/src/PGF/Binary.hs index ea99a3ed4..b99296db5 100644 --- a/src/PGF/Binary.hs +++ b/src/PGF/Binary.hs @@ -156,14 +156,14 @@ instance Binary FFun where instance Binary FSymbol where put (FSymCat n l) = putWord8 0 >> put (n,l) put (FSymLit n l) = putWord8 1 >> put (n,l) - put (FSymTok (KS s)) = putWord8 2 >> put s - put (FSymTok (KP d vs)) = putWord8 3 >> put (d,vs) + put (FSymKS ts) = putWord8 2 >> put ts + put (FSymKP d vs) = putWord8 3 >> put (d,vs) get = do tag <- getWord8 case tag of 0 -> liftM2 FSymCat get get 1 -> liftM2 FSymLit get get - 2 -> liftM (FSymTok . KS) get - 3 -> liftM2 (\d vs -> FSymTok (KP d vs)) get get + 2 -> liftM FSymKS get + 3 -> liftM2 (\d vs -> FSymKP d vs) get get _ -> decodingError instance Binary Production where -- cgit v1.2.3