git.iko.soy/elk
on master help sign in
Produce dummy values for native variables
a783564Evan Czaplicki
src/Canonicalize/Variable.hs+7−3
compare with master
unifiedsplit
@@ -15,15 +15,19 @@ import qualified Reporting.Error.Helpers as Error
15import qualified Reporting.Region as R
15import qualified Reporting.Region as R
16import qualified Canonicalize.Environment as Env
16import qualified Canonicalize.Environment as Env
17import qualified Canonicalize.Result as Result
17import qualified Canonicalize.Result as Result
18+import qualified Elm.Package as Pkg
18import Elm.Utils ((|>))
19import Elm.Utils ((|>))
19
20
20
21
21variable :: R.Region -> Env.Environment -> String -> Result.ResultErr Var.Canonical
22variable :: R.Region -> Env.Environment -> String -> Result.ResultErr Var.Canonical
22variable region env var =
23variable region env var =
23 case toVarName var of
24 case toVarName var of
24− Right (name, varName)
25− | ModuleName.isNative name ->
25+ Right (name, varName) | ModuleName.isNative name ->
26+ let
27+ moduleName =
28+ ModuleName.Canonical Pkg.dummyName name
29+ in
26− error "TODO" "Result.var (Var.Canonical (Var.Module name) varName)"
30+ Result.var (Var.Canonical (Var.Module moduleName) varName)
27
31
28 _ ->
32 _ ->
29 case Set.toList `fmap` Map.lookup var (Env._values env) of
33 case Set.toList `fmap` Map.lookup var (Env._values env) of