Merge pull request roc-lang#197 from roc-lang/no-line-if-empty-exit

Anton-4 · web-flow · commit ddb29630f77d · 2024-04-28T17:52:10.000+02:00
Don't print a blank line if `Exit` is given ""
diff --git a/platform/main.roc b/platform/main.roc
@@ -28,11 +28,16 @@ mainForHost =
     Task.attempt main \res ->
         when res is
             Ok {} -> Task.ok {}
-            Err (Exit code str) -> 
-                line str
-                |> Task.onErr \_ -> Task.err code
-                |> Task.await \_ -> Task.err code
+
+            Err (Exit code str) ->
+                if Str.isEmpty str then
+                    Task.err code
+                else
+                    line str
+                    |> Task.onErr \_ -> Task.err code
+                    |> Task.await \{} -> Task.err code
+
             Err err ->
                 line "Program exited early with error: $(Inspect.toStr err)"
                 |> Task.onErr \_ -> Task.err 1
-                |> Task.await \_ -> Task.err 1
+                |> Task.await \_ -> Task.err 1
