Stage 2 fix to "Keep track of family instance modules"

diff --git a/compiler/typecheck/TcRnDriver.lhs b/compiler/typecheck/TcRnDriver.lhs
index 6dfae44..94c55a7 100644 (file)
--- a/compiler/typecheck/TcRnDriver.lhs
+++ b/compiler/typecheck/TcRnDriver.lhs
@@ -1095,7 +1095,7 @@ tcGetModuleExports mod = do
   loadOrphanModules (dep_orphs (mi_deps iface)) False 
                -- Load any orphan-module interfaces,
                -- so their instances are visible
   loadOrphanModules (dep_orphs (mi_deps iface)) False 
                -- Load any orphan-module interfaces,
                -- so their instances are visible

-  loadOrphanModules (dep_finsts (mi_finsts iface)) True
+  loadOrphanModules (dep_finsts (mi_deps iface)) True

                -- Load any family instance-module interfaces,
                -- so all family instances are visible
   ifaceExportNames (mi_exports iface)
                -- Load any family instance-module interfaces,
                -- so all family instances are visible
   ifaceExportNames (mi_exports iface)