diff options
Diffstat (limited to 'src/GF/Grammar/Binary.hs')
| -rw-r--r-- | src/GF/Grammar/Binary.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/GF/Grammar/Binary.hs b/src/GF/Grammar/Binary.hs index 0521ff9c3..18594d4eb 100644 --- a/src/GF/Grammar/Binary.hs +++ b/src/GF/Grammar/Binary.hs @@ -90,7 +90,7 @@ instance Binary Options where instance Binary Info where
put (AbsCat x y) = putWord8 0 >> put (x,y)
- put (AbsFun x y) = putWord8 1 >> put (x,y)
+ put (AbsFun x y z) = putWord8 1 >> put (x,y,z)
put (ResParam x) = putWord8 2 >> put x
put (ResValue x) = putWord8 3 >> put x
put (ResOper x y) = putWord8 4 >> put (x,y)
@@ -101,7 +101,7 @@ instance Binary Info where get = do tag <- getWord8
case tag of
0 -> get >>= \(x,y) -> return (AbsCat x y)
- 1 -> get >>= \(x,y) -> return (AbsFun x y)
+ 1 -> get >>= \(x,y,z) -> return (AbsFun x y z)
2 -> get >>= \x -> return (ResParam x)
3 -> get >>= \x -> return (ResValue x)
4 -> get >>= \(x,y) -> return (ResOper x y)
|