on master help sign in
Use the local package name for any imported
a44041bEvan Czaplicki
src/Canonicalize/Variable.hs+4−1
@@ -28,8 +28,11 @@ variable region env var =
28 case toVarName var of
28 case toVarName var of
29 Right (name, varName) | ModuleName.isNative name ->
29 Right (name, varName) | ModuleName.isNative name ->
30 let
30 let
31+ localPkg =
32+ ModuleName._package (Env._home env)
33+
31 moduleName =
34 moduleName =
32− ModuleName.Canonical Pkg.dummyName name
35+ ModuleName.Canonical localPkg name
33 in
36 in
34 Result.var (Var.Canonical (Var.Module moduleName) varName)
37 Result.var (Var.Canonical (Var.Module moduleName) varName)
35
38