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/Window.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Window.hs')

diff --git a/src/Window.hs b/src/Window.hs
index 3c3981e..11ea82e 100644
--- a/src/Window.hs
+++ b/src/Window.hs
@@ -1,7 +1,7 @@
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  Window
--- Copyright   :  (c) 2011-16 Jose A. Ortega Ruiz
+-- Copyright   :  (c) 2011-17 Jose A. Ortega Ruiz
 --             :  (c) 2012 Jochen Keil
 -- License     :  BSD-style (see LICENSE)
 --
@@ -197,7 +197,7 @@ showWindow r c d w = do
 
 isMapped :: Display -> Window -> IO Bool
 isMapped d w = ism <$> getWindowAttributes d w
-    where ism (WindowAttributes { wa_map_state = wms }) = wms /= waIsUnmapped
+    where ism WindowAttributes { wa_map_state = wms } = wms /= waIsUnmapped
 
 borderOffset :: (Integral a) => Border -> Int -> a
 borderOffset b lw =
-- 
cgit v1.2.3