From 6516064616b0b993a694cb4e8423a53c60a9b3c3 Mon Sep 17 00:00:00 2001 From: Brent Yorgey Date: Tue, 12 Jan 2010 18:25:07 +0100 Subject: suppress some warnings under ghc 6.12.1 and clean up redundant imports to get rid of some others. Ignore-this: bf3487b27036b02797d9f528a078d006 darcs-hash:20100112172507-1e371-1b466e62ac727b196330c72c8553116282ef5702.gz --- XMonad/Layout/SubLayouts.hs | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) (limited to 'XMonad/Layout/SubLayouts.hs') diff --git a/XMonad/Layout/SubLayouts.hs b/XMonad/Layout/SubLayouts.hs index 53e7e8f..20aadee 100644 --- a/XMonad/Layout/SubLayouts.hs +++ b/XMonad/Layout/SubLayouts.hs @@ -51,13 +51,10 @@ import XMonad.Util.Types(Direction2D(..)) import XMonad import Control.Applicative((<$>),(<*)) import Control.Arrow(Arrow(second, (&&&))) -import Control.Monad(Monad(return), Functor(..), - MonadPlus(mplus), (=<<), sequence, foldM, guard, when, join) -import Data.Function((.), ($), flip, id, on) -import Data.List((++), foldr, filter, map, concatMap, elem, - notElem, null, nubBy, (\\), find) -import Data.Maybe(Maybe(..), isNothing, maybe, fromMaybe, listToMaybe, - mapMaybe) +import Control.Monad(MonadPlus(mplus), foldM, guard, when, join) +import Data.Function(on) +import Data.List(nubBy, (\\), find) +import Data.Maybe(isNothing, fromMaybe, listToMaybe, mapMaybe) import Data.Traversable(sequenceA) import qualified XMonad.Layout.BoringWindows as B -- cgit v1.2.3