From 741b803b943430a262ec36658b13830733e17b48 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sun, 24 Jun 2018 01:54:28 +0100
Subject: hlinting

---
 src/Plugins/EWMH.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/Plugins/EWMH.hs')

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'})
-- 
cgit v1.2.3