From e41fd61bdeac8779fa24050cc0d44714f7c90f1d Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sat, 29 Apr 2017 02:09:24 +0200
Subject: hlint configuration

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

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

diff --git a/src/Plugins/EWMH.hs b/src/Plugins/EWMH.hs
index c014aec..63395f0 100644
--- a/src/Plugins/EWMH.hs
+++ b/src/Plugins/EWMH.hs
@@ -150,13 +150,13 @@ getAtom s = do
 
 windowProperty32 :: String -> Window -> M (Maybe [CLong])
 windowProperty32 s w = do
-    (C {display}) <- ask
+    C {display} <- ask
     a <- getAtom s
     liftIO $ getWindowProperty32 display a w
 
 windowProperty8 :: String -> Window -> M (Maybe [CChar])
 windowProperty8 s w = do
-    (C {display}) <- ask
+    C {display} <- ask
     a <- getAtom s
     liftIO $ getWindowProperty8 display a w
 
@@ -190,21 +190,21 @@ type Updater = Window -> M ()
 
 updateCurrentDesktop, updateDesktopNames, updateActiveWindow :: Updater
 updateCurrentDesktop _ = do
-    (C {root}) <- ask
+    C {root} <- ask
     mwp <- windowProperty32 "_NET_CURRENT_DESKTOP" root
     case mwp of
         Just [x] -> modify (\s -> s { currentDesktop = x })
         _        -> return ()
 
 updateActiveWindow _ = do
-    (C {root}) <- ask
+    C {root} <- ask
     mwp <- windowProperty32 "_NET_ACTIVE_WINDOW" root
     case mwp of
         Just [x] -> modify (\s -> s { activeWindow = fromIntegral x })
         _        -> return ()
 
 updateDesktopNames _ = do
-    (C {root}) <- ask
+    C {root} <- ask
     mwp <- windowProperty8 "_NET_DESKTOP_NAMES" root
     case mwp of
         Just xs -> modify (\s -> s { desktopNames = parse xs })
@@ -219,7 +219,7 @@ updateDesktopNames _ = do
     parse = split . decodeCChar
 
 updateClientList _ = do
-    (C {root}) <- ask
+    C {root} <- ask
     mwp <- windowProperty32 "_NET_CLIENT_LIST" root
     case mwp of
         Just xs -> do
-- 
cgit v1.2.3