summaryrefslogtreecommitdiffhomepage
path: root/src/Plugins/Kbd.hsc
diff options
context:
space:
mode:
Diffstat (limited to 'src/Plugins/Kbd.hsc')
-rw-r--r--src/Plugins/Kbd.hsc18
1 files changed, 9 insertions, 9 deletions
diff --git a/src/Plugins/Kbd.hsc b/src/Plugins/Kbd.hsc
index 318effc..59854f5 100644
--- a/src/Plugins/Kbd.hsc
+++ b/src/Plugins/Kbd.hsc
@@ -101,15 +101,15 @@ getKbdLayout d = alloca $ \stRecPtr -> do
--
data XkbKeyNameRec = XkbKeyNameRec {
- name :: Ptr CChar -- array
+ name :: Ptr CChar -- array
}
--
-- the t_ before alias is just because of name collisions
--
data XkbKeyAliasRec = XkbKeyAliasRec {
- real :: Ptr CChar, -- array
- t_alias :: Ptr CChar -- array
+ real :: Ptr CChar, -- array
+ t_alias :: Ptr CChar -- array
}
--
@@ -146,7 +146,7 @@ data XkbDescRec = XkbDescRec {
server :: Ptr CChar, -- XkbServerMapPtr ; dont' care
t_map :: Ptr CChar, --XkbClientMapPtr ; dont' care
t_indicators :: Ptr CChar, -- XkbIndicatorPtr ; dont' care
- names :: Ptr XkbNamesRec, -- array
+ names :: Ptr XkbNamesRec, -- array
t_compat :: Ptr CChar, -- XkbCompatMap ; dont' care
geom :: Ptr CChar -- XkbGeometryPtr ; dont' care
@@ -264,10 +264,10 @@ foreign import ccall unsafe "X11/XKBlib.h XkbFreeKeyboard"
xkbFreeKeyboard :: (Ptr XkbDescRec) -> CUInt -> CInt -> IO ()
foreign import ccall unsafe "X11/XKBlib.h XkbSelectEventDetails"
- xkbSelectEventDetails :: Display -> CUInt -> CUInt -> CULong -> CULong -> IO CUInt
+ xkbSelectEventDetails :: Display -> CUInt -> CUInt -> CULong -> CULong -> IO CUInt
foreign import ccall unsafe "X11/XKBlib.h XkbSelectEvents"
- xkbSelectEvents :: Display -> CUInt -> CUInt -> CUInt -> IO CUInt
+ xkbSelectEvents :: Display -> CUInt -> CUInt -> CUInt -> IO CUInt
xkbUseCoreKbd :: CUInt
@@ -371,11 +371,11 @@ getKbdLay dpy opts = do
data Kbd = Kbd [(String, String)]
- deriving (Read, Show)
+ deriving (Read, Show)
instance Exec Kbd where
- alias (Kbd _) = "kbd"
- start (Kbd opts) cb = do
+ alias (Kbd _) = "kbd"
+ start (Kbd opts) cb = do
dpy <- openDisplay ""