Export ADT constructors too
commita98a7be9f8bcc181a0521cd5b1eeb72690807de0
authorEvan Czaplicki <info@elm-lang.org>
dateMon 29 Jul 2013, 23:43 (13 years ago)
parent3e4773c
compiler/Initialize.hs+3−1
@@ -48,7 +48,9 @@ buildFromSource noPrelude interfaces source =
4848
4949 types <- TI.infer interfaces metaModule
5050
51− let exports' | null exs = Map.keys types
51+ let exports' | null exs =
52+ Map.keys types ++
53+ concat [ map fst ctors | (_,_,ctors) <- datatypes metaModule ]
5254 | otherwise = exs
5355
5456 return $ metaModule { types = types, exports = exports' }