If no exports are listed, everything gets exported
commit2f6d3227e9edfddbc1aed5f6d7f8501aa70bb3a5
authorEvan Czaplicki <info@elm-lang.org>
dateMon 29 Jul 2013, 23:19 (13 years ago)
parent6651525
compiler/Initialize.hs+4−1
@@ -48,7 +48,10 @@ buildFromSource noPrelude interfaces source =
4848
4949 types <- TI.infer interfaces metaModule
5050
51− return $ metaModule { types = types }
51+ let exports' | null exs = Map.keys types
52+ | otherwise = exs
53+
54+ return $ metaModule { types = types, exports = exports' }
5255
5356
5457getSortedModuleNames :: Bool -> FilePath -> IO [String]