git.iko.soy/elk
on master help sign in
Make sure List types are localized
eb236caEvan Czaplicki
compiler/src/Reporting/Render/Type/Localizer.hs+3−1
compare with master
unifiedsplit
@@ -62,7 +62,7 @@ toDoc localizer home name =
62
62
63
63
64toString :: Localizer -> ModuleName.Canonical -> N.Name -> String
64toString :: Localizer -> ModuleName.Canonical -> N.Name -> String
65−toString (Localizer localizer) (ModuleName.Canonical _ home) name =
65+toString (Localizer localizer) moduleName@(ModuleName.Canonical _ home) name =
66 case Map.lookup home localizer of
66 case Map.lookup home localizer of
67 Nothing ->
67 Nothing ->
68 N.toString home <> "." <> N.toString name
68 N.toString home <> "." <> N.toString name
@@ -75,6 +75,8 @@ toString (Localizer localizer) (ModuleName.Canonical _ home) name =
75 Only set ->
75 Only set ->
76 if Set.member name set then
76 if Set.member name set then
77 N.toString name
77 N.toString name
78+ else if name == N.list && moduleName == ModuleName.list then
79+ "List"
78 else
80 else
79 N.toString (maybe home id alias) <> "." <> N.toString name
81 N.toString (maybe home id alias) <> "." <> N.toString name
80
82