remove leftover comments from old impl

Author: geekosaur

XMonad/Layout/PerScreen.hs

@@ -113,33 +113,4 @@ ifWider :: (LayoutClass l1 a, LayoutClass l2 a)
                -> l2 a        -- ^ layout to use otherwise
                -> BW.PerScreen l1 l2 a
 ifWider = BW.ifWider
-{-# DEPRECATED ifWider "Use XMonad.Layout.ByWidth.ifWider instead" #-}
-
-{-
-data ByWidth l1 l2 a = ByWidth Dimension Bool (l1 a) (l2 a) deriving (Read, Show)
-
--- | Construct new ByWidth values with possibly modified layouts.
-mkNewByWidthT :: ByWidth l1 l2 a -> Maybe (l1 a) ->
-                 ByWidth l1 l2 a
-mkNewByWidthT (ByWidth w _ lt lf) mlt' =
-    (\lt' -> ByWidth w True lt' lf) $ fromMaybe lt mlt'
-
-mkNewByWidthF :: ByWidth l1 l2 a -> Maybe (l2 a) ->
-                 ByWidth l1 l2 a
-mkNewByWidthF (ByWidth w _ lt lf) mlf' =
-    ByWidth w False lt $ fromMaybe lf mlf'
-
-instance (LayoutClass l1 a, LayoutClass l2 a, Show a) => LayoutClass (ByWidth l1 l2) a where
-    runLayout (W.Workspace i p@(ByWidth w _ lt lf) ms) r
-        | rect_width r > w    = do (wrs, mlt') <- runLayout (W.Workspace i lt ms) r
-                                   return (wrs, Just $ mkNewByWidthT p mlt')
-        | otherwise           = do (wrs, mlt') <- runLayout (W.Workspace i lf ms) r
-                                   return (wrs, Just $ mkNewByWidthF p mlt')
-
-    handleMessage (ByWidth w bool lt lf) m
-        | bool      = handleMessage lt m >>= maybe (return Nothing) (\nt -> return . Just $ ByWidth w bool nt lf)
-        | otherwise = handleMessage lf m >>= maybe (return Nothing) (return . Just . ByWidth w bool lt)
-
-    description (ByWidth _ True  l1 _) = description l1
-    description (ByWidth _ _     _ l2) = description l2
--}
+{-# DEPRECATED ifWider "Use XMonad.Layout.ByWidth.ifWider instead" #-}