make it possible to override opers defined in an interface by syntax 'instance Foo of Bar - [f,g,h]'

2011-03-12 11:24:14 +00:00
parent 3ddc29f2dc
commit 7361ddea45
6 changed files with 17 additions and 15 deletions
--- a/src/compiler/GF/Infra/Dependencies.hs
+++ b/src/compiler/GF/Infra/Dependencies.hs
@@ -58,7 +58,7 @@ grammar2moddeps monly gr = [(i,depMod i m) | (i,m) <- modules gr, yes i]
          modtype = mtype m,
          ofs     = case mtype m of 
                     MTConcrete i -> [i | yes i]
-                     MTInstance 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),