mirror of
https://github.com/xmonad/xmonad-contrib.git
synced 2025-05-19 11:30:22 -07:00
some bang patterns
This commit is contained in:
parent
f1d91209a4
commit
6c324cbfed
@ -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 =
|
||||||
|
Loading…
x
Reference in New Issue
Block a user