git.iko.soy/elk
on master help sign in
Make sure lists are recognized in --debug metadata
9cd628cEvan Czaplicki
compiler/src/Elm/Compiler/Type/Extract.hs+10−7
compare with master
unifiedsplit
@@ -129,13 +129,16 @@ extractAlias interfaces (Opt.Global home name) =
129
129
130extractUnion :: I.Interfaces -> Opt.Global -> Extractor T.Union
130extractUnion :: I.Interfaces -> Opt.Global -> Extractor T.Union
131extractUnion interfaces (Opt.Global home name) =
131extractUnion interfaces (Opt.Global home name) =
132+ if name == N.list && home == ModuleName.list
133+ then return $ T.Union (toPublicName home name) ["a"] []
134+ else
132− let
135+ let
133− pname = toPublicName home name
136+ pname = toPublicName home name
134− unions = I._unions (interfaces ! home)
137+ unions = I._unions (interfaces ! home)
135− in
138+ in
136− case I.toUnionInternals (unions ! name) of
139+ case I.toUnionInternals (unions ! name) of
137− Can.Union vars ctors _ _ ->
140+ Can.Union vars ctors _ _ ->
138− T.Union pname vars <$> traverse extractCtor ctors
141+ T.Union pname vars <$> traverse extractCtor ctors
139
142
140
143
141extractCtor :: Can.Ctor -> Extractor (N.Name, [T.Type])
144extractCtor :: Can.Ctor -> Extractor (N.Name, [T.Type])