fix the grammar serialization for nonExist and BIND

1 files changed, 4 insertions, 4 deletions

diff --git a/src/runtime/haskell/PGF/Binary.hs b/src/runtime/haskell/PGF/Binary.hs
index 3c9dcc265..e293da99c 100644
--- a/src/runtime/haskell/PGF/Binary.hs
+++ b/src/runtime/haskell/PGF/Binary.hs
@@ -148,8 +148,8 @@ 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

-  put SymBIND            = putWord8 6

+  put SymBIND            = putWord8 5

+  put SymNE              = putWord8 6

   get = do tag <- getWord8

            case tag of

              0 -> liftM2 SymCat get get

@@ -157,8 +157,8 @@ 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

-             6 -> return SymBIND

+             5 -> return SymBIND

+             6 -> return SymNE

              _ -> decodingError

 

 instance Binary PArg where