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