From 1d2bf1cea88445f97fcc2298716e9ea5da205bf7 Mon Sep 17 00:00:00 2001
From: "kr.angelov" <kr.angelov@gmail.com>
Date: Mon, 21 Oct 2013 10:03:43 +0000
Subject: [PATCH] fix the grammar serialization for nonExist and BIND

---
 src/runtime/haskell/PGF/Binary.hs | 8 ++++----
 1 file 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