Revert "Export types from ADTs in the default exports"
This reverts commit 4e82d19fd774a850758f1203e7900c0fc5d6c66a.
commit1974ad57be1a811d9add3e7a09fce261381b2470
authorEvan Czaplicki <info@elm-lang.org>
dateTue 15 Oct 2013, 11:32 (13 years ago)
parent03cf56d
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 [ name : map fst ctors | Datatype name _ ctors <- decls ] ++
42+ concat [ map fst ctors | Datatype _ _ ctors <- decls ] ++
4343 [ name | TypeAlias name _ (Type.Record _ _) <- decls ]
4444 | otherwise = exs
4545