warning police

Ignore-this: ae7412ac77c57492a7ad6c5f8f50b9eb

darcs-hash:20130502012700-76d51-e3a9d6a50623cbd06b8ea65630e17f055408306a.gz

1 files changed, 4 insertions, 4 deletions

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])