@@ -28,6 +28,7 @@ import qualified Canonicalize.Pattern as Pattern
28import qualified Canonicalize.Type as Type
28import qualified Canonicalize.Type as Type
29import qualified Data.Index as Index
29import qualified Data.Index as Index
30import qualified Elm.Name as N
30import qualified Elm.Name as N
31+import qualified Elm.Package as Pkg
31import qualified Reporting.Annotation as A
32import qualified Reporting.Annotation as A
32import qualified Reporting.Error.Canonicalize as Error
33import qualified Reporting.Error.Canonicalize as Error
33import qualified Reporting.Region as R
34import qualified Reporting.Region as R
@@ -730,7 +731,7 @@ findVarQual region (Env.Env localHome vs _ _ _ qvs _ _) prefix name =
730 Result.throw (Error.NotFoundVar region (Just prefix) name (toPossibleNames vs qvs))
731 Result.throw (Error.NotFoundVar region (Just prefix) name (toPossibleNames vs qvs))
732 Nothing ->
733 Nothing ->
733− if ModuleName.isKernel prefix then
734+ if ModuleName.isKernel prefix && Pkg.isKernel (ModuleName._package localHome) then
734 Result.ok $ Can.VarKernel (ModuleName.getKernel prefix) name
735 Result.ok $ Can.VarKernel (ModuleName.getKernel prefix) name
736 Result.throw (Error.NotFoundVar region (Just prefix) name (toPossibleNames vs qvs))
737 Result.throw (Error.NotFoundVar region (Just prefix) name (toPossibleNames vs qvs))