summaryrefslogtreecommitdiffhomepage
path: root/src/Plugins/Kbd.hsc
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2018-02-01 03:10:18 +0100
committerjao <jao@gnu.org>2018-02-01 03:10:18 +0100
commit8f72b3cede03169b33f878be2350a8f82c6a4b38 (patch)
treece474256684d2c3662d4cb85e0e20ab2d9d67b24 /src/Plugins/Kbd.hsc
parentb38cd51131dfd1037e119ec927fd8881cc2efe18 (diff)
downloadxmobar-8f72b3cede03169b33f878be2350a8f82c6a4b38.tar.gz
xmobar-8f72b3cede03169b33f878be2350a8f82c6a4b38.tar.bz2
Kbd: silence warnings with explicitly undefined poke
Diffstat (limited to 'src/Plugins/Kbd.hsc')
-rw-r--r--src/Plugins/Kbd.hsc5
1 files changed, 5 insertions, 0 deletions
diff --git a/src/Plugins/Kbd.hsc b/src/Plugins/Kbd.hsc
index c582634..a4bb90d 100644
--- a/src/Plugins/Kbd.hsc
+++ b/src/Plugins/Kbd.hsc
@@ -54,6 +54,7 @@ data XkbStateRec = XkbStateRec {
instance Storable XkbStateRec where
sizeOf _ = (#size XkbStateRec)
alignment _ = alignment (undefined :: CUShort)
+ poke _ _ = undefined
peek ptr = do
r_group <- (#peek XkbStateRec, group) ptr
r_locked_group <- (#peek XkbStateRec, locked_group) ptr
@@ -155,6 +156,7 @@ data XkbDescRec = XkbDescRec {
instance Storable XkbKeyNameRec where
sizeOf _ = (#size XkbKeyNameRec)
alignment _ = alignment (undefined :: CUShort)
+ poke _ _ = undefined
peek ptr = do
r_name <- (#peek XkbKeyNameRec, name) ptr
@@ -165,6 +167,7 @@ instance Storable XkbKeyNameRec where
instance Storable XkbKeyAliasRec where
sizeOf _ = (#size XkbKeyAliasRec)
alignment _ = alignment (undefined :: CUShort)
+ poke _ _ = undefined
peek ptr = do
r_real <- (#peek XkbKeyAliasRec, real) ptr
r_alias <- (#peek XkbKeyAliasRec, alias) ptr
@@ -177,6 +180,7 @@ instance Storable XkbKeyAliasRec where
instance Storable XkbNamesRec where
sizeOf _ = (#size XkbNamesRec)
alignment _ = alignment (undefined :: CUShort)
+ poke _ _ = undefined
peek ptr = do
r_keycodes <- (#peek XkbNamesRec, keycodes) ptr
r_geometry <- (#peek XkbNamesRec, geometry) ptr
@@ -215,6 +219,7 @@ instance Storable XkbNamesRec where
instance Storable XkbDescRec where
sizeOf _ = (#size XkbDescRec)
alignment _ = alignment (undefined :: CUShort)
+ poke _ _ = undefined
peek ptr = do
r_dpy <- (#peek XkbDescRec, dpy) ptr
r_flags <- (#peek XkbDescRec, flags) ptr