Export types from ADTs in the default exports
commit4e82d19fd774a850758f1203e7900c0fc5d6c66a
authorEvan Czaplicki <info@elm-lang.org>
dateMon 14 Oct 2013, 20:39 (13 years ago)
parentc480449
compiler/Initialize.hs+1−1
@@ -39,7 +39,7 @@ buildFromSource noPrelude interfaces source =
3939 | null exs =
4040 let get = Set.toList . SD.boundVars in
4141 concat [ get pattern | Definition (Def pattern _) <- decls ] ++
42− concat [ map fst ctors | Datatype _ _ ctors <- decls ] ++
42+ concat [ name : map fst ctors | Datatype name _ ctors <- decls ] ++
4343 [ name | TypeAlias name _ (Type.Record _ _) <- decls ]
4444 | otherwise = exs
4545