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/Systray.hs | |
| parent | 180285af85c4c6c02c885dd6c276a33e0bf00d1a (diff) | |
| download | phi-15bccc001a5ff2e76d0890f85e300e9312cddd1b.tar phi-15bccc001a5ff2e76d0890f85e300e9312cddd1b.zip | |
Some strictness optimizations
Diffstat (limited to 'lib/Phi/Widgets/Systray.hs')
| -rw-r--r-- | lib/Phi/Widgets/Systray.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/Phi/Widgets/Systray.hs b/lib/Phi/Widgets/Systray.hs index b8b85d7..385a740 100644 --- a/lib/Phi/Widgets/Systray.hs +++ b/lib/Phi/Widgets/Systray.hs @@ -45,13 +45,13 @@ instance Show (IORef a) where show _ = "IORef <?>" -data SystrayIconState = SystrayIconState Window Window deriving Show +data SystrayIconState = SystrayIconState !Window !Window deriving Show -data SystrayState = SystrayState Phi Rectangle Int (IORef Int) [SystrayIconState] deriving Show +data SystrayState = SystrayState !Phi !Rectangle !Int !(IORef Int) ![SystrayIconState] deriving Show data Systray = Systray deriving Show -data SystrayMessage = AddIcon Window Window | RemoveIcon Window | RenderIcon Window Window Int Int Int Int Bool +data SystrayMessage = AddIcon !Window !Window | RemoveIcon !Window | RenderIcon !Window !Window !Int !Int !Int !Int !Bool deriving (Show, Typeable) |