diff options
| author | Pavan Rikhi <pavan.rikhi@gmail.com> | 2018-03-17 23:32:43 -0400 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2018-11-21 21:45:15 +0000 |
| commit | c14440b575e311a2995ff00ff22a995b9b43c5fa (patch) | |
| tree | b2d613b4fcab0c4bd1540badc3778f8d939abbd3 | |
| parent | fa869377b70fa0f36733b9b87ae1b6c2f51c251d (diff) | |
| download | xmobar-c14440b575e311a2995ff00ff22a995b9b43c5fa.tar.gz xmobar-c14440b575e311a2995ff00ff22a995b9b43c5fa.tar.bz2 | |
Fix Indentation in Kbd Plugin
An unindented `do` block was causing compilation failures.
| -rw-r--r-- | src/Xmobar/Plugins/Kbd.hsc | 28 |
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: |