From bd2f46583c058e427bbacd6dbcfc1a0ccdf25718 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
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/Infra/Modules.hs | 16 ++--------------
 1 file changed, 2 insertions(+), 14 deletions(-)

(limited to 'src/GF/Infra/Modules.hs')

diff --git a/src/GF/Infra/Modules.hs b/src/GF/Infra/Modules.hs
index 11e6d0a1f..0710b8f40 100644
--- a/src/GF/Infra/Modules.hs
+++ b/src/GF/Infra/Modules.hs
@@ -26,7 +26,7 @@ module GF.Infra.Modules (
 		addOpenQualif, flagsModule, allFlags, mapModules,
 		OpenSpec(..),
 		ModuleStatus(..),
-		openedModule, allOpens, depPathModule, allDepsModule, partOfGrammar,
+		openedModule, depPathModule, allDepsModule, partOfGrammar,
 		allExtends, allExtendSpecs, allExtendsPlus, allExtensions, 
                 searchPathModule, addModule,
 		emptyMGrammar, emptyModInfo,
@@ -34,7 +34,7 @@ module GF.Infra.Modules (
 		abstractOfConcrete, abstractModOfConcrete,
 		lookupModule, lookupModuleType, lookupInfo,
                 lookupPosition, ppPosition,
-		isModAbs, isModRes, isModCnc, isModTrans,
+		isModAbs, isModRes, isModCnc,
 		sameMType, isCompilableModule, isCompleteModule,
 		allAbstracts, greatestAbstract, allResources,
 		greatestResource, allConcretes, allConcreteModules
@@ -72,7 +72,6 @@ data ModInfo i a = ModInfo {
 -- | encoding the type of the module
 data ModuleType i = 
     MTAbstract 
-  | MTTransfer (OpenSpec i) (OpenSpec i) 
   | MTResource
   | MTConcrete i
     -- ^ up to this, also used in GFC. Below, source only.
@@ -141,18 +140,12 @@ openedModule o = case o of
   OSimple m -> m
   OQualif _ m -> m
 
-allOpens :: ModInfo i a -> [OpenSpec i]
-allOpens m = case mtype m of
-  MTTransfer a b -> a : b : opens m
-  _ -> opens m
-
 -- | initial dependency list
 depPathModule :: Ord i => ModInfo i a -> [OpenSpec i]
 depPathModule m = fors m ++ exts m ++ opens m
   where
     fors m = 
       case mtype m of
-        MTTransfer i j -> [i,j]
         MTConcrete i   -> [OSimple i]
         MTInstance i   -> [OSimple i]
         _              -> []
@@ -292,11 +285,6 @@ isModCnc m = case mtype m of
   MTConcrete _ -> True
   _ -> False
 
-isModTrans :: ModInfo i a -> Bool
-isModTrans m = case mtype m of
-  MTTransfer _ _ -> True
-  _ -> False
-
 sameMType :: Eq i => ModuleType i -> ModuleType i -> Bool
 sameMType m n = case (n,m) of
   (MTConcrete _, MTConcrete _) -> True
-- 
cgit v1.2.3