Prettify bump errors.

Author: robinheghan

src/Main.gren

@@ -434,7 +434,8 @@ parseUserArgs model compilerPath =
                             (\err ->
                                 Terminal.Help.prettyPrint printOpts err
                                     |> Stream.Log.string model.stderr
-                                    |> Task.map (\_ -> Cmd.none)
+                                    |> Task.execute
+                                    |> Task.succeed
                             )
                         |> Task.executeCmd
 
@@ -467,7 +468,8 @@ parseUserArgs model compilerPath =
                             (\err ->
                                 Terminal.Help.prettyPrint printOpts err
                                     |> Stream.Log.string model.stderr
-                                    |> Task.map (\_ -> Cmd.none)
+                                    |> Task.execute
+                                    |> Task.succeed
                             )
                         |> Task.executeCmd
 
@@ -529,7 +531,8 @@ parseUserArgs model compilerPath =
                             (\err ->
                                 Terminal.Help.prettyPrint printOpts err
                                     |> Stream.Log.string model.stderr
-                                    |> Task.map (\_ -> Cmd.none)
+                                    |> Task.execute
+                                    |> Task.succeed
                             )
                         |> Task.executeCmd
 
@@ -654,7 +657,7 @@ parseUserArgs model compilerPath =
 
                 CliParser.PackageBump ->
                     Terminal.PackageInstall.readProjectOutline model.fsPermission
-                        |> Task.mapError Debug.toString
+                        |> Task.mapError Terminal.PackageInstall.prettifyProjectOutlineError
                         |> Task.andThen
                             (\projectOutline ->
                                 Terminal.PackageBump.run
@@ -666,7 +669,7 @@ parseUserArgs model compilerPath =
                                     , stdin = model.stdin
                                     }
                                     projectOutline
-                                    |> Task.mapError Debug.toString
+                                    |> Task.mapError Terminal.PackageBump.prettifyError
                             )
                         |> Task.map
                             (\backendFlags ->
@@ -683,7 +686,8 @@ parseUserArgs model compilerPath =
                             )
                         |> Task.onError
                             (\err ->
-                                Stream.Log.line model.stdout err
+                                Terminal.Help.prettyPrint printOpts err
+                                    |> Stream.Log.string model.stderr
                                     |> Task.execute
                                     |> Task.succeed
                             )

src/Terminal/PackageBump.gren

@@ -4,6 +4,7 @@ module Terminal.PackageBump exposing
     , Error (..)
     , Result
     , run
+    , prettifyError
     )
 
 
@@ -27,6 +28,8 @@ import Json.Encode as Json
 import Json.Decode as Decode exposing (Decoder)
 import Stream.Extra
 import Terminal.PackageInstall
+import Terminal.Help as Help
+import CLI.PrettyPrinter as PP
 
 
 type alias Config =
@@ -167,3 +170,54 @@ run config { projectPath, outline } =
                     )
 
 
+
+prettifyError : Error -> PP.Document
+prettifyError error =
+    when error is
+        CannotBumpApplications ->
+            Help.report
+                "CANNOT BUMP APPLICATIONS"
+                Nothing
+                ( PP.words
+                    """
+                    This project is defined as an application, so there is no version number to bump.
+                    """
+                )
+
+        CurrentVersionUnpublished ->
+            Help.report
+                "CURRENT VERSION IS NOT PUBLISHED"
+                Nothing
+                ( PP.words
+                    """
+                    The version you're trying to bump from doesn't seem to exist in the remote repository.
+                    """
+                )
+
+        PreviousPackageCorruption ->
+            Help.report
+                "CANNOT BUILD PREVIOUS VERSION"
+                Nothing
+                ( PP.verticalBlock
+                    [ PP.words
+                        """
+                        In order to know what the next version of your package should be, I try to compare your current
+                        code with the previous version of this package.
+                        """
+                    , PP.empty
+                    , PP.words
+                        """
+                        However, I'm unable to build the previous version. Maybe the previous version was built with an
+                        older and incompatible compiler, or the package is corrupt in some way?
+                        """
+                    ]
+                )
+        
+        InstallError installErr ->
+            Terminal.PackageInstall.prettifyError installErr
+        
+        VersionFetchError gitError ->
+            Git.report
+                "FAILED TO FETCH VERSIONS FOR PACKAGE"
+                "I was attempting to fetch available versions for this package"
+                gitError

src/Terminal/PackageOutdated.gren

@@ -135,5 +135,5 @@ prettifyError error =
         FailedToFetchVersions { package, error = gitError } ->
             Git.report
                 "FAILED TO FETCH VERSIONS FOR PACKAGE"
-                ("I was attempting the fetch available versions for " ++ PackageName.toString package)
+                ("I was attempting to fetch available versions for " ++ PackageName.toString package)
                 gitError

src/Terminal/PackageUninstall.gren

@@ -216,4 +216,3 @@ prettifyError error =
                         |> PP.indent
                     ]
                 )
-