From 19b17dceb6a1882ee779e75b9703d7fd2b93cc95 Mon Sep 17 00:00:00 2001 From: krasimir Date: Tue, 16 Feb 2010 09:34:02 +0000 Subject: no need to keep the list of constructors per category in .gfo --- src/compiler/GF/Grammar/Binary.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/compiler/GF/Grammar/Binary.hs') diff --git a/src/compiler/GF/Grammar/Binary.hs b/src/compiler/GF/Grammar/Binary.hs index 7e56492cb..8ac7f4dea 100644 --- a/src/compiler/GF/Grammar/Binary.hs +++ b/src/compiler/GF/Grammar/Binary.hs @@ -87,7 +87,7 @@ instance Binary Options where Bad msg -> fail msg instance Binary Info where - put (AbsCat x y) = putWord8 0 >> put (x,y) + put (AbsCat x) = putWord8 0 >> put x put (AbsFun x y z) = putWord8 1 >> put (x,y,z) put (ResParam x y) = putWord8 2 >> put (x,y) put (ResValue x) = putWord8 3 >> put x @@ -98,7 +98,7 @@ instance Binary Info where put (AnyInd x y) = putWord8 8 >> put (x,y) get = do tag <- getWord8 case tag of - 0 -> get >>= \(x,y) -> return (AbsCat x y) + 0 -> get >>= \x -> return (AbsCat x) 1 -> get >>= \(x,y,z) -> return (AbsFun x y z) 2 -> get >>= \(x,y) -> return (ResParam x y) 3 -> get >>= \x -> return (ResValue x) -- cgit v1.2.3