diff options
Diffstat (limited to 'src/Plugins/EWMH.hs')
| -rw-r--r-- | src/Plugins/EWMH.hs | 6 |
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'}) |