diff options
author | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-09-08 19:15:23 +0200 |
---|---|---|
committer | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-09-08 19:15:23 +0200 |
commit | 4d519acbd48fa400f09e4705251a0dbf45c6876e (patch) | |
tree | dd9577b92028f35899507fc45c652a6fd50b4c44 /lib/Phi/Widgets/Clock.hs | |
parent | 234388ef387c92cc72f35cb309b9d0beea8d3a1a (diff) | |
download | phi-4d519acbd48fa400f09e4705251a0dbf45c6876e.tar phi-4d519acbd48fa400f09e4705251a0dbf45c6876e.zip |
Core is independent of X11 now
Diffstat (limited to 'lib/Phi/Widgets/Clock.hs')
-rw-r--r-- | lib/Phi/Widgets/Clock.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/Phi/Widgets/Clock.hs b/lib/Phi/Widgets/Clock.hs index 9282432..26b777f 100644 --- a/lib/Phi/Widgets/Clock.hs +++ b/lib/Phi/Widgets/Clock.hs @@ -34,7 +34,7 @@ data ClockConfig = ClockConfig { clockFormat :: !String defaultClockConfig :: ClockConfig defaultClockConfig = ClockConfig "%R" (0, 0, 0, 1) 0 50 -data Clock = Clock !ClockConfig deriving (Show, Eq) +data Clock d = Clock !ClockConfig deriving (Show, Eq) deriving instance Eq ZonedTime @@ -42,7 +42,7 @@ data ClockState = ClockState !ZonedTime deriving (Show, Eq) data ClockMessage = UpdateTime !ZonedTime deriving (Show, Typeable) -instance Widget Clock ClockState (RenderCache ClockState) where +instance Display d => Widget (Clock d) ClockState (RenderCache ClockState) d where initWidget (Clock _) phi _ _ = do forkIO $ forever $ do time <- getZonedTime @@ -85,6 +85,6 @@ instance Widget Clock ClockState (RenderCache ClockState) where _ -> priv -clock :: ClockConfig -> Clock +clock :: ClockConfig -> Clock d clock config = do - Clock config
\ No newline at end of file + Clock config |