From c8346ee3e40056736fd77d7bb7fd8504ed411455 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Sat, 5 May 2012 22:06:10 +0200
Subject: Kbd: compilation warnings and whitespace

---
 src/Plugins/Kbd.hsc | 23 +++++++++++------------
 1 file changed, 11 insertions(+), 12 deletions(-)

(limited to 'src')

diff --git a/src/Plugins/Kbd.hsc b/src/Plugins/Kbd.hsc
index d19f0c7..241dde4 100644
--- a/src/Plugins/Kbd.hsc
+++ b/src/Plugins/Kbd.hsc
@@ -18,7 +18,7 @@ module Plugins.Kbd where
 import Graphics.X11.Xlib
 import Graphics.X11.Xlib.Extras
 import Foreign
-import Foreign.C.Types (CUInt,CULong,CInt,CUShort,CChar,CUChar)
+import Foreign.C.Types
 import Foreign.C.String
 import Plugins
 import Control.Monad (forever)
@@ -30,7 +30,7 @@ import Data.Maybe (fromJust)
 #include <X11/extensions/XKB.h>
 #include <X11/extensions/XKBstr.h>
 
--- 
+--
 -- Definition for XkbStaceRec and getKbdLayout taken from
 -- XMonad.Layout.XKBLayout
 --
@@ -110,7 +110,7 @@ data XkbKeyNameRec = XkbKeyNameRec {
 data XkbKeyAliasRec = XkbKeyAliasRec {
 	real  :: Ptr CChar, -- array
 	t_alias :: Ptr CChar  -- array
-} 
+}
 
 --
 -- the t_ before geometry is just because of name collisions
@@ -182,14 +182,14 @@ instance Storable XkbNamesRec where
         r_geometry <- (#peek XkbNamesRec, geometry) ptr
         r_symbols <- (#peek XkbNamesRec, symbols ) ptr
         r_types <- (#peek XkbNamesRec, types ) ptr
-        r_compat <- (#peek XkbNamesRec, compat ) ptr  
+        r_compat <- (#peek XkbNamesRec, compat ) ptr
         r_vmods <- (#peek XkbNamesRec,  vmods ) ptr
-        r_indicators <- (#peek XkbNamesRec, indicators ) ptr  
-        r_groups <- (#peek XkbNamesRec, groups ) ptr 
-        r_keys <- (#peek XkbNamesRec, keys ) ptr   
+        r_indicators <- (#peek XkbNamesRec, indicators ) ptr
+        r_groups <- (#peek XkbNamesRec, groups ) ptr
+        r_keys <- (#peek XkbNamesRec, keys ) ptr
         r_key_aliases <- (#peek XkbNamesRec, key_aliases  ) ptr
-        r_radio_groups <- (#peek XkbNamesRec, radio_groups  ) ptr 
-        r_phys_symbols <- (#peek XkbNamesRec, phys_symbols ) ptr  
+        r_radio_groups <- (#peek XkbNamesRec, radio_groups  ) ptr
+        r_phys_symbols <- (#peek XkbNamesRec, phys_symbols ) ptr
         r_num_keys <- (#peek XkbNamesRec,num_keys  ) ptr
         r_num_key_aliases <- (#peek XkbNamesRec, num_key_aliases  ) ptr
         r_num_rg <- (#peek XkbNamesRec, num_rg ) ptr
@@ -330,7 +330,7 @@ noLaySymbols = ["group", "inet", "ctr", "pc", "ctrl"]
 
 -- splits the layout string into the actual layouts
 splitLayout :: String -> [String]
-splitLayout s = splitLayout' noLaySymbols $ split s '+' 
+splitLayout s = splitLayout' noLaySymbols $ split s '+'
 
 splitLayout' :: [String] ->  [String] -> [String]
 --                  end of recursion, remove empty strings
@@ -349,7 +349,7 @@ split (c:cs) delim
 
 -- replaces input string if on search list (exact match) with corresponding
 -- element on replacement list.
--- 
+--
 -- if not found, return string unchanged
 searchReplaceLayout :: KbdOpts -> String -> String
 searchReplaceLayout opts s = let c = findIndex (\x -> fst x == s) opts in
@@ -394,4 +394,3 @@ instance Exec Kbd where
         return ()
 
 -- vim:ft=haskell:ts=4:shiftwidth=4:softtabstop=4:expandtab:foldlevel=20:
-
-- 
cgit v1.2.3