Skip to content

Commit eb236ca

Browse files
committed
Make sure List types are localized
1 parent 4ed70cc commit eb236ca

File tree

1 file changed

+3
-1
lines changed

1 file changed

+3
-1
lines changed

compiler/src/Reporting/Render/Type/Localizer.hs

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -62,7 +62,7 @@ toDoc localizer home name =
6262

6363

6464
toString :: Localizer -> ModuleName.Canonical -> N.Name -> String
65-
toString (Localizer localizer) (ModuleName.Canonical _ home) name =
65+
toString (Localizer localizer) moduleName@(ModuleName.Canonical _ home) name =
6666
case Map.lookup home localizer of
6767
Nothing ->
6868
N.toString home <> "." <> N.toString name
@@ -75,6 +75,8 @@ toString (Localizer localizer) (ModuleName.Canonical _ home) name =
7575
Only set ->
7676
if Set.member name set then
7777
N.toString name
78+
else if name == N.list && moduleName == ModuleName.list then
79+
"List"
7880
else
7981
N.toString (maybe home id alias) <> "." <> N.toString name
8082

0 commit comments

Comments
 (0)