From beb8cad7d868b5ef1eb74d8f0d50cb689db613ab Mon Sep 17 00:00:00 2001 From: aarne Date: Sat, 20 Jun 2009 13:50:34 +0000 Subject: 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 --- src/GF/Grammar/Binary.hs | 3 +++ 1 file changed, 3 insertions(+) (limited to 'src/GF/Grammar/Binary.hs') 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 -- cgit v1.2.3