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/Border.hs | |
| parent | 180285af85c4c6c02c885dd6c276a33e0bf00d1a (diff) | |
| download | phi-15bccc001a5ff2e76d0890f85e300e9312cddd1b.tar phi-15bccc001a5ff2e76d0890f85e300e9312cddd1b.zip | |
Some strictness optimizations
Diffstat (limited to 'lib/Phi/Border.hs')
| -rw-r--r-- | lib/Phi/Border.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Phi/Border.hs b/lib/Phi/Border.hs index 1c664db..0a9a74c 100644 --- a/lib/Phi/Border.hs +++ b/lib/Phi/Border.hs @@ -34,7 +34,7 @@ borderH bw = borderLeft bw + borderRight bw borderV :: BorderWidth -> Int borderV bw = borderTop bw + borderBottom bw -data BorderState = BorderState [WidgetState] deriving Show +data BorderState = BorderState ![WidgetState] deriving Show data BorderConfig = BorderConfig { margin :: !BorderWidth , borderWidth :: !Int @@ -54,7 +54,7 @@ defaultBorderConfig = BorderConfig { margin = simpleBorderWidth 0 , borderWeight = 1 } -data Border = Border BorderConfig [Widget] deriving Show +data Border = Border !BorderConfig ![Widget] deriving Show instance WidgetClass Border where type WidgetData Border = BorderState |