diff options
author | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-08-21 08:40:08 +0200 |
---|---|---|
committer | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-08-21 08:40:08 +0200 |
commit | 022783f4a7fd5b85afa5eedffd8a2e6a07432e1d (patch) | |
tree | 6c42cfcc9747a4e748d4456bf8bd704f0e42d9d5 /lib/Phi/Widgets/Clock.hs | |
parent | 028c4243a87e41e3b7e2c51eb752d4b089b30680 (diff) | |
download | phi-022783f4a7fd5b85afa5eedffd8a2e6a07432e1d.tar phi-022783f4a7fd5b85afa5eedffd8a2e6a07432e1d.zip |
Get rid of existential Widget type and Widget lists
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 2607288..bee8d39 100644 --- a/lib/Phi/Widgets/Clock.hs +++ b/lib/Phi/Widgets/Clock.hs @@ -43,7 +43,7 @@ data ClockState = ClockState !ZonedTime deriving (Show, Eq) data ClockMessage = UpdateTime !ZonedTime deriving (Show, Typeable) -instance WidgetClass Clock ClockState where +instance Widget Clock ClockState where initWidget (Clock _) phi _ = do forkIO $ forever $ do time <- getZonedTime @@ -85,6 +85,6 @@ instance WidgetClass Clock ClockState where _ -> priv -clock :: ClockConfig -> Widget +clock :: ClockConfig -> Clock clock config = do - Widget $ Clock config
\ No newline at end of file + Clock config
\ No newline at end of file |