@@ -202,7 +202,7 @@ createTemporaryModule exec PSCiState{psciImportedModules = imports, psciLetBindi
202 trace = P.Var (P.Qualified (Just supportModuleName) (P.Ident "eval"))
202 trace = P.Var (P.Qualified (Just supportModuleName) (P.Ident "eval"))
203 mainValue = P.App trace (P.Var (P.Qualified Nothing (P.Ident "it")))
203 mainValue = P.App trace (P.Var (P.Qualified Nothing (P.Ident "it")))
204 itDecl = P.ValueDeclaration (P.Ident "it") P.Public [] $ Right val
204 itDecl = P.ValueDeclaration (P.Ident "it") P.Public [] $ Right val
205− mainDecl = P.ValueDeclaration (P.Ident "main") P.Public [] $ Right mainValue
205+ mainDecl = P.ValueDeclaration (P.Ident "$main") P.Public [] $ Right mainValue
206 decls = if exec then [itDecl, mainDecl] else [itDecl]
206 decls = if exec then [itDecl, mainDecl] else [itDecl]
208 P.Module (P.internalModuleSourceSpan "<internal>") [] moduleName ((importDecl `map` imports) ++ lets ++ decls) Nothing
208 P.Module (P.internalModuleSourceSpan "<internal>") [] moduleName ((importDecl `map` imports) ++ lets ++ decls) Nothing
@@ -267,7 +267,7 @@ handleDeclaration val = do
267 case e of
267 case e of
268 Left errs -> printErrors errs
268 Left errs -> printErrors errs
269 Right _ -> do
269 Right _ -> do
270− psciIO $ writeFile indexFile "require('$PSCI').main();"
270+ psciIO $ writeFile indexFile "require('$PSCI')['$main']();"
271 process <- psciIO findNodeProcess
271 process <- psciIO findNodeProcess
272 result <- psciIO $ traverse (\node -> readProcessWithExitCode node nodeArgs "") process
272 result <- psciIO $ traverse (\node -> readProcessWithExitCode node nodeArgs "") process
273 case result of
273 case result of