From fb5002c4b99f1935c491a4fb22ef95455abad9f0 Mon Sep 17 00:00:00 2001 From: Don Stewart Date: Thu, 3 Apr 2008 19:22:46 +0200 Subject: some bang patterns darcs-hash:20080403172246-cba2c-96d9e37fac0932c3cff10bc2623a163329a2d2a6.gz --- XMonad/Layout/ThreeColumns.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/XMonad/Layout/ThreeColumns.hs b/XMonad/Layout/ThreeColumns.hs index d95d468..188bce9 100644 --- a/XMonad/Layout/ThreeColumns.hs +++ b/XMonad/Layout/ThreeColumns.hs @@ -41,7 +41,7 @@ import Control.Monad -- -- "XMonad.Doc.Extending#Editing_the_layout_hook" -data ThreeCol a = ThreeCol Int Rational Rational deriving (Show,Read) +data ThreeCol a = ThreeCol !Int !Rational !Rational deriving (Show,Read) instance LayoutClass ThreeCol a where doLayout (ThreeCol nmaster _ frac) r = -- cgit v1.2.3