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/Compile/ReadFiles.hs
+++ b/src/compiler/GF/Compile/ReadFiles.hs
@@ -178,7 +178,7 @@ importsOfModule (m,mi) = (modName m,depModInfo mi [])
    depModType (MTResource)       xs = xs
    depModType (MTInterface)      xs = xs
    depModType (MTConcrete m2)    xs = modName m2:xs
-    depModType (MTInstance m2)    xs = modName m2:xs
+    depModType (MTInstance (m2,_))    xs = modName m2:xs

    depExtends es xs = foldr depInclude xs es