diff options
author | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-08-29 15:34:56 +0200 |
---|---|---|
committer | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-08-29 15:34:56 +0200 |
commit | eca887df7c5e71606e6e0f80d48067e1ebdf5159 (patch) | |
tree | 430237ce8d77ab4722a45ed24a5682438cc2f7e7 /lib/Phi/Widgets/Clock.hs | |
parent | 7a87ba6f2e3e864fb1c487c097e2cf17bfca2df6 (diff) | |
download | phi-eca887df7c5e71606e6e0f80d48067e1ebdf5159.tar phi-eca887df7c5e71606e6e0f80d48067e1ebdf5159.zip |
Don't use the widget definition as a part of the render cache state
Diffstat (limited to 'lib/Phi/Widgets/Clock.hs')
-rw-r--r-- | lib/Phi/Widgets/Clock.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/Phi/Widgets/Clock.hs b/lib/Phi/Widgets/Clock.hs index e232ef5..9282432 100644 --- a/lib/Phi/Widgets/Clock.hs +++ b/lib/Phi/Widgets/Clock.hs @@ -42,7 +42,7 @@ data ClockState = ClockState !ZonedTime deriving (Show, Eq) data ClockMessage = UpdateTime !ZonedTime deriving (Show, Typeable) -instance Widget Clock ClockState (RenderCache Clock ClockState) where +instance Widget Clock ClockState (RenderCache ClockState) where initWidget (Clock _) phi _ _ = do forkIO $ forever $ do time <- getZonedTime @@ -54,7 +54,7 @@ instance Widget Clock ClockState (RenderCache Clock ClockState) where time <- getZonedTime return $ ClockState time - initCache _ = createRenderCache $ \(Clock config) (ClockState time) _ _ w h _ -> do + initCache (Clock config) = createRenderCache $ \(ClockState time) _ _ w h _ -> do let (r, g, b, a) = fontColor config str = formatTime defaultTimeLocale (clockFormat config) time setSourceRGBA r g b a @@ -78,7 +78,7 @@ instance Widget Clock ClockState (RenderCache Clock ClockState) where minSize (Clock config) _ _ _ = clockSize config - render = renderCached + render _ = renderCached handleMessage _ priv m = case (fromMessage m) of Just (UpdateTime time) -> ClockState time |