Don't redirect stdin when running headless.

Fixes #341

Author: blaix

src/Main.gren

@@ -170,10 +170,10 @@ type Msg
         , downloadResult : Result (HttpClient.Error Bytes) (HttpClient.Response Bytes)
         }
     | CompilerInstalled (Result FileSystem.Error Path)
-    | CompilerInitialized { quiet : Bool, backendStreams : ChildProcess.StreamIO, encodedCommand : Bytes }
+    | CompilerInitialized { headless : Bool, backendStreams : ChildProcess.StreamIO, encodedCommand : Bytes }
     | CompilerRan Int
     | CompiledForRun { path : Path, exitCode : Int }
-    | RunStarted Process.Id
+    | RunStarted { processId : Process.Id, streams : Maybe ChildProcess.StreamIO }
     | RunExited Int
     | RedirectTerminalIO
         (Result
@@ -257,19 +257,29 @@ update msg model =
             CompilerInstalled (Ok compilerPath) ->
                 parseUserArgs model compilerPath
 
-            CompilerInitialized { backendStreams, encodedCommand, quiet } ->
+            CompilerInitialized { backendStreams, encodedCommand, headless } ->
                 Cmd.batch
-                    [ Stream.write encodedCommand backendStreams.input
-                        |> Task.map (\_ -> { source = model.stdin, target = backendStreams.input })
-                        |> Task.mapError
-                            (\err ->
-                                { error = err
-                                , source = model.stdin
-                                , target = backendStreams.input
-                                }
-                            )
-                        |> Task.attempt RedirectTerminalIO
-                    , if quiet then
+                    [ if headless then
+                        Stream.write encodedCommand backendStreams.input
+                            |> Task.map (\_ -> {})
+                            |> Task.onError
+                                (\e ->
+                                    Stream.Log.line model.stderr (Stream.errorToString e)
+                                        |> Task.andThen (\_ -> Node.exitWithCode 1)
+                                )
+                            |> Task.execute
+                      else
+                        Stream.write encodedCommand backendStreams.input
+                            |> Task.map (\_ -> { source = model.stdin, target = backendStreams.input })
+                            |> Task.mapError
+                                (\err ->
+                                    { error = err
+                                    , source = model.stdin
+                                    , target = backendStreams.input
+                                    }
+                                )
+                            |> Task.attempt RedirectTerminalIO
+                    , if headless then
                         Cmd.none
                       else
                         Task.succeed { source = backendStreams.output, target = model.stdout }
@@ -288,7 +298,7 @@ update msg model =
                         , fsPermission = model.fsPermission
                         , pathToString = model.pathToString
                         , path = path
-                        , onInit = \{ processId } -> RunStarted processId
+                        , onInit = RunStarted
                         , onExit = RunExited
                         }
                         |> Task.onError
@@ -391,7 +401,7 @@ parseUserArgs model compilerPath =
                             Just streams ->
                                 CompilerInitialized
                                     { backendStreams = streams
-                                    , quiet = False
+                                    , headless = False
                                     , encodedCommand =
                                         Compiler.Backend.encodeCommand
                                             { interactiveSession = model.interactive
@@ -544,7 +554,7 @@ parseUserArgs model compilerPath =
                                         CompilerInitialized
                                             { backendStreams = streams
                                             , encodedCommand = encodedCommand
-                                            , quiet = True
+                                            , headless = True
                                             }
                             )
                         , onCompiled = 

src/Terminal/Run.gren

@@ -208,6 +208,7 @@ run config =
 
             runWith command =
                 ChildProcess.defaultSpawnOptions config.onInit config.onExit
+                    |> (\opts -> { opts | connection = ChildProcess.Integrated })
                     |> ChildProcess.spawn config.cpPermission command [ path ]
                     |> Task.succeed
         in