From 045c7cf9afb334e0f965df29d9aa3b8cf3a681ca Mon Sep 17 00:00:00 2001
From: Kate <kit-ty-kate@outlook.com>
Date: Tue, 29 Oct 2024 19:43:27 +0000
Subject: [PATCH] fixup! remove trailing whitespace + code format + add colour

---
 src/client/opamPinCommand.ml | 32 ++++++++++++++------------------
 1 file changed, 14 insertions(+), 18 deletions(-)

diff --git a/src/client/opamPinCommand.ml b/src/client/opamPinCommand.ml
index 71b3322f1c1..de2c6f91d32 100644
--- a/src/client/opamPinCommand.ml
+++ b/src/client/opamPinCommand.ml
@@ -764,29 +764,25 @@ let list st ~short =
                   (OpamPackage.version_to_string inst))]
         with Not_found -> OpamConsole.colorise `yellow "(uninstalled)", []
       in
-      let vcs_revision = 
-        let url = OpamStd.Option.default OpamFile.URL.empty url in
-        let url = (OpamFile.URL.url url) in
-        match url.OpamUrl.backend with 
+      let vcs_revision =
+        let open OpamStd.Option.Op in
+        url >>| OpamFile.URL.url >>= fun url ->
+        match url.OpamUrl.backend with
         | #OpamUrl.version_control ->
-          let rev_opt =
-            OpamProcess.Job.run 
-            @@ OpamRepository.revision
-               (OpamSwitchState.source_dir st nv)
-               url in 
-          let rev = 
-            match rev_opt with 
-            | None -> "(error while fetching current revision)"
-            | Some ver -> OpamPackage.Version.to_string ver in 
-          Printf.sprintf "(%s)" 
-          rev
-        | _ -> "" 
-      in 
+          let srcdir = OpamSwitchState.source_dir st nv in
+          let color, rev =
+            match OpamProcess.Job.run (OpamRepository.revision srcdir url) with
+            | None -> (`red, "error while fetching current revision")
+            | Some ver -> (`magenta, OpamPackage.Version.to_string ver)
+          in
+          Some (OpamConsole.colorise color ("("^rev^")"))
+        | _ -> None
+      in
       [ OpamPackage.to_string nv;
         state;
         OpamConsole.colorise `blue kind;
         String.concat " " (target::extra);
-        vcs_revision ]
+        Option.default "" vcs_revision ]
     with Not_found ->
       [ OpamPackage.to_string nv;
         OpamConsole.colorise `red " (no definition found)" ]