@@ -15,15 +15,19 @@ import qualified Reporting.Error.Helpers as Error
1515import qualified Reporting.Region as R
1616import qualified Canonicalize.Environment as Env
1717import qualified Canonicalize.Result as Result
18+import qualified Elm.Package as Pkg
1819import Elm.Utils ((|>))
1920
2021
2122variable :: R.Region -> Env.Environment -> String -> Result.ResultErr Var.Canonical
2223variable region env var =
2324 case toVarName var of
24− Right (name, varName)
25− | ModuleName.isNative name ->
26− error "TODO" "Result.var (Var.Canonical (Var.Module name) varName)"
25+ Right (name, varName) | ModuleName.isNative name ->
26+ let
27+ moduleName =
28+ ModuleName.Canonical Pkg.dummyName name
29+ in
30+ Result.var (Var.Canonical (Var.Module moduleName) varName)
2731
2832 _ ->
2933 case Set.toList `fmap` Map.lookup var (Env._values env) of