From 420b7b72deb279ae1d39833145c9a677bf92fe45 Mon Sep 17 00:00:00 2001 From: Enrico Maria De Angelis Date: Wed, 22 May 2024 17:56:22 +0100 Subject: Remove 1-arg ctor for ArchUpdates --- doc/plugins.org | 7 ------- src/Xmobar/Plugins/ArchUpdates.hs | 14 ++++---------- 2 files changed, 4 insertions(+), 17 deletions(-) diff --git a/doc/plugins.org b/doc/plugins.org index a1567c3..e5bf42a 100644 --- a/doc/plugins.org +++ b/doc/plugins.org @@ -1369,13 +1369,6 @@ "? updates") 600 #+end_src -*** =ArchUpdates Rate= - Same as (see above for ~ArchUpdates'~): - #+begin_src haskell - ArchUpdates' ("up to date", - "1 update available", - "? updates available") Rate - #+end_src * Interfacing with window managers :PROPERTIES: :CUSTOM_ID: interfacing-with-window-managers diff --git a/src/Xmobar/Plugins/ArchUpdates.hs b/src/Xmobar/Plugins/ArchUpdates.hs index a8cf3a9..f803d0f 100644 --- a/src/Xmobar/Plugins/ArchUpdates.hs +++ b/src/Xmobar/Plugins/ArchUpdates.hs @@ -21,19 +21,13 @@ import System.Process (readProcessWithExitCode) import Xmobar.Run.Exec import Xmobar.Plugins.Command (Rate) -data ArchUpdates = ArchUpdates Rate - | ArchUpdates' (String, String, String) Rate +data ArchUpdates = ArchUpdates (String, String, String) Rate deriving (Read, Show) instance Exec ArchUpdates where - alias (ArchUpdates _) = "arch" - alias (ArchUpdates' _ _) = "arch" - rate (ArchUpdates r) = r - rate (ArchUpdates' _ r) = r - run (ArchUpdates r) = run (ArchUpdates' ("up to date", - "1 update available", - "? updates available") r) - run (ArchUpdates' (z, o, m) _) = do + 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 -- cgit v1.2.3