From c14440b575e311a2995ff00ff22a995b9b43c5fa Mon Sep 17 00:00:00 2001
From: Pavan Rikhi <pavan.rikhi@gmail.com>
Date: Sat, 17 Mar 2018 23:32:43 -0400
Subject: Fix Indentation in Kbd Plugin

An unindented `do` block was causing compilation failures.
---
 src/Xmobar/Plugins/Kbd.hsc | 28 ++++++++++++++--------------
 1 file changed, 14 insertions(+), 14 deletions(-)

(limited to 'src')

diff --git a/src/Xmobar/Plugins/Kbd.hsc b/src/Xmobar/Plugins/Kbd.hsc
index 763150b..372386e 100644
--- a/src/Xmobar/Plugins/Kbd.hsc
+++ b/src/Xmobar/Plugins/Kbd.hsc
@@ -382,23 +382,23 @@ instance Exec Kbd where
         alias (Kbd _) = "kbd"
         start (Kbd opts) cb = do
 
-        dpy <- openDisplay ""
+            dpy <- openDisplay ""
 
-        -- initial set of layout
-        cb =<< getKbdLay dpy opts
+            -- initial set of layout
+            cb =<< getKbdLay dpy opts
 
-        -- enable listing for
-        -- group changes
-        _ <- xkbSelectEventDetails dpy xkbUseCoreKbd xkbStateNotify xkbAllStateComponentsMask xkbGroupStateMask
-        -- layout/geometry changes
-        _ <- xkbSelectEvents dpy  xkbUseCoreKbd xkbNewKeyboardNotifyMask xkbNewKeyboardNotifyMask
+            -- enable listing for
+            -- group changes
+            _ <- xkbSelectEventDetails dpy xkbUseCoreKbd xkbStateNotify xkbAllStateComponentsMask xkbGroupStateMask
+            -- layout/geometry changes
+            _ <- xkbSelectEvents dpy  xkbUseCoreKbd xkbNewKeyboardNotifyMask xkbNewKeyboardNotifyMask
 
-        allocaXEvent $ \e -> forever $ do
-            nextEvent' dpy e
-            _ <- getEvent e
-            cb =<< getKbdLay dpy opts
+            allocaXEvent $ \e -> forever $ do
+                nextEvent' dpy e
+                _ <- getEvent e
+                cb =<< getKbdLay dpy opts
 
-        closeDisplay dpy
-        return ()
+            closeDisplay dpy
+            return ()
 
 -- vim:ft=haskell:ts=4:shiftwidth=4:softtabstop=4:expandtab:foldlevel=20:
-- 
cgit v1.2.3