the construct lin C t now replaces lock fields (in source code; still tempor used internally); lock fields removed from english resource as an example

1 files changed, 3 insertions, 0 deletions

diff --git a/src/GF/Grammar/Binary.hs b/src/GF/Grammar/Binary.hs
index 18594d4eb..d3df904ba 100644
--- a/src/GF/Grammar/Binary.hs
+++ b/src/GF/Grammar/Binary.hs
@@ -148,6 +148,8 @@ instance Binary Term where
   put (FV x)        = putWord8 35 >> put x

   put (Alts x)      = putWord8 36 >> put x

   put (Strs x)      = putWord8 37 >> put x

+  put (ELin x y)    = putWord8 38 >> put (x,y)

+

   get = do tag <- getWord8

            case tag of

              0  -> get >>= \x       -> return (Vr x)

@@ -186,6 +188,7 @@ instance Binary Term where
              35 -> get >>= \x       -> return (FV x)

              36 -> get >>= \x       -> return (Alts x)

              37 -> get >>= \x       -> return (Strs x)

+             38 -> get >>= \(x,y)   -> return (ELin x y)

              _  -> decodingError

 

 instance Binary Patt where