@@ -48,7 +48,10 @@ buildFromSource noPrelude interfaces source =
49 types <- TI.infer interfaces metaModule
49 types <- TI.infer interfaces metaModule
51+ let exports' | null exs = Map.keys types
51− return $ metaModule { types = types }
54+ return $ metaModule { types = types, exports = exports' }
54getSortedModuleNames :: Bool -> FilePath -> IO [String]
57getSortedModuleNames :: Bool -> FilePath -> IO [String]