summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar
diff options
context:
space:
mode:
authorPavan Rikhi <pavan.rikhi@gmail.com>2018-03-17 23:32:43 -0400
committerjao <jao@gnu.org>2018-11-21 21:45:15 +0000
commitc14440b575e311a2995ff00ff22a995b9b43c5fa (patch)
treeb2d613b4fcab0c4bd1540badc3778f8d939abbd3 /src/Xmobar
parentfa869377b70fa0f36733b9b87ae1b6c2f51c251d (diff)
downloadxmobar-c14440b575e311a2995ff00ff22a995b9b43c5fa.tar.gz
xmobar-c14440b575e311a2995ff00ff22a995b9b43c5fa.tar.bz2
Fix Indentation in Kbd Plugin
An unindented `do` block was causing compilation failures.
Diffstat (limited to 'src/Xmobar')
-rw-r--r--src/Xmobar/Plugins/Kbd.hsc28
1 files changed, 14 insertions, 14 deletions
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: