diff options
| author | Andrea Rossato <andrea.rossato@unibz.it> | 2008-01-15 05:51:39 +0100 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@unibz.it> | 2008-01-15 05:51:39 +0100 |
| commit | 83e01e9718177e4dce65771268346ee6946e7d99 (patch) | |
| tree | ed7e799b2b6fd55492d90b708c2b24551c54053a /XMonad/Layout/ShowWName.hs | |
| parent | d7d8a1a945a0a445d298ba2c46d42636bed2e842 (diff) | |
| download | XMonadContrib-83e01e9718177e4dce65771268346ee6946e7d99.tar.gz XMonadContrib-83e01e9718177e4dce65771268346ee6946e7d99.tar.xz XMonadContrib-83e01e9718177e4dce65771268346ee6946e7d99.zip | |
Layout.ShowWName: generalize the instance
darcs-hash:20080115045139-32816-93d380b259da4298972a60e3039b7af752626a6b.gz
Diffstat (limited to 'XMonad/Layout/ShowWName.hs')
| -rw-r--r-- | XMonad/Layout/ShowWName.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/Layout/ShowWName.hs b/XMonad/Layout/ShowWName.hs index 7d3f636..50956e0 100644 --- a/XMonad/Layout/ShowWName.hs +++ b/XMonad/Layout/ShowWName.hs @@ -1,4 +1,4 @@ -{-# LANGUAGE PatternGuards, TypeSynonymInstances, MultiParamTypeClasses #-} +{-# LANGUAGE PatternGuards, FlexibleInstances, MultiParamTypeClasses #-} ----------------------------------------------------------------------------- -- | -- Module : XMonad.Layout.ShowWName @@ -67,7 +67,7 @@ defaultSWNConfig = , swn_fade = 1 } -instance LayoutModifier ShowWName Window where +instance LayoutModifier ShowWName a where redoLayout (SWN True c (Just (_,w))) r _ wrs = deleteWindow w >> flashName c r wrs redoLayout (SWN True c Nothing ) r _ wrs = flashName c r wrs redoLayout (SWN False _ _ ) _ _ wrs = return (wrs, Nothing) |