diff options
| -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) |