1 files changed, 24 insertions, 29 deletions
diff --git a/src/Xmobar/Plugins/ArchUpdates.hs b/src/Xmobar/Plugins/ArchUpdates.hs
index f803d0f..0dcfd04 100644
--- a/src/Xmobar/Plugins/ArchUpdates.hs
+++ b/src/Xmobar/Plugins/ArchUpdates.hs
@@ -1,41 +1,36 @@
 {-# LANGUAGE CPP #-}
 
 -----------------------------------------------------------------------------
--- |
--- Module      :  Plugins.Monitors.ArchUpdates
--- Copyright   :  (c) 2024 Enrico Maria De Angelis
--- License     :  BSD-style (see LICENSE)
---
--- Maintainer  :  Enrico Maria De Angelis <enricomaria.dean6elis@gmail.com>
--- Stability   :  unstable
--- Portability :  unportable
---
--- An ArchLinux updates availablility plugin for Xmobar
---
+
 -----------------------------------------------------------------------------
 
-module Xmobar.Plugins.ArchUpdates (ArchUpdates(..)) where
+{- |
+Module      :  Plugins.Monitors.ArchUpdates
+Copyright   :  (c) 2024 Enrico Maria De Angelis
+License     :  BSD-style (see LICENSE)
+
+Maintainer  :  Enrico Maria De Angelis <enricomaria.dean6elis@gmail.com>
+Stability   :  unstable
+Portability :  unportable
+
+An ArchLinux updates availablility plugin for Xmobar
+-}
+module Xmobar.Plugins.ArchUpdates (ArchUpdates (..)) where
 
-import System.Exit (ExitCode(..))
-import System.Process (readProcessWithExitCode)
-import Xmobar.Run.Exec
 import Xmobar.Plugins.Command (Rate)
+import Xmobar.Plugins.PacmanUpdates (PacmanUpdates (PacmanUpdates))
+import Xmobar.Run.Exec
 
 data ArchUpdates = ArchUpdates (String, String, String) Rate
   deriving (Read, Show)
 
+intoPacmanUpdates :: ArchUpdates -> PacmanUpdates
+intoPacmanUpdates (ArchUpdates (z, o, m) r) =
+  PacmanUpdates (z <> deprecation, o, m, "pacman: Unknown cause of failure.") r
+ where
+  deprecation = " <fc=#ff0000>(<action=`xdg-open https://codeberg.org/xmobar/xmobar/pulls/723`>deprecated plugin, click here</action>)</fc>"
+
 instance Exec ArchUpdates where
-    alias (ArchUpdates _ _) = "arch"
-    rate (ArchUpdates _ r) = r
-    run (ArchUpdates (z, o, m) _) = do
-      (exit, stdout, _) <- readProcessWithExitCode "checkupdates" [] ""
-      return $ case exit of
-        ExitFailure 2 -> z--ero updates
-        ExitFailure 1 -> "pacman: Unknown cause of failure."
-        ExitSuccess -> case length $ lines stdout of
-          0 -> impossible
-          1 -> o
-          n -> m >>= \c -> if c == '?' then show n else pure c
-        _ -> impossible
-        where
-          impossible = error "This is impossible based on pacman manpage"
+  alias = const "arch"
+  rate = rate . intoPacmanUpdates
+  run = run . intoPacmanUpdates