From 15bccc001a5ff2e76d0890f85e300e9312cddd1b Mon Sep 17 00:00:00 2001 From: Matthias Schiffer Date: Fri, 12 Aug 2011 03:18:46 +0200 Subject: Some strictness optimizations --- lib/Phi/Widgets/AlphaBox.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lib/Phi/Widgets/AlphaBox.hs') diff --git a/lib/Phi/Widgets/AlphaBox.hs b/lib/Phi/Widgets/AlphaBox.hs index c09b911..dd4bfba 100644 --- a/lib/Phi/Widgets/AlphaBox.hs +++ b/lib/Phi/Widgets/AlphaBox.hs @@ -11,9 +11,9 @@ import Control.Monad import Graphics.Rendering.Cairo -data AlphaBoxState = AlphaBoxState [WidgetState] deriving Show +data AlphaBoxState = AlphaBoxState ![WidgetState] deriving Show -data AlphaBox = AlphaBox Double [Widget] deriving Show +data AlphaBox = AlphaBox !Double ![Widget] deriving Show instance WidgetClass AlphaBox where -- cgit v1.2.3