diff options
Diffstat (limited to 'src/GF/Infra/Modules.hs')
| -rw-r--r-- | src/GF/Infra/Modules.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/GF/Infra/Modules.hs b/src/GF/Infra/Modules.hs index 01b789f8f..bae22219f 100644 --- a/src/GF/Infra/Modules.hs +++ b/src/GF/Infra/Modules.hs @@ -66,6 +66,10 @@ openedModule o = case o of OSimple m -> m OQualif _ m -> m +allOpens m = case mtype m of + MTTransfer a b -> a : b : opens m + _ -> opens m + -- initial dependency list depPathModule :: Ord i => Module i f a -> [OpenSpec i] depPathModule m = fors m ++ exts m ++ opens m where @@ -176,6 +180,10 @@ isModCnc m = case mtype m of MTConcrete _ -> True _ -> False +isModTrans m = case mtype m of + MTTransfer _ _ -> True + _ -> False + sameMType m n = case (m,n) of (MTConcrete _, MTConcrete _) -> True _ -> m == n |