mirror of
https://github.com/xmonad/xmonad-contrib.git
synced 2025-07-26 17:51:51 -07:00
some bang patterns
This commit is contained in:
@@ -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 =
|
||||||
|
Reference in New Issue
Block a user