on master help sign in
If no exports are listed, everything gets exported
2f6d322Evan Czaplicki
compiler/Initialize.hs+4−1
@@ -48,7 +48,10 @@ buildFromSource noPrelude interfaces source =
48
48
49 types <- TI.infer interfaces metaModule
49 types <- TI.infer interfaces metaModule
50
50
51+ let exports' | null exs = Map.keys types
52+ | otherwise = exs
53+
51− return $ metaModule { types = types }
54+ return $ metaModule { types = types, exports = exports' }
52
55
53
56
54getSortedModuleNames :: Bool -> FilePath -> IO [String]
57getSortedModuleNames :: Bool -> FilePath -> IO [String]