support gren run --package

Author: blaix

src/Main.gren

@@ -158,7 +158,7 @@ type Msg
     | CompilerInstalled (Result FileSystem.Error Path)
     | CompilerInitialized { quiet : Bool, backendStreams : ChildProcess.StreamIO, encodedCommand : Bytes }
     | CompilerRan Int
-    | CompiledForRun { path : String, exitCode : Int }
+    | CompiledForRun { path : Path, exitCode : Int }
     | RunStarted Process.Id
     | RunExited Int
     | RedirectTerminalIO
@@ -270,13 +270,15 @@ update msg model =
                     Terminal.Run.run 
                         { cpPermission = model.cpPermission
                         , fsPermission = model.fsPermission
+                        , pathToString = model.pathToString
                         , path = path
                         , onInit = RunStarted
                         , onExit = RunExited
                         }
                         |> Task.onError
                             (\error ->
                                 -- TODO: Terminal.Run.errorToString
+                                -- TODO: Why am I not seeing the write to stderr?
                                 Stream.Log.line model.stderr (Debug.toString error)
                                     |> Task.map (\_ -> Node.exitWithCode 1)
                             )
@@ -485,14 +487,15 @@ parseUserArgs model compilerPath =
                             )
                         |> Task.executeCmd
 
-                CliParser.Run moduleName ->
+                CliParser.Run opts ->
                     Terminal.Run.make
                         { fsPermission = model.fsPermission
                         , cpPermission = model.cpPermission
                         , useColor = model.useColor
                         , compilerPath = compilerPath
                         , pathToString = model.pathToString
-                        , moduleName = moduleName
+                        , moduleName = opts.moduleName
+                        , package = opts.package
                         , onBackendInitialized = 
                             (\{ backendStreams, encodedCommand } ->
                                 CompilerInitialized
@@ -504,7 +507,7 @@ parseUserArgs model compilerPath =
                         , onCompiled = 
                             (\outputPath exitCode ->
                                 CompiledForRun
-                                    { path = model.pathToString outputPath
+                                    { path = outputPath
                                     , exitCode = exitCode
                                     }
                             )

src/Terminal/Parser.gren

@@ -30,7 +30,7 @@ type Command
     | PackageBump
     | PackageDiff DiffArgs
     | Paths Paths.Options
-    | Run ModuleName
+    | Run RunOptions
 
 
 type alias InitFlags =
@@ -59,6 +59,12 @@ type alias DocsFlags =
     }
 
 
+type alias RunOptions =
+    { moduleName : ModuleName
+    , package : Maybe PackageName
+    }
+
+
 type DiffArgs
     = DiffLatest
     | DiffVersion SemanticVersion
@@ -243,7 +249,13 @@ parser =
                 , arguments =
                     CLI.Parser.oneArg moduleNameParser
                 , flags =
-                    CLI.Parser.noFlags
+                    CLI.Parser.initFlags 
+                        (\package ->
+                            { package = package
+                            }
+                        )
+                        -- TODO: --package name (without equals) does not work. Is that expected?
+                        |> CLI.Parser.flag "package" PackageName.cliParser "Run a module in a particular package."
                 , commonDescription =
                     Nothing
                 , summary =
@@ -259,11 +271,16 @@ parser =
                         , PP.words
                             """
                             This tries to compile a Gren file named src/Main.gren.
-                            The file must have a `main` function that returns a Node program.
+                            The file must have a `main` function that returns a Node or Browser program.
                             """
                         ]
                 , builder =
-                    \arg _flags -> Run arg
+                    (\arg flags ->
+                        Run
+                            { moduleName = arg
+                            , package = flags.package
+                            }
+                    )
                 }
             |> CLI.Parser.withCommand
                 { word = "docs"