From 7361ddea45727e80a79ba42af34e45f9641fc993 Mon Sep 17 00:00:00 2001 From: aarne Date: Sat, 12 Mar 2011 11:24:14 +0000 Subject: make it possible to override opers defined in an interface by syntax 'instance Foo of Bar - [f,g,h]' --- src/compiler/GF/Infra/Dependencies.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/compiler/GF/Infra/Dependencies.hs') diff --git a/src/compiler/GF/Infra/Dependencies.hs b/src/compiler/GF/Infra/Dependencies.hs index 82606a865..393d0e8c8 100644 --- 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), -- cgit v1.2.3