From 41b263cf6aa38e7c6ef090c0fa18949b86eec62c Mon Sep 17 00:00:00 2001 From: krasimir Date: Fri, 22 May 2009 18:54:51 +0000 Subject: some work on evaluation with abstract expressions in PGF --- src/GF/Grammar/Binary.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/GF/Grammar/Binary.hs') 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) -- cgit v1.2.3