diff options
| author | aarne <unknown> | 2005-11-06 21:00:36 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2005-11-06 21:00:36 +0000 |
| commit | c113c20862508c8150b5373a2aafc27fafc79e93 (patch) | |
| tree | a48cd4f9b615e1754f75b08fa0fa3c48655a8ca0 /src/GF/Infra/Modules.hs | |
| parent | 9ee93b4dce358eee812aa1034f2647947c013bf1 (diff) | |
multimodal resource
Diffstat (limited to 'src/GF/Infra/Modules.hs')
| -rw-r--r-- | src/GF/Infra/Modules.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/GF/Infra/Modules.hs b/src/GF/Infra/Modules.hs index 561e4ff0a..435a1fca9 100644 --- a/src/GF/Infra/Modules.hs +++ b/src/GF/Infra/Modules.hs @@ -5,9 +5,9 @@ -- Stability : (stable) -- Portability : (portable) -- --- > CVS $Date: 2005/05/30 21:08:14 $ +-- > CVS $Date: 2005/11/06 22:00:37 $ -- > CVS $Author: aarne $ --- > CVS $Revision: 1.24 $ +-- > CVS $Revision: 1.25 $ -- -- Datastructures and functions for modules, common to GF and GFC. -- @@ -349,6 +349,8 @@ sameMType m n = case (m,n) of (MTInstance _, MTInterface) -> True (MTResource, MTInstance _) -> True (MTResource, MTInterface) -> True + (MTAbstract, MTInterface) -> True -- for reuse + (MTConcrete _, MTResource) -> True -- for reuse (MTInterface,MTResource) -> True _ -> m == n |