@@ -27,22 +27,22 @@ variable :: R.Region -> Env.Environment -> String -> Result.ResultErr Var.Canoni
27variable region env var =
27variable 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 ->
31− moduleName =
31+ moduleName =
32− ModuleName.Canonical Pkg.dummyName name
32+ ModuleName.Canonical Pkg.dummyName name
34− Result.var (Var.Canonical (Var.Module moduleName) varName)
34+ Result.var (Var.Canonical (Var.Module moduleName) varName)
37− case Set.toList `fmap` Map.lookup var (Env._values env) of
37+ case Set.toList `fmap` Map.lookup var (Env._values env) of
38− Just [v] ->
38+ Just [v] ->
39− Result.var v
39+ Result.var v
41− Just vs ->
41+ Just vs ->
42− preferLocals region env "variable" vs var
42+ preferLocals region env "variable" vs var
44− Nothing ->
44+ Nothing ->
45− notFound region "variable" (Map.keys (Env._values env)) var
45+ notFound region "variable" (Map.keys (Env._values env)) var