@@ -402,7 +402,7 @@ checkModule env@(Env _ root pkg _ _ _) foreigns resultsMVar name status =
402 SForeign home ->
402 SForeign home ->
403 case foreigns ! ModuleName.Canonical home name of
403 case foreigns ! ModuleName.Canonical home name of
404 I.Public iface -> return (RForeign iface)
404 I.Public iface -> return (RForeign iface)
405− I.Private _ _ _ -> error "loading private interface in Build"
405+ I.Private _ _ _ -> error $ "mistakenly seeing private interface for " ++ Pkg.toChars home ++ " " ++ ModuleName.toChars name
407 SKernel ->
407 SKernel ->
408 return RKernel
408 return RKernel