GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-08 02:32:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

remove the transfer modules. We don't need anything special, a transfer module is module without concrete syntax

Browse Source
This commit is contained in:
krasimir
2009-09-17 14:32:20 +00:00
parent 49ca46d958
commit bd2f46583c
8 changed files with 5 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/Grammar/Binary.hs
View File

@@ -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