check ripgrep installed

Author: Anton-4

ci/check_all_exposed_funs_tested.roc

@@ -6,6 +6,7 @@ import pf.File
 import pf.Cmd
 import pf.Env
 import pf.Path
+import pf.Sleep
 
 # This script performs the following tasks:
 # 1. Reads the file platform/main.roc and extracts the exposes list.
@@ -72,7 +73,10 @@ main! = |_args|
             |function_name|
                 Stdout.line!(function_name),
         )?
-        Err(Exit(1, "I found untested functions, see above."))?
+
+        # Sleep to fix print order
+        Sleep.millis!(1000)
+        Err(Exit(1, "I found untested functions, see above."))
 
 is_function_unused! : Str, Str => Result Bool _
 is_function_unused! = |module_name, function_name|
@@ -101,32 +105,42 @@ is_function_unused! = |module_name, function_name|
                     err_s("Error checking directory '${search_dir}': ${Inspect.to_str(err)}")
     )?
 
-    unused_in_dir =
-        search_dirs
-        |> List.map_try!( |search_dir|
-            # Skip searching if directory doesn't exist
-            dir_exists = File.is_dir!(search_dir)?
-            if !dir_exists then
-                Ok(Bool.true) # Consider unused if we can't search
-            else
-                # Use ripgrep to search for the function pattern
-                cmd =
-                    Cmd.new("rg")
-                    |> Cmd.arg("-q") # Quiet mode - we only care about exit code
-                    |> Cmd.arg(function_pattern)
-                    |> Cmd.arg(search_dir)
-
-                status_res = Cmd.status!(cmd)
-
-                # ripgrep returns status 0 if matches were found, 1 if no matches
-                when status_res is
-                    Ok(0) -> Ok(Bool.false) # Function is used (not unused)
-                    _ -> Ok(Bool.true)
-        )?
+    # Check if ripgrep is installed
+    rg_check_cmd = Cmd.new("rg") |> Cmd.arg("--version")
+    rg_check_output = Cmd.output!(rg_check_cmd)
+
+    when rg_check_output.status is
+        Ok(0) ->
+                unused_in_dir =
+                    search_dirs
+                    |> List.map_try!( |search_dir|
+                        # Skip searching if directory doesn't exist
+                        dir_exists = File.is_dir!(search_dir)?
+                        if !dir_exists then
+                            Ok(Bool.true) # Consider unused if we can't search
+                        else
+                            # Use ripgrep to search for the function pattern
+                            cmd =
+                                Cmd.new("rg")
+                                |> Cmd.arg("-q") # Quiet mode - we only care about exit code
+                                |> Cmd.arg(function_pattern)
+                                |> Cmd.arg(search_dir)
+
+                            status_res = Cmd.status!(cmd)
+
+                            # ripgrep returns status 0 if matches were found, 1 if no matches
+                            when status_res is
+                                Ok(0) -> Ok(Bool.false) # Function is used (not unused)
+                                _ -> Ok(Bool.true)
+                    )?
+
+                unused_in_dir
+                |> List.walk!(Bool.true, |state, is_unused_res| state && is_unused_res)
+                |> Ok
+        _ ->
+            err_s("Error: ripgrep (rg) is not installed or not available in PATH. Please install ripgrep to use this script. Full output: ${Inspect.to_str(rg_check_output)}")
+
 
-    unused_in_dir
-    |> List.walk!(Bool.true, |state, is_unused_res| state && is_unused_res)
-    |> Ok
 
 process_module! : Str => Result { module_name : Str, exposed_functions : List Str } _
 process_module! = |module_name|

platform/main.roc

@@ -47,8 +47,10 @@ main_for_host! = |raw_args|
         Err(msg) ->
             help_msg =
                 """
+
                 Program exited with error:
-                    ${Inspect.to_str(msg)}
+
+                    ❌ ${Inspect.to_str(msg)}
 
                 Tip: If you do not want to exit on this error, use `Result.map_err` to handle the error. Docs for `Result.map_err`: <https://www.roc-lang.org/builtins/Result#map_err>
                 """