From a20cd77d251192b8912587de17ebb87fa3cfb053 Mon Sep 17 00:00:00 2001 From: "kr.angelov" Date: Fri, 23 Aug 2013 13:17:45 +0000 Subject: nonExist now does the expected thing --- src/runtime/haskell/PGF/Binary.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'src/runtime/haskell/PGF/Binary.hs') diff --git a/src/runtime/haskell/PGF/Binary.hs b/src/runtime/haskell/PGF/Binary.hs index 0d743c1f4..865f98417 100644 --- a/src/runtime/haskell/PGF/Binary.hs +++ b/src/runtime/haskell/PGF/Binary.hs @@ -152,6 +152,7 @@ instance Binary Symbol where put (SymVar n l) = putWord8 2 >> put (n,l) put (SymKS ts) = putWord8 3 >> put ts put (SymKP d vs) = putWord8 4 >> put (d,vs) + put SymNE = putWord8 5 get = do tag <- getWord8 case tag of 0 -> liftM2 SymCat get get @@ -159,6 +160,7 @@ instance Binary Symbol where 2 -> liftM2 SymVar get get 3 -> liftM SymKS get 4 -> liftM2 (\d vs -> SymKP d vs) get get + 5 -> return SymNE _ -> decodingError instance Binary PArg where -- cgit v1.2.3