From 8f72b3cede03169b33f878be2350a8f82c6a4b38 Mon Sep 17 00:00:00 2001 From: jao Date: Thu, 1 Feb 2018 03:10:18 +0100 Subject: Kbd: silence warnings with explicitly undefined poke --- src/Plugins/Kbd.hsc | 5 +++++ 1 file changed, 5 insertions(+) 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 -- cgit v1.2.3