From 86d811f2a6b29db64595b8ada83f8ffc33e9489f Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Fri, 9 Jan 2004 16:40:56 +0000
Subject: Interfaces and instances by reuse.

---
 src/GF/Infra/Modules.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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

diff --git a/src/GF/Infra/Modules.hs b/src/GF/Infra/Modules.hs
index d2bfae5c1..45933e126 100644
--- a/src/GF/Infra/Modules.hs
+++ b/src/GF/Infra/Modules.hs
@@ -43,9 +43,13 @@ data ModuleType i =
 
   | MTInterface
   | MTInstance i 
-  | MTReuse i
+  | MTReuse (MReuseType i)
   deriving (Eq,Show)
 
+data MReuseType i = MRInterface i | MRInstance i i | MRResource i
+  deriving (Show,Eq)
+
+
 -- destructive update
 
 --- dep order preserved since old cannot depend on new
-- 
cgit v1.2.3