Tabbed and TabBarDecoration: no need to implement decorateFirst (the default is used)

XMonad/Layout/TabBarDecoration.hs

@@ -65,7 +65,6 @@ data TabBarDecoration a = TabBar XPPosition deriving (Read, Show)
 
 instance Eq a => DecorationStyle TabBarDecoration a where
     describeDeco  _ = "TabBar"
-    decorateFirst _ = True
     shrink    _ _ r = r
     decorationMouseDragHook _ _ _ = return ()
     pureDecoration (TabBar p) _ dht (Rectangle x y wh ht) s _ (w,_) =

XMonad/Layout/Tabbed.hs

@@ -90,7 +90,6 @@ data TabbedDecoration a = Tabbed deriving (Read, Show)
 
 instance Eq a => DecorationStyle TabbedDecoration a where
     describeDeco  _ = "Tabbed"
-    decorateFirst _ = True
     decorationMouseDragHook _ _ _ = return ()
     pureDecoration _ _ ht _ s wrs (w,r@(Rectangle x y wh _)) =
             if length wrs' <= 1 then Nothing