From 83e01e9718177e4dce65771268346ee6946e7d99 Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@unibz.it>
Date: Tue, 15 Jan 2008 05:51:39 +0100
Subject: Layout.ShowWName: generalize the instance

darcs-hash:20080115045139-32816-93d380b259da4298972a60e3039b7af752626a6b.gz
---
 XMonad/Layout/ShowWName.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'XMonad/Layout/ShowWName.hs')

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)
-- 
cgit v1.2.3