From 122c40bb3b4cc4ca077f00ab3b484ae9066fd2be Mon Sep 17 00:00:00 2001
From: "kr.angelov" <kr.angelov@gmail.com>
Date: Wed, 30 Oct 2013 12:48:58 +0000
Subject: [PATCH] missing binary serialization for PImplArg in the .gfo files

---
 src/compiler/GF/Grammar/Binary.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/compiler/GF/Grammar/Binary.hs b/src/compiler/GF/Grammar/Binary.hs
index fab63a7ba..b225a2526 100644
--- a/src/compiler/GF/Grammar/Binary.hs
+++ b/src/compiler/GF/Grammar/Binary.hs
@@ -244,6 +244,7 @@ instance Binary Patt where
   put (PMacro x)   = putWord8 17 >> put x
   put (PM x)       = putWord8 18 >> put x
   put (PTilde x)   = putWord8 19 >> put x
+  put (PImplArg x) = putWord8 20 >> put x
   get = do tag <- getWord8
            case tag of
              0  -> get >>= \(x,y)   -> return (PC x y)
@@ -265,6 +266,7 @@ instance Binary Patt where
              17 -> get >>= \x       -> return (PMacro x)
              18 -> get >>= \x       -> return (PM x)
              19 -> get >>= \x       -> return (PTilde x)
+             20 -> get >>= \x       -> return (PImplArg x)
              _  -> decodingError
 
 instance Binary TInfo where