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

(limited to 'src/Plugins/Kbd.hsc')

diff --git a/src/Plugins/Kbd.hsc b/src/Plugins/Kbd.hsc
index 59854f5..c582634 100644
--- a/src/Plugins/Kbd.hsc
+++ b/src/Plugins/Kbd.hsc
@@ -380,7 +380,7 @@ instance Exec Kbd where
         dpy <- openDisplay ""
 
         -- initial set of layout
-        cb =<< (getKbdLay dpy opts)
+        cb =<< getKbdLay dpy opts
 
         -- enable listing for
         -- group changes
@@ -391,7 +391,7 @@ instance Exec Kbd where
         allocaXEvent $ \e -> forever $ do
             nextEvent' dpy e
             _ <- getEvent e
-            cb =<< (getKbdLay dpy opts)
+            cb =<< getKbdLay dpy opts
 
         closeDisplay dpy
         return ()
-- 
cgit v1.2.3