on master help sign in
cosmetic: go to 2-space indentation
commit599c7a37b9893dd76ef2ae011c2cc3a779c20d94 authorEvan Czaplicki <info@elm-lang.org> dateWed 17 Feb 2016, 16:30 (11 years ago) parent8f032c9
1 file changed+12−12
src/Canonicalize/Variable.hs+12−12
src/Canonicalize/Variable.hs+12−12
@@ -27,22 +27,22 @@ variable :: R.Region -> Env.Environment -> String -> Result.ResultErr Var.Canoni
2727variable region env var =
2828 case toVarName var of
2929 Right (name, varName) | ModuleName.isNative name ->
30− let
31− moduleName =
32− ModuleName.Canonical Pkg.dummyName name
33− in
34− Result.var (Var.Canonical (Var.Module moduleName) varName)
30+ let
31+ moduleName =
32+ ModuleName.Canonical Pkg.dummyName name
33+ in
34+ Result.var (Var.Canonical (Var.Module moduleName) varName)
3535
3636 _ ->
37− case Set.toList `fmap` Map.lookup var (Env._values env) of
38− Just [v] ->
39− Result.var v
37+ case Set.toList `fmap` Map.lookup var (Env._values env) of
38+ Just [v] ->
39+ Result.var v
4040
41− Just vs ->
42− preferLocals region env "variable" vs var
41+ Just vs ->
42+ preferLocals region env "variable" vs var
4343
44− Nothing ->
45− notFound region "variable" (Map.keys (Env._values env)) var
44+ Nothing ->
45+ notFound region "variable" (Map.keys (Env._values env)) var
4646
4747
4848tvar