From 022783f4a7fd5b85afa5eedffd8a2e6a07432e1d Mon Sep 17 00:00:00 2001 From: Matthias Schiffer Date: Sun, 21 Aug 2011 08:40:08 +0200 Subject: Get rid of existential Widget type and Widget lists --- src/Phi.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src') diff --git a/src/Phi.hs b/src/Phi.hs index 9597955..6dc18fb 100644 --- a/src/Phi.hs +++ b/src/Phi.hs @@ -12,8 +12,7 @@ import Phi.Widgets.Systray main :: IO () main = do - runPhi defaultXConfig defaultPanelConfig { panelPosition = Top } - [alphaBox 0.9 [theTaskbar, brightBorder [theSystray], brightBorder [theClock]]] + runPhi defaultXConfig defaultPanelConfig { panelPosition = Top } $ alphaBox 0.9 $ theTaskbar <~> brightBorder theSystray <~> brightBorder theClock where normalTaskBorder = BorderConfig (BorderWidth (-1) (-3) (-1) 7) 1 (BorderWidth 0 5 0 5) (0.9, 0.9, 0.9, 0.8) (0.45, 0.45, 0.45, 0.8) 5 0 activeTaskBorder = normalTaskBorder { borderColor = (1, 1, 1, 0.8) @@ -53,4 +52,5 @@ main = do , lineSpacing = (-3) , clockSize = 75 } + brightBorder :: (Widget w d) => w -> Border w d brightBorder = border normalDesktopBorder -- cgit v1.2.3