diff options
author | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-08-12 03:18:46 +0200 |
---|---|---|
committer | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-08-12 03:18:46 +0200 |
commit | 15bccc001a5ff2e76d0890f85e300e9312cddd1b (patch) | |
tree | 2e880537f1a1eedebe021ffbd3cb521c2a8c3a28 /lib/Phi/Widgets/Clock.hs | |
parent | 180285af85c4c6c02c885dd6c276a33e0bf00d1a (diff) | |
download | phi-15bccc001a5ff2e76d0890f85e300e9312cddd1b.tar phi-15bccc001a5ff2e76d0890f85e300e9312cddd1b.zip |
Some strictness optimizations
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 1f00bd0..d2ad134 100644 --- a/lib/Phi/Widgets/Clock.hs +++ b/lib/Phi/Widgets/Clock.hs @@ -34,11 +34,11 @@ data ClockConfig = ClockConfig { clockFormat :: !String defaultClockConfig :: ClockConfig defaultClockConfig = ClockConfig "%R" (0, 0, 0, 1) 0 50 -data Clock = Clock ClockConfig deriving Show +data Clock = Clock !ClockConfig deriving Show -data ClockState = ClockState ZonedTime deriving Show +data ClockState = ClockState !ZonedTime deriving Show -data ClockMessage = UpdateTime ZonedTime deriving (Show, Typeable) +data ClockMessage = UpdateTime !ZonedTime deriving (Show, Typeable) instance WidgetClass Clock where type WidgetData Clock = ClockState |