@@ -203,9 +203,13 @@ moduleToCoreFn env (A.Module _ coms mn decls (Just exps)) =
204findQualModules :: [A.Declaration] -> [ModuleName]
204findQualModules :: [A.Declaration] -> [ModuleName]
205findQualModules decls =
205findQualModules decls =
206− let (f, _, _, _, _) = everythingOnValues (++) (const []) fqValues fqBinders (const []) (const [])
206+ let (f, _, _, _, _) = everythingOnValues (++) fqDecls fqValues fqBinders (const []) (const [])
207 in f `concatMap` decls
207 in f `concatMap` decls
209+ fqDecls :: A.Declaration -> [ModuleName]
210+ fqDecls (A.TypeInstanceDeclaration _ _ (Qualified (Just mn) _) _ _) = [mn]
209 fqValues :: A.Expr -> [ModuleName]
213 fqValues :: A.Expr -> [ModuleName]
210 fqValues (A.Var (Qualified (Just mn) _)) = [mn]
214 fqValues (A.Var (Qualified (Just mn) _)) = [mn]
211 fqValues (A.Constructor (Qualified (Just mn) _)) = [mn]
215 fqValues (A.Constructor (Qualified (Just mn) _)) = [mn]