mirror of
https://github.com/xmonad/xmonad-contrib.git
synced 2025-05-19 03:20:21 -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"
|
||||
|
||||
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 =
|
||||
|
Loading…
x
Reference in New Issue
Block a user