From 9f6c10d923bbc5bca2e29f82e08e58f62be2ad99 Mon Sep 17 00:00:00 2001
From: Daniel Wagner <daniel@wagner-home.com>
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