From bd2f46583c058e427bbacd6dbcfc1a0ccdf25718 Mon Sep 17 00:00:00 2001 From: krasimir Date: Thu, 17 Sep 2009 14:32:20 +0000 Subject: remove the transfer modules. We don't need anything special, a transfer module is module without concrete syntax --- src/GF/Grammar/Binary.hs | 2 -- 1 file changed, 2 deletions(-) (limited to 'src/GF/Grammar/Binary.hs') diff --git a/src/GF/Grammar/Binary.hs b/src/GF/Grammar/Binary.hs index d3df904ba..83f96c025 100644 --- a/src/GF/Grammar/Binary.hs +++ b/src/GF/Grammar/Binary.hs @@ -37,7 +37,6 @@ instance (Ord i, Binary i, Binary a) => Binary (ModInfo i a) where instance (Binary i) => Binary (ModuleType i) where put MTAbstract = putWord8 0 - put (MTTransfer i j) = putWord8 1 >> put (i,j) put MTResource = putWord8 2 put (MTConcrete i) = putWord8 3 >> put i put MTInterface = putWord8 4 @@ -45,7 +44,6 @@ instance (Binary i) => Binary (ModuleType i) where get = do tag <- getWord8 case tag of 0 -> return MTAbstract - 1 -> get >>= \(i,j) -> return (MTTransfer i j) 2 -> return MTResource 3 -> get >>= return . MTConcrete 4 -> return MTInterface -- cgit v1.2.3