diff options
| author | kr.angelov <kr.angelov@gmail.com> | 2011-11-02 13:57:11 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@gmail.com> | 2011-11-02 13:57:11 +0000 |
| commit | 734c66710e9bffa986c094e8c584295b33cd2f63 (patch) | |
| tree | 73fb499ba17a3d6d8986784f4a17ad03420204e4 /src/compiler/GF/Infra/Dependencies.hs | |
| parent | 5fe49ed9f7ac7089301e867e55bfedefcba230dd (diff) | |
merge GF.Infra.Modules and GF.Grammar.Grammar. This is a preparation for the separate PGF building
Diffstat (limited to 'src/compiler/GF/Infra/Dependencies.hs')
| -rw-r--r-- | src/compiler/GF/Infra/Dependencies.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/compiler/GF/Infra/Dependencies.hs b/src/compiler/GF/Infra/Dependencies.hs index 393d0e8c8..d90cbbae6 100644 --- a/src/compiler/GF/Infra/Dependencies.hs +++ b/src/compiler/GF/Infra/Dependencies.hs @@ -3,7 +3,6 @@ module GF.Infra.Dependencies ( ) where import GF.Grammar.Grammar -import GF.Infra.Modules import GF.Infra.Ident import Data.List (nub,isPrefixOf) @@ -60,8 +59,8 @@ grammar2moddeps monly gr = [(i,depMod i m) | (i,m) <- modules gr, yes i] MTConcrete i -> [i | yes i] MTInstance (i,_) -> [i | yes i] _ -> [], - extendeds = nub $ filter yes $ map fst (extend m), - openeds = nub $ filter yes $ map openedModule (opens m), + extendeds = nub $ filter yes $ map fst (mextend m), + openeds = nub $ filter yes $ map openedModule (mopens m), extrads = nub $ filter yes $ mexdeps m } yes i = case monly of |