From 9f6c10d923bbc5bca2e29f82e08e58f62be2ad99 Mon Sep 17 00:00:00 2001 From: Daniel Wagner Date: Thu, 2 May 2013 03:27:00 +0200 Subject: warning police Ignore-this: ae7412ac77c57492a7ad6c5f8f50b9eb darcs-hash:20130502012700-76d51-e3a9d6a50623cbd06b8ea65630e17f055408306a.gz --- XMonad/Layout/IndependentScreens.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'XMonad') diff --git a/XMonad/Layout/IndependentScreens.hs b/XMonad/Layout/IndependentScreens.hs index 0c79d3a..b240f29 100644 --- a/XMonad/Layout/IndependentScreens.hs +++ b/XMonad/Layout/IndependentScreens.hs @@ -32,7 +32,7 @@ module XMonad.Layout.IndependentScreens ( import Control.Applicative((<*), liftA2) import Control.Arrow hiding ((|||)) import Control.Monad -import Data.List +import Data.List (nub, genericLength) import Graphics.X11.Xinerama import XMonad import XMonad.StackSet hiding (filter, workspaces) @@ -171,12 +171,12 @@ whenCurrentOn s pp = pp return $ \xs -> case xs of x:_ | unmarshallS (tag x) == s -> sort xs _ -> [] - , ppOrder = \i@(wss:rest) -> case wss of + , ppOrder = \i@(wss:_) -> case wss of "" -> ["\0"] -- we got passed no workspaces; this is the signal from ppSort that this is a boring case _ -> ppOrder pp i - , ppOutput = \s -> case s of + , ppOutput = \out -> case out of "\0" -> return () -- we got passed the signal from ppOrder that this is a boring case - _ -> ppOutput pp s + _ -> ppOutput pp out } marshallSort :: ScreenId -> ([WindowSpace] -> [WindowSpace]) -> ([WindowSpace] -> [WindowSpace]) -- cgit v1.2.3