From b66d6690d8a062053268b3246a2a55cbff46410d Mon Sep 17 00:00:00 2001
From: Matthias Schiffer <mschiffer@universe-factory.net>
Date: Sat, 16 Jul 2011 15:55:31 +0200
Subject: Taskbar: Sort windows by screen

---
 lib/Phi/Widgets/Clock.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/Phi/Widgets/Clock.hs')

diff --git a/lib/Phi/Widgets/Clock.hs b/lib/Phi/Widgets/Clock.hs
index 3e88b0e..7172f77 100644
--- a/lib/Phi/Widgets/Clock.hs
+++ b/lib/Phi/Widgets/Clock.hs
@@ -57,7 +57,7 @@ instance WidgetClass Clock where
     
   minSize (Clock config ) = clockSize config
   
-  render (Clock config) (ClockState time) w h = do
+  render (Clock config) (ClockState time) w h _ = do
     time <- liftIO getZonedTime
     let (r, g, b, a) = fontColor config
         str = formatTime defaultTimeLocale (clockFormat config) time
-- 
cgit v1.2.3