haskell - hsc2hs を使用した XKB API とのインターフェース

Question

XKB APIのさまざまなビットとボブにアクセスしようとしています。これはこれまでの私のテストコードです:

{-# LANGUAGE ForeignFunctionInterface #-}
module Main where

import Foreign
import Foreign.C.Types

#include <X11/XKBlib.h>
#let alignment t = "%lu", (unsigned long)offsetof(struct {char x__; t (y__); }, y__)

data XkbDescRec = XkbDescRec   { names  :: Ptr XkbNamesRec } deriving (Show)

data XkbNamesRec = XkbNamesRec { groups :: Ptr Word64 } -- Ignore me

foreign import ccall unsafe "X11/XKBlib.h XkbAllocKeyboard"
  xkbAllocKeyboard :: IO (Ptr XkbDescRec)

instance Storable XkbDescRec where
  sizeOf _    = (#size XkbDescRec)
  alignment _ = (#alignment XkbDescRec)
  peek ptr = do
    names <- (#peek XkbDescRec, names) ptr
    return $ XkbDescRec names 

main = do
  xkbDescPtr <- xkbAllocKeyboard

  print xkbDescPtr           -- (1)
  peek xkbDescPtr >>= print  -- (2)

(1)0x0000000001777d80は有効なアドレスのように聞こえる を出力しますが、(2) は を出力しXkbDescRec {names = 0x0000000000000000}ます。

FFI を間違った方法で使用しているのか、リンクで説明されているように XkbDescRec 構造体の構造を誤解しているのかはわかりません。