summaryrefslogtreecommitdiffhomepage
path: root/src/Plugins/EWMH.hs
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2018-06-24 01:54:28 +0100
committerjao <jao@gnu.org>2018-06-24 01:54:28 +0100
commit741b803b943430a262ec36658b13830733e17b48 (patch)
treeda40a2aa66691e494e4c22cba24eb5d1dc0b71e7 /src/Plugins/EWMH.hs
parent9c5f9b26bc19975f2486a11941821089ee62562a (diff)
downloadxmobar-741b803b943430a262ec36658b13830733e17b48.tar.gz
xmobar-741b803b943430a262ec36658b13830733e17b48.tar.bz2
hlinting
Diffstat (limited to 'src/Plugins/EWMH.hs')
-rw-r--r--src/Plugins/EWMH.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Plugins/EWMH.hs b/src/Plugins/EWMH.hs
index 63395f0..1aac83d 100644
--- a/src/Plugins/EWMH.hs
+++ b/src/Plugins/EWMH.hs
@@ -1,6 +1,6 @@
{-# OPTIONS_GHC -w #-}
-{-# LANGUAGE CPP, NamedFieldPuns, GeneralizedNewtypeDeriving, FlexibleContexts #-}
-
+{-# LANGUAGE CPP, NamedFieldPuns, GeneralizedNewtypeDeriving #-}
+{-# LANGUAGE TupleSections, FlexibleContexts #-}
-----------------------------------------------------------------------------
-- |
-- Module : Plugins.EWMH
@@ -224,7 +224,7 @@ updateClientList _ = do
case mwp of
Just xs -> do
cl <- gets clients
- let cl' = Map.fromList $ map (flip (,) initialClient . fromIntegral) xs
+ let cl' = Map.fromList $ map ((, initialClient) . fromIntegral) xs
dels = Map.difference cl cl'
new = Map.difference cl' cl
modify (\s -> s { clients = Map.union (Map.intersection cl cl') cl'})