@@ -203,9 +203,13 @@ moduleToCoreFn env (A.Module _ coms mn decls (Just exps)) =
203203--
204204findQualModules :: [A.Declaration] -> [ModuleName]
205205findQualModules decls =
206− let (f, _, _, _, _) = everythingOnValues (++) (const []) fqValues fqBinders (const []) (const [])
206+ let (f, _, _, _, _) = everythingOnValues (++) fqDecls fqValues fqBinders (const []) (const [])
207207 in f `concatMap` decls
208208 where
209+ fqDecls :: A.Declaration -> [ModuleName]
210+ fqDecls (A.TypeInstanceDeclaration _ _ (Qualified (Just mn) _) _ _) = [mn]
211+ fqDecls _ = []
212+
209213 fqValues :: A.Expr -> [ModuleName]
210214 fqValues (A.Var (Qualified (Just mn) _)) = [mn]
211215 fqValues (A.Constructor (Qualified (Just mn) _)) = [mn]