some bang patterns

This commit is contained in:
Don Stewart 2008-04-03 17:22:46 +00:00
parent f1d91209a4
commit 6c324cbfed

View File

@ -41,7 +41,7 @@ import Control.Monad
-- --
-- "XMonad.Doc.Extending#Editing_the_layout_hook" -- "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 instance LayoutClass ThreeCol a where
doLayout (ThreeCol nmaster _ frac) r = doLayout (ThreeCol nmaster _ frac) r =