@@ -202,7 +202,7 @@ createTemporaryModule exec PSCiState{psciImportedModules = imports, psciLetBindi
202202 trace = P.Var (P.Qualified (Just supportModuleName) (P.Ident "eval"))
203203 mainValue = P.App trace (P.Var (P.Qualified Nothing (P.Ident "it")))
204204 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
206206 decls = if exec then [itDecl, mainDecl] else [itDecl]
207207 in
208208 P.Module (P.internalModuleSourceSpan "<internal>") [] moduleName ((importDecl `map` imports) ++ lets ++ decls) Nothing
@@ -269,7 +269,7 @@ handleExpression val = do
269269 case e of
270270 Left errs -> printErrors errs
271271 Right _ -> do
272− psciIO $ writeFile indexFile "require('$PSCI').main();"
272+ psciIO $ writeFile indexFile "require('$PSCI')['$main']();"
273273 process <- psciIO findNodeProcess
274274 result <- psciIO $ traverse (\node -> readProcessWithExitCode node nodeArgs "") process
275275 case result of