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 --- src/Xmobar/Plugins/ArchUpdates.hs | 14 ++++---------- 1 file changed, 4 insertions(+), 10 deletions(-) (limited to 'src') 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