From 9d21a7dd818ece5247e2f75f13d588111e334d8c Mon Sep 17 00:00:00 2001
From: tulthix <tulthix@gmail.com>
Date: Tue, 2 Nov 2021 19:31:18 -0500
Subject: hspace feature. Initial intent: make space for a tray

---
 src/Xmobar/X11/Actions.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Xmobar/X11/Actions.hs')

diff --git a/src/Xmobar/X11/Actions.hs b/src/Xmobar/X11/Actions.hs
index 03e58ad..87c03ed 100644
--- a/src/Xmobar/X11/Actions.hs
+++ b/src/Xmobar/X11/Actions.hs
@@ -18,7 +18,7 @@ import Text.Regex (Regex, subRegex, mkRegex, matchRegex)
 import Graphics.X11.Types (Button)
 
 data Action = Spawn [Button] String
-                deriving (Eq)
+                deriving (Eq, Show)
 
 runAction :: Action -> IO ()
 runAction (Spawn _ s) = void $ system (s ++ "&")
-- 
cgit v1.2.3