packages feed

xhb 0.0.2009.1.6 → 0.1.2009.2.8

raw patch · 57 files changed

+8639/−8478 lines, 57 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

- Graphics.XHB: type BOOL = Word8
- Graphics.XHB: type BYTE = Word8
- Graphics.XHB: type CARD16 = Word16
- Graphics.XHB: type CARD32 = Word32
- Graphics.XHB: type CARD8 = Word8
- Graphics.XHB: type INT16 = Int16
- Graphics.XHB: type INT32 = Int32
- Graphics.XHB: type INT8 = Int8
+ Graphics.XHB: xidNone :: Xid
- Graphics.XHB.Gen.BigRequests: MkEnableReply :: CARD32 -> EnableReply
+ Graphics.XHB.Gen.BigRequests: MkEnableReply :: Word32 -> EnableReply
- Graphics.XHB.Gen.BigRequests: enable :: Connection -> IO (Receipt EnableReply)
+ Graphics.XHB.Gen.BigRequests: enable :: Connection -> IO (Receipt Word32)
- Graphics.XHB.Gen.BigRequests: maximum_request_length_EnableReply :: EnableReply -> CARD32
+ Graphics.XHB.Gen.BigRequests: maximum_request_length_EnableReply :: EnableReply -> Word32
- Graphics.XHB.Gen.Composite: MkQueryVersion :: CARD32 -> CARD32 -> QueryVersion
+ Graphics.XHB.Gen.Composite: MkQueryVersion :: Word32 -> Word32 -> QueryVersion
- Graphics.XHB.Gen.Composite: MkQueryVersionReply :: CARD32 -> CARD32 -> QueryVersionReply
+ Graphics.XHB.Gen.Composite: MkQueryVersionReply :: Word32 -> Word32 -> QueryVersionReply
- Graphics.XHB.Gen.Composite: MkRedirectSubwindows :: WINDOW -> CARD8 -> RedirectSubwindows
+ Graphics.XHB.Gen.Composite: MkRedirectSubwindows :: WINDOW -> Word8 -> RedirectSubwindows
- Graphics.XHB.Gen.Composite: MkRedirectWindow :: WINDOW -> CARD8 -> RedirectWindow
+ Graphics.XHB.Gen.Composite: MkRedirectWindow :: WINDOW -> Word8 -> RedirectWindow
- Graphics.XHB.Gen.Composite: MkUnredirectSubwindows :: WINDOW -> CARD8 -> UnredirectSubwindows
+ Graphics.XHB.Gen.Composite: MkUnredirectSubwindows :: WINDOW -> Word8 -> UnredirectSubwindows
- Graphics.XHB.Gen.Composite: MkUnredirectWindow :: WINDOW -> CARD8 -> UnredirectWindow
+ Graphics.XHB.Gen.Composite: MkUnredirectWindow :: WINDOW -> Word8 -> UnredirectWindow
- Graphics.XHB.Gen.Composite: client_major_version_QueryVersion :: QueryVersion -> CARD32
+ Graphics.XHB.Gen.Composite: client_major_version_QueryVersion :: QueryVersion -> Word32
- Graphics.XHB.Gen.Composite: client_minor_version_QueryVersion :: QueryVersion -> CARD32
+ Graphics.XHB.Gen.Composite: client_minor_version_QueryVersion :: QueryVersion -> Word32
- Graphics.XHB.Gen.Composite: getOverlayWindow :: Connection -> WINDOW -> IO (Receipt GetOverlayWindowReply)
+ Graphics.XHB.Gen.Composite: getOverlayWindow :: Connection -> WINDOW -> IO (Receipt WINDOW)
- Graphics.XHB.Gen.Composite: major_version_QueryVersionReply :: QueryVersionReply -> CARD32
+ Graphics.XHB.Gen.Composite: major_version_QueryVersionReply :: QueryVersionReply -> Word32
- Graphics.XHB.Gen.Composite: minor_version_QueryVersionReply :: QueryVersionReply -> CARD32
+ Graphics.XHB.Gen.Composite: minor_version_QueryVersionReply :: QueryVersionReply -> Word32
- Graphics.XHB.Gen.Composite: queryVersion :: Connection -> CARD32 -> CARD32 -> IO (Receipt QueryVersionReply)
+ Graphics.XHB.Gen.Composite: queryVersion :: Connection -> Word32 -> Word32 -> IO (Receipt QueryVersionReply)
- Graphics.XHB.Gen.Composite: redirectSubwindows :: Connection -> WINDOW -> CARD8 -> IO ()
+ Graphics.XHB.Gen.Composite: redirectSubwindows :: Connection -> WINDOW -> Word8 -> IO ()
- Graphics.XHB.Gen.Composite: redirectWindow :: Connection -> WINDOW -> CARD8 -> IO ()
+ Graphics.XHB.Gen.Composite: redirectWindow :: Connection -> WINDOW -> Word8 -> IO ()
- Graphics.XHB.Gen.Composite: unredirectSubwindows :: Connection -> WINDOW -> CARD8 -> IO ()
+ Graphics.XHB.Gen.Composite: unredirectSubwindows :: Connection -> WINDOW -> Word8 -> IO ()
- Graphics.XHB.Gen.Composite: unredirectWindow :: Connection -> WINDOW -> CARD8 -> IO ()
+ Graphics.XHB.Gen.Composite: unredirectWindow :: Connection -> WINDOW -> Word8 -> IO ()
- Graphics.XHB.Gen.Composite: update_RedirectSubwindows :: RedirectSubwindows -> CARD8
+ Graphics.XHB.Gen.Composite: update_RedirectSubwindows :: RedirectSubwindows -> Word8
- Graphics.XHB.Gen.Composite: update_RedirectWindow :: RedirectWindow -> CARD8
+ Graphics.XHB.Gen.Composite: update_RedirectWindow :: RedirectWindow -> Word8
- Graphics.XHB.Gen.Composite: update_UnredirectSubwindows :: UnredirectSubwindows -> CARD8
+ Graphics.XHB.Gen.Composite: update_UnredirectSubwindows :: UnredirectSubwindows -> Word8
- Graphics.XHB.Gen.Composite: update_UnredirectWindow :: UnredirectWindow -> CARD8
+ Graphics.XHB.Gen.Composite: update_UnredirectWindow :: UnredirectWindow -> Word8
- Graphics.XHB.Gen.DPMS: MkCapableReply :: BOOL -> CapableReply
+ Graphics.XHB.Gen.DPMS: MkCapableReply :: Bool -> CapableReply
- Graphics.XHB.Gen.DPMS: MkForceLevel :: CARD16 -> ForceLevel
+ Graphics.XHB.Gen.DPMS: MkForceLevel :: Word16 -> ForceLevel
- Graphics.XHB.Gen.DPMS: MkGetTimeoutsReply :: CARD16 -> CARD16 -> CARD16 -> GetTimeoutsReply
+ Graphics.XHB.Gen.DPMS: MkGetTimeoutsReply :: Word16 -> Word16 -> Word16 -> GetTimeoutsReply
- Graphics.XHB.Gen.DPMS: MkGetVersion :: CARD16 -> CARD16 -> GetVersion
+ Graphics.XHB.Gen.DPMS: MkGetVersion :: Word16 -> Word16 -> GetVersion
- Graphics.XHB.Gen.DPMS: MkGetVersionReply :: CARD16 -> CARD16 -> GetVersionReply
+ Graphics.XHB.Gen.DPMS: MkGetVersionReply :: Word16 -> Word16 -> GetVersionReply
- Graphics.XHB.Gen.DPMS: MkInfoReply :: CARD16 -> BOOL -> InfoReply
+ Graphics.XHB.Gen.DPMS: MkInfoReply :: Word16 -> Bool -> InfoReply
- Graphics.XHB.Gen.DPMS: MkSetTimeouts :: CARD16 -> CARD16 -> CARD16 -> SetTimeouts
+ Graphics.XHB.Gen.DPMS: MkSetTimeouts :: Word16 -> Word16 -> Word16 -> SetTimeouts
- Graphics.XHB.Gen.DPMS: capable :: Connection -> IO (Receipt CapableReply)
+ Graphics.XHB.Gen.DPMS: capable :: Connection -> IO (Receipt Bool)
- Graphics.XHB.Gen.DPMS: capable_CapableReply :: CapableReply -> BOOL
+ Graphics.XHB.Gen.DPMS: capable_CapableReply :: CapableReply -> Bool
- Graphics.XHB.Gen.DPMS: client_major_version_GetVersion :: GetVersion -> CARD16
+ Graphics.XHB.Gen.DPMS: client_major_version_GetVersion :: GetVersion -> Word16
- Graphics.XHB.Gen.DPMS: client_minor_version_GetVersion :: GetVersion -> CARD16
+ Graphics.XHB.Gen.DPMS: client_minor_version_GetVersion :: GetVersion -> Word16
- Graphics.XHB.Gen.DPMS: forceLevel :: Connection -> CARD16 -> IO ()
+ Graphics.XHB.Gen.DPMS: forceLevel :: Connection -> Word16 -> IO ()
- Graphics.XHB.Gen.DPMS: getVersion :: Connection -> CARD16 -> CARD16 -> IO (Receipt GetVersionReply)
+ Graphics.XHB.Gen.DPMS: getVersion :: Connection -> Word16 -> Word16 -> IO (Receipt GetVersionReply)
- Graphics.XHB.Gen.DPMS: off_timeout_GetTimeoutsReply :: GetTimeoutsReply -> CARD16
+ Graphics.XHB.Gen.DPMS: off_timeout_GetTimeoutsReply :: GetTimeoutsReply -> Word16
- Graphics.XHB.Gen.DPMS: off_timeout_SetTimeouts :: SetTimeouts -> CARD16
+ Graphics.XHB.Gen.DPMS: off_timeout_SetTimeouts :: SetTimeouts -> Word16
- Graphics.XHB.Gen.DPMS: power_level_ForceLevel :: ForceLevel -> CARD16
+ Graphics.XHB.Gen.DPMS: power_level_ForceLevel :: ForceLevel -> Word16
- Graphics.XHB.Gen.DPMS: power_level_InfoReply :: InfoReply -> CARD16
+ Graphics.XHB.Gen.DPMS: power_level_InfoReply :: InfoReply -> Word16
- Graphics.XHB.Gen.DPMS: server_major_version_GetVersionReply :: GetVersionReply -> CARD16
+ Graphics.XHB.Gen.DPMS: server_major_version_GetVersionReply :: GetVersionReply -> Word16
- Graphics.XHB.Gen.DPMS: server_minor_version_GetVersionReply :: GetVersionReply -> CARD16
+ Graphics.XHB.Gen.DPMS: server_minor_version_GetVersionReply :: GetVersionReply -> Word16
- Graphics.XHB.Gen.DPMS: standby_timeout_GetTimeoutsReply :: GetTimeoutsReply -> CARD16
+ Graphics.XHB.Gen.DPMS: standby_timeout_GetTimeoutsReply :: GetTimeoutsReply -> Word16
- Graphics.XHB.Gen.DPMS: standby_timeout_SetTimeouts :: SetTimeouts -> CARD16
+ Graphics.XHB.Gen.DPMS: standby_timeout_SetTimeouts :: SetTimeouts -> Word16
- Graphics.XHB.Gen.DPMS: state_InfoReply :: InfoReply -> BOOL
+ Graphics.XHB.Gen.DPMS: state_InfoReply :: InfoReply -> Bool
- Graphics.XHB.Gen.DPMS: suspend_timeout_GetTimeoutsReply :: GetTimeoutsReply -> CARD16
+ Graphics.XHB.Gen.DPMS: suspend_timeout_GetTimeoutsReply :: GetTimeoutsReply -> Word16
- Graphics.XHB.Gen.DPMS: suspend_timeout_SetTimeouts :: SetTimeouts -> CARD16
+ Graphics.XHB.Gen.DPMS: suspend_timeout_SetTimeouts :: SetTimeouts -> Word16
- Graphics.XHB.Gen.Damage: MkCreate :: DAMAGE -> DRAWABLE -> CARD8 -> Create
+ Graphics.XHB.Gen.Damage: MkCreate :: DAMAGE -> DRAWABLE -> Word8 -> Create
- Graphics.XHB.Gen.Damage: MkNotify :: CARD8 -> DRAWABLE -> DAMAGE -> TIMESTAMP -> RECTANGLE -> RECTANGLE -> Notify
+ Graphics.XHB.Gen.Damage: MkNotify :: Word8 -> DRAWABLE -> DAMAGE -> TIMESTAMP -> RECTANGLE -> RECTANGLE -> Notify
- Graphics.XHB.Gen.Damage: MkQueryVersion :: CARD32 -> CARD32 -> QueryVersion
+ Graphics.XHB.Gen.Damage: MkQueryVersion :: Word32 -> Word32 -> QueryVersion
- Graphics.XHB.Gen.Damage: MkQueryVersionReply :: CARD32 -> CARD32 -> QueryVersionReply
+ Graphics.XHB.Gen.Damage: MkQueryVersionReply :: Word32 -> Word32 -> QueryVersionReply
- Graphics.XHB.Gen.Damage: client_major_version_QueryVersion :: QueryVersion -> CARD32
+ Graphics.XHB.Gen.Damage: client_major_version_QueryVersion :: QueryVersion -> Word32
- Graphics.XHB.Gen.Damage: client_minor_version_QueryVersion :: QueryVersion -> CARD32
+ Graphics.XHB.Gen.Damage: client_minor_version_QueryVersion :: QueryVersion -> Word32
- Graphics.XHB.Gen.Damage: level_Create :: Create -> CARD8
+ Graphics.XHB.Gen.Damage: level_Create :: Create -> Word8
- Graphics.XHB.Gen.Damage: level_Notify :: Notify -> CARD8
+ Graphics.XHB.Gen.Damage: level_Notify :: Notify -> Word8
- Graphics.XHB.Gen.Damage: major_version_QueryVersionReply :: QueryVersionReply -> CARD32
+ Graphics.XHB.Gen.Damage: major_version_QueryVersionReply :: QueryVersionReply -> Word32
- Graphics.XHB.Gen.Damage: minor_version_QueryVersionReply :: QueryVersionReply -> CARD32
+ Graphics.XHB.Gen.Damage: minor_version_QueryVersionReply :: QueryVersionReply -> Word32
- Graphics.XHB.Gen.Damage: queryVersion :: Connection -> CARD32 -> CARD32 -> IO (Receipt QueryVersionReply)
+ Graphics.XHB.Gen.Damage: queryVersion :: Connection -> Word32 -> Word32 -> IO (Receipt QueryVersionReply)
- Graphics.XHB.Gen.Glx: MkAreTexturesResident :: CONTEXT_TAG -> INT32 -> [CARD32] -> AreTexturesResident
+ Graphics.XHB.Gen.Glx: MkAreTexturesResident :: CONTEXT_TAG -> Int32 -> [Word32] -> AreTexturesResident
- Graphics.XHB.Gen.Glx: MkAreTexturesResidentReply :: BOOL32 -> [BOOL] -> AreTexturesResidentReply
+ Graphics.XHB.Gen.Glx: MkAreTexturesResidentReply :: BOOL32 -> [Bool] -> AreTexturesResidentReply
- Graphics.XHB.Gen.Glx: MkBadContext :: CARD32 -> CARD16 -> CARD8 -> BadContext
+ Graphics.XHB.Gen.Glx: MkBadContext :: Word32 -> Word16 -> Word8 -> BadContext
- Graphics.XHB.Gen.Glx: MkBadContextState :: CARD32 -> CARD16 -> CARD8 -> BadContextState
+ Graphics.XHB.Gen.Glx: MkBadContextState :: Word32 -> Word16 -> Word8 -> BadContextState
- Graphics.XHB.Gen.Glx: MkBadContextTag :: CARD32 -> CARD16 -> CARD8 -> BadContextTag
+ Graphics.XHB.Gen.Glx: MkBadContextTag :: Word32 -> Word16 -> Word8 -> BadContextTag
- Graphics.XHB.Gen.Glx: MkBadCurrentDrawable :: CARD32 -> CARD16 -> CARD8 -> BadCurrentDrawable
+ Graphics.XHB.Gen.Glx: MkBadCurrentDrawable :: Word32 -> Word16 -> Word8 -> BadCurrentDrawable
- Graphics.XHB.Gen.Glx: MkBadCurrentWindow :: CARD32 -> CARD16 -> CARD8 -> BadCurrentWindow
+ Graphics.XHB.Gen.Glx: MkBadCurrentWindow :: Word32 -> Word16 -> Word8 -> BadCurrentWindow
- Graphics.XHB.Gen.Glx: MkBadDrawable :: CARD32 -> CARD16 -> CARD8 -> BadDrawable
+ Graphics.XHB.Gen.Glx: MkBadDrawable :: Word32 -> Word16 -> Word8 -> BadDrawable
- Graphics.XHB.Gen.Glx: MkBadFBConfig :: CARD32 -> CARD16 -> CARD8 -> BadFBConfig
+ Graphics.XHB.Gen.Glx: MkBadFBConfig :: Word32 -> Word16 -> Word8 -> BadFBConfig
- Graphics.XHB.Gen.Glx: MkBadLargeRequest :: CARD32 -> CARD16 -> CARD8 -> BadLargeRequest
+ Graphics.XHB.Gen.Glx: MkBadLargeRequest :: Word32 -> Word16 -> Word8 -> BadLargeRequest
- Graphics.XHB.Gen.Glx: MkBadPbuffer :: CARD32 -> CARD16 -> CARD8 -> BadPbuffer
+ Graphics.XHB.Gen.Glx: MkBadPbuffer :: Word32 -> Word16 -> Word8 -> BadPbuffer
- Graphics.XHB.Gen.Glx: MkBadPixmap :: CARD32 -> CARD16 -> CARD8 -> BadPixmap
+ Graphics.XHB.Gen.Glx: MkBadPixmap :: Word32 -> Word16 -> Word8 -> BadPixmap
- Graphics.XHB.Gen.Glx: MkBadRenderRequest :: CARD32 -> CARD16 -> CARD8 -> BadRenderRequest
+ Graphics.XHB.Gen.Glx: MkBadRenderRequest :: Word32 -> Word16 -> Word8 -> BadRenderRequest
- Graphics.XHB.Gen.Glx: MkBadWindow :: CARD32 -> CARD16 -> CARD8 -> BadWindow
+ Graphics.XHB.Gen.Glx: MkBadWindow :: Word32 -> Word16 -> Word8 -> BadWindow
- Graphics.XHB.Gen.Glx: MkChangeDrawableAttributes :: DRAWABLE -> CARD32 -> [CARD32] -> ChangeDrawableAttributes
+ Graphics.XHB.Gen.Glx: MkChangeDrawableAttributes :: DRAWABLE -> Word32 -> [Word32] -> ChangeDrawableAttributes
- Graphics.XHB.Gen.Glx: MkClientInfo :: CARD32 -> CARD32 -> CARD32 -> [CChar] -> ClientInfo
+ Graphics.XHB.Gen.Glx: MkClientInfo :: Word32 -> Word32 -> Word32 -> [CChar] -> ClientInfo
- Graphics.XHB.Gen.Glx: MkCopyContext :: CONTEXT -> CONTEXT -> CARD32 -> CONTEXT_TAG -> CopyContext
+ Graphics.XHB.Gen.Glx: MkCopyContext :: CONTEXT -> CONTEXT -> Word32 -> CONTEXT_TAG -> CopyContext
- Graphics.XHB.Gen.Glx: MkCreateContext :: CONTEXT -> VISUALID -> CARD32 -> CONTEXT -> BOOL -> CreateContext
+ Graphics.XHB.Gen.Glx: MkCreateContext :: CONTEXT -> VISUALID -> Word32 -> CONTEXT -> Bool -> CreateContext
- Graphics.XHB.Gen.Glx: MkCreateGLXPixmap :: CARD32 -> VISUALID -> PIXMAP -> PIXMAP -> CreateGLXPixmap
+ Graphics.XHB.Gen.Glx: MkCreateGLXPixmap :: Word32 -> VISUALID -> PIXMAP -> PIXMAP -> CreateGLXPixmap
- Graphics.XHB.Gen.Glx: MkCreateNewContext :: CONTEXT -> CARD32 -> CARD32 -> CARD32 -> CARD32 -> BOOL -> CARD8 -> CARD16 -> CreateNewContext
+ Graphics.XHB.Gen.Glx: MkCreateNewContext :: CONTEXT -> Word32 -> Word32 -> Word32 -> Word32 -> Bool -> Word8 -> Word16 -> CreateNewContext
- Graphics.XHB.Gen.Glx: MkCreatePbuffer :: CARD32 -> FBCONFIG -> PBUFFER -> CARD32 -> [CARD32] -> CreatePbuffer
+ Graphics.XHB.Gen.Glx: MkCreatePbuffer :: Word32 -> FBCONFIG -> PBUFFER -> Word32 -> [Word32] -> CreatePbuffer
- Graphics.XHB.Gen.Glx: MkCreatePixmap :: CARD32 -> CARD32 -> PIXMAP -> PIXMAP -> CARD32 -> [CARD32] -> CreatePixmap
+ Graphics.XHB.Gen.Glx: MkCreatePixmap :: Word32 -> Word32 -> PIXMAP -> PIXMAP -> Word32 -> [Word32] -> CreatePixmap
- Graphics.XHB.Gen.Glx: MkCreateWindow :: CARD32 -> FBCONFIG -> WINDOW -> WINDOW -> CARD32 -> [CARD32] -> CreateWindow
+ Graphics.XHB.Gen.Glx: MkCreateWindow :: Word32 -> FBCONFIG -> WINDOW -> WINDOW -> Word32 -> [Word32] -> CreateWindow
- Graphics.XHB.Gen.Glx: MkDeleteLists :: CONTEXT_TAG -> CARD32 -> INT32 -> DeleteLists
+ Graphics.XHB.Gen.Glx: MkDeleteLists :: CONTEXT_TAG -> Word32 -> Int32 -> DeleteLists
- Graphics.XHB.Gen.Glx: MkDeleteQueriesARB :: CONTEXT_TAG -> INT32 -> [CARD32] -> DeleteQueriesARB
+ Graphics.XHB.Gen.Glx: MkDeleteQueriesARB :: CONTEXT_TAG -> Int32 -> [Word32] -> DeleteQueriesARB
- Graphics.XHB.Gen.Glx: MkDeleteTextures :: CONTEXT_TAG -> INT32 -> [CARD32] -> DeleteTextures
+ Graphics.XHB.Gen.Glx: MkDeleteTextures :: CONTEXT_TAG -> Int32 -> [Word32] -> DeleteTextures
- Graphics.XHB.Gen.Glx: MkFeedbackBuffer :: CONTEXT_TAG -> INT32 -> INT32 -> FeedbackBuffer
+ Graphics.XHB.Gen.Glx: MkFeedbackBuffer :: CONTEXT_TAG -> Int32 -> Int32 -> FeedbackBuffer
- Graphics.XHB.Gen.Glx: MkGenLists :: CONTEXT_TAG -> INT32 -> GenLists
+ Graphics.XHB.Gen.Glx: MkGenLists :: CONTEXT_TAG -> Int32 -> GenLists
- Graphics.XHB.Gen.Glx: MkGenListsReply :: CARD32 -> GenListsReply
+ Graphics.XHB.Gen.Glx: MkGenListsReply :: Word32 -> GenListsReply
- Graphics.XHB.Gen.Glx: MkGenQueriesARB :: CONTEXT_TAG -> INT32 -> GenQueriesARB
+ Graphics.XHB.Gen.Glx: MkGenQueriesARB :: CONTEXT_TAG -> Int32 -> GenQueriesARB
- Graphics.XHB.Gen.Glx: MkGenQueriesARBReply :: [CARD32] -> GenQueriesARBReply
+ Graphics.XHB.Gen.Glx: MkGenQueriesARBReply :: [Word32] -> GenQueriesARBReply
- Graphics.XHB.Gen.Glx: MkGenTextures :: CONTEXT_TAG -> INT32 -> GenTextures
+ Graphics.XHB.Gen.Glx: MkGenTextures :: CONTEXT_TAG -> Int32 -> GenTextures
- Graphics.XHB.Gen.Glx: MkGenTexturesReply :: [CARD32] -> GenTexturesReply
+ Graphics.XHB.Gen.Glx: MkGenTexturesReply :: [Word32] -> GenTexturesReply
- Graphics.XHB.Gen.Glx: MkGeneric :: CARD32 -> CARD16 -> CARD8 -> Generic
+ Graphics.XHB.Gen.Glx: MkGeneric :: Word32 -> Word16 -> Word8 -> Generic
- Graphics.XHB.Gen.Glx: MkGetBooleanv :: CONTEXT_TAG -> INT32 -> GetBooleanv
+ Graphics.XHB.Gen.Glx: MkGetBooleanv :: CONTEXT_TAG -> Int32 -> GetBooleanv
- Graphics.XHB.Gen.Glx: MkGetBooleanvReply :: CARD32 -> BOOL -> [BOOL] -> GetBooleanvReply
+ Graphics.XHB.Gen.Glx: MkGetBooleanvReply :: Word32 -> Bool -> [Bool] -> GetBooleanvReply
- Graphics.XHB.Gen.Glx: MkGetClipPlane :: CONTEXT_TAG -> INT32 -> GetClipPlane
+ Graphics.XHB.Gen.Glx: MkGetClipPlane :: CONTEXT_TAG -> Int32 -> GetClipPlane
- Graphics.XHB.Gen.Glx: MkGetColorTable :: CONTEXT_TAG -> CARD32 -> CARD32 -> CARD32 -> BOOL -> GetColorTable
+ Graphics.XHB.Gen.Glx: MkGetColorTable :: CONTEXT_TAG -> Word32 -> Word32 -> Word32 -> Bool -> GetColorTable
- Graphics.XHB.Gen.Glx: MkGetColorTableParameterfv :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetColorTableParameterfv
+ Graphics.XHB.Gen.Glx: MkGetColorTableParameterfv :: CONTEXT_TAG -> Word32 -> Word32 -> GetColorTableParameterfv
- Graphics.XHB.Gen.Glx: MkGetColorTableParameterfvReply :: CARD32 -> FLOAT32 -> [FLOAT32] -> GetColorTableParameterfvReply
+ Graphics.XHB.Gen.Glx: MkGetColorTableParameterfvReply :: Word32 -> FLOAT32 -> [FLOAT32] -> GetColorTableParameterfvReply
- Graphics.XHB.Gen.Glx: MkGetColorTableParameteriv :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetColorTableParameteriv
+ Graphics.XHB.Gen.Glx: MkGetColorTableParameteriv :: CONTEXT_TAG -> Word32 -> Word32 -> GetColorTableParameteriv
- Graphics.XHB.Gen.Glx: MkGetColorTableParameterivReply :: CARD32 -> INT32 -> [INT32] -> GetColorTableParameterivReply
+ Graphics.XHB.Gen.Glx: MkGetColorTableParameterivReply :: Word32 -> Int32 -> [Int32] -> GetColorTableParameterivReply
- Graphics.XHB.Gen.Glx: MkGetColorTableReply :: INT32 -> [BYTE] -> GetColorTableReply
+ Graphics.XHB.Gen.Glx: MkGetColorTableReply :: Int32 -> [Word8] -> GetColorTableReply
- Graphics.XHB.Gen.Glx: MkGetCompressedTexImageARB :: CONTEXT_TAG -> CARD32 -> INT32 -> GetCompressedTexImageARB
+ Graphics.XHB.Gen.Glx: MkGetCompressedTexImageARB :: CONTEXT_TAG -> Word32 -> Int32 -> GetCompressedTexImageARB
- Graphics.XHB.Gen.Glx: MkGetCompressedTexImageARBReply :: INT32 -> [BYTE] -> GetCompressedTexImageARBReply
+ Graphics.XHB.Gen.Glx: MkGetCompressedTexImageARBReply :: Int32 -> [Word8] -> GetCompressedTexImageARBReply
- Graphics.XHB.Gen.Glx: MkGetConvolutionFilter :: CONTEXT_TAG -> CARD32 -> CARD32 -> CARD32 -> BOOL -> GetConvolutionFilter
+ Graphics.XHB.Gen.Glx: MkGetConvolutionFilter :: CONTEXT_TAG -> Word32 -> Word32 -> Word32 -> Bool -> GetConvolutionFilter
- Graphics.XHB.Gen.Glx: MkGetConvolutionFilterReply :: INT32 -> INT32 -> [BYTE] -> GetConvolutionFilterReply
+ Graphics.XHB.Gen.Glx: MkGetConvolutionFilterReply :: Int32 -> Int32 -> [Word8] -> GetConvolutionFilterReply
- Graphics.XHB.Gen.Glx: MkGetConvolutionParameterfv :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetConvolutionParameterfv
+ Graphics.XHB.Gen.Glx: MkGetConvolutionParameterfv :: CONTEXT_TAG -> Word32 -> Word32 -> GetConvolutionParameterfv
- Graphics.XHB.Gen.Glx: MkGetConvolutionParameterfvReply :: CARD32 -> FLOAT32 -> [FLOAT32] -> GetConvolutionParameterfvReply
+ Graphics.XHB.Gen.Glx: MkGetConvolutionParameterfvReply :: Word32 -> FLOAT32 -> [FLOAT32] -> GetConvolutionParameterfvReply
- Graphics.XHB.Gen.Glx: MkGetConvolutionParameteriv :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetConvolutionParameteriv
+ Graphics.XHB.Gen.Glx: MkGetConvolutionParameteriv :: CONTEXT_TAG -> Word32 -> Word32 -> GetConvolutionParameteriv
- Graphics.XHB.Gen.Glx: MkGetConvolutionParameterivReply :: CARD32 -> INT32 -> [INT32] -> GetConvolutionParameterivReply
+ Graphics.XHB.Gen.Glx: MkGetConvolutionParameterivReply :: Word32 -> Int32 -> [Int32] -> GetConvolutionParameterivReply
- Graphics.XHB.Gen.Glx: MkGetDoublev :: CONTEXT_TAG -> CARD32 -> GetDoublev
+ Graphics.XHB.Gen.Glx: MkGetDoublev :: CONTEXT_TAG -> Word32 -> GetDoublev
- Graphics.XHB.Gen.Glx: MkGetDoublevReply :: CARD32 -> FLOAT64 -> [FLOAT64] -> GetDoublevReply
+ Graphics.XHB.Gen.Glx: MkGetDoublevReply :: Word32 -> FLOAT64 -> [FLOAT64] -> GetDoublevReply
- Graphics.XHB.Gen.Glx: MkGetDrawableAttributesReply :: CARD32 -> [CARD32] -> GetDrawableAttributesReply
+ Graphics.XHB.Gen.Glx: MkGetDrawableAttributesReply :: Word32 -> [Word32] -> GetDrawableAttributesReply
- Graphics.XHB.Gen.Glx: MkGetErrorReply :: INT32 -> GetErrorReply
+ Graphics.XHB.Gen.Glx: MkGetErrorReply :: Int32 -> GetErrorReply
- Graphics.XHB.Gen.Glx: MkGetFBConfigs :: CARD32 -> GetFBConfigs
+ Graphics.XHB.Gen.Glx: MkGetFBConfigs :: Word32 -> GetFBConfigs
- Graphics.XHB.Gen.Glx: MkGetFBConfigsReply :: CARD32 -> CARD32 -> [CARD32] -> GetFBConfigsReply
+ Graphics.XHB.Gen.Glx: MkGetFBConfigsReply :: Word32 -> Word32 -> [Word32] -> GetFBConfigsReply
- Graphics.XHB.Gen.Glx: MkGetFloatv :: CONTEXT_TAG -> CARD32 -> GetFloatv
+ Graphics.XHB.Gen.Glx: MkGetFloatv :: CONTEXT_TAG -> Word32 -> GetFloatv
- Graphics.XHB.Gen.Glx: MkGetFloatvReply :: CARD32 -> FLOAT32 -> [FLOAT32] -> GetFloatvReply
+ Graphics.XHB.Gen.Glx: MkGetFloatvReply :: Word32 -> FLOAT32 -> [FLOAT32] -> GetFloatvReply
- Graphics.XHB.Gen.Glx: MkGetHistogram :: CONTEXT_TAG -> CARD32 -> CARD32 -> CARD32 -> BOOL -> BOOL -> GetHistogram
+ Graphics.XHB.Gen.Glx: MkGetHistogram :: CONTEXT_TAG -> Word32 -> Word32 -> Word32 -> Bool -> Bool -> GetHistogram
- Graphics.XHB.Gen.Glx: MkGetHistogramParameterfv :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetHistogramParameterfv
+ Graphics.XHB.Gen.Glx: MkGetHistogramParameterfv :: CONTEXT_TAG -> Word32 -> Word32 -> GetHistogramParameterfv
- Graphics.XHB.Gen.Glx: MkGetHistogramParameterfvReply :: CARD32 -> FLOAT32 -> [FLOAT32] -> GetHistogramParameterfvReply
+ Graphics.XHB.Gen.Glx: MkGetHistogramParameterfvReply :: Word32 -> FLOAT32 -> [FLOAT32] -> GetHistogramParameterfvReply
- Graphics.XHB.Gen.Glx: MkGetHistogramParameteriv :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetHistogramParameteriv
+ Graphics.XHB.Gen.Glx: MkGetHistogramParameteriv :: CONTEXT_TAG -> Word32 -> Word32 -> GetHistogramParameteriv
- Graphics.XHB.Gen.Glx: MkGetHistogramParameterivReply :: CARD32 -> INT32 -> [INT32] -> GetHistogramParameterivReply
+ Graphics.XHB.Gen.Glx: MkGetHistogramParameterivReply :: Word32 -> Int32 -> [Int32] -> GetHistogramParameterivReply
- Graphics.XHB.Gen.Glx: MkGetHistogramReply :: INT32 -> [BYTE] -> GetHistogramReply
+ Graphics.XHB.Gen.Glx: MkGetHistogramReply :: Int32 -> [Word8] -> GetHistogramReply
- Graphics.XHB.Gen.Glx: MkGetIntegerv :: CONTEXT_TAG -> CARD32 -> GetIntegerv
+ Graphics.XHB.Gen.Glx: MkGetIntegerv :: CONTEXT_TAG -> Word32 -> GetIntegerv
- Graphics.XHB.Gen.Glx: MkGetIntegervReply :: CARD32 -> INT32 -> [INT32] -> GetIntegervReply
+ Graphics.XHB.Gen.Glx: MkGetIntegervReply :: Word32 -> Int32 -> [Int32] -> GetIntegervReply
- Graphics.XHB.Gen.Glx: MkGetLightfv :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetLightfv
+ Graphics.XHB.Gen.Glx: MkGetLightfv :: CONTEXT_TAG -> Word32 -> Word32 -> GetLightfv
- Graphics.XHB.Gen.Glx: MkGetLightfvReply :: CARD32 -> FLOAT32 -> [FLOAT32] -> GetLightfvReply
+ Graphics.XHB.Gen.Glx: MkGetLightfvReply :: Word32 -> FLOAT32 -> [FLOAT32] -> GetLightfvReply
- Graphics.XHB.Gen.Glx: MkGetLightiv :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetLightiv
+ Graphics.XHB.Gen.Glx: MkGetLightiv :: CONTEXT_TAG -> Word32 -> Word32 -> GetLightiv
- Graphics.XHB.Gen.Glx: MkGetLightivReply :: CARD32 -> INT32 -> [INT32] -> GetLightivReply
+ Graphics.XHB.Gen.Glx: MkGetLightivReply :: Word32 -> Int32 -> [Int32] -> GetLightivReply
- Graphics.XHB.Gen.Glx: MkGetMapdv :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetMapdv
+ Graphics.XHB.Gen.Glx: MkGetMapdv :: CONTEXT_TAG -> Word32 -> Word32 -> GetMapdv
- Graphics.XHB.Gen.Glx: MkGetMapdvReply :: CARD32 -> FLOAT64 -> [FLOAT64] -> GetMapdvReply
+ Graphics.XHB.Gen.Glx: MkGetMapdvReply :: Word32 -> FLOAT64 -> [FLOAT64] -> GetMapdvReply
- Graphics.XHB.Gen.Glx: MkGetMapfv :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetMapfv
+ Graphics.XHB.Gen.Glx: MkGetMapfv :: CONTEXT_TAG -> Word32 -> Word32 -> GetMapfv
- Graphics.XHB.Gen.Glx: MkGetMapfvReply :: CARD32 -> FLOAT32 -> [FLOAT32] -> GetMapfvReply
+ Graphics.XHB.Gen.Glx: MkGetMapfvReply :: Word32 -> FLOAT32 -> [FLOAT32] -> GetMapfvReply
- Graphics.XHB.Gen.Glx: MkGetMapiv :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetMapiv
+ Graphics.XHB.Gen.Glx: MkGetMapiv :: CONTEXT_TAG -> Word32 -> Word32 -> GetMapiv
- Graphics.XHB.Gen.Glx: MkGetMapivReply :: CARD32 -> INT32 -> [INT32] -> GetMapivReply
+ Graphics.XHB.Gen.Glx: MkGetMapivReply :: Word32 -> Int32 -> [Int32] -> GetMapivReply
- Graphics.XHB.Gen.Glx: MkGetMaterialfv :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetMaterialfv
+ Graphics.XHB.Gen.Glx: MkGetMaterialfv :: CONTEXT_TAG -> Word32 -> Word32 -> GetMaterialfv
- Graphics.XHB.Gen.Glx: MkGetMaterialfvReply :: CARD32 -> FLOAT32 -> [FLOAT32] -> GetMaterialfvReply
+ Graphics.XHB.Gen.Glx: MkGetMaterialfvReply :: Word32 -> FLOAT32 -> [FLOAT32] -> GetMaterialfvReply
- Graphics.XHB.Gen.Glx: MkGetMaterialiv :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetMaterialiv
+ Graphics.XHB.Gen.Glx: MkGetMaterialiv :: CONTEXT_TAG -> Word32 -> Word32 -> GetMaterialiv
- Graphics.XHB.Gen.Glx: MkGetMaterialivReply :: CARD32 -> INT32 -> [INT32] -> GetMaterialivReply
+ Graphics.XHB.Gen.Glx: MkGetMaterialivReply :: Word32 -> Int32 -> [Int32] -> GetMaterialivReply
- Graphics.XHB.Gen.Glx: MkGetMinmax :: CONTEXT_TAG -> CARD32 -> CARD32 -> CARD32 -> BOOL -> BOOL -> GetMinmax
+ Graphics.XHB.Gen.Glx: MkGetMinmax :: CONTEXT_TAG -> Word32 -> Word32 -> Word32 -> Bool -> Bool -> GetMinmax
- Graphics.XHB.Gen.Glx: MkGetMinmaxParameterfv :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetMinmaxParameterfv
+ Graphics.XHB.Gen.Glx: MkGetMinmaxParameterfv :: CONTEXT_TAG -> Word32 -> Word32 -> GetMinmaxParameterfv
- Graphics.XHB.Gen.Glx: MkGetMinmaxParameterfvReply :: CARD32 -> FLOAT32 -> [FLOAT32] -> GetMinmaxParameterfvReply
+ Graphics.XHB.Gen.Glx: MkGetMinmaxParameterfvReply :: Word32 -> FLOAT32 -> [FLOAT32] -> GetMinmaxParameterfvReply
- Graphics.XHB.Gen.Glx: MkGetMinmaxParameteriv :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetMinmaxParameteriv
+ Graphics.XHB.Gen.Glx: MkGetMinmaxParameteriv :: CONTEXT_TAG -> Word32 -> Word32 -> GetMinmaxParameteriv
- Graphics.XHB.Gen.Glx: MkGetMinmaxParameterivReply :: CARD32 -> INT32 -> [INT32] -> GetMinmaxParameterivReply
+ Graphics.XHB.Gen.Glx: MkGetMinmaxParameterivReply :: Word32 -> Int32 -> [Int32] -> GetMinmaxParameterivReply
- Graphics.XHB.Gen.Glx: MkGetMinmaxReply :: [BYTE] -> GetMinmaxReply
+ Graphics.XHB.Gen.Glx: MkGetMinmaxReply :: [Word8] -> GetMinmaxReply
- Graphics.XHB.Gen.Glx: MkGetPixelMapfv :: CONTEXT_TAG -> CARD32 -> GetPixelMapfv
+ Graphics.XHB.Gen.Glx: MkGetPixelMapfv :: CONTEXT_TAG -> Word32 -> GetPixelMapfv
- Graphics.XHB.Gen.Glx: MkGetPixelMapfvReply :: CARD32 -> FLOAT32 -> [FLOAT32] -> GetPixelMapfvReply
+ Graphics.XHB.Gen.Glx: MkGetPixelMapfvReply :: Word32 -> FLOAT32 -> [FLOAT32] -> GetPixelMapfvReply
- Graphics.XHB.Gen.Glx: MkGetPixelMapuiv :: CONTEXT_TAG -> CARD32 -> GetPixelMapuiv
+ Graphics.XHB.Gen.Glx: MkGetPixelMapuiv :: CONTEXT_TAG -> Word32 -> GetPixelMapuiv
- Graphics.XHB.Gen.Glx: MkGetPixelMapuivReply :: CARD32 -> CARD32 -> [CARD32] -> GetPixelMapuivReply
+ Graphics.XHB.Gen.Glx: MkGetPixelMapuivReply :: Word32 -> Word32 -> [Word32] -> GetPixelMapuivReply
- Graphics.XHB.Gen.Glx: MkGetPixelMapusv :: CONTEXT_TAG -> CARD32 -> GetPixelMapusv
+ Graphics.XHB.Gen.Glx: MkGetPixelMapusv :: CONTEXT_TAG -> Word32 -> GetPixelMapusv
- Graphics.XHB.Gen.Glx: MkGetPixelMapusvReply :: CARD32 -> CARD16 -> [CARD16] -> GetPixelMapusvReply
+ Graphics.XHB.Gen.Glx: MkGetPixelMapusvReply :: Word32 -> Word16 -> [Word16] -> GetPixelMapusvReply
- Graphics.XHB.Gen.Glx: MkGetPolygonStipple :: CONTEXT_TAG -> BOOL -> GetPolygonStipple
+ Graphics.XHB.Gen.Glx: MkGetPolygonStipple :: CONTEXT_TAG -> Bool -> GetPolygonStipple
- Graphics.XHB.Gen.Glx: MkGetPolygonStippleReply :: [BYTE] -> GetPolygonStippleReply
+ Graphics.XHB.Gen.Glx: MkGetPolygonStippleReply :: [Word8] -> GetPolygonStippleReply
- Graphics.XHB.Gen.Glx: MkGetQueryObjectivARB :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetQueryObjectivARB
+ Graphics.XHB.Gen.Glx: MkGetQueryObjectivARB :: CONTEXT_TAG -> Word32 -> Word32 -> GetQueryObjectivARB
- Graphics.XHB.Gen.Glx: MkGetQueryObjectivARBReply :: CARD32 -> INT32 -> [INT32] -> GetQueryObjectivARBReply
+ Graphics.XHB.Gen.Glx: MkGetQueryObjectivARBReply :: Word32 -> Int32 -> [Int32] -> GetQueryObjectivARBReply
- Graphics.XHB.Gen.Glx: MkGetQueryObjectuivARB :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetQueryObjectuivARB
+ Graphics.XHB.Gen.Glx: MkGetQueryObjectuivARB :: CONTEXT_TAG -> Word32 -> Word32 -> GetQueryObjectuivARB
- Graphics.XHB.Gen.Glx: MkGetQueryObjectuivARBReply :: CARD32 -> CARD32 -> [CARD32] -> GetQueryObjectuivARBReply
+ Graphics.XHB.Gen.Glx: MkGetQueryObjectuivARBReply :: Word32 -> Word32 -> [Word32] -> GetQueryObjectuivARBReply
- Graphics.XHB.Gen.Glx: MkGetQueryivARB :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetQueryivARB
+ Graphics.XHB.Gen.Glx: MkGetQueryivARB :: CONTEXT_TAG -> Word32 -> Word32 -> GetQueryivARB
- Graphics.XHB.Gen.Glx: MkGetQueryivARBReply :: CARD32 -> INT32 -> [INT32] -> GetQueryivARBReply
+ Graphics.XHB.Gen.Glx: MkGetQueryivARBReply :: Word32 -> Int32 -> [Int32] -> GetQueryivARBReply
- Graphics.XHB.Gen.Glx: MkGetSeparableFilter :: CONTEXT_TAG -> CARD32 -> CARD32 -> CARD32 -> BOOL -> GetSeparableFilter
+ Graphics.XHB.Gen.Glx: MkGetSeparableFilter :: CONTEXT_TAG -> Word32 -> Word32 -> Word32 -> Bool -> GetSeparableFilter
- Graphics.XHB.Gen.Glx: MkGetSeparableFilterReply :: INT32 -> INT32 -> [BYTE] -> GetSeparableFilterReply
+ Graphics.XHB.Gen.Glx: MkGetSeparableFilterReply :: Int32 -> Int32 -> [Word8] -> GetSeparableFilterReply
- Graphics.XHB.Gen.Glx: MkGetString :: CONTEXT_TAG -> CARD32 -> GetString
+ Graphics.XHB.Gen.Glx: MkGetString :: CONTEXT_TAG -> Word32 -> GetString
- Graphics.XHB.Gen.Glx: MkGetStringReply :: CARD32 -> [CChar] -> GetStringReply
+ Graphics.XHB.Gen.Glx: MkGetStringReply :: Word32 -> [CChar] -> GetStringReply
- Graphics.XHB.Gen.Glx: MkGetTexEnvfv :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetTexEnvfv
+ Graphics.XHB.Gen.Glx: MkGetTexEnvfv :: CONTEXT_TAG -> Word32 -> Word32 -> GetTexEnvfv
- Graphics.XHB.Gen.Glx: MkGetTexEnvfvReply :: CARD32 -> FLOAT32 -> [FLOAT32] -> GetTexEnvfvReply
+ Graphics.XHB.Gen.Glx: MkGetTexEnvfvReply :: Word32 -> FLOAT32 -> [FLOAT32] -> GetTexEnvfvReply
- Graphics.XHB.Gen.Glx: MkGetTexEnviv :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetTexEnviv
+ Graphics.XHB.Gen.Glx: MkGetTexEnviv :: CONTEXT_TAG -> Word32 -> Word32 -> GetTexEnviv
- Graphics.XHB.Gen.Glx: MkGetTexEnvivReply :: CARD32 -> INT32 -> [INT32] -> GetTexEnvivReply
+ Graphics.XHB.Gen.Glx: MkGetTexEnvivReply :: Word32 -> Int32 -> [Int32] -> GetTexEnvivReply
- Graphics.XHB.Gen.Glx: MkGetTexGendv :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetTexGendv
+ Graphics.XHB.Gen.Glx: MkGetTexGendv :: CONTEXT_TAG -> Word32 -> Word32 -> GetTexGendv
- Graphics.XHB.Gen.Glx: MkGetTexGendvReply :: CARD32 -> FLOAT64 -> [FLOAT64] -> GetTexGendvReply
+ Graphics.XHB.Gen.Glx: MkGetTexGendvReply :: Word32 -> FLOAT64 -> [FLOAT64] -> GetTexGendvReply
- Graphics.XHB.Gen.Glx: MkGetTexGenfv :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetTexGenfv
+ Graphics.XHB.Gen.Glx: MkGetTexGenfv :: CONTEXT_TAG -> Word32 -> Word32 -> GetTexGenfv
- Graphics.XHB.Gen.Glx: MkGetTexGenfvReply :: CARD32 -> FLOAT32 -> [FLOAT32] -> GetTexGenfvReply
+ Graphics.XHB.Gen.Glx: MkGetTexGenfvReply :: Word32 -> FLOAT32 -> [FLOAT32] -> GetTexGenfvReply
- Graphics.XHB.Gen.Glx: MkGetTexGeniv :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetTexGeniv
+ Graphics.XHB.Gen.Glx: MkGetTexGeniv :: CONTEXT_TAG -> Word32 -> Word32 -> GetTexGeniv
- Graphics.XHB.Gen.Glx: MkGetTexGenivReply :: CARD32 -> INT32 -> [INT32] -> GetTexGenivReply
+ Graphics.XHB.Gen.Glx: MkGetTexGenivReply :: Word32 -> Int32 -> [Int32] -> GetTexGenivReply
- Graphics.XHB.Gen.Glx: MkGetTexImage :: CONTEXT_TAG -> CARD32 -> INT32 -> CARD32 -> CARD32 -> BOOL -> GetTexImage
+ Graphics.XHB.Gen.Glx: MkGetTexImage :: CONTEXT_TAG -> Word32 -> Int32 -> Word32 -> Word32 -> Bool -> GetTexImage
- Graphics.XHB.Gen.Glx: MkGetTexImageReply :: INT32 -> INT32 -> INT32 -> [BYTE] -> GetTexImageReply
+ Graphics.XHB.Gen.Glx: MkGetTexImageReply :: Int32 -> Int32 -> Int32 -> [Word8] -> GetTexImageReply
- Graphics.XHB.Gen.Glx: MkGetTexLevelParameterfv :: CONTEXT_TAG -> CARD32 -> INT32 -> CARD32 -> GetTexLevelParameterfv
+ Graphics.XHB.Gen.Glx: MkGetTexLevelParameterfv :: CONTEXT_TAG -> Word32 -> Int32 -> Word32 -> GetTexLevelParameterfv
- Graphics.XHB.Gen.Glx: MkGetTexLevelParameterfvReply :: CARD32 -> FLOAT32 -> [FLOAT32] -> GetTexLevelParameterfvReply
+ Graphics.XHB.Gen.Glx: MkGetTexLevelParameterfvReply :: Word32 -> FLOAT32 -> [FLOAT32] -> GetTexLevelParameterfvReply
- Graphics.XHB.Gen.Glx: MkGetTexLevelParameteriv :: CONTEXT_TAG -> CARD32 -> INT32 -> CARD32 -> GetTexLevelParameteriv
+ Graphics.XHB.Gen.Glx: MkGetTexLevelParameteriv :: CONTEXT_TAG -> Word32 -> Int32 -> Word32 -> GetTexLevelParameteriv
- Graphics.XHB.Gen.Glx: MkGetTexLevelParameterivReply :: CARD32 -> INT32 -> [INT32] -> GetTexLevelParameterivReply
+ Graphics.XHB.Gen.Glx: MkGetTexLevelParameterivReply :: Word32 -> Int32 -> [Int32] -> GetTexLevelParameterivReply
- Graphics.XHB.Gen.Glx: MkGetTexParameterfv :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetTexParameterfv
+ Graphics.XHB.Gen.Glx: MkGetTexParameterfv :: CONTEXT_TAG -> Word32 -> Word32 -> GetTexParameterfv
- Graphics.XHB.Gen.Glx: MkGetTexParameterfvReply :: CARD32 -> FLOAT32 -> [FLOAT32] -> GetTexParameterfvReply
+ Graphics.XHB.Gen.Glx: MkGetTexParameterfvReply :: Word32 -> FLOAT32 -> [FLOAT32] -> GetTexParameterfvReply
- Graphics.XHB.Gen.Glx: MkGetTexParameteriv :: CONTEXT_TAG -> CARD32 -> CARD32 -> GetTexParameteriv
+ Graphics.XHB.Gen.Glx: MkGetTexParameteriv :: CONTEXT_TAG -> Word32 -> Word32 -> GetTexParameteriv
- Graphics.XHB.Gen.Glx: MkGetTexParameterivReply :: CARD32 -> INT32 -> [INT32] -> GetTexParameterivReply
+ Graphics.XHB.Gen.Glx: MkGetTexParameterivReply :: Word32 -> Int32 -> [Int32] -> GetTexParameterivReply
- Graphics.XHB.Gen.Glx: MkGetVisualConfigs :: CARD32 -> GetVisualConfigs
+ Graphics.XHB.Gen.Glx: MkGetVisualConfigs :: Word32 -> GetVisualConfigs
- Graphics.XHB.Gen.Glx: MkGetVisualConfigsReply :: CARD32 -> CARD32 -> [CARD32] -> GetVisualConfigsReply
+ Graphics.XHB.Gen.Glx: MkGetVisualConfigsReply :: Word32 -> Word32 -> [Word32] -> GetVisualConfigsReply
- Graphics.XHB.Gen.Glx: MkIsDirectReply :: BOOL -> IsDirectReply
+ Graphics.XHB.Gen.Glx: MkIsDirectReply :: Bool -> IsDirectReply
- Graphics.XHB.Gen.Glx: MkIsList :: CONTEXT_TAG -> CARD32 -> IsList
+ Graphics.XHB.Gen.Glx: MkIsList :: CONTEXT_TAG -> Word32 -> IsList
- Graphics.XHB.Gen.Glx: MkIsQueryARB :: CONTEXT_TAG -> CARD32 -> IsQueryARB
+ Graphics.XHB.Gen.Glx: MkIsQueryARB :: CONTEXT_TAG -> Word32 -> IsQueryARB
- Graphics.XHB.Gen.Glx: MkIsTexture :: CONTEXT_TAG -> CARD32 -> IsTexture
+ Graphics.XHB.Gen.Glx: MkIsTexture :: CONTEXT_TAG -> Word32 -> IsTexture
- Graphics.XHB.Gen.Glx: MkNewList :: CONTEXT_TAG -> CARD32 -> CARD32 -> NewList
+ Graphics.XHB.Gen.Glx: MkNewList :: CONTEXT_TAG -> Word32 -> Word32 -> NewList
- Graphics.XHB.Gen.Glx: MkPbufferClobber :: CARD16 -> CARD16 -> DRAWABLE -> CARD32 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> PbufferClobber
+ Graphics.XHB.Gen.Glx: MkPbufferClobber :: Word16 -> Word16 -> DRAWABLE -> Word32 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> PbufferClobber
- Graphics.XHB.Gen.Glx: MkPixelStoref :: CONTEXT_TAG -> CARD32 -> FLOAT32 -> PixelStoref
+ Graphics.XHB.Gen.Glx: MkPixelStoref :: CONTEXT_TAG -> Word32 -> FLOAT32 -> PixelStoref
- Graphics.XHB.Gen.Glx: MkPixelStorei :: CONTEXT_TAG -> CARD32 -> INT32 -> PixelStorei
+ Graphics.XHB.Gen.Glx: MkPixelStorei :: CONTEXT_TAG -> Word32 -> Int32 -> PixelStorei
- Graphics.XHB.Gen.Glx: MkQueryContextReply :: CARD32 -> [CARD32] -> QueryContextReply
+ Graphics.XHB.Gen.Glx: MkQueryContextReply :: Word32 -> [Word32] -> QueryContextReply
- Graphics.XHB.Gen.Glx: MkQueryExtensionsString :: CARD32 -> QueryExtensionsString
+ Graphics.XHB.Gen.Glx: MkQueryExtensionsString :: Word32 -> QueryExtensionsString
- Graphics.XHB.Gen.Glx: MkQueryExtensionsStringReply :: CARD32 -> QueryExtensionsStringReply
+ Graphics.XHB.Gen.Glx: MkQueryExtensionsStringReply :: Word32 -> QueryExtensionsStringReply
- Graphics.XHB.Gen.Glx: MkQueryServerString :: CARD32 -> CARD32 -> QueryServerString
+ Graphics.XHB.Gen.Glx: MkQueryServerString :: Word32 -> Word32 -> QueryServerString
- Graphics.XHB.Gen.Glx: MkQueryServerStringReply :: CARD32 -> [CChar] -> QueryServerStringReply
+ Graphics.XHB.Gen.Glx: MkQueryServerStringReply :: Word32 -> [CChar] -> QueryServerStringReply
- Graphics.XHB.Gen.Glx: MkQueryVersion :: CARD32 -> CARD32 -> QueryVersion
+ Graphics.XHB.Gen.Glx: MkQueryVersion :: Word32 -> Word32 -> QueryVersion
- Graphics.XHB.Gen.Glx: MkQueryVersionReply :: CARD32 -> CARD32 -> QueryVersionReply
+ Graphics.XHB.Gen.Glx: MkQueryVersionReply :: Word32 -> Word32 -> QueryVersionReply
- Graphics.XHB.Gen.Glx: MkReadPixels :: CONTEXT_TAG -> INT32 -> INT32 -> INT32 -> INT32 -> CARD32 -> CARD32 -> BOOL -> BOOL -> ReadPixels
+ Graphics.XHB.Gen.Glx: MkReadPixels :: CONTEXT_TAG -> Int32 -> Int32 -> Int32 -> Int32 -> Word32 -> Word32 -> Bool -> Bool -> ReadPixels
- Graphics.XHB.Gen.Glx: MkReadPixelsReply :: [BYTE] -> ReadPixelsReply
+ Graphics.XHB.Gen.Glx: MkReadPixelsReply :: [Word8] -> ReadPixelsReply
- Graphics.XHB.Gen.Glx: MkRender :: CONTEXT_TAG -> [BYTE] -> Render
+ Graphics.XHB.Gen.Glx: MkRender :: CONTEXT_TAG -> [Word8] -> Render
- Graphics.XHB.Gen.Glx: MkRenderLarge :: CONTEXT_TAG -> CARD16 -> CARD16 -> CARD32 -> [BYTE] -> RenderLarge
+ Graphics.XHB.Gen.Glx: MkRenderLarge :: CONTEXT_TAG -> Word16 -> Word16 -> Word32 -> [Word8] -> RenderLarge
- Graphics.XHB.Gen.Glx: MkRenderMode :: CONTEXT_TAG -> CARD32 -> RenderMode
+ Graphics.XHB.Gen.Glx: MkRenderMode :: CONTEXT_TAG -> Word32 -> RenderMode
- Graphics.XHB.Gen.Glx: MkRenderModeReply :: CARD32 -> CARD32 -> CARD32 -> [CARD32] -> RenderModeReply
+ Graphics.XHB.Gen.Glx: MkRenderModeReply :: Word32 -> Word32 -> Word32 -> [Word32] -> RenderModeReply
- Graphics.XHB.Gen.Glx: MkSelectBuffer :: CONTEXT_TAG -> INT32 -> SelectBuffer
+ Graphics.XHB.Gen.Glx: MkSelectBuffer :: CONTEXT_TAG -> Int32 -> SelectBuffer
- Graphics.XHB.Gen.Glx: MkUnsupportedPrivateRequest :: CARD32 -> CARD16 -> CARD8 -> UnsupportedPrivateRequest
+ Graphics.XHB.Gen.Glx: MkUnsupportedPrivateRequest :: Word32 -> Word16 -> Word8 -> UnsupportedPrivateRequest
- Graphics.XHB.Gen.Glx: MkUseXFont :: CONTEXT_TAG -> FONT -> CARD32 -> CARD32 -> CARD32 -> UseXFont
+ Graphics.XHB.Gen.Glx: MkUseXFont :: CONTEXT_TAG -> FONT -> Word32 -> Word32 -> Word32 -> UseXFont
- Graphics.XHB.Gen.Glx: MkVendorPrivate :: CARD32 -> CONTEXT_TAG -> [BYTE] -> VendorPrivate
+ Graphics.XHB.Gen.Glx: MkVendorPrivate :: Word32 -> CONTEXT_TAG -> [Word8] -> VendorPrivate
- Graphics.XHB.Gen.Glx: MkVendorPrivateWithReply :: CARD32 -> CONTEXT_TAG -> [BYTE] -> VendorPrivateWithReply
+ Graphics.XHB.Gen.Glx: MkVendorPrivateWithReply :: Word32 -> CONTEXT_TAG -> [Word8] -> VendorPrivateWithReply
- Graphics.XHB.Gen.Glx: MkVendorPrivateWithReplyReply :: CARD32 -> [BYTE] -> [BYTE] -> VendorPrivateWithReplyReply
+ Graphics.XHB.Gen.Glx: MkVendorPrivateWithReplyReply :: Word32 -> [Word8] -> [Word8] -> VendorPrivateWithReplyReply
- Graphics.XHB.Gen.Glx: attribs_ChangeDrawableAttributes :: ChangeDrawableAttributes -> [CARD32]
+ Graphics.XHB.Gen.Glx: attribs_ChangeDrawableAttributes :: ChangeDrawableAttributes -> [Word32]
- Graphics.XHB.Gen.Glx: attribs_CreatePbuffer :: CreatePbuffer -> [CARD32]
+ Graphics.XHB.Gen.Glx: attribs_CreatePbuffer :: CreatePbuffer -> [Word32]
- Graphics.XHB.Gen.Glx: attribs_CreatePixmap :: CreatePixmap -> [CARD32]
+ Graphics.XHB.Gen.Glx: attribs_CreatePixmap :: CreatePixmap -> [Word32]
- Graphics.XHB.Gen.Glx: attribs_CreateWindow :: CreateWindow -> [CARD32]
+ Graphics.XHB.Gen.Glx: attribs_CreateWindow :: CreateWindow -> [Word32]
- Graphics.XHB.Gen.Glx: attribs_GetDrawableAttributesReply :: GetDrawableAttributesReply -> [CARD32]
+ Graphics.XHB.Gen.Glx: attribs_GetDrawableAttributesReply :: GetDrawableAttributesReply -> [Word32]
- Graphics.XHB.Gen.Glx: attribs_QueryContextReply :: QueryContextReply -> [CARD32]
+ Graphics.XHB.Gen.Glx: attribs_QueryContextReply :: QueryContextReply -> [Word32]
- Graphics.XHB.Gen.Glx: aux_buffer_PbufferClobber :: PbufferClobber -> CARD16
+ Graphics.XHB.Gen.Glx: aux_buffer_PbufferClobber :: PbufferClobber -> Word16
- Graphics.XHB.Gen.Glx: b_mask_PbufferClobber :: PbufferClobber -> CARD32
+ Graphics.XHB.Gen.Glx: b_mask_PbufferClobber :: PbufferClobber -> Word32
- Graphics.XHB.Gen.Glx: bad_value_BadContext :: BadContext -> CARD32
+ Graphics.XHB.Gen.Glx: bad_value_BadContext :: BadContext -> Word32
- Graphics.XHB.Gen.Glx: bad_value_BadContextState :: BadContextState -> CARD32
+ Graphics.XHB.Gen.Glx: bad_value_BadContextState :: BadContextState -> Word32
- Graphics.XHB.Gen.Glx: bad_value_BadContextTag :: BadContextTag -> CARD32
+ Graphics.XHB.Gen.Glx: bad_value_BadContextTag :: BadContextTag -> Word32
- Graphics.XHB.Gen.Glx: bad_value_BadCurrentDrawable :: BadCurrentDrawable -> CARD32
+ Graphics.XHB.Gen.Glx: bad_value_BadCurrentDrawable :: BadCurrentDrawable -> Word32
- Graphics.XHB.Gen.Glx: bad_value_BadCurrentWindow :: BadCurrentWindow -> CARD32
+ Graphics.XHB.Gen.Glx: bad_value_BadCurrentWindow :: BadCurrentWindow -> Word32
- Graphics.XHB.Gen.Glx: bad_value_BadDrawable :: BadDrawable -> CARD32
+ Graphics.XHB.Gen.Glx: bad_value_BadDrawable :: BadDrawable -> Word32
- Graphics.XHB.Gen.Glx: bad_value_BadFBConfig :: BadFBConfig -> CARD32
+ Graphics.XHB.Gen.Glx: bad_value_BadFBConfig :: BadFBConfig -> Word32
- Graphics.XHB.Gen.Glx: bad_value_BadLargeRequest :: BadLargeRequest -> CARD32
+ Graphics.XHB.Gen.Glx: bad_value_BadLargeRequest :: BadLargeRequest -> Word32
- Graphics.XHB.Gen.Glx: bad_value_BadPbuffer :: BadPbuffer -> CARD32
+ Graphics.XHB.Gen.Glx: bad_value_BadPbuffer :: BadPbuffer -> Word32
- Graphics.XHB.Gen.Glx: bad_value_BadPixmap :: BadPixmap -> CARD32
+ Graphics.XHB.Gen.Glx: bad_value_BadPixmap :: BadPixmap -> Word32
- Graphics.XHB.Gen.Glx: bad_value_BadRenderRequest :: BadRenderRequest -> CARD32
+ Graphics.XHB.Gen.Glx: bad_value_BadRenderRequest :: BadRenderRequest -> Word32
- Graphics.XHB.Gen.Glx: bad_value_BadWindow :: BadWindow -> CARD32
+ Graphics.XHB.Gen.Glx: bad_value_BadWindow :: BadWindow -> Word32
- Graphics.XHB.Gen.Glx: bad_value_Generic :: Generic -> CARD32
+ Graphics.XHB.Gen.Glx: bad_value_Generic :: Generic -> Word32
- Graphics.XHB.Gen.Glx: bad_value_UnsupportedPrivateRequest :: UnsupportedPrivateRequest -> CARD32
+ Graphics.XHB.Gen.Glx: bad_value_UnsupportedPrivateRequest :: UnsupportedPrivateRequest -> Word32
- Graphics.XHB.Gen.Glx: col_h_GetSeparableFilterReply :: GetSeparableFilterReply -> INT32
+ Graphics.XHB.Gen.Glx: col_h_GetSeparableFilterReply :: GetSeparableFilterReply -> Int32
- Graphics.XHB.Gen.Glx: coord_GetTexGendv :: GetTexGendv -> CARD32
+ Graphics.XHB.Gen.Glx: coord_GetTexGendv :: GetTexGendv -> Word32
- Graphics.XHB.Gen.Glx: coord_GetTexGenfv :: GetTexGenfv -> CARD32
+ Graphics.XHB.Gen.Glx: coord_GetTexGenfv :: GetTexGenfv -> Word32
- Graphics.XHB.Gen.Glx: coord_GetTexGeniv :: GetTexGeniv -> CARD32
+ Graphics.XHB.Gen.Glx: coord_GetTexGeniv :: GetTexGeniv -> Word32
- Graphics.XHB.Gen.Glx: count_PbufferClobber :: PbufferClobber -> CARD16
+ Graphics.XHB.Gen.Glx: count_PbufferClobber :: PbufferClobber -> Word16
- Graphics.XHB.Gen.Glx: count_UseXFont :: UseXFont -> CARD32
+ Graphics.XHB.Gen.Glx: count_UseXFont :: UseXFont -> Word32
- Graphics.XHB.Gen.Glx: data1_VendorPrivateWithReplyReply :: VendorPrivateWithReplyReply -> [BYTE]
+ Graphics.XHB.Gen.Glx: data1_VendorPrivateWithReplyReply :: VendorPrivateWithReplyReply -> [Word8]
- Graphics.XHB.Gen.Glx: data2_VendorPrivateWithReplyReply :: VendorPrivateWithReplyReply -> [BYTE]
+ Graphics.XHB.Gen.Glx: data2_VendorPrivateWithReplyReply :: VendorPrivateWithReplyReply -> [Word8]
- Graphics.XHB.Gen.Glx: data_AreTexturesResidentReply :: AreTexturesResidentReply -> [BOOL]
+ Graphics.XHB.Gen.Glx: data_AreTexturesResidentReply :: AreTexturesResidentReply -> [Bool]
- Graphics.XHB.Gen.Glx: data_GenQueriesARBReply :: GenQueriesARBReply -> [CARD32]
+ Graphics.XHB.Gen.Glx: data_GenQueriesARBReply :: GenQueriesARBReply -> [Word32]
- Graphics.XHB.Gen.Glx: data_GenTexturesReply :: GenTexturesReply -> [CARD32]
+ Graphics.XHB.Gen.Glx: data_GenTexturesReply :: GenTexturesReply -> [Word32]
- Graphics.XHB.Gen.Glx: data_GetBooleanvReply :: GetBooleanvReply -> [BOOL]
+ Graphics.XHB.Gen.Glx: data_GetBooleanvReply :: GetBooleanvReply -> [Bool]
- Graphics.XHB.Gen.Glx: data_GetColorTableParameterivReply :: GetColorTableParameterivReply -> [INT32]
+ Graphics.XHB.Gen.Glx: data_GetColorTableParameterivReply :: GetColorTableParameterivReply -> [Int32]
- Graphics.XHB.Gen.Glx: data_GetColorTableReply :: GetColorTableReply -> [BYTE]
+ Graphics.XHB.Gen.Glx: data_GetColorTableReply :: GetColorTableReply -> [Word8]
- Graphics.XHB.Gen.Glx: data_GetCompressedTexImageARBReply :: GetCompressedTexImageARBReply -> [BYTE]
+ Graphics.XHB.Gen.Glx: data_GetCompressedTexImageARBReply :: GetCompressedTexImageARBReply -> [Word8]
- Graphics.XHB.Gen.Glx: data_GetConvolutionFilterReply :: GetConvolutionFilterReply -> [BYTE]
+ Graphics.XHB.Gen.Glx: data_GetConvolutionFilterReply :: GetConvolutionFilterReply -> [Word8]
- Graphics.XHB.Gen.Glx: data_GetConvolutionParameterivReply :: GetConvolutionParameterivReply -> [INT32]
+ Graphics.XHB.Gen.Glx: data_GetConvolutionParameterivReply :: GetConvolutionParameterivReply -> [Int32]
- Graphics.XHB.Gen.Glx: data_GetHistogramParameterivReply :: GetHistogramParameterivReply -> [INT32]
+ Graphics.XHB.Gen.Glx: data_GetHistogramParameterivReply :: GetHistogramParameterivReply -> [Int32]
- Graphics.XHB.Gen.Glx: data_GetHistogramReply :: GetHistogramReply -> [BYTE]
+ Graphics.XHB.Gen.Glx: data_GetHistogramReply :: GetHistogramReply -> [Word8]
- Graphics.XHB.Gen.Glx: data_GetIntegervReply :: GetIntegervReply -> [INT32]
+ Graphics.XHB.Gen.Glx: data_GetIntegervReply :: GetIntegervReply -> [Int32]
- Graphics.XHB.Gen.Glx: data_GetLightivReply :: GetLightivReply -> [INT32]
+ Graphics.XHB.Gen.Glx: data_GetLightivReply :: GetLightivReply -> [Int32]
- Graphics.XHB.Gen.Glx: data_GetMapivReply :: GetMapivReply -> [INT32]
+ Graphics.XHB.Gen.Glx: data_GetMapivReply :: GetMapivReply -> [Int32]
- Graphics.XHB.Gen.Glx: data_GetMaterialivReply :: GetMaterialivReply -> [INT32]
+ Graphics.XHB.Gen.Glx: data_GetMaterialivReply :: GetMaterialivReply -> [Int32]
- Graphics.XHB.Gen.Glx: data_GetMinmaxParameterivReply :: GetMinmaxParameterivReply -> [INT32]
+ Graphics.XHB.Gen.Glx: data_GetMinmaxParameterivReply :: GetMinmaxParameterivReply -> [Int32]
- Graphics.XHB.Gen.Glx: data_GetMinmaxReply :: GetMinmaxReply -> [BYTE]
+ Graphics.XHB.Gen.Glx: data_GetMinmaxReply :: GetMinmaxReply -> [Word8]
- Graphics.XHB.Gen.Glx: data_GetPixelMapuivReply :: GetPixelMapuivReply -> [CARD32]
+ Graphics.XHB.Gen.Glx: data_GetPixelMapuivReply :: GetPixelMapuivReply -> [Word32]
- Graphics.XHB.Gen.Glx: data_GetPixelMapusvReply :: GetPixelMapusvReply -> [CARD16]
+ Graphics.XHB.Gen.Glx: data_GetPixelMapusvReply :: GetPixelMapusvReply -> [Word16]
- Graphics.XHB.Gen.Glx: data_GetPolygonStippleReply :: GetPolygonStippleReply -> [BYTE]
+ Graphics.XHB.Gen.Glx: data_GetPolygonStippleReply :: GetPolygonStippleReply -> [Word8]
- Graphics.XHB.Gen.Glx: data_GetQueryObjectivARBReply :: GetQueryObjectivARBReply -> [INT32]
+ Graphics.XHB.Gen.Glx: data_GetQueryObjectivARBReply :: GetQueryObjectivARBReply -> [Int32]
- Graphics.XHB.Gen.Glx: data_GetQueryObjectuivARBReply :: GetQueryObjectuivARBReply -> [CARD32]
+ Graphics.XHB.Gen.Glx: data_GetQueryObjectuivARBReply :: GetQueryObjectuivARBReply -> [Word32]
- Graphics.XHB.Gen.Glx: data_GetQueryivARBReply :: GetQueryivARBReply -> [INT32]
+ Graphics.XHB.Gen.Glx: data_GetQueryivARBReply :: GetQueryivARBReply -> [Int32]
- Graphics.XHB.Gen.Glx: data_GetTexEnvivReply :: GetTexEnvivReply -> [INT32]
+ Graphics.XHB.Gen.Glx: data_GetTexEnvivReply :: GetTexEnvivReply -> [Int32]
- Graphics.XHB.Gen.Glx: data_GetTexGenivReply :: GetTexGenivReply -> [INT32]
+ Graphics.XHB.Gen.Glx: data_GetTexGenivReply :: GetTexGenivReply -> [Int32]
- Graphics.XHB.Gen.Glx: data_GetTexImageReply :: GetTexImageReply -> [BYTE]
+ Graphics.XHB.Gen.Glx: data_GetTexImageReply :: GetTexImageReply -> [Word8]
- Graphics.XHB.Gen.Glx: data_GetTexLevelParameterivReply :: GetTexLevelParameterivReply -> [INT32]
+ Graphics.XHB.Gen.Glx: data_GetTexLevelParameterivReply :: GetTexLevelParameterivReply -> [Int32]
- Graphics.XHB.Gen.Glx: data_GetTexParameterivReply :: GetTexParameterivReply -> [INT32]
+ Graphics.XHB.Gen.Glx: data_GetTexParameterivReply :: GetTexParameterivReply -> [Int32]
- Graphics.XHB.Gen.Glx: data_ReadPixelsReply :: ReadPixelsReply -> [BYTE]
+ Graphics.XHB.Gen.Glx: data_ReadPixelsReply :: ReadPixelsReply -> [Word8]
- Graphics.XHB.Gen.Glx: data_Render :: Render -> [BYTE]
+ Graphics.XHB.Gen.Glx: data_Render :: Render -> [Word8]
- Graphics.XHB.Gen.Glx: data_RenderLarge :: RenderLarge -> [BYTE]
+ Graphics.XHB.Gen.Glx: data_RenderLarge :: RenderLarge -> [Word8]
- Graphics.XHB.Gen.Glx: data_RenderModeReply :: RenderModeReply -> [CARD32]
+ Graphics.XHB.Gen.Glx: data_RenderModeReply :: RenderModeReply -> [Word32]
- Graphics.XHB.Gen.Glx: data_VendorPrivate :: VendorPrivate -> [BYTE]
+ Graphics.XHB.Gen.Glx: data_VendorPrivate :: VendorPrivate -> [Word8]
- Graphics.XHB.Gen.Glx: data_VendorPrivateWithReply :: VendorPrivateWithReply -> [BYTE]
+ Graphics.XHB.Gen.Glx: data_VendorPrivateWithReply :: VendorPrivateWithReply -> [Word8]
- Graphics.XHB.Gen.Glx: data_len_RenderLarge :: RenderLarge -> CARD32
+ Graphics.XHB.Gen.Glx: data_len_RenderLarge :: RenderLarge -> Word32
- Graphics.XHB.Gen.Glx: datum_GetBooleanvReply :: GetBooleanvReply -> BOOL
+ Graphics.XHB.Gen.Glx: datum_GetBooleanvReply :: GetBooleanvReply -> Bool
- Graphics.XHB.Gen.Glx: datum_GetColorTableParameterivReply :: GetColorTableParameterivReply -> INT32
+ Graphics.XHB.Gen.Glx: datum_GetColorTableParameterivReply :: GetColorTableParameterivReply -> Int32
- Graphics.XHB.Gen.Glx: datum_GetConvolutionParameterivReply :: GetConvolutionParameterivReply -> INT32
+ Graphics.XHB.Gen.Glx: datum_GetConvolutionParameterivReply :: GetConvolutionParameterivReply -> Int32
- Graphics.XHB.Gen.Glx: datum_GetHistogramParameterivReply :: GetHistogramParameterivReply -> INT32
+ Graphics.XHB.Gen.Glx: datum_GetHistogramParameterivReply :: GetHistogramParameterivReply -> Int32
- Graphics.XHB.Gen.Glx: datum_GetIntegervReply :: GetIntegervReply -> INT32
+ Graphics.XHB.Gen.Glx: datum_GetIntegervReply :: GetIntegervReply -> Int32
- Graphics.XHB.Gen.Glx: datum_GetLightivReply :: GetLightivReply -> INT32
+ Graphics.XHB.Gen.Glx: datum_GetLightivReply :: GetLightivReply -> Int32
- Graphics.XHB.Gen.Glx: datum_GetMapivReply :: GetMapivReply -> INT32
+ Graphics.XHB.Gen.Glx: datum_GetMapivReply :: GetMapivReply -> Int32
- Graphics.XHB.Gen.Glx: datum_GetMaterialivReply :: GetMaterialivReply -> INT32
+ Graphics.XHB.Gen.Glx: datum_GetMaterialivReply :: GetMaterialivReply -> Int32
- Graphics.XHB.Gen.Glx: datum_GetMinmaxParameterivReply :: GetMinmaxParameterivReply -> INT32
+ Graphics.XHB.Gen.Glx: datum_GetMinmaxParameterivReply :: GetMinmaxParameterivReply -> Int32
- Graphics.XHB.Gen.Glx: datum_GetPixelMapuivReply :: GetPixelMapuivReply -> CARD32
+ Graphics.XHB.Gen.Glx: datum_GetPixelMapuivReply :: GetPixelMapuivReply -> Word32
- Graphics.XHB.Gen.Glx: datum_GetPixelMapusvReply :: GetPixelMapusvReply -> CARD16
+ Graphics.XHB.Gen.Glx: datum_GetPixelMapusvReply :: GetPixelMapusvReply -> Word16
- Graphics.XHB.Gen.Glx: datum_GetQueryObjectivARBReply :: GetQueryObjectivARBReply -> INT32
+ Graphics.XHB.Gen.Glx: datum_GetQueryObjectivARBReply :: GetQueryObjectivARBReply -> Int32
- Graphics.XHB.Gen.Glx: datum_GetQueryObjectuivARBReply :: GetQueryObjectuivARBReply -> CARD32
+ Graphics.XHB.Gen.Glx: datum_GetQueryObjectuivARBReply :: GetQueryObjectuivARBReply -> Word32
- Graphics.XHB.Gen.Glx: datum_GetQueryivARBReply :: GetQueryivARBReply -> INT32
+ Graphics.XHB.Gen.Glx: datum_GetQueryivARBReply :: GetQueryivARBReply -> Int32
- Graphics.XHB.Gen.Glx: datum_GetTexEnvivReply :: GetTexEnvivReply -> INT32
+ Graphics.XHB.Gen.Glx: datum_GetTexEnvivReply :: GetTexEnvivReply -> Int32
- Graphics.XHB.Gen.Glx: datum_GetTexGenivReply :: GetTexGenivReply -> INT32
+ Graphics.XHB.Gen.Glx: datum_GetTexGenivReply :: GetTexGenivReply -> Int32
- Graphics.XHB.Gen.Glx: datum_GetTexLevelParameterivReply :: GetTexLevelParameterivReply -> INT32
+ Graphics.XHB.Gen.Glx: datum_GetTexLevelParameterivReply :: GetTexLevelParameterivReply -> Int32
- Graphics.XHB.Gen.Glx: datum_GetTexParameterivReply :: GetTexParameterivReply -> INT32
+ Graphics.XHB.Gen.Glx: datum_GetTexParameterivReply :: GetTexParameterivReply -> Int32
- Graphics.XHB.Gen.Glx: datum_PixelStorei :: PixelStorei -> INT32
+ Graphics.XHB.Gen.Glx: datum_PixelStorei :: PixelStorei -> Int32
- Graphics.XHB.Gen.Glx: depth_GetTexImageReply :: GetTexImageReply -> INT32
+ Graphics.XHB.Gen.Glx: depth_GetTexImageReply :: GetTexImageReply -> Int32
- Graphics.XHB.Gen.Glx: draw_type_PbufferClobber :: PbufferClobber -> CARD16
+ Graphics.XHB.Gen.Glx: draw_type_PbufferClobber :: PbufferClobber -> Word16
- Graphics.XHB.Gen.Glx: error_GetErrorReply :: GetErrorReply -> INT32
+ Graphics.XHB.Gen.Glx: error_GetErrorReply :: GetErrorReply -> Int32
- Graphics.XHB.Gen.Glx: event_type_PbufferClobber :: PbufferClobber -> CARD16
+ Graphics.XHB.Gen.Glx: event_type_PbufferClobber :: PbufferClobber -> Word16
- Graphics.XHB.Gen.Glx: face_GetMaterialfv :: GetMaterialfv -> CARD32
+ Graphics.XHB.Gen.Glx: face_GetMaterialfv :: GetMaterialfv -> Word32
- Graphics.XHB.Gen.Glx: face_GetMaterialiv :: GetMaterialiv -> CARD32
+ Graphics.XHB.Gen.Glx: face_GetMaterialiv :: GetMaterialiv -> Word32
- Graphics.XHB.Gen.Glx: fbconfig_CreateNewContext :: CreateNewContext -> CARD32
+ Graphics.XHB.Gen.Glx: fbconfig_CreateNewContext :: CreateNewContext -> Word32
- Graphics.XHB.Gen.Glx: fbconfig_CreatePixmap :: CreatePixmap -> CARD32
+ Graphics.XHB.Gen.Glx: fbconfig_CreatePixmap :: CreatePixmap -> Word32
- Graphics.XHB.Gen.Glx: first_UseXFont :: UseXFont -> CARD32
+ Graphics.XHB.Gen.Glx: first_UseXFont :: UseXFont -> Word32
- Graphics.XHB.Gen.Glx: format_GetColorTable :: GetColorTable -> CARD32
+ Graphics.XHB.Gen.Glx: format_GetColorTable :: GetColorTable -> Word32
- Graphics.XHB.Gen.Glx: format_GetConvolutionFilter :: GetConvolutionFilter -> CARD32
+ Graphics.XHB.Gen.Glx: format_GetConvolutionFilter :: GetConvolutionFilter -> Word32
- Graphics.XHB.Gen.Glx: format_GetHistogram :: GetHistogram -> CARD32
+ Graphics.XHB.Gen.Glx: format_GetHistogram :: GetHistogram -> Word32
- Graphics.XHB.Gen.Glx: format_GetMinmax :: GetMinmax -> CARD32
+ Graphics.XHB.Gen.Glx: format_GetMinmax :: GetMinmax -> Word32
- Graphics.XHB.Gen.Glx: format_GetSeparableFilter :: GetSeparableFilter -> CARD32
+ Graphics.XHB.Gen.Glx: format_GetSeparableFilter :: GetSeparableFilter -> Word32
- Graphics.XHB.Gen.Glx: format_GetTexImage :: GetTexImage -> CARD32
+ Graphics.XHB.Gen.Glx: format_GetTexImage :: GetTexImage -> Word32
- Graphics.XHB.Gen.Glx: format_ReadPixels :: ReadPixels -> CARD32
+ Graphics.XHB.Gen.Glx: format_ReadPixels :: ReadPixels -> Word32
- Graphics.XHB.Gen.Glx: genLists :: Connection -> CONTEXT_TAG -> INT32 -> IO (Receipt GenListsReply)
+ Graphics.XHB.Gen.Glx: genLists :: Connection -> CONTEXT_TAG -> Int32 -> IO (Receipt Word32)
- Graphics.XHB.Gen.Glx: genQueriesARB :: Connection -> CONTEXT_TAG -> INT32 -> IO (Receipt GenQueriesARBReply)
+ Graphics.XHB.Gen.Glx: genQueriesARB :: Connection -> CONTEXT_TAG -> Int32 -> IO (Receipt [Word32])
- Graphics.XHB.Gen.Glx: genTextures :: Connection -> CONTEXT_TAG -> INT32 -> IO (Receipt GenTexturesReply)
+ Graphics.XHB.Gen.Glx: genTextures :: Connection -> CONTEXT_TAG -> Int32 -> IO (Receipt [Word32])
- Graphics.XHB.Gen.Glx: getBooleanv :: Connection -> CONTEXT_TAG -> INT32 -> IO (Receipt GetBooleanvReply)
+ Graphics.XHB.Gen.Glx: getBooleanv :: Connection -> CONTEXT_TAG -> Int32 -> IO (Receipt GetBooleanvReply)
- Graphics.XHB.Gen.Glx: getClipPlane :: Connection -> CONTEXT_TAG -> INT32 -> IO (Receipt GetClipPlaneReply)
+ Graphics.XHB.Gen.Glx: getClipPlane :: Connection -> CONTEXT_TAG -> Int32 -> IO (Receipt [FLOAT64])
- Graphics.XHB.Gen.Glx: getDoublev :: Connection -> CONTEXT_TAG -> CARD32 -> IO (Receipt GetDoublevReply)
+ Graphics.XHB.Gen.Glx: getDoublev :: Connection -> CONTEXT_TAG -> Word32 -> IO (Receipt GetDoublevReply)
- Graphics.XHB.Gen.Glx: getError :: Connection -> CONTEXT_TAG -> IO (Receipt GetErrorReply)
+ Graphics.XHB.Gen.Glx: getError :: Connection -> CONTEXT_TAG -> IO (Receipt Int32)
- Graphics.XHB.Gen.Glx: getFBConfigs :: Connection -> CARD32 -> IO (Receipt GetFBConfigsReply)
+ Graphics.XHB.Gen.Glx: getFBConfigs :: Connection -> Word32 -> IO (Receipt GetFBConfigsReply)
- Graphics.XHB.Gen.Glx: getFloatv :: Connection -> CONTEXT_TAG -> CARD32 -> IO (Receipt GetFloatvReply)
+ Graphics.XHB.Gen.Glx: getFloatv :: Connection -> CONTEXT_TAG -> Word32 -> IO (Receipt GetFloatvReply)
- Graphics.XHB.Gen.Glx: getIntegerv :: Connection -> CONTEXT_TAG -> CARD32 -> IO (Receipt GetIntegervReply)
+ Graphics.XHB.Gen.Glx: getIntegerv :: Connection -> CONTEXT_TAG -> Word32 -> IO (Receipt GetIntegervReply)
- Graphics.XHB.Gen.Glx: getMinmax :: Connection -> GetMinmax -> IO (Receipt GetMinmaxReply)
+ Graphics.XHB.Gen.Glx: getMinmax :: Connection -> GetMinmax -> IO (Receipt [Word8])
- Graphics.XHB.Gen.Glx: getPixelMapfv :: Connection -> CONTEXT_TAG -> CARD32 -> IO (Receipt GetPixelMapfvReply)
+ Graphics.XHB.Gen.Glx: getPixelMapfv :: Connection -> CONTEXT_TAG -> Word32 -> IO (Receipt GetPixelMapfvReply)
- Graphics.XHB.Gen.Glx: getPixelMapuiv :: Connection -> CONTEXT_TAG -> CARD32 -> IO (Receipt GetPixelMapuivReply)
+ Graphics.XHB.Gen.Glx: getPixelMapuiv :: Connection -> CONTEXT_TAG -> Word32 -> IO (Receipt GetPixelMapuivReply)
- Graphics.XHB.Gen.Glx: getPixelMapusv :: Connection -> CONTEXT_TAG -> CARD32 -> IO (Receipt GetPixelMapusvReply)
+ Graphics.XHB.Gen.Glx: getPixelMapusv :: Connection -> CONTEXT_TAG -> Word32 -> IO (Receipt GetPixelMapusvReply)
- Graphics.XHB.Gen.Glx: getPolygonStipple :: Connection -> CONTEXT_TAG -> BOOL -> IO (Receipt GetPolygonStippleReply)
+ Graphics.XHB.Gen.Glx: getPolygonStipple :: Connection -> CONTEXT_TAG -> Bool -> IO (Receipt [Word8])
- Graphics.XHB.Gen.Glx: getString :: Connection -> CONTEXT_TAG -> CARD32 -> IO (Receipt GetStringReply)
+ Graphics.XHB.Gen.Glx: getString :: Connection -> CONTEXT_TAG -> Word32 -> IO (Receipt GetStringReply)
- Graphics.XHB.Gen.Glx: getVisualConfigs :: Connection -> CARD32 -> IO (Receipt GetVisualConfigsReply)
+ Graphics.XHB.Gen.Glx: getVisualConfigs :: Connection -> Word32 -> IO (Receipt GetVisualConfigsReply)
- Graphics.XHB.Gen.Glx: height_GetConvolutionFilterReply :: GetConvolutionFilterReply -> INT32
+ Graphics.XHB.Gen.Glx: height_GetConvolutionFilterReply :: GetConvolutionFilterReply -> Int32
- Graphics.XHB.Gen.Glx: height_GetTexImageReply :: GetTexImageReply -> INT32
+ Graphics.XHB.Gen.Glx: height_GetTexImageReply :: GetTexImageReply -> Int32
- Graphics.XHB.Gen.Glx: height_PbufferClobber :: PbufferClobber -> CARD16
+ Graphics.XHB.Gen.Glx: height_PbufferClobber :: PbufferClobber -> Word16
- Graphics.XHB.Gen.Glx: height_ReadPixels :: ReadPixels -> INT32
+ Graphics.XHB.Gen.Glx: height_ReadPixels :: ReadPixels -> Int32
- Graphics.XHB.Gen.Glx: id_GetQueryObjectivARB :: GetQueryObjectivARB -> CARD32
+ Graphics.XHB.Gen.Glx: id_GetQueryObjectivARB :: GetQueryObjectivARB -> Word32
- Graphics.XHB.Gen.Glx: id_GetQueryObjectuivARB :: GetQueryObjectuivARB -> CARD32
+ Graphics.XHB.Gen.Glx: id_GetQueryObjectuivARB :: GetQueryObjectuivARB -> Word32
- Graphics.XHB.Gen.Glx: id_IsQueryARB :: IsQueryARB -> CARD32
+ Graphics.XHB.Gen.Glx: id_IsQueryARB :: IsQueryARB -> Word32
- Graphics.XHB.Gen.Glx: ids_DeleteQueriesARB :: DeleteQueriesARB -> [CARD32]
+ Graphics.XHB.Gen.Glx: ids_DeleteQueriesARB :: DeleteQueriesARB -> [Word32]
- Graphics.XHB.Gen.Glx: isDirect :: Connection -> CONTEXT -> IO (Receipt IsDirectReply)
+ Graphics.XHB.Gen.Glx: isDirect :: Connection -> CONTEXT -> IO (Receipt Bool)
- Graphics.XHB.Gen.Glx: isList :: Connection -> CONTEXT_TAG -> CARD32 -> IO (Receipt IsListReply)
+ Graphics.XHB.Gen.Glx: isList :: Connection -> CONTEXT_TAG -> Word32 -> IO (Receipt BOOL32)
- Graphics.XHB.Gen.Glx: isQueryARB :: Connection -> CONTEXT_TAG -> CARD32 -> IO (Receipt IsQueryARBReply)
+ Graphics.XHB.Gen.Glx: isQueryARB :: Connection -> CONTEXT_TAG -> Word32 -> IO (Receipt BOOL32)
- Graphics.XHB.Gen.Glx: isTexture :: Connection -> CONTEXT_TAG -> CARD32 -> IO (Receipt IsTextureReply)
+ Graphics.XHB.Gen.Glx: isTexture :: Connection -> CONTEXT_TAG -> Word32 -> IO (Receipt BOOL32)
- Graphics.XHB.Gen.Glx: is_direct_CreateContext :: CreateContext -> BOOL
+ Graphics.XHB.Gen.Glx: is_direct_CreateContext :: CreateContext -> Bool
- Graphics.XHB.Gen.Glx: is_direct_CreateNewContext :: CreateNewContext -> BOOL
+ Graphics.XHB.Gen.Glx: is_direct_CreateNewContext :: CreateNewContext -> Bool
- Graphics.XHB.Gen.Glx: is_direct_IsDirectReply :: IsDirectReply -> BOOL
+ Graphics.XHB.Gen.Glx: is_direct_IsDirectReply :: IsDirectReply -> Bool
- Graphics.XHB.Gen.Glx: level_GetCompressedTexImageARB :: GetCompressedTexImageARB -> INT32
+ Graphics.XHB.Gen.Glx: level_GetCompressedTexImageARB :: GetCompressedTexImageARB -> Int32
- Graphics.XHB.Gen.Glx: level_GetTexImage :: GetTexImage -> INT32
+ Graphics.XHB.Gen.Glx: level_GetTexImage :: GetTexImage -> Int32
- Graphics.XHB.Gen.Glx: level_GetTexLevelParameterfv :: GetTexLevelParameterfv -> INT32
+ Graphics.XHB.Gen.Glx: level_GetTexLevelParameterfv :: GetTexLevelParameterfv -> Int32
- Graphics.XHB.Gen.Glx: level_GetTexLevelParameteriv :: GetTexLevelParameteriv -> INT32
+ Graphics.XHB.Gen.Glx: level_GetTexLevelParameteriv :: GetTexLevelParameteriv -> Int32
- Graphics.XHB.Gen.Glx: light_GetLightfv :: GetLightfv -> CARD32
+ Graphics.XHB.Gen.Glx: light_GetLightfv :: GetLightfv -> Word32
- Graphics.XHB.Gen.Glx: light_GetLightiv :: GetLightiv -> CARD32
+ Graphics.XHB.Gen.Glx: light_GetLightiv :: GetLightiv -> Word32
- Graphics.XHB.Gen.Glx: list_DeleteLists :: DeleteLists -> CARD32
+ Graphics.XHB.Gen.Glx: list_DeleteLists :: DeleteLists -> Word32
- Graphics.XHB.Gen.Glx: list_IsList :: IsList -> CARD32
+ Graphics.XHB.Gen.Glx: list_IsList :: IsList -> Word32
- Graphics.XHB.Gen.Glx: list_NewList :: NewList -> CARD32
+ Graphics.XHB.Gen.Glx: list_NewList :: NewList -> Word32
- Graphics.XHB.Gen.Glx: list_base_UseXFont :: UseXFont -> CARD32
+ Graphics.XHB.Gen.Glx: list_base_UseXFont :: UseXFont -> Word32
- Graphics.XHB.Gen.Glx: lsb_first_GetPolygonStipple :: GetPolygonStipple -> BOOL
+ Graphics.XHB.Gen.Glx: lsb_first_GetPolygonStipple :: GetPolygonStipple -> Bool
- Graphics.XHB.Gen.Glx: lsb_first_ReadPixels :: ReadPixels -> BOOL
+ Graphics.XHB.Gen.Glx: lsb_first_ReadPixels :: ReadPixels -> Bool
- Graphics.XHB.Gen.Glx: major_opcode_BadContext :: BadContext -> CARD8
+ Graphics.XHB.Gen.Glx: major_opcode_BadContext :: BadContext -> Word8
- Graphics.XHB.Gen.Glx: major_opcode_BadContextState :: BadContextState -> CARD8
+ Graphics.XHB.Gen.Glx: major_opcode_BadContextState :: BadContextState -> Word8
- Graphics.XHB.Gen.Glx: major_opcode_BadContextTag :: BadContextTag -> CARD8
+ Graphics.XHB.Gen.Glx: major_opcode_BadContextTag :: BadContextTag -> Word8
- Graphics.XHB.Gen.Glx: major_opcode_BadCurrentDrawable :: BadCurrentDrawable -> CARD8
+ Graphics.XHB.Gen.Glx: major_opcode_BadCurrentDrawable :: BadCurrentDrawable -> Word8
- Graphics.XHB.Gen.Glx: major_opcode_BadCurrentWindow :: BadCurrentWindow -> CARD8
+ Graphics.XHB.Gen.Glx: major_opcode_BadCurrentWindow :: BadCurrentWindow -> Word8
- Graphics.XHB.Gen.Glx: major_opcode_BadDrawable :: BadDrawable -> CARD8
+ Graphics.XHB.Gen.Glx: major_opcode_BadDrawable :: BadDrawable -> Word8
- Graphics.XHB.Gen.Glx: major_opcode_BadFBConfig :: BadFBConfig -> CARD8
+ Graphics.XHB.Gen.Glx: major_opcode_BadFBConfig :: BadFBConfig -> Word8
- Graphics.XHB.Gen.Glx: major_opcode_BadLargeRequest :: BadLargeRequest -> CARD8
+ Graphics.XHB.Gen.Glx: major_opcode_BadLargeRequest :: BadLargeRequest -> Word8
- Graphics.XHB.Gen.Glx: major_opcode_BadPbuffer :: BadPbuffer -> CARD8
+ Graphics.XHB.Gen.Glx: major_opcode_BadPbuffer :: BadPbuffer -> Word8
- Graphics.XHB.Gen.Glx: major_opcode_BadPixmap :: BadPixmap -> CARD8
+ Graphics.XHB.Gen.Glx: major_opcode_BadPixmap :: BadPixmap -> Word8
- Graphics.XHB.Gen.Glx: major_opcode_BadRenderRequest :: BadRenderRequest -> CARD8
+ Graphics.XHB.Gen.Glx: major_opcode_BadRenderRequest :: BadRenderRequest -> Word8
- Graphics.XHB.Gen.Glx: major_opcode_BadWindow :: BadWindow -> CARD8
+ Graphics.XHB.Gen.Glx: major_opcode_BadWindow :: BadWindow -> Word8
- Graphics.XHB.Gen.Glx: major_opcode_Generic :: Generic -> CARD8
+ Graphics.XHB.Gen.Glx: major_opcode_Generic :: Generic -> Word8
- Graphics.XHB.Gen.Glx: major_opcode_UnsupportedPrivateRequest :: UnsupportedPrivateRequest -> CARD8
+ Graphics.XHB.Gen.Glx: major_opcode_UnsupportedPrivateRequest :: UnsupportedPrivateRequest -> Word8
- Graphics.XHB.Gen.Glx: major_version_ClientInfo :: ClientInfo -> CARD32
+ Graphics.XHB.Gen.Glx: major_version_ClientInfo :: ClientInfo -> Word32
- Graphics.XHB.Gen.Glx: major_version_QueryVersion :: QueryVersion -> CARD32
+ Graphics.XHB.Gen.Glx: major_version_QueryVersion :: QueryVersion -> Word32
- Graphics.XHB.Gen.Glx: major_version_QueryVersionReply :: QueryVersionReply -> CARD32
+ Graphics.XHB.Gen.Glx: major_version_QueryVersionReply :: QueryVersionReply -> Word32
- Graphics.XHB.Gen.Glx: makeContextCurrent :: Connection -> MakeContextCurrent -> IO (Receipt MakeContextCurrentReply)
+ Graphics.XHB.Gen.Glx: makeContextCurrent :: Connection -> MakeContextCurrent -> IO (Receipt CONTEXT_TAG)
- Graphics.XHB.Gen.Glx: makeCurrent :: Connection -> MakeCurrent -> IO (Receipt MakeCurrentReply)
+ Graphics.XHB.Gen.Glx: makeCurrent :: Connection -> MakeCurrent -> IO (Receipt CONTEXT_TAG)
- Graphics.XHB.Gen.Glx: map_GetPixelMapfv :: GetPixelMapfv -> CARD32
+ Graphics.XHB.Gen.Glx: map_GetPixelMapfv :: GetPixelMapfv -> Word32
- Graphics.XHB.Gen.Glx: map_GetPixelMapuiv :: GetPixelMapuiv -> CARD32
+ Graphics.XHB.Gen.Glx: map_GetPixelMapuiv :: GetPixelMapuiv -> Word32
- Graphics.XHB.Gen.Glx: map_GetPixelMapusv :: GetPixelMapusv -> CARD32
+ Graphics.XHB.Gen.Glx: map_GetPixelMapusv :: GetPixelMapusv -> Word32
- Graphics.XHB.Gen.Glx: mask_CopyContext :: CopyContext -> CARD32
+ Graphics.XHB.Gen.Glx: mask_CopyContext :: CopyContext -> Word32
- Graphics.XHB.Gen.Glx: minor_opcode_BadContext :: BadContext -> CARD16
+ Graphics.XHB.Gen.Glx: minor_opcode_BadContext :: BadContext -> Word16
- Graphics.XHB.Gen.Glx: minor_opcode_BadContextState :: BadContextState -> CARD16
+ Graphics.XHB.Gen.Glx: minor_opcode_BadContextState :: BadContextState -> Word16
- Graphics.XHB.Gen.Glx: minor_opcode_BadContextTag :: BadContextTag -> CARD16
+ Graphics.XHB.Gen.Glx: minor_opcode_BadContextTag :: BadContextTag -> Word16
- Graphics.XHB.Gen.Glx: minor_opcode_BadCurrentDrawable :: BadCurrentDrawable -> CARD16
+ Graphics.XHB.Gen.Glx: minor_opcode_BadCurrentDrawable :: BadCurrentDrawable -> Word16
- Graphics.XHB.Gen.Glx: minor_opcode_BadCurrentWindow :: BadCurrentWindow -> CARD16
+ Graphics.XHB.Gen.Glx: minor_opcode_BadCurrentWindow :: BadCurrentWindow -> Word16
- Graphics.XHB.Gen.Glx: minor_opcode_BadDrawable :: BadDrawable -> CARD16
+ Graphics.XHB.Gen.Glx: minor_opcode_BadDrawable :: BadDrawable -> Word16
- Graphics.XHB.Gen.Glx: minor_opcode_BadFBConfig :: BadFBConfig -> CARD16
+ Graphics.XHB.Gen.Glx: minor_opcode_BadFBConfig :: BadFBConfig -> Word16
- Graphics.XHB.Gen.Glx: minor_opcode_BadLargeRequest :: BadLargeRequest -> CARD16
+ Graphics.XHB.Gen.Glx: minor_opcode_BadLargeRequest :: BadLargeRequest -> Word16
- Graphics.XHB.Gen.Glx: minor_opcode_BadPbuffer :: BadPbuffer -> CARD16
+ Graphics.XHB.Gen.Glx: minor_opcode_BadPbuffer :: BadPbuffer -> Word16
- Graphics.XHB.Gen.Glx: minor_opcode_BadPixmap :: BadPixmap -> CARD16
+ Graphics.XHB.Gen.Glx: minor_opcode_BadPixmap :: BadPixmap -> Word16
- Graphics.XHB.Gen.Glx: minor_opcode_BadRenderRequest :: BadRenderRequest -> CARD16
+ Graphics.XHB.Gen.Glx: minor_opcode_BadRenderRequest :: BadRenderRequest -> Word16
- Graphics.XHB.Gen.Glx: minor_opcode_BadWindow :: BadWindow -> CARD16
+ Graphics.XHB.Gen.Glx: minor_opcode_BadWindow :: BadWindow -> Word16
- Graphics.XHB.Gen.Glx: minor_opcode_Generic :: Generic -> CARD16
+ Graphics.XHB.Gen.Glx: minor_opcode_Generic :: Generic -> Word16
- Graphics.XHB.Gen.Glx: minor_opcode_UnsupportedPrivateRequest :: UnsupportedPrivateRequest -> CARD16
+ Graphics.XHB.Gen.Glx: minor_opcode_UnsupportedPrivateRequest :: UnsupportedPrivateRequest -> Word16
- Graphics.XHB.Gen.Glx: minor_version_ClientInfo :: ClientInfo -> CARD32
+ Graphics.XHB.Gen.Glx: minor_version_ClientInfo :: ClientInfo -> Word32
- Graphics.XHB.Gen.Glx: minor_version_QueryVersion :: QueryVersion -> CARD32
+ Graphics.XHB.Gen.Glx: minor_version_QueryVersion :: QueryVersion -> Word32
- Graphics.XHB.Gen.Glx: minor_version_QueryVersionReply :: QueryVersionReply -> CARD32
+ Graphics.XHB.Gen.Glx: minor_version_QueryVersionReply :: QueryVersionReply -> Word32
- Graphics.XHB.Gen.Glx: mode_NewList :: NewList -> CARD32
+ Graphics.XHB.Gen.Glx: mode_NewList :: NewList -> Word32
- Graphics.XHB.Gen.Glx: mode_RenderMode :: RenderMode -> CARD32
+ Graphics.XHB.Gen.Glx: mode_RenderMode :: RenderMode -> Word32
- Graphics.XHB.Gen.Glx: n_AreTexturesResident :: AreTexturesResident -> INT32
+ Graphics.XHB.Gen.Glx: n_AreTexturesResident :: AreTexturesResident -> Int32
- Graphics.XHB.Gen.Glx: n_DeleteQueriesARB :: DeleteQueriesARB -> INT32
+ Graphics.XHB.Gen.Glx: n_DeleteQueriesARB :: DeleteQueriesARB -> Int32
- Graphics.XHB.Gen.Glx: n_DeleteTextures :: DeleteTextures -> INT32
+ Graphics.XHB.Gen.Glx: n_DeleteTextures :: DeleteTextures -> Int32
- Graphics.XHB.Gen.Glx: n_GenQueriesARB :: GenQueriesARB -> INT32
+ Graphics.XHB.Gen.Glx: n_GenQueriesARB :: GenQueriesARB -> Int32
- Graphics.XHB.Gen.Glx: n_GenTextures :: GenTextures -> INT32
+ Graphics.XHB.Gen.Glx: n_GenTextures :: GenTextures -> Int32
- Graphics.XHB.Gen.Glx: n_GetBooleanvReply :: GetBooleanvReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetBooleanvReply :: GetBooleanvReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetColorTableParameterfvReply :: GetColorTableParameterfvReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetColorTableParameterfvReply :: GetColorTableParameterfvReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetColorTableParameterivReply :: GetColorTableParameterivReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetColorTableParameterivReply :: GetColorTableParameterivReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetConvolutionParameterfvReply :: GetConvolutionParameterfvReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetConvolutionParameterfvReply :: GetConvolutionParameterfvReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetConvolutionParameterivReply :: GetConvolutionParameterivReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetConvolutionParameterivReply :: GetConvolutionParameterivReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetDoublevReply :: GetDoublevReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetDoublevReply :: GetDoublevReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetFloatvReply :: GetFloatvReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetFloatvReply :: GetFloatvReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetHistogramParameterfvReply :: GetHistogramParameterfvReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetHistogramParameterfvReply :: GetHistogramParameterfvReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetHistogramParameterivReply :: GetHistogramParameterivReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetHistogramParameterivReply :: GetHistogramParameterivReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetIntegervReply :: GetIntegervReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetIntegervReply :: GetIntegervReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetLightfvReply :: GetLightfvReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetLightfvReply :: GetLightfvReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetLightivReply :: GetLightivReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetLightivReply :: GetLightivReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetMapdvReply :: GetMapdvReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetMapdvReply :: GetMapdvReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetMapfvReply :: GetMapfvReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetMapfvReply :: GetMapfvReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetMapivReply :: GetMapivReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetMapivReply :: GetMapivReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetMaterialfvReply :: GetMaterialfvReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetMaterialfvReply :: GetMaterialfvReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetMaterialivReply :: GetMaterialivReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetMaterialivReply :: GetMaterialivReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetMinmaxParameterfvReply :: GetMinmaxParameterfvReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetMinmaxParameterfvReply :: GetMinmaxParameterfvReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetMinmaxParameterivReply :: GetMinmaxParameterivReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetMinmaxParameterivReply :: GetMinmaxParameterivReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetPixelMapfvReply :: GetPixelMapfvReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetPixelMapfvReply :: GetPixelMapfvReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetPixelMapuivReply :: GetPixelMapuivReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetPixelMapuivReply :: GetPixelMapuivReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetPixelMapusvReply :: GetPixelMapusvReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetPixelMapusvReply :: GetPixelMapusvReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetQueryObjectivARBReply :: GetQueryObjectivARBReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetQueryObjectivARBReply :: GetQueryObjectivARBReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetQueryObjectuivARBReply :: GetQueryObjectuivARBReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetQueryObjectuivARBReply :: GetQueryObjectuivARBReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetQueryivARBReply :: GetQueryivARBReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetQueryivARBReply :: GetQueryivARBReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetStringReply :: GetStringReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetStringReply :: GetStringReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetTexEnvfvReply :: GetTexEnvfvReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetTexEnvfvReply :: GetTexEnvfvReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetTexEnvivReply :: GetTexEnvivReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetTexEnvivReply :: GetTexEnvivReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetTexGendvReply :: GetTexGendvReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetTexGendvReply :: GetTexGendvReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetTexGenfvReply :: GetTexGenfvReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetTexGenfvReply :: GetTexGenfvReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetTexGenivReply :: GetTexGenivReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetTexGenivReply :: GetTexGenivReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetTexLevelParameterfvReply :: GetTexLevelParameterfvReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetTexLevelParameterfvReply :: GetTexLevelParameterfvReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetTexLevelParameterivReply :: GetTexLevelParameterivReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetTexLevelParameterivReply :: GetTexLevelParameterivReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetTexParameterfvReply :: GetTexParameterfvReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetTexParameterfvReply :: GetTexParameterfvReply -> Word32
- Graphics.XHB.Gen.Glx: n_GetTexParameterivReply :: GetTexParameterivReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_GetTexParameterivReply :: GetTexParameterivReply -> Word32
- Graphics.XHB.Gen.Glx: n_QueryExtensionsStringReply :: QueryExtensionsStringReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_QueryExtensionsStringReply :: QueryExtensionsStringReply -> Word32
- Graphics.XHB.Gen.Glx: n_RenderModeReply :: RenderModeReply -> CARD32
+ Graphics.XHB.Gen.Glx: n_RenderModeReply :: RenderModeReply -> Word32
- Graphics.XHB.Gen.Glx: name_GetString :: GetString -> CARD32
+ Graphics.XHB.Gen.Glx: name_GetString :: GetString -> Word32
- Graphics.XHB.Gen.Glx: name_QueryServerString :: QueryServerString -> CARD32
+ Graphics.XHB.Gen.Glx: name_QueryServerString :: QueryServerString -> Word32
- Graphics.XHB.Gen.Glx: new_mode_RenderModeReply :: RenderModeReply -> CARD32
+ Graphics.XHB.Gen.Glx: new_mode_RenderModeReply :: RenderModeReply -> Word32
- Graphics.XHB.Gen.Glx: num_FB_configs_GetFBConfigsReply :: GetFBConfigsReply -> CARD32
+ Graphics.XHB.Gen.Glx: num_FB_configs_GetFBConfigsReply :: GetFBConfigsReply -> Word32
- Graphics.XHB.Gen.Glx: num_attribs_ChangeDrawableAttributes :: ChangeDrawableAttributes -> CARD32
+ Graphics.XHB.Gen.Glx: num_attribs_ChangeDrawableAttributes :: ChangeDrawableAttributes -> Word32
- Graphics.XHB.Gen.Glx: num_attribs_CreatePbuffer :: CreatePbuffer -> CARD32
+ Graphics.XHB.Gen.Glx: num_attribs_CreatePbuffer :: CreatePbuffer -> Word32
- Graphics.XHB.Gen.Glx: num_attribs_CreatePixmap :: CreatePixmap -> CARD32
+ Graphics.XHB.Gen.Glx: num_attribs_CreatePixmap :: CreatePixmap -> Word32
- Graphics.XHB.Gen.Glx: num_attribs_CreateWindow :: CreateWindow -> CARD32
+ Graphics.XHB.Gen.Glx: num_attribs_CreateWindow :: CreateWindow -> Word32
- Graphics.XHB.Gen.Glx: num_attribs_GetDrawableAttributesReply :: GetDrawableAttributesReply -> CARD32
+ Graphics.XHB.Gen.Glx: num_attribs_GetDrawableAttributesReply :: GetDrawableAttributesReply -> Word32
- Graphics.XHB.Gen.Glx: num_attribs_QueryContextReply :: QueryContextReply -> CARD32
+ Graphics.XHB.Gen.Glx: num_attribs_QueryContextReply :: QueryContextReply -> Word32
- Graphics.XHB.Gen.Glx: num_properties_GetFBConfigsReply :: GetFBConfigsReply -> CARD32
+ Graphics.XHB.Gen.Glx: num_properties_GetFBConfigsReply :: GetFBConfigsReply -> Word32
- Graphics.XHB.Gen.Glx: num_properties_GetVisualConfigsReply :: GetVisualConfigsReply -> CARD32
+ Graphics.XHB.Gen.Glx: num_properties_GetVisualConfigsReply :: GetVisualConfigsReply -> Word32
- Graphics.XHB.Gen.Glx: num_visuals_GetVisualConfigsReply :: GetVisualConfigsReply -> CARD32
+ Graphics.XHB.Gen.Glx: num_visuals_GetVisualConfigsReply :: GetVisualConfigsReply -> Word32
- Graphics.XHB.Gen.Glx: plane_GetClipPlane :: GetClipPlane -> INT32
+ Graphics.XHB.Gen.Glx: plane_GetClipPlane :: GetClipPlane -> Int32
- Graphics.XHB.Gen.Glx: pname_GetBooleanv :: GetBooleanv -> INT32
+ Graphics.XHB.Gen.Glx: pname_GetBooleanv :: GetBooleanv -> Int32
- Graphics.XHB.Gen.Glx: pname_GetColorTableParameterfv :: GetColorTableParameterfv -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetColorTableParameterfv :: GetColorTableParameterfv -> Word32
- Graphics.XHB.Gen.Glx: pname_GetColorTableParameteriv :: GetColorTableParameteriv -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetColorTableParameteriv :: GetColorTableParameteriv -> Word32
- Graphics.XHB.Gen.Glx: pname_GetConvolutionParameterfv :: GetConvolutionParameterfv -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetConvolutionParameterfv :: GetConvolutionParameterfv -> Word32
- Graphics.XHB.Gen.Glx: pname_GetConvolutionParameteriv :: GetConvolutionParameteriv -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetConvolutionParameteriv :: GetConvolutionParameteriv -> Word32
- Graphics.XHB.Gen.Glx: pname_GetDoublev :: GetDoublev -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetDoublev :: GetDoublev -> Word32
- Graphics.XHB.Gen.Glx: pname_GetFloatv :: GetFloatv -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetFloatv :: GetFloatv -> Word32
- Graphics.XHB.Gen.Glx: pname_GetHistogramParameterfv :: GetHistogramParameterfv -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetHistogramParameterfv :: GetHistogramParameterfv -> Word32
- Graphics.XHB.Gen.Glx: pname_GetHistogramParameteriv :: GetHistogramParameteriv -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetHistogramParameteriv :: GetHistogramParameteriv -> Word32
- Graphics.XHB.Gen.Glx: pname_GetIntegerv :: GetIntegerv -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetIntegerv :: GetIntegerv -> Word32
- Graphics.XHB.Gen.Glx: pname_GetLightfv :: GetLightfv -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetLightfv :: GetLightfv -> Word32
- Graphics.XHB.Gen.Glx: pname_GetLightiv :: GetLightiv -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetLightiv :: GetLightiv -> Word32
- Graphics.XHB.Gen.Glx: pname_GetMaterialfv :: GetMaterialfv -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetMaterialfv :: GetMaterialfv -> Word32
- Graphics.XHB.Gen.Glx: pname_GetMaterialiv :: GetMaterialiv -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetMaterialiv :: GetMaterialiv -> Word32
- Graphics.XHB.Gen.Glx: pname_GetMinmaxParameterfv :: GetMinmaxParameterfv -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetMinmaxParameterfv :: GetMinmaxParameterfv -> Word32
- Graphics.XHB.Gen.Glx: pname_GetMinmaxParameteriv :: GetMinmaxParameteriv -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetMinmaxParameteriv :: GetMinmaxParameteriv -> Word32
- Graphics.XHB.Gen.Glx: pname_GetQueryObjectivARB :: GetQueryObjectivARB -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetQueryObjectivARB :: GetQueryObjectivARB -> Word32
- Graphics.XHB.Gen.Glx: pname_GetQueryObjectuivARB :: GetQueryObjectuivARB -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetQueryObjectuivARB :: GetQueryObjectuivARB -> Word32
- Graphics.XHB.Gen.Glx: pname_GetQueryivARB :: GetQueryivARB -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetQueryivARB :: GetQueryivARB -> Word32
- Graphics.XHB.Gen.Glx: pname_GetTexEnvfv :: GetTexEnvfv -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetTexEnvfv :: GetTexEnvfv -> Word32
- Graphics.XHB.Gen.Glx: pname_GetTexEnviv :: GetTexEnviv -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetTexEnviv :: GetTexEnviv -> Word32
- Graphics.XHB.Gen.Glx: pname_GetTexGendv :: GetTexGendv -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetTexGendv :: GetTexGendv -> Word32
- Graphics.XHB.Gen.Glx: pname_GetTexGenfv :: GetTexGenfv -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetTexGenfv :: GetTexGenfv -> Word32
- Graphics.XHB.Gen.Glx: pname_GetTexGeniv :: GetTexGeniv -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetTexGeniv :: GetTexGeniv -> Word32
- Graphics.XHB.Gen.Glx: pname_GetTexLevelParameterfv :: GetTexLevelParameterfv -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetTexLevelParameterfv :: GetTexLevelParameterfv -> Word32
- Graphics.XHB.Gen.Glx: pname_GetTexLevelParameteriv :: GetTexLevelParameteriv -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetTexLevelParameteriv :: GetTexLevelParameteriv -> Word32
- Graphics.XHB.Gen.Glx: pname_GetTexParameterfv :: GetTexParameterfv -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetTexParameterfv :: GetTexParameterfv -> Word32
- Graphics.XHB.Gen.Glx: pname_GetTexParameteriv :: GetTexParameteriv -> CARD32
+ Graphics.XHB.Gen.Glx: pname_GetTexParameteriv :: GetTexParameteriv -> Word32
- Graphics.XHB.Gen.Glx: pname_PixelStoref :: PixelStoref -> CARD32
+ Graphics.XHB.Gen.Glx: pname_PixelStoref :: PixelStoref -> Word32
- Graphics.XHB.Gen.Glx: pname_PixelStorei :: PixelStorei -> CARD32
+ Graphics.XHB.Gen.Glx: pname_PixelStorei :: PixelStorei -> Word32
- Graphics.XHB.Gen.Glx: property_list_GetFBConfigsReply :: GetFBConfigsReply -> [CARD32]
+ Graphics.XHB.Gen.Glx: property_list_GetFBConfigsReply :: GetFBConfigsReply -> [Word32]
- Graphics.XHB.Gen.Glx: property_list_GetVisualConfigsReply :: GetVisualConfigsReply -> [CARD32]
+ Graphics.XHB.Gen.Glx: property_list_GetVisualConfigsReply :: GetVisualConfigsReply -> [Word32]
- Graphics.XHB.Gen.Glx: queryExtensionsString :: Connection -> CARD32 -> IO (Receipt QueryExtensionsStringReply)
+ Graphics.XHB.Gen.Glx: queryExtensionsString :: Connection -> Word32 -> IO (Receipt Word32)
- Graphics.XHB.Gen.Glx: queryServerString :: Connection -> CARD32 -> CARD32 -> IO (Receipt QueryServerStringReply)
+ Graphics.XHB.Gen.Glx: queryServerString :: Connection -> Word32 -> Word32 -> IO (Receipt QueryServerStringReply)
- Graphics.XHB.Gen.Glx: queryVersion :: Connection -> CARD32 -> CARD32 -> IO (Receipt QueryVersionReply)
+ Graphics.XHB.Gen.Glx: queryVersion :: Connection -> Word32 -> Word32 -> IO (Receipt QueryVersionReply)
- Graphics.XHB.Gen.Glx: query_GetMapdv :: GetMapdv -> CARD32
+ Graphics.XHB.Gen.Glx: query_GetMapdv :: GetMapdv -> Word32
- Graphics.XHB.Gen.Glx: query_GetMapfv :: GetMapfv -> CARD32
+ Graphics.XHB.Gen.Glx: query_GetMapfv :: GetMapfv -> Word32
- Graphics.XHB.Gen.Glx: query_GetMapiv :: GetMapiv -> CARD32
+ Graphics.XHB.Gen.Glx: query_GetMapiv :: GetMapiv -> Word32
- Graphics.XHB.Gen.Glx: range_DeleteLists :: DeleteLists -> INT32
+ Graphics.XHB.Gen.Glx: range_DeleteLists :: DeleteLists -> Int32
- Graphics.XHB.Gen.Glx: range_GenLists :: GenLists -> INT32
+ Graphics.XHB.Gen.Glx: range_GenLists :: GenLists -> Int32
- Graphics.XHB.Gen.Glx: readPixels :: Connection -> ReadPixels -> IO (Receipt ReadPixelsReply)
+ Graphics.XHB.Gen.Glx: readPixels :: Connection -> ReadPixels -> IO (Receipt [Word8])
- Graphics.XHB.Gen.Glx: render :: Connection -> CONTEXT_TAG -> [BYTE] -> IO ()
+ Graphics.XHB.Gen.Glx: render :: Connection -> CONTEXT_TAG -> [Word8] -> IO ()
- Graphics.XHB.Gen.Glx: renderMode :: Connection -> CONTEXT_TAG -> CARD32 -> IO (Receipt RenderModeReply)
+ Graphics.XHB.Gen.Glx: renderMode :: Connection -> CONTEXT_TAG -> Word32 -> IO (Receipt RenderModeReply)
- Graphics.XHB.Gen.Glx: render_type_CreateNewContext :: CreateNewContext -> CARD32
+ Graphics.XHB.Gen.Glx: render_type_CreateNewContext :: CreateNewContext -> Word32
- Graphics.XHB.Gen.Glx: request_num_RenderLarge :: RenderLarge -> CARD16
+ Graphics.XHB.Gen.Glx: request_num_RenderLarge :: RenderLarge -> Word16
- Graphics.XHB.Gen.Glx: request_total_RenderLarge :: RenderLarge -> CARD16
+ Graphics.XHB.Gen.Glx: request_total_RenderLarge :: RenderLarge -> Word16
- Graphics.XHB.Gen.Glx: reserved1_CreateNewContext :: CreateNewContext -> CARD8
+ Graphics.XHB.Gen.Glx: reserved1_CreateNewContext :: CreateNewContext -> Word8
- Graphics.XHB.Gen.Glx: reserved2_CreateNewContext :: CreateNewContext -> CARD16
+ Graphics.XHB.Gen.Glx: reserved2_CreateNewContext :: CreateNewContext -> Word16
- Graphics.XHB.Gen.Glx: reset_GetHistogram :: GetHistogram -> BOOL
+ Graphics.XHB.Gen.Glx: reset_GetHistogram :: GetHistogram -> Bool
- Graphics.XHB.Gen.Glx: reset_GetMinmax :: GetMinmax -> BOOL
+ Graphics.XHB.Gen.Glx: reset_GetMinmax :: GetMinmax -> Bool
- Graphics.XHB.Gen.Glx: ret_val_GenListsReply :: GenListsReply -> CARD32
+ Graphics.XHB.Gen.Glx: ret_val_GenListsReply :: GenListsReply -> Word32
- Graphics.XHB.Gen.Glx: ret_val_RenderModeReply :: RenderModeReply -> CARD32
+ Graphics.XHB.Gen.Glx: ret_val_RenderModeReply :: RenderModeReply -> Word32
- Graphics.XHB.Gen.Glx: retval_VendorPrivateWithReplyReply :: VendorPrivateWithReplyReply -> CARD32
+ Graphics.XHB.Gen.Glx: retval_VendorPrivateWithReplyReply :: VendorPrivateWithReplyReply -> Word32
- Graphics.XHB.Gen.Glx: row_w_GetSeparableFilterReply :: GetSeparableFilterReply -> INT32
+ Graphics.XHB.Gen.Glx: row_w_GetSeparableFilterReply :: GetSeparableFilterReply -> Int32
- Graphics.XHB.Gen.Glx: rows_and_cols_GetSeparableFilterReply :: GetSeparableFilterReply -> [BYTE]
+ Graphics.XHB.Gen.Glx: rows_and_cols_GetSeparableFilterReply :: GetSeparableFilterReply -> [Word8]
- Graphics.XHB.Gen.Glx: screen_CreateContext :: CreateContext -> CARD32
+ Graphics.XHB.Gen.Glx: screen_CreateContext :: CreateContext -> Word32
- Graphics.XHB.Gen.Glx: screen_CreateGLXPixmap :: CreateGLXPixmap -> CARD32
+ Graphics.XHB.Gen.Glx: screen_CreateGLXPixmap :: CreateGLXPixmap -> Word32
- Graphics.XHB.Gen.Glx: screen_CreateNewContext :: CreateNewContext -> CARD32
+ Graphics.XHB.Gen.Glx: screen_CreateNewContext :: CreateNewContext -> Word32
- Graphics.XHB.Gen.Glx: screen_CreatePbuffer :: CreatePbuffer -> CARD32
+ Graphics.XHB.Gen.Glx: screen_CreatePbuffer :: CreatePbuffer -> Word32
- Graphics.XHB.Gen.Glx: screen_CreatePixmap :: CreatePixmap -> CARD32
+ Graphics.XHB.Gen.Glx: screen_CreatePixmap :: CreatePixmap -> Word32
- Graphics.XHB.Gen.Glx: screen_CreateWindow :: CreateWindow -> CARD32
+ Graphics.XHB.Gen.Glx: screen_CreateWindow :: CreateWindow -> Word32
- Graphics.XHB.Gen.Glx: screen_GetFBConfigs :: GetFBConfigs -> CARD32
+ Graphics.XHB.Gen.Glx: screen_GetFBConfigs :: GetFBConfigs -> Word32
- Graphics.XHB.Gen.Glx: screen_GetVisualConfigs :: GetVisualConfigs -> CARD32
+ Graphics.XHB.Gen.Glx: screen_GetVisualConfigs :: GetVisualConfigs -> Word32
- Graphics.XHB.Gen.Glx: screen_QueryExtensionsString :: QueryExtensionsString -> CARD32
+ Graphics.XHB.Gen.Glx: screen_QueryExtensionsString :: QueryExtensionsString -> Word32
- Graphics.XHB.Gen.Glx: screen_QueryServerString :: QueryServerString -> CARD32
+ Graphics.XHB.Gen.Glx: screen_QueryServerString :: QueryServerString -> Word32
- Graphics.XHB.Gen.Glx: selectBuffer :: Connection -> CONTEXT_TAG -> INT32 -> IO ()
+ Graphics.XHB.Gen.Glx: selectBuffer :: Connection -> CONTEXT_TAG -> Int32 -> IO ()
- Graphics.XHB.Gen.Glx: share_list_CreateNewContext :: CreateNewContext -> CARD32
+ Graphics.XHB.Gen.Glx: share_list_CreateNewContext :: CreateNewContext -> Word32
- Graphics.XHB.Gen.Glx: size_FeedbackBuffer :: FeedbackBuffer -> INT32
+ Graphics.XHB.Gen.Glx: size_FeedbackBuffer :: FeedbackBuffer -> Int32
- Graphics.XHB.Gen.Glx: size_GetCompressedTexImageARBReply :: GetCompressedTexImageARBReply -> INT32
+ Graphics.XHB.Gen.Glx: size_GetCompressedTexImageARBReply :: GetCompressedTexImageARBReply -> Int32
- Graphics.XHB.Gen.Glx: size_SelectBuffer :: SelectBuffer -> INT32
+ Graphics.XHB.Gen.Glx: size_SelectBuffer :: SelectBuffer -> Int32
- Graphics.XHB.Gen.Glx: str_len_ClientInfo :: ClientInfo -> CARD32
+ Graphics.XHB.Gen.Glx: str_len_ClientInfo :: ClientInfo -> Word32
- Graphics.XHB.Gen.Glx: str_len_QueryServerStringReply :: QueryServerStringReply -> CARD32
+ Graphics.XHB.Gen.Glx: str_len_QueryServerStringReply :: QueryServerStringReply -> Word32
- Graphics.XHB.Gen.Glx: swap_bytes_GetColorTable :: GetColorTable -> BOOL
+ Graphics.XHB.Gen.Glx: swap_bytes_GetColorTable :: GetColorTable -> Bool
- Graphics.XHB.Gen.Glx: swap_bytes_GetConvolutionFilter :: GetConvolutionFilter -> BOOL
+ Graphics.XHB.Gen.Glx: swap_bytes_GetConvolutionFilter :: GetConvolutionFilter -> Bool
- Graphics.XHB.Gen.Glx: swap_bytes_GetHistogram :: GetHistogram -> BOOL
+ Graphics.XHB.Gen.Glx: swap_bytes_GetHistogram :: GetHistogram -> Bool
- Graphics.XHB.Gen.Glx: swap_bytes_GetMinmax :: GetMinmax -> BOOL
+ Graphics.XHB.Gen.Glx: swap_bytes_GetMinmax :: GetMinmax -> Bool
- Graphics.XHB.Gen.Glx: swap_bytes_GetSeparableFilter :: GetSeparableFilter -> BOOL
+ Graphics.XHB.Gen.Glx: swap_bytes_GetSeparableFilter :: GetSeparableFilter -> Bool
- Graphics.XHB.Gen.Glx: swap_bytes_GetTexImage :: GetTexImage -> BOOL
+ Graphics.XHB.Gen.Glx: swap_bytes_GetTexImage :: GetTexImage -> Bool
- Graphics.XHB.Gen.Glx: swap_bytes_ReadPixels :: ReadPixels -> BOOL
+ Graphics.XHB.Gen.Glx: swap_bytes_ReadPixels :: ReadPixels -> Bool
- Graphics.XHB.Gen.Glx: target_GetColorTable :: GetColorTable -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetColorTable :: GetColorTable -> Word32
- Graphics.XHB.Gen.Glx: target_GetColorTableParameterfv :: GetColorTableParameterfv -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetColorTableParameterfv :: GetColorTableParameterfv -> Word32
- Graphics.XHB.Gen.Glx: target_GetColorTableParameteriv :: GetColorTableParameteriv -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetColorTableParameteriv :: GetColorTableParameteriv -> Word32
- Graphics.XHB.Gen.Glx: target_GetCompressedTexImageARB :: GetCompressedTexImageARB -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetCompressedTexImageARB :: GetCompressedTexImageARB -> Word32
- Graphics.XHB.Gen.Glx: target_GetConvolutionFilter :: GetConvolutionFilter -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetConvolutionFilter :: GetConvolutionFilter -> Word32
- Graphics.XHB.Gen.Glx: target_GetConvolutionParameterfv :: GetConvolutionParameterfv -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetConvolutionParameterfv :: GetConvolutionParameterfv -> Word32
- Graphics.XHB.Gen.Glx: target_GetConvolutionParameteriv :: GetConvolutionParameteriv -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetConvolutionParameteriv :: GetConvolutionParameteriv -> Word32
- Graphics.XHB.Gen.Glx: target_GetHistogram :: GetHistogram -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetHistogram :: GetHistogram -> Word32
- Graphics.XHB.Gen.Glx: target_GetHistogramParameterfv :: GetHistogramParameterfv -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetHistogramParameterfv :: GetHistogramParameterfv -> Word32
- Graphics.XHB.Gen.Glx: target_GetHistogramParameteriv :: GetHistogramParameteriv -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetHistogramParameteriv :: GetHistogramParameteriv -> Word32
- Graphics.XHB.Gen.Glx: target_GetMapdv :: GetMapdv -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetMapdv :: GetMapdv -> Word32
- Graphics.XHB.Gen.Glx: target_GetMapfv :: GetMapfv -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetMapfv :: GetMapfv -> Word32
- Graphics.XHB.Gen.Glx: target_GetMapiv :: GetMapiv -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetMapiv :: GetMapiv -> Word32
- Graphics.XHB.Gen.Glx: target_GetMinmax :: GetMinmax -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetMinmax :: GetMinmax -> Word32
- Graphics.XHB.Gen.Glx: target_GetMinmaxParameterfv :: GetMinmaxParameterfv -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetMinmaxParameterfv :: GetMinmaxParameterfv -> Word32
- Graphics.XHB.Gen.Glx: target_GetMinmaxParameteriv :: GetMinmaxParameteriv -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetMinmaxParameteriv :: GetMinmaxParameteriv -> Word32
- Graphics.XHB.Gen.Glx: target_GetQueryivARB :: GetQueryivARB -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetQueryivARB :: GetQueryivARB -> Word32
- Graphics.XHB.Gen.Glx: target_GetSeparableFilter :: GetSeparableFilter -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetSeparableFilter :: GetSeparableFilter -> Word32
- Graphics.XHB.Gen.Glx: target_GetTexEnvfv :: GetTexEnvfv -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetTexEnvfv :: GetTexEnvfv -> Word32
- Graphics.XHB.Gen.Glx: target_GetTexEnviv :: GetTexEnviv -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetTexEnviv :: GetTexEnviv -> Word32
- Graphics.XHB.Gen.Glx: target_GetTexImage :: GetTexImage -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetTexImage :: GetTexImage -> Word32
- Graphics.XHB.Gen.Glx: target_GetTexLevelParameterfv :: GetTexLevelParameterfv -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetTexLevelParameterfv :: GetTexLevelParameterfv -> Word32
- Graphics.XHB.Gen.Glx: target_GetTexLevelParameteriv :: GetTexLevelParameteriv -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetTexLevelParameteriv :: GetTexLevelParameteriv -> Word32
- Graphics.XHB.Gen.Glx: target_GetTexParameterfv :: GetTexParameterfv -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetTexParameterfv :: GetTexParameterfv -> Word32
- Graphics.XHB.Gen.Glx: target_GetTexParameteriv :: GetTexParameteriv -> CARD32
+ Graphics.XHB.Gen.Glx: target_GetTexParameteriv :: GetTexParameteriv -> Word32
- Graphics.XHB.Gen.Glx: texture_IsTexture :: IsTexture -> CARD32
+ Graphics.XHB.Gen.Glx: texture_IsTexture :: IsTexture -> Word32
- Graphics.XHB.Gen.Glx: textures_AreTexturesResident :: AreTexturesResident -> [CARD32]
+ Graphics.XHB.Gen.Glx: textures_AreTexturesResident :: AreTexturesResident -> [Word32]
- Graphics.XHB.Gen.Glx: textures_DeleteTextures :: DeleteTextures -> [CARD32]
+ Graphics.XHB.Gen.Glx: textures_DeleteTextures :: DeleteTextures -> [Word32]
- Graphics.XHB.Gen.Glx: type BOOL32 = CARD32
+ Graphics.XHB.Gen.Glx: type BOOL32 = Word32
- Graphics.XHB.Gen.Glx: type CONTEXT_TAG = CARD32
+ Graphics.XHB.Gen.Glx: type CONTEXT_TAG = Word32
- Graphics.XHB.Gen.Glx: type_FeedbackBuffer :: FeedbackBuffer -> INT32
+ Graphics.XHB.Gen.Glx: type_FeedbackBuffer :: FeedbackBuffer -> Int32
- Graphics.XHB.Gen.Glx: type_GetColorTable :: GetColorTable -> CARD32
+ Graphics.XHB.Gen.Glx: type_GetColorTable :: GetColorTable -> Word32
- Graphics.XHB.Gen.Glx: type_GetConvolutionFilter :: GetConvolutionFilter -> CARD32
+ Graphics.XHB.Gen.Glx: type_GetConvolutionFilter :: GetConvolutionFilter -> Word32
- Graphics.XHB.Gen.Glx: type_GetHistogram :: GetHistogram -> CARD32
+ Graphics.XHB.Gen.Glx: type_GetHistogram :: GetHistogram -> Word32
- Graphics.XHB.Gen.Glx: type_GetMinmax :: GetMinmax -> CARD32
+ Graphics.XHB.Gen.Glx: type_GetMinmax :: GetMinmax -> Word32
- Graphics.XHB.Gen.Glx: type_GetSeparableFilter :: GetSeparableFilter -> CARD32
+ Graphics.XHB.Gen.Glx: type_GetSeparableFilter :: GetSeparableFilter -> Word32
- Graphics.XHB.Gen.Glx: type_GetTexImage :: GetTexImage -> CARD32
+ Graphics.XHB.Gen.Glx: type_GetTexImage :: GetTexImage -> Word32
- Graphics.XHB.Gen.Glx: type_ReadPixels :: ReadPixels -> CARD32
+ Graphics.XHB.Gen.Glx: type_ReadPixels :: ReadPixels -> Word32
- Graphics.XHB.Gen.Glx: vendor_code_VendorPrivate :: VendorPrivate -> CARD32
+ Graphics.XHB.Gen.Glx: vendor_code_VendorPrivate :: VendorPrivate -> Word32
- Graphics.XHB.Gen.Glx: vendor_code_VendorPrivateWithReply :: VendorPrivateWithReply -> CARD32
+ Graphics.XHB.Gen.Glx: vendor_code_VendorPrivateWithReply :: VendorPrivateWithReply -> Word32
- Graphics.XHB.Gen.Glx: width_GetColorTableReply :: GetColorTableReply -> INT32
+ Graphics.XHB.Gen.Glx: width_GetColorTableReply :: GetColorTableReply -> Int32
- Graphics.XHB.Gen.Glx: width_GetConvolutionFilterReply :: GetConvolutionFilterReply -> INT32
+ Graphics.XHB.Gen.Glx: width_GetConvolutionFilterReply :: GetConvolutionFilterReply -> Int32
- Graphics.XHB.Gen.Glx: width_GetHistogramReply :: GetHistogramReply -> INT32
+ Graphics.XHB.Gen.Glx: width_GetHistogramReply :: GetHistogramReply -> Int32
- Graphics.XHB.Gen.Glx: width_GetTexImageReply :: GetTexImageReply -> INT32
+ Graphics.XHB.Gen.Glx: width_GetTexImageReply :: GetTexImageReply -> Int32
- Graphics.XHB.Gen.Glx: width_PbufferClobber :: PbufferClobber -> CARD16
+ Graphics.XHB.Gen.Glx: width_PbufferClobber :: PbufferClobber -> Word16
- Graphics.XHB.Gen.Glx: width_ReadPixels :: ReadPixels -> INT32
+ Graphics.XHB.Gen.Glx: width_ReadPixels :: ReadPixels -> Int32
- Graphics.XHB.Gen.Glx: x_PbufferClobber :: PbufferClobber -> CARD16
+ Graphics.XHB.Gen.Glx: x_PbufferClobber :: PbufferClobber -> Word16
- Graphics.XHB.Gen.Glx: x_ReadPixels :: ReadPixels -> INT32
+ Graphics.XHB.Gen.Glx: x_ReadPixels :: ReadPixels -> Int32
- Graphics.XHB.Gen.Glx: y_PbufferClobber :: PbufferClobber -> CARD16
+ Graphics.XHB.Gen.Glx: y_PbufferClobber :: PbufferClobber -> Word16
- Graphics.XHB.Gen.Glx: y_ReadPixels :: ReadPixels -> INT32
+ Graphics.XHB.Gen.Glx: y_ReadPixels :: ReadPixels -> Int32
- Graphics.XHB.Gen.Input: MkAllowDeviceEvents :: TIMESTAMP -> CARD8 -> CARD8 -> AllowDeviceEvents
+ Graphics.XHB.Gen.Input: MkAllowDeviceEvents :: TIMESTAMP -> Word8 -> Word8 -> AllowDeviceEvents
- Graphics.XHB.Gen.Input: MkAxisInfo :: CARD32 -> CARD32 -> CARD32 -> AxisInfo
+ Graphics.XHB.Gen.Input: MkAxisInfo :: Word32 -> Word32 -> Word32 -> AxisInfo
- Graphics.XHB.Gen.Input: MkBellFeedbackCtl :: CARD8 -> CARD8 -> CARD16 -> INT8 -> INT16 -> INT16 -> BellFeedbackCtl
+ Graphics.XHB.Gen.Input: MkBellFeedbackCtl :: Word8 -> Word8 -> Word16 -> Int8 -> Int16 -> Int16 -> BellFeedbackCtl
- Graphics.XHB.Gen.Input: MkBellFeedbackState :: CARD8 -> CARD8 -> CARD16 -> CARD8 -> CARD16 -> CARD16 -> BellFeedbackState
+ Graphics.XHB.Gen.Input: MkBellFeedbackState :: Word8 -> Word8 -> Word16 -> Word8 -> Word16 -> Word16 -> BellFeedbackState
- Graphics.XHB.Gen.Input: MkButtonInfo :: CARD8 -> CARD8 -> CARD16 -> ButtonInfo
+ Graphics.XHB.Gen.Input: MkButtonInfo :: Word8 -> Word8 -> Word16 -> ButtonInfo
- Graphics.XHB.Gen.Input: MkButtonState :: CARD8 -> CARD8 -> CARD8 -> [CARD8] -> ButtonState
+ Graphics.XHB.Gen.Input: MkButtonState :: Word8 -> Word8 -> Word8 -> [Word8] -> ButtonState
- Graphics.XHB.Gen.Input: MkChangeDeviceDontPropagateList :: WINDOW -> CARD16 -> CARD8 -> [EventClass] -> ChangeDeviceDontPropagateList
+ Graphics.XHB.Gen.Input: MkChangeDeviceDontPropagateList :: WINDOW -> Word16 -> Word8 -> [EventClass] -> ChangeDeviceDontPropagateList
- Graphics.XHB.Gen.Input: MkChangeDeviceKeyMapping :: CARD8 -> KeyCode -> CARD8 -> CARD8 -> [KEYSYM] -> ChangeDeviceKeyMapping
+ Graphics.XHB.Gen.Input: MkChangeDeviceKeyMapping :: Word8 -> KeyCode -> Word8 -> Word8 -> [KEYSYM] -> ChangeDeviceKeyMapping
- Graphics.XHB.Gen.Input: MkChangeDeviceNotify :: BYTE -> TIMESTAMP -> CARD8 -> ChangeDeviceNotify
+ Graphics.XHB.Gen.Input: MkChangeDeviceNotify :: Word8 -> TIMESTAMP -> Word8 -> ChangeDeviceNotify
- Graphics.XHB.Gen.Input: MkChangeKeyboardDevice :: CARD8 -> ChangeKeyboardDevice
+ Graphics.XHB.Gen.Input: MkChangeKeyboardDevice :: Word8 -> ChangeKeyboardDevice
- Graphics.XHB.Gen.Input: MkChangeKeyboardDeviceReply :: CARD8 -> ChangeKeyboardDeviceReply
+ Graphics.XHB.Gen.Input: MkChangeKeyboardDeviceReply :: Word8 -> ChangeKeyboardDeviceReply
- Graphics.XHB.Gen.Input: MkChangePointerDevice :: CARD8 -> CARD8 -> CARD8 -> ChangePointerDevice
+ Graphics.XHB.Gen.Input: MkChangePointerDevice :: Word8 -> Word8 -> Word8 -> ChangePointerDevice
- Graphics.XHB.Gen.Input: MkChangePointerDeviceReply :: CARD8 -> ChangePointerDeviceReply
+ Graphics.XHB.Gen.Input: MkChangePointerDeviceReply :: Word8 -> ChangePointerDeviceReply
- Graphics.XHB.Gen.Input: MkCloseDevice :: CARD8 -> CloseDevice
+ Graphics.XHB.Gen.Input: MkCloseDevice :: Word8 -> CloseDevice
- Graphics.XHB.Gen.Input: MkDeviceAbsAreaCtrl :: CARD16 -> CARD16 -> CARD32 -> CARD32 -> INT32 -> INT32 -> INT32 -> CARD32 -> DeviceAbsAreaCtrl
+ Graphics.XHB.Gen.Input: MkDeviceAbsAreaCtrl :: Word16 -> Word16 -> Word32 -> Word32 -> Int32 -> Int32 -> Int32 -> Word32 -> DeviceAbsAreaCtrl
- Graphics.XHB.Gen.Input: MkDeviceAbsAreaState :: CARD16 -> CARD16 -> CARD32 -> CARD32 -> CARD32 -> CARD32 -> CARD32 -> CARD32 -> DeviceAbsAreaState
+ Graphics.XHB.Gen.Input: MkDeviceAbsAreaState :: Word16 -> Word16 -> Word32 -> Word32 -> Word32 -> Word32 -> Word32 -> Word32 -> DeviceAbsAreaState
- Graphics.XHB.Gen.Input: MkDeviceAbsCalibCtl :: CARD16 -> CARD16 -> INT32 -> INT32 -> INT32 -> INT32 -> CARD32 -> CARD32 -> CARD32 -> CARD32 -> DeviceAbsCalibCtl
+ Graphics.XHB.Gen.Input: MkDeviceAbsCalibCtl :: Word16 -> Word16 -> Int32 -> Int32 -> Int32 -> Int32 -> Word32 -> Word32 -> Word32 -> Word32 -> DeviceAbsCalibCtl
- Graphics.XHB.Gen.Input: MkDeviceAbsCalibState :: CARD16 -> CARD16 -> INT32 -> INT32 -> INT32 -> INT32 -> CARD32 -> CARD32 -> CARD32 -> CARD32 -> DeviceAbsCalibState
+ Graphics.XHB.Gen.Input: MkDeviceAbsCalibState :: Word16 -> Word16 -> Int32 -> Int32 -> Int32 -> Int32 -> Word32 -> Word32 -> Word32 -> Word32 -> DeviceAbsCalibState
- Graphics.XHB.Gen.Input: MkDeviceBell :: CARD8 -> CARD8 -> CARD8 -> INT8 -> DeviceBell
+ Graphics.XHB.Gen.Input: MkDeviceBell :: Word8 -> Word8 -> Word8 -> Int8 -> DeviceBell
- Graphics.XHB.Gen.Input: MkDeviceButtonPress :: BYTE -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> INT16 -> INT16 -> INT16 -> INT16 -> CARD16 -> BOOL -> CARD8 -> DeviceButtonPress
+ Graphics.XHB.Gen.Input: MkDeviceButtonPress :: Word8 -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> Int16 -> Int16 -> Int16 -> Int16 -> Word16 -> Bool -> Word8 -> DeviceButtonPress
- Graphics.XHB.Gen.Input: MkDeviceButtonRelease :: BYTE -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> INT16 -> INT16 -> INT16 -> INT16 -> CARD16 -> BOOL -> CARD8 -> DeviceButtonRelease
+ Graphics.XHB.Gen.Input: MkDeviceButtonRelease :: Word8 -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> Int16 -> Int16 -> Int16 -> Int16 -> Word16 -> Bool -> Word8 -> DeviceButtonRelease
- Graphics.XHB.Gen.Input: MkDeviceButtonStateNotify :: BYTE -> [CARD8] -> DeviceButtonStateNotify
+ Graphics.XHB.Gen.Input: MkDeviceButtonStateNotify :: Word8 -> [Word8] -> DeviceButtonStateNotify
- Graphics.XHB.Gen.Input: MkDeviceCoreCtrl :: CARD16 -> CARD16 -> CARD8 -> DeviceCoreCtrl
+ Graphics.XHB.Gen.Input: MkDeviceCoreCtrl :: Word16 -> Word16 -> Word8 -> DeviceCoreCtrl
- Graphics.XHB.Gen.Input: MkDeviceCoreState :: CARD16 -> CARD16 -> CARD8 -> CARD8 -> DeviceCoreState
+ Graphics.XHB.Gen.Input: MkDeviceCoreState :: Word16 -> Word16 -> Word8 -> Word8 -> DeviceCoreState
- Graphics.XHB.Gen.Input: MkDeviceCtl :: CARD16 -> CARD16 -> DeviceCtl
+ Graphics.XHB.Gen.Input: MkDeviceCtl :: Word16 -> Word16 -> DeviceCtl
- Graphics.XHB.Gen.Input: MkDeviceEnableCtrl :: CARD16 -> CARD16 -> CARD8 -> DeviceEnableCtrl
+ Graphics.XHB.Gen.Input: MkDeviceEnableCtrl :: Word16 -> Word16 -> Word8 -> DeviceEnableCtrl
- Graphics.XHB.Gen.Input: MkDeviceEnableState :: CARD16 -> CARD16 -> CARD8 -> DeviceEnableState
+ Graphics.XHB.Gen.Input: MkDeviceEnableState :: Word16 -> Word16 -> Word8 -> DeviceEnableState
- Graphics.XHB.Gen.Input: MkDeviceInfo :: ATOM -> CARD8 -> CARD8 -> CARD8 -> DeviceInfo
+ Graphics.XHB.Gen.Input: MkDeviceInfo :: ATOM -> Word8 -> Word8 -> Word8 -> DeviceInfo
- Graphics.XHB.Gen.Input: MkDeviceKeyPress :: BYTE -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> INT16 -> INT16 -> INT16 -> INT16 -> CARD16 -> BOOL -> CARD8 -> DeviceKeyPress
+ Graphics.XHB.Gen.Input: MkDeviceKeyPress :: Word8 -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> Int16 -> Int16 -> Int16 -> Int16 -> Word16 -> Bool -> Word8 -> DeviceKeyPress
- Graphics.XHB.Gen.Input: MkDeviceKeyRelease :: BYTE -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> INT16 -> INT16 -> INT16 -> INT16 -> CARD16 -> BOOL -> CARD8 -> DeviceKeyRelease
+ Graphics.XHB.Gen.Input: MkDeviceKeyRelease :: Word8 -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> Int16 -> Int16 -> Int16 -> Int16 -> Word16 -> Bool -> Word8 -> DeviceKeyRelease
- Graphics.XHB.Gen.Input: MkDeviceKeyStateNotify :: BYTE -> [CARD8] -> DeviceKeyStateNotify
+ Graphics.XHB.Gen.Input: MkDeviceKeyStateNotify :: Word8 -> [Word8] -> DeviceKeyStateNotify
- Graphics.XHB.Gen.Input: MkDeviceMappingNotify :: BYTE -> CARD8 -> KeyCode -> CARD8 -> TIMESTAMP -> DeviceMappingNotify
+ Graphics.XHB.Gen.Input: MkDeviceMappingNotify :: Word8 -> Word8 -> KeyCode -> Word8 -> TIMESTAMP -> DeviceMappingNotify
- Graphics.XHB.Gen.Input: MkDeviceMotionNotify :: BYTE -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> INT16 -> INT16 -> INT16 -> INT16 -> CARD16 -> BOOL -> CARD8 -> DeviceMotionNotify
+ Graphics.XHB.Gen.Input: MkDeviceMotionNotify :: Word8 -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> Int16 -> Int16 -> Int16 -> Int16 -> Word16 -> Bool -> Word8 -> DeviceMotionNotify
- Graphics.XHB.Gen.Input: MkDevicePresenceNotify :: TIMESTAMP -> BYTE -> BYTE -> CARD16 -> DevicePresenceNotify
+ Graphics.XHB.Gen.Input: MkDevicePresenceNotify :: TIMESTAMP -> Word8 -> Word8 -> Word16 -> DevicePresenceNotify
- Graphics.XHB.Gen.Input: MkDeviceResolutionCtl :: CARD16 -> CARD16 -> CARD8 -> CARD8 -> [CARD32] -> DeviceResolutionCtl
+ Graphics.XHB.Gen.Input: MkDeviceResolutionCtl :: Word16 -> Word16 -> Word8 -> Word8 -> [Word32] -> DeviceResolutionCtl
- Graphics.XHB.Gen.Input: MkDeviceResolutionState :: CARD16 -> CARD16 -> CARD32 -> [CARD32] -> [CARD32] -> [CARD32] -> DeviceResolutionState
+ Graphics.XHB.Gen.Input: MkDeviceResolutionState :: Word16 -> Word16 -> Word32 -> [Word32] -> [Word32] -> [Word32] -> DeviceResolutionState
- Graphics.XHB.Gen.Input: MkDeviceState :: CARD16 -> CARD16 -> DeviceState
+ Graphics.XHB.Gen.Input: MkDeviceState :: Word16 -> Word16 -> DeviceState
- Graphics.XHB.Gen.Input: MkDeviceStateNotify :: BYTE -> TIMESTAMP -> CARD8 -> CARD8 -> CARD8 -> CARD8 -> [CARD8] -> [CARD8] -> [CARD32] -> DeviceStateNotify
+ Graphics.XHB.Gen.Input: MkDeviceStateNotify :: Word8 -> TIMESTAMP -> Word8 -> Word8 -> Word8 -> Word8 -> [Word8] -> [Word8] -> [Word32] -> DeviceStateNotify
- Graphics.XHB.Gen.Input: MkDeviceValuator :: CARD8 -> CARD16 -> CARD8 -> CARD8 -> [INT32] -> DeviceValuator
+ Graphics.XHB.Gen.Input: MkDeviceValuator :: Word8 -> Word16 -> Word8 -> Word8 -> [Int32] -> DeviceValuator
- Graphics.XHB.Gen.Input: MkFeedbackCtl :: CARD8 -> CARD8 -> CARD16 -> FeedbackCtl
+ Graphics.XHB.Gen.Input: MkFeedbackCtl :: Word8 -> Word8 -> Word16 -> FeedbackCtl
- Graphics.XHB.Gen.Input: MkFeedbackState :: CARD8 -> CARD8 -> CARD16 -> FeedbackState
+ Graphics.XHB.Gen.Input: MkFeedbackState :: Word8 -> Word8 -> Word16 -> FeedbackState
- Graphics.XHB.Gen.Input: MkFocusIn :: BYTE -> TIMESTAMP -> WINDOW -> BYTE -> CARD8 -> FocusIn
+ Graphics.XHB.Gen.Input: MkFocusIn :: Word8 -> TIMESTAMP -> WINDOW -> Word8 -> Word8 -> FocusIn
- Graphics.XHB.Gen.Input: MkFocusOut :: BYTE -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> INT16 -> INT16 -> INT16 -> INT16 -> CARD16 -> BOOL -> CARD8 -> FocusOut
+ Graphics.XHB.Gen.Input: MkFocusOut :: Word8 -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> Int16 -> Int16 -> Int16 -> Int16 -> Word16 -> Bool -> Word8 -> FocusOut
- Graphics.XHB.Gen.Input: MkGetDeviceButtonMapping :: CARD8 -> GetDeviceButtonMapping
+ Graphics.XHB.Gen.Input: MkGetDeviceButtonMapping :: Word8 -> GetDeviceButtonMapping
- Graphics.XHB.Gen.Input: MkGetDeviceButtonMappingReply :: CARD8 -> [CARD8] -> GetDeviceButtonMappingReply
+ Graphics.XHB.Gen.Input: MkGetDeviceButtonMappingReply :: Word8 -> [Word8] -> GetDeviceButtonMappingReply
- Graphics.XHB.Gen.Input: MkGetDeviceControl :: CARD16 -> CARD8 -> GetDeviceControl
+ Graphics.XHB.Gen.Input: MkGetDeviceControl :: Word16 -> Word8 -> GetDeviceControl
- Graphics.XHB.Gen.Input: MkGetDeviceControlReply :: CARD8 -> GetDeviceControlReply
+ Graphics.XHB.Gen.Input: MkGetDeviceControlReply :: Word8 -> GetDeviceControlReply
- Graphics.XHB.Gen.Input: MkGetDeviceDontPropagateListReply :: CARD16 -> [EventClass] -> GetDeviceDontPropagateListReply
+ Graphics.XHB.Gen.Input: MkGetDeviceDontPropagateListReply :: Word16 -> [EventClass] -> GetDeviceDontPropagateListReply
- Graphics.XHB.Gen.Input: MkGetDeviceFocus :: CARD8 -> GetDeviceFocus
+ Graphics.XHB.Gen.Input: MkGetDeviceFocus :: Word8 -> GetDeviceFocus
- Graphics.XHB.Gen.Input: MkGetDeviceFocusReply :: WINDOW -> TIMESTAMP -> CARD8 -> GetDeviceFocusReply
+ Graphics.XHB.Gen.Input: MkGetDeviceFocusReply :: WINDOW -> TIMESTAMP -> Word8 -> GetDeviceFocusReply
- Graphics.XHB.Gen.Input: MkGetDeviceKeyMapping :: CARD8 -> KeyCode -> CARD8 -> GetDeviceKeyMapping
+ Graphics.XHB.Gen.Input: MkGetDeviceKeyMapping :: Word8 -> KeyCode -> Word8 -> GetDeviceKeyMapping
- Graphics.XHB.Gen.Input: MkGetDeviceKeyMappingReply :: CARD8 -> [KEYSYM] -> GetDeviceKeyMappingReply
+ Graphics.XHB.Gen.Input: MkGetDeviceKeyMappingReply :: Word8 -> [KEYSYM] -> GetDeviceKeyMappingReply
- Graphics.XHB.Gen.Input: MkGetDeviceModifierMapping :: CARD8 -> GetDeviceModifierMapping
+ Graphics.XHB.Gen.Input: MkGetDeviceModifierMapping :: Word8 -> GetDeviceModifierMapping
- Graphics.XHB.Gen.Input: MkGetDeviceModifierMappingReply :: CARD8 -> [CARD8] -> GetDeviceModifierMappingReply
+ Graphics.XHB.Gen.Input: MkGetDeviceModifierMappingReply :: Word8 -> [Word8] -> GetDeviceModifierMappingReply
- Graphics.XHB.Gen.Input: MkGetDeviceMotionEvents :: TIMESTAMP -> TIMESTAMP -> CARD8 -> GetDeviceMotionEvents
+ Graphics.XHB.Gen.Input: MkGetDeviceMotionEvents :: TIMESTAMP -> TIMESTAMP -> Word8 -> GetDeviceMotionEvents
- Graphics.XHB.Gen.Input: MkGetDeviceMotionEventsReply :: CARD32 -> CARD8 -> CARD8 -> GetDeviceMotionEventsReply
+ Graphics.XHB.Gen.Input: MkGetDeviceMotionEventsReply :: Word32 -> Word8 -> Word8 -> GetDeviceMotionEventsReply
- Graphics.XHB.Gen.Input: MkGetExtensionVersion :: CARD16 -> [CChar] -> GetExtensionVersion
+ Graphics.XHB.Gen.Input: MkGetExtensionVersion :: Word16 -> [CChar] -> GetExtensionVersion
- Graphics.XHB.Gen.Input: MkGetExtensionVersionReply :: CARD16 -> CARD16 -> CARD8 -> GetExtensionVersionReply
+ Graphics.XHB.Gen.Input: MkGetExtensionVersionReply :: Word16 -> Word16 -> Word8 -> GetExtensionVersionReply
- Graphics.XHB.Gen.Input: MkGetFeedbackControl :: CARD8 -> GetFeedbackControl
+ Graphics.XHB.Gen.Input: MkGetFeedbackControl :: Word8 -> GetFeedbackControl
- Graphics.XHB.Gen.Input: MkGetFeedbackControlReply :: CARD16 -> GetFeedbackControlReply
+ Graphics.XHB.Gen.Input: MkGetFeedbackControlReply :: Word16 -> GetFeedbackControlReply
- Graphics.XHB.Gen.Input: MkGetSelectedExtensionEventsReply :: CARD16 -> CARD16 -> [EventClass] -> [EventClass] -> GetSelectedExtensionEventsReply
+ Graphics.XHB.Gen.Input: MkGetSelectedExtensionEventsReply :: Word16 -> Word16 -> [EventClass] -> [EventClass] -> GetSelectedExtensionEventsReply
- Graphics.XHB.Gen.Input: MkGrabDevice :: WINDOW -> TIMESTAMP -> CARD16 -> CARD8 -> CARD8 -> BOOL -> CARD8 -> [EventClass] -> GrabDevice
+ Graphics.XHB.Gen.Input: MkGrabDevice :: WINDOW -> TIMESTAMP -> Word16 -> Word8 -> Word8 -> Bool -> Word8 -> [EventClass] -> GrabDevice
- Graphics.XHB.Gen.Input: MkGrabDeviceButton :: WINDOW -> CARD8 -> CARD8 -> CARD16 -> CARD16 -> CARD8 -> CARD8 -> CARD8 -> CARD8 -> [EventClass] -> GrabDeviceButton
+ Graphics.XHB.Gen.Input: MkGrabDeviceButton :: WINDOW -> Word8 -> Word8 -> Word16 -> Word16 -> Word8 -> Word8 -> Word8 -> Word8 -> [EventClass] -> GrabDeviceButton
- Graphics.XHB.Gen.Input: MkGrabDeviceKey :: WINDOW -> CARD16 -> CARD16 -> CARD8 -> CARD8 -> CARD8 -> CARD8 -> CARD8 -> BOOL -> [EventClass] -> GrabDeviceKey
+ Graphics.XHB.Gen.Input: MkGrabDeviceKey :: WINDOW -> Word16 -> Word16 -> Word8 -> Word8 -> Word8 -> Word8 -> Word8 -> Bool -> [EventClass] -> GrabDeviceKey
- Graphics.XHB.Gen.Input: MkGrabDeviceReply :: CARD8 -> GrabDeviceReply
+ Graphics.XHB.Gen.Input: MkGrabDeviceReply :: Word8 -> GrabDeviceReply
- Graphics.XHB.Gen.Input: MkInputClassInfo :: CARD8 -> CARD8 -> InputClassInfo
+ Graphics.XHB.Gen.Input: MkInputClassInfo :: Word8 -> Word8 -> InputClassInfo
- Graphics.XHB.Gen.Input: MkInputInfo :: CARD8 -> CARD8 -> InputInfo
+ Graphics.XHB.Gen.Input: MkInputInfo :: Word8 -> Word8 -> InputInfo
- Graphics.XHB.Gen.Input: MkInputState :: CARD8 -> CARD8 -> CARD8 -> InputState
+ Graphics.XHB.Gen.Input: MkInputState :: Word8 -> Word8 -> Word8 -> InputState
- Graphics.XHB.Gen.Input: MkIntegerFeedbackCtl :: CARD8 -> CARD8 -> CARD16 -> INT32 -> IntegerFeedbackCtl
+ Graphics.XHB.Gen.Input: MkIntegerFeedbackCtl :: Word8 -> Word8 -> Word16 -> Int32 -> IntegerFeedbackCtl
- Graphics.XHB.Gen.Input: MkIntegerFeedbackState :: CARD8 -> CARD8 -> CARD16 -> CARD32 -> INT32 -> INT32 -> IntegerFeedbackState
+ Graphics.XHB.Gen.Input: MkIntegerFeedbackState :: Word8 -> Word8 -> Word16 -> Word32 -> Int32 -> Int32 -> IntegerFeedbackState
- Graphics.XHB.Gen.Input: MkKbdFeedbackCtl :: CARD8 -> CARD8 -> CARD16 -> KeyCode -> CARD8 -> INT8 -> INT8 -> INT16 -> INT16 -> CARD32 -> CARD32 -> KbdFeedbackCtl
+ Graphics.XHB.Gen.Input: MkKbdFeedbackCtl :: Word8 -> Word8 -> Word16 -> KeyCode -> Word8 -> Int8 -> Int8 -> Int16 -> Int16 -> Word32 -> Word32 -> KbdFeedbackCtl
- Graphics.XHB.Gen.Input: MkKbdFeedbackState :: CARD8 -> CARD8 -> CARD16 -> CARD16 -> CARD16 -> CARD32 -> CARD32 -> BOOL -> CARD8 -> CARD8 -> [CARD8] -> KbdFeedbackState
+ Graphics.XHB.Gen.Input: MkKbdFeedbackState :: Word8 -> Word8 -> Word16 -> Word16 -> Word16 -> Word32 -> Word32 -> Bool -> Word8 -> Word8 -> [Word8] -> KbdFeedbackState
- Graphics.XHB.Gen.Input: MkKeyInfo :: CARD8 -> CARD8 -> KeyCode -> KeyCode -> CARD16 -> KeyInfo
+ Graphics.XHB.Gen.Input: MkKeyInfo :: Word8 -> Word8 -> KeyCode -> KeyCode -> Word16 -> KeyInfo
- Graphics.XHB.Gen.Input: MkKeyState :: CARD8 -> CARD8 -> CARD8 -> [CARD8] -> KeyState
+ Graphics.XHB.Gen.Input: MkKeyState :: Word8 -> Word8 -> Word8 -> [Word8] -> KeyState
- Graphics.XHB.Gen.Input: MkLedFeedbackCtl :: CARD8 -> CARD8 -> CARD16 -> CARD32 -> CARD32 -> LedFeedbackCtl
+ Graphics.XHB.Gen.Input: MkLedFeedbackCtl :: Word8 -> Word8 -> Word16 -> Word32 -> Word32 -> LedFeedbackCtl
- Graphics.XHB.Gen.Input: MkLedFeedbackState :: CARD8 -> CARD8 -> CARD16 -> CARD32 -> CARD32 -> LedFeedbackState
+ Graphics.XHB.Gen.Input: MkLedFeedbackState :: Word8 -> Word8 -> Word16 -> Word32 -> Word32 -> LedFeedbackState
- Graphics.XHB.Gen.Input: MkListInputDevicesReply :: CARD8 -> [DeviceInfo] -> ListInputDevicesReply
+ Graphics.XHB.Gen.Input: MkListInputDevicesReply :: Word8 -> [DeviceInfo] -> ListInputDevicesReply
- Graphics.XHB.Gen.Input: MkOpenDevice :: CARD8 -> OpenDevice
+ Graphics.XHB.Gen.Input: MkOpenDevice :: Word8 -> OpenDevice
- Graphics.XHB.Gen.Input: MkOpenDeviceReply :: CARD8 -> [InputClassInfo] -> OpenDeviceReply
+ Graphics.XHB.Gen.Input: MkOpenDeviceReply :: Word8 -> [InputClassInfo] -> OpenDeviceReply
- Graphics.XHB.Gen.Input: MkProximityIn :: BYTE -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> INT16 -> INT16 -> INT16 -> INT16 -> CARD16 -> BOOL -> CARD8 -> ProximityIn
+ Graphics.XHB.Gen.Input: MkProximityIn :: Word8 -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> Int16 -> Int16 -> Int16 -> Int16 -> Word16 -> Bool -> Word8 -> ProximityIn
- Graphics.XHB.Gen.Input: MkProximityOut :: BYTE -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> INT16 -> INT16 -> INT16 -> INT16 -> CARD16 -> BOOL -> CARD8 -> ProximityOut
+ Graphics.XHB.Gen.Input: MkProximityOut :: Word8 -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> Int16 -> Int16 -> Int16 -> Int16 -> Word16 -> Bool -> Word8 -> ProximityOut
- Graphics.XHB.Gen.Input: MkPtrFeedbackCtl :: CARD8 -> CARD8 -> CARD16 -> INT16 -> INT16 -> INT16 -> PtrFeedbackCtl
+ Graphics.XHB.Gen.Input: MkPtrFeedbackCtl :: Word8 -> Word8 -> Word16 -> Int16 -> Int16 -> Int16 -> PtrFeedbackCtl
- Graphics.XHB.Gen.Input: MkPtrFeedbackState :: CARD8 -> CARD8 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> PtrFeedbackState
+ Graphics.XHB.Gen.Input: MkPtrFeedbackState :: Word8 -> Word8 -> Word16 -> Word16 -> Word16 -> Word16 -> PtrFeedbackState
- Graphics.XHB.Gen.Input: MkQueryDeviceState :: CARD8 -> QueryDeviceState
+ Graphics.XHB.Gen.Input: MkQueryDeviceState :: Word8 -> QueryDeviceState
- Graphics.XHB.Gen.Input: MkQueryDeviceStateReply :: CARD8 -> QueryDeviceStateReply
+ Graphics.XHB.Gen.Input: MkQueryDeviceStateReply :: Word8 -> QueryDeviceStateReply
- Graphics.XHB.Gen.Input: MkSelectExtensionEvent :: WINDOW -> CARD16 -> [EventClass] -> SelectExtensionEvent
+ Graphics.XHB.Gen.Input: MkSelectExtensionEvent :: WINDOW -> Word16 -> [EventClass] -> SelectExtensionEvent
- Graphics.XHB.Gen.Input: MkSendExtensionEvent :: WINDOW -> CARD8 -> BOOL -> CARD16 -> CARD8 -> [CChar] -> [EventClass] -> SendExtensionEvent
+ Graphics.XHB.Gen.Input: MkSendExtensionEvent :: WINDOW -> Word8 -> Bool -> Word16 -> Word8 -> [CChar] -> [EventClass] -> SendExtensionEvent
- Graphics.XHB.Gen.Input: MkSetDeviceButtonMapping :: CARD8 -> CARD8 -> [CARD8] -> SetDeviceButtonMapping
+ Graphics.XHB.Gen.Input: MkSetDeviceButtonMapping :: Word8 -> Word8 -> [Word8] -> SetDeviceButtonMapping
- Graphics.XHB.Gen.Input: MkSetDeviceButtonMappingReply :: CARD8 -> SetDeviceButtonMappingReply
+ Graphics.XHB.Gen.Input: MkSetDeviceButtonMappingReply :: Word8 -> SetDeviceButtonMappingReply
- Graphics.XHB.Gen.Input: MkSetDeviceFocus :: WINDOW -> TIMESTAMP -> CARD8 -> CARD8 -> SetDeviceFocus
+ Graphics.XHB.Gen.Input: MkSetDeviceFocus :: WINDOW -> TIMESTAMP -> Word8 -> Word8 -> SetDeviceFocus
- Graphics.XHB.Gen.Input: MkSetDeviceMode :: CARD8 -> CARD8 -> SetDeviceMode
+ Graphics.XHB.Gen.Input: MkSetDeviceMode :: Word8 -> Word8 -> SetDeviceMode
- Graphics.XHB.Gen.Input: MkSetDeviceModeReply :: CARD8 -> SetDeviceModeReply
+ Graphics.XHB.Gen.Input: MkSetDeviceModeReply :: Word8 -> SetDeviceModeReply
- Graphics.XHB.Gen.Input: MkSetDeviceModifierMapping :: CARD8 -> CARD8 -> [CARD8] -> SetDeviceModifierMapping
+ Graphics.XHB.Gen.Input: MkSetDeviceModifierMapping :: Word8 -> Word8 -> [Word8] -> SetDeviceModifierMapping
- Graphics.XHB.Gen.Input: MkSetDeviceModifierMappingReply :: CARD8 -> SetDeviceModifierMappingReply
+ Graphics.XHB.Gen.Input: MkSetDeviceModifierMappingReply :: Word8 -> SetDeviceModifierMappingReply
- Graphics.XHB.Gen.Input: MkSetDeviceValuators :: CARD8 -> CARD8 -> CARD8 -> [INT32] -> SetDeviceValuators
+ Graphics.XHB.Gen.Input: MkSetDeviceValuators :: Word8 -> Word8 -> Word8 -> [Int32] -> SetDeviceValuators
- Graphics.XHB.Gen.Input: MkSetDeviceValuatorsReply :: CARD8 -> SetDeviceValuatorsReply
+ Graphics.XHB.Gen.Input: MkSetDeviceValuatorsReply :: Word8 -> SetDeviceValuatorsReply
- Graphics.XHB.Gen.Input: MkStringFeedbackCtl :: CARD8 -> CARD8 -> CARD16 -> CARD16 -> [KEYSYM] -> StringFeedbackCtl
+ Graphics.XHB.Gen.Input: MkStringFeedbackCtl :: Word8 -> Word8 -> Word16 -> Word16 -> [KEYSYM] -> StringFeedbackCtl
- Graphics.XHB.Gen.Input: MkStringFeedbackState :: CARD8 -> CARD8 -> CARD16 -> CARD16 -> CARD16 -> [KEYSYM] -> StringFeedbackState
+ Graphics.XHB.Gen.Input: MkStringFeedbackState :: Word8 -> Word8 -> Word16 -> Word16 -> Word16 -> [KEYSYM] -> StringFeedbackState
- Graphics.XHB.Gen.Input: MkUngrabDevice :: TIMESTAMP -> CARD8 -> UngrabDevice
+ Graphics.XHB.Gen.Input: MkUngrabDevice :: TIMESTAMP -> Word8 -> UngrabDevice
- Graphics.XHB.Gen.Input: MkUngrabDeviceButton :: WINDOW -> CARD16 -> CARD8 -> CARD8 -> CARD8 -> UngrabDeviceButton
+ Graphics.XHB.Gen.Input: MkUngrabDeviceButton :: WINDOW -> Word16 -> Word8 -> Word8 -> Word8 -> UngrabDeviceButton
- Graphics.XHB.Gen.Input: MkUngrabDeviceKey :: WINDOW -> CARD16 -> CARD8 -> CARD8 -> CARD8 -> UngrabDeviceKey
+ Graphics.XHB.Gen.Input: MkUngrabDeviceKey :: WINDOW -> Word16 -> Word8 -> Word8 -> Word8 -> UngrabDeviceKey
- Graphics.XHB.Gen.Input: MkValuatorInfo :: CARD8 -> CARD8 -> CARD8 -> CARD8 -> CARD32 -> [AxisInfo] -> ValuatorInfo
+ Graphics.XHB.Gen.Input: MkValuatorInfo :: Word8 -> Word8 -> Word8 -> Word8 -> Word32 -> [AxisInfo] -> ValuatorInfo
- Graphics.XHB.Gen.Input: MkValuatorState :: CARD8 -> CARD8 -> CARD8 -> CARD8 -> [CARD32] -> ValuatorState
+ Graphics.XHB.Gen.Input: MkValuatorState :: Word8 -> Word8 -> Word8 -> Word8 -> [Word32] -> ValuatorState
- Graphics.XHB.Gen.Input: accel_denom_PtrFeedbackState :: PtrFeedbackState -> CARD16
+ Graphics.XHB.Gen.Input: accel_denom_PtrFeedbackState :: PtrFeedbackState -> Word16
- Graphics.XHB.Gen.Input: accel_num_PtrFeedbackState :: PtrFeedbackState -> CARD16
+ Graphics.XHB.Gen.Input: accel_num_PtrFeedbackState :: PtrFeedbackState -> Word16
- Graphics.XHB.Gen.Input: auto_repeat_mode_KbdFeedbackCtl :: KbdFeedbackCtl -> CARD8
+ Graphics.XHB.Gen.Input: auto_repeat_mode_KbdFeedbackCtl :: KbdFeedbackCtl -> Word8
- Graphics.XHB.Gen.Input: auto_repeats_KbdFeedbackState :: KbdFeedbackState -> [CARD8]
+ Graphics.XHB.Gen.Input: auto_repeats_KbdFeedbackState :: KbdFeedbackState -> [Word8]
- Graphics.XHB.Gen.Input: axes_len_ValuatorInfo :: ValuatorInfo -> CARD8
+ Graphics.XHB.Gen.Input: axes_len_ValuatorInfo :: ValuatorInfo -> Word8
- Graphics.XHB.Gen.Input: bell_duration_KbdFeedbackCtl :: KbdFeedbackCtl -> INT16
+ Graphics.XHB.Gen.Input: bell_duration_KbdFeedbackCtl :: KbdFeedbackCtl -> Int16
- Graphics.XHB.Gen.Input: bell_percent_KbdFeedbackCtl :: KbdFeedbackCtl -> INT8
+ Graphics.XHB.Gen.Input: bell_percent_KbdFeedbackCtl :: KbdFeedbackCtl -> Int8
- Graphics.XHB.Gen.Input: bell_pitch_KbdFeedbackCtl :: KbdFeedbackCtl -> INT16
+ Graphics.XHB.Gen.Input: bell_pitch_KbdFeedbackCtl :: KbdFeedbackCtl -> Int16
- Graphics.XHB.Gen.Input: button_GrabDeviceButton :: GrabDeviceButton -> CARD8
+ Graphics.XHB.Gen.Input: button_GrabDeviceButton :: GrabDeviceButton -> Word8
- Graphics.XHB.Gen.Input: button_UngrabDeviceButton :: UngrabDeviceButton -> CARD8
+ Graphics.XHB.Gen.Input: button_UngrabDeviceButton :: UngrabDeviceButton -> Word8
- Graphics.XHB.Gen.Input: button_threshold_DeviceAbsCalibCtl :: DeviceAbsCalibCtl -> CARD32
+ Graphics.XHB.Gen.Input: button_threshold_DeviceAbsCalibCtl :: DeviceAbsCalibCtl -> Word32
- Graphics.XHB.Gen.Input: button_threshold_DeviceAbsCalibState :: DeviceAbsCalibState -> CARD32
+ Graphics.XHB.Gen.Input: button_threshold_DeviceAbsCalibState :: DeviceAbsCalibState -> Word32
- Graphics.XHB.Gen.Input: buttons_ButtonState :: ButtonState -> [CARD8]
+ Graphics.XHB.Gen.Input: buttons_ButtonState :: ButtonState -> [Word8]
- Graphics.XHB.Gen.Input: buttons_DeviceButtonStateNotify :: DeviceButtonStateNotify -> [CARD8]
+ Graphics.XHB.Gen.Input: buttons_DeviceButtonStateNotify :: DeviceButtonStateNotify -> [Word8]
- Graphics.XHB.Gen.Input: buttons_DeviceStateNotify :: DeviceStateNotify -> [CARD8]
+ Graphics.XHB.Gen.Input: buttons_DeviceStateNotify :: DeviceStateNotify -> [Word8]
- Graphics.XHB.Gen.Input: changeKeyboardDevice :: Connection -> CARD8 -> IO (Receipt ChangeKeyboardDeviceReply)
+ Graphics.XHB.Gen.Input: changeKeyboardDevice :: Connection -> Word8 -> IO (Receipt Word8)
- Graphics.XHB.Gen.Input: changePointerDevice :: Connection -> ChangePointerDevice -> IO (Receipt ChangePointerDeviceReply)
+ Graphics.XHB.Gen.Input: changePointerDevice :: Connection -> ChangePointerDevice -> IO (Receipt Word8)
- Graphics.XHB.Gen.Input: class_id_BellFeedbackCtl :: BellFeedbackCtl -> CARD8
+ Graphics.XHB.Gen.Input: class_id_BellFeedbackCtl :: BellFeedbackCtl -> Word8
- Graphics.XHB.Gen.Input: class_id_BellFeedbackState :: BellFeedbackState -> CARD8
+ Graphics.XHB.Gen.Input: class_id_BellFeedbackState :: BellFeedbackState -> Word8
- Graphics.XHB.Gen.Input: class_id_ButtonInfo :: ButtonInfo -> CARD8
+ Graphics.XHB.Gen.Input: class_id_ButtonInfo :: ButtonInfo -> Word8
- Graphics.XHB.Gen.Input: class_id_ButtonState :: ButtonState -> CARD8
+ Graphics.XHB.Gen.Input: class_id_ButtonState :: ButtonState -> Word8
- Graphics.XHB.Gen.Input: class_id_FeedbackCtl :: FeedbackCtl -> CARD8
+ Graphics.XHB.Gen.Input: class_id_FeedbackCtl :: FeedbackCtl -> Word8
- Graphics.XHB.Gen.Input: class_id_FeedbackState :: FeedbackState -> CARD8
+ Graphics.XHB.Gen.Input: class_id_FeedbackState :: FeedbackState -> Word8
- Graphics.XHB.Gen.Input: class_id_InputClassInfo :: InputClassInfo -> CARD8
+ Graphics.XHB.Gen.Input: class_id_InputClassInfo :: InputClassInfo -> Word8
- Graphics.XHB.Gen.Input: class_id_InputInfo :: InputInfo -> CARD8
+ Graphics.XHB.Gen.Input: class_id_InputInfo :: InputInfo -> Word8
- Graphics.XHB.Gen.Input: class_id_InputState :: InputState -> CARD8
+ Graphics.XHB.Gen.Input: class_id_InputState :: InputState -> Word8
- Graphics.XHB.Gen.Input: class_id_IntegerFeedbackCtl :: IntegerFeedbackCtl -> CARD8
+ Graphics.XHB.Gen.Input: class_id_IntegerFeedbackCtl :: IntegerFeedbackCtl -> Word8
- Graphics.XHB.Gen.Input: class_id_IntegerFeedbackState :: IntegerFeedbackState -> CARD8
+ Graphics.XHB.Gen.Input: class_id_IntegerFeedbackState :: IntegerFeedbackState -> Word8
- Graphics.XHB.Gen.Input: class_id_KbdFeedbackCtl :: KbdFeedbackCtl -> CARD8
+ Graphics.XHB.Gen.Input: class_id_KbdFeedbackCtl :: KbdFeedbackCtl -> Word8
- Graphics.XHB.Gen.Input: class_id_KbdFeedbackState :: KbdFeedbackState -> CARD8
+ Graphics.XHB.Gen.Input: class_id_KbdFeedbackState :: KbdFeedbackState -> Word8
- Graphics.XHB.Gen.Input: class_id_KeyInfo :: KeyInfo -> CARD8
+ Graphics.XHB.Gen.Input: class_id_KeyInfo :: KeyInfo -> Word8
- Graphics.XHB.Gen.Input: class_id_KeyState :: KeyState -> CARD8
+ Graphics.XHB.Gen.Input: class_id_KeyState :: KeyState -> Word8
- Graphics.XHB.Gen.Input: class_id_LedFeedbackCtl :: LedFeedbackCtl -> CARD8
+ Graphics.XHB.Gen.Input: class_id_LedFeedbackCtl :: LedFeedbackCtl -> Word8
- Graphics.XHB.Gen.Input: class_id_LedFeedbackState :: LedFeedbackState -> CARD8
+ Graphics.XHB.Gen.Input: class_id_LedFeedbackState :: LedFeedbackState -> Word8
- Graphics.XHB.Gen.Input: class_id_PtrFeedbackCtl :: PtrFeedbackCtl -> CARD8
+ Graphics.XHB.Gen.Input: class_id_PtrFeedbackCtl :: PtrFeedbackCtl -> Word8
- Graphics.XHB.Gen.Input: class_id_PtrFeedbackState :: PtrFeedbackState -> CARD8
+ Graphics.XHB.Gen.Input: class_id_PtrFeedbackState :: PtrFeedbackState -> Word8
- Graphics.XHB.Gen.Input: class_id_StringFeedbackCtl :: StringFeedbackCtl -> CARD8
+ Graphics.XHB.Gen.Input: class_id_StringFeedbackCtl :: StringFeedbackCtl -> Word8
- Graphics.XHB.Gen.Input: class_id_StringFeedbackState :: StringFeedbackState -> CARD8
+ Graphics.XHB.Gen.Input: class_id_StringFeedbackState :: StringFeedbackState -> Word8
- Graphics.XHB.Gen.Input: class_id_ValuatorInfo :: ValuatorInfo -> CARD8
+ Graphics.XHB.Gen.Input: class_id_ValuatorInfo :: ValuatorInfo -> Word8
- Graphics.XHB.Gen.Input: class_id_ValuatorState :: ValuatorState -> CARD8
+ Graphics.XHB.Gen.Input: class_id_ValuatorState :: ValuatorState -> Word8
- Graphics.XHB.Gen.Input: classes_reported_DeviceStateNotify :: DeviceStateNotify -> CARD8
+ Graphics.XHB.Gen.Input: classes_reported_DeviceStateNotify :: DeviceStateNotify -> Word8
- Graphics.XHB.Gen.Input: click_KbdFeedbackState :: KbdFeedbackState -> CARD8
+ Graphics.XHB.Gen.Input: click_KbdFeedbackState :: KbdFeedbackState -> Word8
- Graphics.XHB.Gen.Input: closeDevice :: Connection -> CARD8 -> IO ()
+ Graphics.XHB.Gen.Input: closeDevice :: Connection -> Word8 -> IO ()
- Graphics.XHB.Gen.Input: control_DevicePresenceNotify :: DevicePresenceNotify -> CARD16
+ Graphics.XHB.Gen.Input: control_DevicePresenceNotify :: DevicePresenceNotify -> Word16
- Graphics.XHB.Gen.Input: control_id_DeviceAbsAreaCtrl :: DeviceAbsAreaCtrl -> CARD16
+ Graphics.XHB.Gen.Input: control_id_DeviceAbsAreaCtrl :: DeviceAbsAreaCtrl -> Word16
- Graphics.XHB.Gen.Input: control_id_DeviceAbsAreaState :: DeviceAbsAreaState -> CARD16
+ Graphics.XHB.Gen.Input: control_id_DeviceAbsAreaState :: DeviceAbsAreaState -> Word16
- Graphics.XHB.Gen.Input: control_id_DeviceAbsCalibCtl :: DeviceAbsCalibCtl -> CARD16
+ Graphics.XHB.Gen.Input: control_id_DeviceAbsCalibCtl :: DeviceAbsCalibCtl -> Word16
- Graphics.XHB.Gen.Input: control_id_DeviceAbsCalibState :: DeviceAbsCalibState -> CARD16
+ Graphics.XHB.Gen.Input: control_id_DeviceAbsCalibState :: DeviceAbsCalibState -> Word16
- Graphics.XHB.Gen.Input: control_id_DeviceCoreCtrl :: DeviceCoreCtrl -> CARD16
+ Graphics.XHB.Gen.Input: control_id_DeviceCoreCtrl :: DeviceCoreCtrl -> Word16
- Graphics.XHB.Gen.Input: control_id_DeviceCoreState :: DeviceCoreState -> CARD16
+ Graphics.XHB.Gen.Input: control_id_DeviceCoreState :: DeviceCoreState -> Word16
- Graphics.XHB.Gen.Input: control_id_DeviceCtl :: DeviceCtl -> CARD16
+ Graphics.XHB.Gen.Input: control_id_DeviceCtl :: DeviceCtl -> Word16
- Graphics.XHB.Gen.Input: control_id_DeviceEnableCtrl :: DeviceEnableCtrl -> CARD16
+ Graphics.XHB.Gen.Input: control_id_DeviceEnableCtrl :: DeviceEnableCtrl -> Word16
- Graphics.XHB.Gen.Input: control_id_DeviceEnableState :: DeviceEnableState -> CARD16
+ Graphics.XHB.Gen.Input: control_id_DeviceEnableState :: DeviceEnableState -> Word16
- Graphics.XHB.Gen.Input: control_id_DeviceResolutionCtl :: DeviceResolutionCtl -> CARD16
+ Graphics.XHB.Gen.Input: control_id_DeviceResolutionCtl :: DeviceResolutionCtl -> Word16
- Graphics.XHB.Gen.Input: control_id_DeviceResolutionState :: DeviceResolutionState -> CARD16
+ Graphics.XHB.Gen.Input: control_id_DeviceResolutionState :: DeviceResolutionState -> Word16
- Graphics.XHB.Gen.Input: control_id_DeviceState :: DeviceState -> CARD16
+ Graphics.XHB.Gen.Input: control_id_DeviceState :: DeviceState -> Word16
- Graphics.XHB.Gen.Input: control_id_GetDeviceControl :: GetDeviceControl -> CARD16
+ Graphics.XHB.Gen.Input: control_id_GetDeviceControl :: GetDeviceControl -> Word16
- Graphics.XHB.Gen.Input: count_DeviceMappingNotify :: DeviceMappingNotify -> CARD8
+ Graphics.XHB.Gen.Input: count_DeviceMappingNotify :: DeviceMappingNotify -> Word8
- Graphics.XHB.Gen.Input: count_GetDeviceKeyMapping :: GetDeviceKeyMapping -> CARD8
+ Graphics.XHB.Gen.Input: count_GetDeviceKeyMapping :: GetDeviceKeyMapping -> Word8
- Graphics.XHB.Gen.Input: denom_PtrFeedbackCtl :: PtrFeedbackCtl -> INT16
+ Graphics.XHB.Gen.Input: denom_PtrFeedbackCtl :: PtrFeedbackCtl -> Int16
- Graphics.XHB.Gen.Input: detail_DeviceButtonPress :: DeviceButtonPress -> BYTE
+ Graphics.XHB.Gen.Input: detail_DeviceButtonPress :: DeviceButtonPress -> Word8
- Graphics.XHB.Gen.Input: detail_DeviceButtonRelease :: DeviceButtonRelease -> BYTE
+ Graphics.XHB.Gen.Input: detail_DeviceButtonRelease :: DeviceButtonRelease -> Word8
- Graphics.XHB.Gen.Input: detail_DeviceKeyPress :: DeviceKeyPress -> BYTE
+ Graphics.XHB.Gen.Input: detail_DeviceKeyPress :: DeviceKeyPress -> Word8
- Graphics.XHB.Gen.Input: detail_DeviceKeyRelease :: DeviceKeyRelease -> BYTE
+ Graphics.XHB.Gen.Input: detail_DeviceKeyRelease :: DeviceKeyRelease -> Word8
- Graphics.XHB.Gen.Input: detail_DeviceMotionNotify :: DeviceMotionNotify -> BYTE
+ Graphics.XHB.Gen.Input: detail_DeviceMotionNotify :: DeviceMotionNotify -> Word8
- Graphics.XHB.Gen.Input: detail_FocusIn :: FocusIn -> BYTE
+ Graphics.XHB.Gen.Input: detail_FocusIn :: FocusIn -> Word8
- Graphics.XHB.Gen.Input: detail_FocusOut :: FocusOut -> BYTE
+ Graphics.XHB.Gen.Input: detail_FocusOut :: FocusOut -> Word8
- Graphics.XHB.Gen.Input: detail_ProximityIn :: ProximityIn -> BYTE
+ Graphics.XHB.Gen.Input: detail_ProximityIn :: ProximityIn -> Word8
- Graphics.XHB.Gen.Input: detail_ProximityOut :: ProximityOut -> BYTE
+ Graphics.XHB.Gen.Input: detail_ProximityOut :: ProximityOut -> Word8
- Graphics.XHB.Gen.Input: devchange_DevicePresenceNotify :: DevicePresenceNotify -> BYTE
+ Graphics.XHB.Gen.Input: devchange_DevicePresenceNotify :: DevicePresenceNotify -> Word8
- Graphics.XHB.Gen.Input: device_id_AllowDeviceEvents :: AllowDeviceEvents -> CARD8
+ Graphics.XHB.Gen.Input: device_id_AllowDeviceEvents :: AllowDeviceEvents -> Word8
- Graphics.XHB.Gen.Input: device_id_ChangeDeviceKeyMapping :: ChangeDeviceKeyMapping -> CARD8
+ Graphics.XHB.Gen.Input: device_id_ChangeDeviceKeyMapping :: ChangeDeviceKeyMapping -> Word8
- Graphics.XHB.Gen.Input: device_id_ChangeDeviceNotify :: ChangeDeviceNotify -> BYTE
+ Graphics.XHB.Gen.Input: device_id_ChangeDeviceNotify :: ChangeDeviceNotify -> Word8
- Graphics.XHB.Gen.Input: device_id_ChangeKeyboardDevice :: ChangeKeyboardDevice -> CARD8
+ Graphics.XHB.Gen.Input: device_id_ChangeKeyboardDevice :: ChangeKeyboardDevice -> Word8
- Graphics.XHB.Gen.Input: device_id_ChangePointerDevice :: ChangePointerDevice -> CARD8
+ Graphics.XHB.Gen.Input: device_id_ChangePointerDevice :: ChangePointerDevice -> Word8
- Graphics.XHB.Gen.Input: device_id_CloseDevice :: CloseDevice -> CARD8
+ Graphics.XHB.Gen.Input: device_id_CloseDevice :: CloseDevice -> Word8
- Graphics.XHB.Gen.Input: device_id_DeviceBell :: DeviceBell -> CARD8
+ Graphics.XHB.Gen.Input: device_id_DeviceBell :: DeviceBell -> Word8
- Graphics.XHB.Gen.Input: device_id_DeviceButtonPress :: DeviceButtonPress -> CARD8
+ Graphics.XHB.Gen.Input: device_id_DeviceButtonPress :: DeviceButtonPress -> Word8
- Graphics.XHB.Gen.Input: device_id_DeviceButtonRelease :: DeviceButtonRelease -> CARD8
+ Graphics.XHB.Gen.Input: device_id_DeviceButtonRelease :: DeviceButtonRelease -> Word8
- Graphics.XHB.Gen.Input: device_id_DeviceButtonStateNotify :: DeviceButtonStateNotify -> BYTE
+ Graphics.XHB.Gen.Input: device_id_DeviceButtonStateNotify :: DeviceButtonStateNotify -> Word8
- Graphics.XHB.Gen.Input: device_id_DeviceInfo :: DeviceInfo -> CARD8
+ Graphics.XHB.Gen.Input: device_id_DeviceInfo :: DeviceInfo -> Word8
- Graphics.XHB.Gen.Input: device_id_DeviceKeyPress :: DeviceKeyPress -> CARD8
+ Graphics.XHB.Gen.Input: device_id_DeviceKeyPress :: DeviceKeyPress -> Word8
- Graphics.XHB.Gen.Input: device_id_DeviceKeyRelease :: DeviceKeyRelease -> CARD8
+ Graphics.XHB.Gen.Input: device_id_DeviceKeyRelease :: DeviceKeyRelease -> Word8
- Graphics.XHB.Gen.Input: device_id_DeviceKeyStateNotify :: DeviceKeyStateNotify -> BYTE
+ Graphics.XHB.Gen.Input: device_id_DeviceKeyStateNotify :: DeviceKeyStateNotify -> Word8
- Graphics.XHB.Gen.Input: device_id_DeviceMappingNotify :: DeviceMappingNotify -> BYTE
+ Graphics.XHB.Gen.Input: device_id_DeviceMappingNotify :: DeviceMappingNotify -> Word8
- Graphics.XHB.Gen.Input: device_id_DeviceMotionNotify :: DeviceMotionNotify -> CARD8
+ Graphics.XHB.Gen.Input: device_id_DeviceMotionNotify :: DeviceMotionNotify -> Word8
- Graphics.XHB.Gen.Input: device_id_DevicePresenceNotify :: DevicePresenceNotify -> BYTE
+ Graphics.XHB.Gen.Input: device_id_DevicePresenceNotify :: DevicePresenceNotify -> Word8
- Graphics.XHB.Gen.Input: device_id_DeviceStateNotify :: DeviceStateNotify -> BYTE
+ Graphics.XHB.Gen.Input: device_id_DeviceStateNotify :: DeviceStateNotify -> Word8
- Graphics.XHB.Gen.Input: device_id_DeviceValuator :: DeviceValuator -> CARD8
+ Graphics.XHB.Gen.Input: device_id_DeviceValuator :: DeviceValuator -> Word8
- Graphics.XHB.Gen.Input: device_id_FocusIn :: FocusIn -> CARD8
+ Graphics.XHB.Gen.Input: device_id_FocusIn :: FocusIn -> Word8
- Graphics.XHB.Gen.Input: device_id_FocusOut :: FocusOut -> CARD8
+ Graphics.XHB.Gen.Input: device_id_FocusOut :: FocusOut -> Word8
- Graphics.XHB.Gen.Input: device_id_GetDeviceButtonMapping :: GetDeviceButtonMapping -> CARD8
+ Graphics.XHB.Gen.Input: device_id_GetDeviceButtonMapping :: GetDeviceButtonMapping -> Word8
- Graphics.XHB.Gen.Input: device_id_GetDeviceControl :: GetDeviceControl -> CARD8
+ Graphics.XHB.Gen.Input: device_id_GetDeviceControl :: GetDeviceControl -> Word8
- Graphics.XHB.Gen.Input: device_id_GetDeviceFocus :: GetDeviceFocus -> CARD8
+ Graphics.XHB.Gen.Input: device_id_GetDeviceFocus :: GetDeviceFocus -> Word8
- Graphics.XHB.Gen.Input: device_id_GetDeviceKeyMapping :: GetDeviceKeyMapping -> CARD8
+ Graphics.XHB.Gen.Input: device_id_GetDeviceKeyMapping :: GetDeviceKeyMapping -> Word8
- Graphics.XHB.Gen.Input: device_id_GetDeviceModifierMapping :: GetDeviceModifierMapping -> CARD8
+ Graphics.XHB.Gen.Input: device_id_GetDeviceModifierMapping :: GetDeviceModifierMapping -> Word8
- Graphics.XHB.Gen.Input: device_id_GetDeviceMotionEvents :: GetDeviceMotionEvents -> CARD8
+ Graphics.XHB.Gen.Input: device_id_GetDeviceMotionEvents :: GetDeviceMotionEvents -> Word8
- Graphics.XHB.Gen.Input: device_id_GetFeedbackControl :: GetFeedbackControl -> CARD8
+ Graphics.XHB.Gen.Input: device_id_GetFeedbackControl :: GetFeedbackControl -> Word8
- Graphics.XHB.Gen.Input: device_id_GrabDevice :: GrabDevice -> CARD8
+ Graphics.XHB.Gen.Input: device_id_GrabDevice :: GrabDevice -> Word8
- Graphics.XHB.Gen.Input: device_id_OpenDevice :: OpenDevice -> CARD8
+ Graphics.XHB.Gen.Input: device_id_OpenDevice :: OpenDevice -> Word8
- Graphics.XHB.Gen.Input: device_id_ProximityIn :: ProximityIn -> CARD8
+ Graphics.XHB.Gen.Input: device_id_ProximityIn :: ProximityIn -> Word8
- Graphics.XHB.Gen.Input: device_id_ProximityOut :: ProximityOut -> CARD8
+ Graphics.XHB.Gen.Input: device_id_ProximityOut :: ProximityOut -> Word8
- Graphics.XHB.Gen.Input: device_id_QueryDeviceState :: QueryDeviceState -> CARD8
+ Graphics.XHB.Gen.Input: device_id_QueryDeviceState :: QueryDeviceState -> Word8
- Graphics.XHB.Gen.Input: device_id_SendExtensionEvent :: SendExtensionEvent -> CARD8
+ Graphics.XHB.Gen.Input: device_id_SendExtensionEvent :: SendExtensionEvent -> Word8
- Graphics.XHB.Gen.Input: device_id_SetDeviceButtonMapping :: SetDeviceButtonMapping -> CARD8
+ Graphics.XHB.Gen.Input: device_id_SetDeviceButtonMapping :: SetDeviceButtonMapping -> Word8
- Graphics.XHB.Gen.Input: device_id_SetDeviceFocus :: SetDeviceFocus -> CARD8
+ Graphics.XHB.Gen.Input: device_id_SetDeviceFocus :: SetDeviceFocus -> Word8
- Graphics.XHB.Gen.Input: device_id_SetDeviceMode :: SetDeviceMode -> CARD8
+ Graphics.XHB.Gen.Input: device_id_SetDeviceMode :: SetDeviceMode -> Word8
- Graphics.XHB.Gen.Input: device_id_SetDeviceModifierMapping :: SetDeviceModifierMapping -> CARD8
+ Graphics.XHB.Gen.Input: device_id_SetDeviceModifierMapping :: SetDeviceModifierMapping -> Word8
- Graphics.XHB.Gen.Input: device_id_SetDeviceValuators :: SetDeviceValuators -> CARD8
+ Graphics.XHB.Gen.Input: device_id_SetDeviceValuators :: SetDeviceValuators -> Word8
- Graphics.XHB.Gen.Input: device_id_UngrabDevice :: UngrabDevice -> CARD8
+ Graphics.XHB.Gen.Input: device_id_UngrabDevice :: UngrabDevice -> Word8
- Graphics.XHB.Gen.Input: device_mode_GetDeviceMotionEventsReply :: GetDeviceMotionEventsReply -> CARD8
+ Graphics.XHB.Gen.Input: device_mode_GetDeviceMotionEventsReply :: GetDeviceMotionEventsReply -> Word8
- Graphics.XHB.Gen.Input: device_state_DeviceValuator :: DeviceValuator -> CARD16
+ Graphics.XHB.Gen.Input: device_state_DeviceValuator :: DeviceValuator -> Word16
- Graphics.XHB.Gen.Input: device_use_DeviceInfo :: DeviceInfo -> CARD8
+ Graphics.XHB.Gen.Input: device_use_DeviceInfo :: DeviceInfo -> Word8
- Graphics.XHB.Gen.Input: devices_len_ListInputDevicesReply :: ListInputDevicesReply -> CARD8
+ Graphics.XHB.Gen.Input: devices_len_ListInputDevicesReply :: ListInputDevicesReply -> Word8
- Graphics.XHB.Gen.Input: duration_BellFeedbackCtl :: BellFeedbackCtl -> INT16
+ Graphics.XHB.Gen.Input: duration_BellFeedbackCtl :: BellFeedbackCtl -> Int16
- Graphics.XHB.Gen.Input: duration_BellFeedbackState :: BellFeedbackState -> CARD16
+ Graphics.XHB.Gen.Input: duration_BellFeedbackState :: BellFeedbackState -> Word16
- Graphics.XHB.Gen.Input: duration_KbdFeedbackState :: KbdFeedbackState -> CARD16
+ Graphics.XHB.Gen.Input: duration_KbdFeedbackState :: KbdFeedbackState -> Word16
- Graphics.XHB.Gen.Input: enable_DeviceEnableCtrl :: DeviceEnableCtrl -> CARD8
+ Graphics.XHB.Gen.Input: enable_DeviceEnableCtrl :: DeviceEnableCtrl -> Word8
- Graphics.XHB.Gen.Input: enable_DeviceEnableState :: DeviceEnableState -> CARD8
+ Graphics.XHB.Gen.Input: enable_DeviceEnableState :: DeviceEnableState -> Word8
- Graphics.XHB.Gen.Input: event_type_base_InputClassInfo :: InputClassInfo -> CARD8
+ Graphics.XHB.Gen.Input: event_type_base_InputClassInfo :: InputClassInfo -> Word8
- Graphics.XHB.Gen.Input: event_x_DeviceButtonPress :: DeviceButtonPress -> INT16
+ Graphics.XHB.Gen.Input: event_x_DeviceButtonPress :: DeviceButtonPress -> Int16
- Graphics.XHB.Gen.Input: event_x_DeviceButtonRelease :: DeviceButtonRelease -> INT16
+ Graphics.XHB.Gen.Input: event_x_DeviceButtonRelease :: DeviceButtonRelease -> Int16
- Graphics.XHB.Gen.Input: event_x_DeviceKeyPress :: DeviceKeyPress -> INT16
+ Graphics.XHB.Gen.Input: event_x_DeviceKeyPress :: DeviceKeyPress -> Int16
- Graphics.XHB.Gen.Input: event_x_DeviceKeyRelease :: DeviceKeyRelease -> INT16
+ Graphics.XHB.Gen.Input: event_x_DeviceKeyRelease :: DeviceKeyRelease -> Int16
- Graphics.XHB.Gen.Input: event_x_DeviceMotionNotify :: DeviceMotionNotify -> INT16
+ Graphics.XHB.Gen.Input: event_x_DeviceMotionNotify :: DeviceMotionNotify -> Int16
- Graphics.XHB.Gen.Input: event_x_FocusOut :: FocusOut -> INT16
+ Graphics.XHB.Gen.Input: event_x_FocusOut :: FocusOut -> Int16
- Graphics.XHB.Gen.Input: event_x_ProximityIn :: ProximityIn -> INT16
+ Graphics.XHB.Gen.Input: event_x_ProximityIn :: ProximityIn -> Int16
- Graphics.XHB.Gen.Input: event_x_ProximityOut :: ProximityOut -> INT16
+ Graphics.XHB.Gen.Input: event_x_ProximityOut :: ProximityOut -> Int16
- Graphics.XHB.Gen.Input: event_y_DeviceButtonPress :: DeviceButtonPress -> INT16
+ Graphics.XHB.Gen.Input: event_y_DeviceButtonPress :: DeviceButtonPress -> Int16
- Graphics.XHB.Gen.Input: event_y_DeviceButtonRelease :: DeviceButtonRelease -> INT16
+ Graphics.XHB.Gen.Input: event_y_DeviceButtonRelease :: DeviceButtonRelease -> Int16
- Graphics.XHB.Gen.Input: event_y_DeviceKeyPress :: DeviceKeyPress -> INT16
+ Graphics.XHB.Gen.Input: event_y_DeviceKeyPress :: DeviceKeyPress -> Int16
- Graphics.XHB.Gen.Input: event_y_DeviceKeyRelease :: DeviceKeyRelease -> INT16
+ Graphics.XHB.Gen.Input: event_y_DeviceKeyRelease :: DeviceKeyRelease -> Int16
- Graphics.XHB.Gen.Input: event_y_DeviceMotionNotify :: DeviceMotionNotify -> INT16
+ Graphics.XHB.Gen.Input: event_y_DeviceMotionNotify :: DeviceMotionNotify -> Int16
- Graphics.XHB.Gen.Input: event_y_FocusOut :: FocusOut -> INT16
+ Graphics.XHB.Gen.Input: event_y_FocusOut :: FocusOut -> Int16
- Graphics.XHB.Gen.Input: event_y_ProximityIn :: ProximityIn -> INT16
+ Graphics.XHB.Gen.Input: event_y_ProximityIn :: ProximityIn -> Int16
- Graphics.XHB.Gen.Input: event_y_ProximityOut :: ProximityOut -> INT16
+ Graphics.XHB.Gen.Input: event_y_ProximityOut :: ProximityOut -> Int16
- Graphics.XHB.Gen.Input: feedback_class_DeviceBell :: DeviceBell -> CARD8
+ Graphics.XHB.Gen.Input: feedback_class_DeviceBell :: DeviceBell -> Word8
- Graphics.XHB.Gen.Input: feedback_id_DeviceBell :: DeviceBell -> CARD8
+ Graphics.XHB.Gen.Input: feedback_id_DeviceBell :: DeviceBell -> Word8
- Graphics.XHB.Gen.Input: first_valuator_DeviceResolutionCtl :: DeviceResolutionCtl -> CARD8
+ Graphics.XHB.Gen.Input: first_valuator_DeviceResolutionCtl :: DeviceResolutionCtl -> Word8
- Graphics.XHB.Gen.Input: first_valuator_DeviceValuator :: DeviceValuator -> CARD8
+ Graphics.XHB.Gen.Input: first_valuator_DeviceValuator :: DeviceValuator -> Word8
- Graphics.XHB.Gen.Input: first_valuator_SetDeviceValuators :: SetDeviceValuators -> CARD8
+ Graphics.XHB.Gen.Input: first_valuator_SetDeviceValuators :: SetDeviceValuators -> Word8
- Graphics.XHB.Gen.Input: flip_x_DeviceAbsCalibCtl :: DeviceAbsCalibCtl -> CARD32
+ Graphics.XHB.Gen.Input: flip_x_DeviceAbsCalibCtl :: DeviceAbsCalibCtl -> Word32
- Graphics.XHB.Gen.Input: flip_x_DeviceAbsCalibState :: DeviceAbsCalibState -> CARD32
+ Graphics.XHB.Gen.Input: flip_x_DeviceAbsCalibState :: DeviceAbsCalibState -> Word32
- Graphics.XHB.Gen.Input: flip_y_DeviceAbsCalibCtl :: DeviceAbsCalibCtl -> CARD32
+ Graphics.XHB.Gen.Input: flip_y_DeviceAbsCalibCtl :: DeviceAbsCalibCtl -> Word32
- Graphics.XHB.Gen.Input: flip_y_DeviceAbsCalibState :: DeviceAbsCalibState -> CARD32
+ Graphics.XHB.Gen.Input: flip_y_DeviceAbsCalibState :: DeviceAbsCalibState -> Word32
- Graphics.XHB.Gen.Input: following_DeviceAbsAreaCtrl :: DeviceAbsAreaCtrl -> CARD32
+ Graphics.XHB.Gen.Input: following_DeviceAbsAreaCtrl :: DeviceAbsAreaCtrl -> Word32
- Graphics.XHB.Gen.Input: following_DeviceAbsAreaState :: DeviceAbsAreaState -> CARD32
+ Graphics.XHB.Gen.Input: following_DeviceAbsAreaState :: DeviceAbsAreaState -> Word32
- Graphics.XHB.Gen.Input: getDeviceButtonMapping :: Connection -> CARD8 -> IO (Receipt GetDeviceButtonMappingReply)
+ Graphics.XHB.Gen.Input: getDeviceButtonMapping :: Connection -> Word8 -> IO (Receipt GetDeviceButtonMappingReply)
- Graphics.XHB.Gen.Input: getDeviceControl :: Connection -> CARD16 -> CARD8 -> IO (Receipt GetDeviceControlReply)
+ Graphics.XHB.Gen.Input: getDeviceControl :: Connection -> Word16 -> Word8 -> IO (Receipt Word8)
- Graphics.XHB.Gen.Input: getDeviceFocus :: Connection -> CARD8 -> IO (Receipt GetDeviceFocusReply)
+ Graphics.XHB.Gen.Input: getDeviceFocus :: Connection -> Word8 -> IO (Receipt GetDeviceFocusReply)
- Graphics.XHB.Gen.Input: getDeviceModifierMapping :: Connection -> CARD8 -> IO (Receipt GetDeviceModifierMappingReply)
+ Graphics.XHB.Gen.Input: getDeviceModifierMapping :: Connection -> Word8 -> IO (Receipt GetDeviceModifierMappingReply)
- Graphics.XHB.Gen.Input: getExtensionVersion :: Connection -> CARD16 -> [CChar] -> IO (Receipt GetExtensionVersionReply)
+ Graphics.XHB.Gen.Input: getExtensionVersion :: Connection -> Word16 -> [CChar] -> IO (Receipt GetExtensionVersionReply)
- Graphics.XHB.Gen.Input: getFeedbackControl :: Connection -> CARD8 -> IO (Receipt GetFeedbackControlReply)
+ Graphics.XHB.Gen.Input: getFeedbackControl :: Connection -> Word8 -> IO (Receipt Word16)
- Graphics.XHB.Gen.Input: global_auto_repeat_KbdFeedbackState :: KbdFeedbackState -> BOOL
+ Graphics.XHB.Gen.Input: global_auto_repeat_KbdFeedbackState :: KbdFeedbackState -> Bool
- Graphics.XHB.Gen.Input: grabDevice :: Connection -> GrabDevice -> IO (Receipt GrabDeviceReply)
+ Graphics.XHB.Gen.Input: grabDevice :: Connection -> GrabDevice -> IO (Receipt Word8)
- Graphics.XHB.Gen.Input: grabbed_device_GrabDeviceButton :: GrabDeviceButton -> CARD8
+ Graphics.XHB.Gen.Input: grabbed_device_GrabDeviceButton :: GrabDeviceButton -> Word8
- Graphics.XHB.Gen.Input: grabbed_device_GrabDeviceKey :: GrabDeviceKey -> CARD8
+ Graphics.XHB.Gen.Input: grabbed_device_GrabDeviceKey :: GrabDeviceKey -> Word8
- Graphics.XHB.Gen.Input: grabbed_device_UngrabDeviceButton :: UngrabDeviceButton -> CARD8
+ Graphics.XHB.Gen.Input: grabbed_device_UngrabDeviceButton :: UngrabDeviceButton -> Word8
- Graphics.XHB.Gen.Input: grabbed_device_UngrabDeviceKey :: UngrabDeviceKey -> CARD8
+ Graphics.XHB.Gen.Input: grabbed_device_UngrabDeviceKey :: UngrabDeviceKey -> Word8
- Graphics.XHB.Gen.Input: height_DeviceAbsAreaCtrl :: DeviceAbsAreaCtrl -> INT32
+ Graphics.XHB.Gen.Input: height_DeviceAbsAreaCtrl :: DeviceAbsAreaCtrl -> Int32
- Graphics.XHB.Gen.Input: height_DeviceAbsAreaState :: DeviceAbsAreaState -> CARD32
+ Graphics.XHB.Gen.Input: height_DeviceAbsAreaState :: DeviceAbsAreaState -> Word32
- Graphics.XHB.Gen.Input: id_BellFeedbackCtl :: BellFeedbackCtl -> CARD8
+ Graphics.XHB.Gen.Input: id_BellFeedbackCtl :: BellFeedbackCtl -> Word8
- Graphics.XHB.Gen.Input: id_BellFeedbackState :: BellFeedbackState -> CARD8
+ Graphics.XHB.Gen.Input: id_BellFeedbackState :: BellFeedbackState -> Word8
- Graphics.XHB.Gen.Input: id_FeedbackCtl :: FeedbackCtl -> CARD8
+ Graphics.XHB.Gen.Input: id_FeedbackCtl :: FeedbackCtl -> Word8
- Graphics.XHB.Gen.Input: id_FeedbackState :: FeedbackState -> CARD8
+ Graphics.XHB.Gen.Input: id_FeedbackState :: FeedbackState -> Word8
- Graphics.XHB.Gen.Input: id_IntegerFeedbackCtl :: IntegerFeedbackCtl -> CARD8
+ Graphics.XHB.Gen.Input: id_IntegerFeedbackCtl :: IntegerFeedbackCtl -> Word8
- Graphics.XHB.Gen.Input: id_IntegerFeedbackState :: IntegerFeedbackState -> CARD8
+ Graphics.XHB.Gen.Input: id_IntegerFeedbackState :: IntegerFeedbackState -> Word8
- Graphics.XHB.Gen.Input: id_KbdFeedbackCtl :: KbdFeedbackCtl -> CARD8
+ Graphics.XHB.Gen.Input: id_KbdFeedbackCtl :: KbdFeedbackCtl -> Word8
- Graphics.XHB.Gen.Input: id_KbdFeedbackState :: KbdFeedbackState -> CARD8
+ Graphics.XHB.Gen.Input: id_KbdFeedbackState :: KbdFeedbackState -> Word8
- Graphics.XHB.Gen.Input: id_LedFeedbackCtl :: LedFeedbackCtl -> CARD8
+ Graphics.XHB.Gen.Input: id_LedFeedbackCtl :: LedFeedbackCtl -> Word8
- Graphics.XHB.Gen.Input: id_LedFeedbackState :: LedFeedbackState -> CARD8
+ Graphics.XHB.Gen.Input: id_LedFeedbackState :: LedFeedbackState -> Word8
- Graphics.XHB.Gen.Input: id_PtrFeedbackCtl :: PtrFeedbackCtl -> CARD8
+ Graphics.XHB.Gen.Input: id_PtrFeedbackCtl :: PtrFeedbackCtl -> Word8
- Graphics.XHB.Gen.Input: id_PtrFeedbackState :: PtrFeedbackState -> CARD8
+ Graphics.XHB.Gen.Input: id_PtrFeedbackState :: PtrFeedbackState -> Word8
- Graphics.XHB.Gen.Input: id_StringFeedbackCtl :: StringFeedbackCtl -> CARD8
+ Graphics.XHB.Gen.Input: id_StringFeedbackCtl :: StringFeedbackCtl -> Word8
- Graphics.XHB.Gen.Input: id_StringFeedbackState :: StringFeedbackState -> CARD8
+ Graphics.XHB.Gen.Input: id_StringFeedbackState :: StringFeedbackState -> Word8
- Graphics.XHB.Gen.Input: int_to_display_IntegerFeedbackCtl :: IntegerFeedbackCtl -> INT32
+ Graphics.XHB.Gen.Input: int_to_display_IntegerFeedbackCtl :: IntegerFeedbackCtl -> Int32
- Graphics.XHB.Gen.Input: iscore_DeviceCoreState :: DeviceCoreState -> CARD8
+ Graphics.XHB.Gen.Input: iscore_DeviceCoreState :: DeviceCoreState -> Word8
- Graphics.XHB.Gen.Input: key_GrabDeviceKey :: GrabDeviceKey -> CARD8
+ Graphics.XHB.Gen.Input: key_GrabDeviceKey :: GrabDeviceKey -> Word8
- Graphics.XHB.Gen.Input: key_UngrabDeviceKey :: UngrabDeviceKey -> CARD8
+ Graphics.XHB.Gen.Input: key_UngrabDeviceKey :: UngrabDeviceKey -> Word8
- Graphics.XHB.Gen.Input: key_click_percent_KbdFeedbackCtl :: KbdFeedbackCtl -> INT8
+ Graphics.XHB.Gen.Input: key_click_percent_KbdFeedbackCtl :: KbdFeedbackCtl -> Int8
- Graphics.XHB.Gen.Input: keycode_count_ChangeDeviceKeyMapping :: ChangeDeviceKeyMapping -> CARD8
+ Graphics.XHB.Gen.Input: keycode_count_ChangeDeviceKeyMapping :: ChangeDeviceKeyMapping -> Word8
- Graphics.XHB.Gen.Input: keycodes_per_modifier_GetDeviceModifierMappingReply :: GetDeviceModifierMappingReply -> CARD8
+ Graphics.XHB.Gen.Input: keycodes_per_modifier_GetDeviceModifierMappingReply :: GetDeviceModifierMappingReply -> Word8
- Graphics.XHB.Gen.Input: keycodes_per_modifier_SetDeviceModifierMapping :: SetDeviceModifierMapping -> CARD8
+ Graphics.XHB.Gen.Input: keycodes_per_modifier_SetDeviceModifierMapping :: SetDeviceModifierMapping -> Word8
- Graphics.XHB.Gen.Input: keymaps_GetDeviceModifierMappingReply :: GetDeviceModifierMappingReply -> [CARD8]
+ Graphics.XHB.Gen.Input: keymaps_GetDeviceModifierMappingReply :: GetDeviceModifierMappingReply -> [Word8]
- Graphics.XHB.Gen.Input: keymaps_SetDeviceModifierMapping :: SetDeviceModifierMapping -> [CARD8]
+ Graphics.XHB.Gen.Input: keymaps_SetDeviceModifierMapping :: SetDeviceModifierMapping -> [Word8]
- Graphics.XHB.Gen.Input: keys_DeviceKeyStateNotify :: DeviceKeyStateNotify -> [CARD8]
+ Graphics.XHB.Gen.Input: keys_DeviceKeyStateNotify :: DeviceKeyStateNotify -> [Word8]
- Graphics.XHB.Gen.Input: keys_DeviceStateNotify :: DeviceStateNotify -> [CARD8]
+ Graphics.XHB.Gen.Input: keys_DeviceStateNotify :: DeviceStateNotify -> [Word8]
- Graphics.XHB.Gen.Input: keys_KeyState :: KeyState -> [CARD8]
+ Graphics.XHB.Gen.Input: keys_KeyState :: KeyState -> [Word8]
- Graphics.XHB.Gen.Input: keysyms_per_keycode_ChangeDeviceKeyMapping :: ChangeDeviceKeyMapping -> CARD8
+ Graphics.XHB.Gen.Input: keysyms_per_keycode_ChangeDeviceKeyMapping :: ChangeDeviceKeyMapping -> Word8
- Graphics.XHB.Gen.Input: keysyms_per_keycode_GetDeviceKeyMappingReply :: GetDeviceKeyMappingReply -> CARD8
+ Graphics.XHB.Gen.Input: keysyms_per_keycode_GetDeviceKeyMappingReply :: GetDeviceKeyMappingReply -> Word8
- Graphics.XHB.Gen.Input: led_mask_KbdFeedbackCtl :: KbdFeedbackCtl -> CARD32
+ Graphics.XHB.Gen.Input: led_mask_KbdFeedbackCtl :: KbdFeedbackCtl -> Word32
- Graphics.XHB.Gen.Input: led_mask_KbdFeedbackState :: KbdFeedbackState -> CARD32
+ Graphics.XHB.Gen.Input: led_mask_KbdFeedbackState :: KbdFeedbackState -> Word32
- Graphics.XHB.Gen.Input: led_mask_LedFeedbackCtl :: LedFeedbackCtl -> CARD32
+ Graphics.XHB.Gen.Input: led_mask_LedFeedbackCtl :: LedFeedbackCtl -> Word32
- Graphics.XHB.Gen.Input: led_mask_LedFeedbackState :: LedFeedbackState -> CARD32
+ Graphics.XHB.Gen.Input: led_mask_LedFeedbackState :: LedFeedbackState -> Word32
- Graphics.XHB.Gen.Input: led_values_KbdFeedbackCtl :: KbdFeedbackCtl -> CARD32
+ Graphics.XHB.Gen.Input: led_values_KbdFeedbackCtl :: KbdFeedbackCtl -> Word32
- Graphics.XHB.Gen.Input: led_values_KbdFeedbackState :: KbdFeedbackState -> CARD32
+ Graphics.XHB.Gen.Input: led_values_KbdFeedbackState :: KbdFeedbackState -> Word32
- Graphics.XHB.Gen.Input: led_values_LedFeedbackCtl :: LedFeedbackCtl -> CARD32
+ Graphics.XHB.Gen.Input: led_values_LedFeedbackCtl :: LedFeedbackCtl -> Word32
- Graphics.XHB.Gen.Input: led_values_LedFeedbackState :: LedFeedbackState -> CARD32
+ Graphics.XHB.Gen.Input: led_values_LedFeedbackState :: LedFeedbackState -> Word32
- Graphics.XHB.Gen.Input: len_BellFeedbackCtl :: BellFeedbackCtl -> CARD16
+ Graphics.XHB.Gen.Input: len_BellFeedbackCtl :: BellFeedbackCtl -> Word16
- Graphics.XHB.Gen.Input: len_BellFeedbackState :: BellFeedbackState -> CARD16
+ Graphics.XHB.Gen.Input: len_BellFeedbackState :: BellFeedbackState -> Word16
- Graphics.XHB.Gen.Input: len_ButtonInfo :: ButtonInfo -> CARD8
+ Graphics.XHB.Gen.Input: len_ButtonInfo :: ButtonInfo -> Word8
- Graphics.XHB.Gen.Input: len_ButtonState :: ButtonState -> CARD8
+ Graphics.XHB.Gen.Input: len_ButtonState :: ButtonState -> Word8
- Graphics.XHB.Gen.Input: len_DeviceAbsAreaCtrl :: DeviceAbsAreaCtrl -> CARD16
+ Graphics.XHB.Gen.Input: len_DeviceAbsAreaCtrl :: DeviceAbsAreaCtrl -> Word16
- Graphics.XHB.Gen.Input: len_DeviceAbsAreaState :: DeviceAbsAreaState -> CARD16
+ Graphics.XHB.Gen.Input: len_DeviceAbsAreaState :: DeviceAbsAreaState -> Word16
- Graphics.XHB.Gen.Input: len_DeviceAbsCalibCtl :: DeviceAbsCalibCtl -> CARD16
+ Graphics.XHB.Gen.Input: len_DeviceAbsCalibCtl :: DeviceAbsCalibCtl -> Word16
- Graphics.XHB.Gen.Input: len_DeviceAbsCalibState :: DeviceAbsCalibState -> CARD16
+ Graphics.XHB.Gen.Input: len_DeviceAbsCalibState :: DeviceAbsCalibState -> Word16
- Graphics.XHB.Gen.Input: len_DeviceCoreCtrl :: DeviceCoreCtrl -> CARD16
+ Graphics.XHB.Gen.Input: len_DeviceCoreCtrl :: DeviceCoreCtrl -> Word16
- Graphics.XHB.Gen.Input: len_DeviceCoreState :: DeviceCoreState -> CARD16
+ Graphics.XHB.Gen.Input: len_DeviceCoreState :: DeviceCoreState -> Word16
- Graphics.XHB.Gen.Input: len_DeviceCtl :: DeviceCtl -> CARD16
+ Graphics.XHB.Gen.Input: len_DeviceCtl :: DeviceCtl -> Word16
- Graphics.XHB.Gen.Input: len_DeviceEnableCtrl :: DeviceEnableCtrl -> CARD16
+ Graphics.XHB.Gen.Input: len_DeviceEnableCtrl :: DeviceEnableCtrl -> Word16
- Graphics.XHB.Gen.Input: len_DeviceEnableState :: DeviceEnableState -> CARD16
+ Graphics.XHB.Gen.Input: len_DeviceEnableState :: DeviceEnableState -> Word16
- Graphics.XHB.Gen.Input: len_DeviceResolutionCtl :: DeviceResolutionCtl -> CARD16
+ Graphics.XHB.Gen.Input: len_DeviceResolutionCtl :: DeviceResolutionCtl -> Word16
- Graphics.XHB.Gen.Input: len_DeviceResolutionState :: DeviceResolutionState -> CARD16
+ Graphics.XHB.Gen.Input: len_DeviceResolutionState :: DeviceResolutionState -> Word16
- Graphics.XHB.Gen.Input: len_DeviceState :: DeviceState -> CARD16
+ Graphics.XHB.Gen.Input: len_DeviceState :: DeviceState -> Word16
- Graphics.XHB.Gen.Input: len_FeedbackCtl :: FeedbackCtl -> CARD16
+ Graphics.XHB.Gen.Input: len_FeedbackCtl :: FeedbackCtl -> Word16
- Graphics.XHB.Gen.Input: len_FeedbackState :: FeedbackState -> CARD16
+ Graphics.XHB.Gen.Input: len_FeedbackState :: FeedbackState -> Word16
- Graphics.XHB.Gen.Input: len_InputInfo :: InputInfo -> CARD8
+ Graphics.XHB.Gen.Input: len_InputInfo :: InputInfo -> Word8
- Graphics.XHB.Gen.Input: len_InputState :: InputState -> CARD8
+ Graphics.XHB.Gen.Input: len_InputState :: InputState -> Word8
- Graphics.XHB.Gen.Input: len_IntegerFeedbackCtl :: IntegerFeedbackCtl -> CARD16
+ Graphics.XHB.Gen.Input: len_IntegerFeedbackCtl :: IntegerFeedbackCtl -> Word16
- Graphics.XHB.Gen.Input: len_IntegerFeedbackState :: IntegerFeedbackState -> CARD16
+ Graphics.XHB.Gen.Input: len_IntegerFeedbackState :: IntegerFeedbackState -> Word16
- Graphics.XHB.Gen.Input: len_KbdFeedbackCtl :: KbdFeedbackCtl -> CARD16
+ Graphics.XHB.Gen.Input: len_KbdFeedbackCtl :: KbdFeedbackCtl -> Word16
- Graphics.XHB.Gen.Input: len_KbdFeedbackState :: KbdFeedbackState -> CARD16
+ Graphics.XHB.Gen.Input: len_KbdFeedbackState :: KbdFeedbackState -> Word16
- Graphics.XHB.Gen.Input: len_KeyInfo :: KeyInfo -> CARD8
+ Graphics.XHB.Gen.Input: len_KeyInfo :: KeyInfo -> Word8
- Graphics.XHB.Gen.Input: len_KeyState :: KeyState -> CARD8
+ Graphics.XHB.Gen.Input: len_KeyState :: KeyState -> Word8
- Graphics.XHB.Gen.Input: len_LedFeedbackCtl :: LedFeedbackCtl -> CARD16
+ Graphics.XHB.Gen.Input: len_LedFeedbackCtl :: LedFeedbackCtl -> Word16
- Graphics.XHB.Gen.Input: len_LedFeedbackState :: LedFeedbackState -> CARD16
+ Graphics.XHB.Gen.Input: len_LedFeedbackState :: LedFeedbackState -> Word16
- Graphics.XHB.Gen.Input: len_PtrFeedbackCtl :: PtrFeedbackCtl -> CARD16
+ Graphics.XHB.Gen.Input: len_PtrFeedbackCtl :: PtrFeedbackCtl -> Word16
- Graphics.XHB.Gen.Input: len_PtrFeedbackState :: PtrFeedbackState -> CARD16
+ Graphics.XHB.Gen.Input: len_PtrFeedbackState :: PtrFeedbackState -> Word16
- Graphics.XHB.Gen.Input: len_StringFeedbackCtl :: StringFeedbackCtl -> CARD16
+ Graphics.XHB.Gen.Input: len_StringFeedbackCtl :: StringFeedbackCtl -> Word16
- Graphics.XHB.Gen.Input: len_StringFeedbackState :: StringFeedbackState -> CARD16
+ Graphics.XHB.Gen.Input: len_StringFeedbackState :: StringFeedbackState -> Word16
- Graphics.XHB.Gen.Input: len_ValuatorInfo :: ValuatorInfo -> CARD8
+ Graphics.XHB.Gen.Input: len_ValuatorInfo :: ValuatorInfo -> Word8
- Graphics.XHB.Gen.Input: len_ValuatorState :: ValuatorState -> CARD8
+ Graphics.XHB.Gen.Input: len_ValuatorState :: ValuatorState -> Word8
- Graphics.XHB.Gen.Input: map_GetDeviceButtonMappingReply :: GetDeviceButtonMappingReply -> [CARD8]
+ Graphics.XHB.Gen.Input: map_GetDeviceButtonMappingReply :: GetDeviceButtonMappingReply -> [Word8]
- Graphics.XHB.Gen.Input: map_SetDeviceButtonMapping :: SetDeviceButtonMapping -> [CARD8]
+ Graphics.XHB.Gen.Input: map_SetDeviceButtonMapping :: SetDeviceButtonMapping -> [Word8]
- Graphics.XHB.Gen.Input: map_size_GetDeviceButtonMappingReply :: GetDeviceButtonMappingReply -> CARD8
+ Graphics.XHB.Gen.Input: map_size_GetDeviceButtonMappingReply :: GetDeviceButtonMappingReply -> Word8
- Graphics.XHB.Gen.Input: map_size_SetDeviceButtonMapping :: SetDeviceButtonMapping -> CARD8
+ Graphics.XHB.Gen.Input: map_size_SetDeviceButtonMapping :: SetDeviceButtonMapping -> Word8
- Graphics.XHB.Gen.Input: max_symbols_StringFeedbackState :: StringFeedbackState -> CARD16
+ Graphics.XHB.Gen.Input: max_symbols_StringFeedbackState :: StringFeedbackState -> Word16
- Graphics.XHB.Gen.Input: max_value_IntegerFeedbackState :: IntegerFeedbackState -> INT32
+ Graphics.XHB.Gen.Input: max_value_IntegerFeedbackState :: IntegerFeedbackState -> Int32
- Graphics.XHB.Gen.Input: max_x_DeviceAbsCalibCtl :: DeviceAbsCalibCtl -> INT32
+ Graphics.XHB.Gen.Input: max_x_DeviceAbsCalibCtl :: DeviceAbsCalibCtl -> Int32
- Graphics.XHB.Gen.Input: max_x_DeviceAbsCalibState :: DeviceAbsCalibState -> INT32
+ Graphics.XHB.Gen.Input: max_x_DeviceAbsCalibState :: DeviceAbsCalibState -> Int32
- Graphics.XHB.Gen.Input: max_y_DeviceAbsCalibCtl :: DeviceAbsCalibCtl -> INT32
+ Graphics.XHB.Gen.Input: max_y_DeviceAbsCalibCtl :: DeviceAbsCalibCtl -> Int32
- Graphics.XHB.Gen.Input: max_y_DeviceAbsCalibState :: DeviceAbsCalibState -> INT32
+ Graphics.XHB.Gen.Input: max_y_DeviceAbsCalibState :: DeviceAbsCalibState -> Int32
- Graphics.XHB.Gen.Input: maximum_AxisInfo :: AxisInfo -> CARD32
+ Graphics.XHB.Gen.Input: maximum_AxisInfo :: AxisInfo -> Word32
- Graphics.XHB.Gen.Input: min_value_IntegerFeedbackState :: IntegerFeedbackState -> INT32
+ Graphics.XHB.Gen.Input: min_value_IntegerFeedbackState :: IntegerFeedbackState -> Int32
- Graphics.XHB.Gen.Input: min_x_DeviceAbsCalibCtl :: DeviceAbsCalibCtl -> INT32
+ Graphics.XHB.Gen.Input: min_x_DeviceAbsCalibCtl :: DeviceAbsCalibCtl -> Int32
- Graphics.XHB.Gen.Input: min_x_DeviceAbsCalibState :: DeviceAbsCalibState -> INT32
+ Graphics.XHB.Gen.Input: min_x_DeviceAbsCalibState :: DeviceAbsCalibState -> Int32
- Graphics.XHB.Gen.Input: min_y_DeviceAbsCalibCtl :: DeviceAbsCalibCtl -> INT32
+ Graphics.XHB.Gen.Input: min_y_DeviceAbsCalibCtl :: DeviceAbsCalibCtl -> Int32
- Graphics.XHB.Gen.Input: min_y_DeviceAbsCalibState :: DeviceAbsCalibState -> INT32
+ Graphics.XHB.Gen.Input: min_y_DeviceAbsCalibState :: DeviceAbsCalibState -> Int32
- Graphics.XHB.Gen.Input: minimum_AxisInfo :: AxisInfo -> CARD32
+ Graphics.XHB.Gen.Input: minimum_AxisInfo :: AxisInfo -> Word32
- Graphics.XHB.Gen.Input: mode_AllowDeviceEvents :: AllowDeviceEvents -> CARD8
+ Graphics.XHB.Gen.Input: mode_AllowDeviceEvents :: AllowDeviceEvents -> Word8
- Graphics.XHB.Gen.Input: mode_ChangeDeviceDontPropagateList :: ChangeDeviceDontPropagateList -> CARD8
+ Graphics.XHB.Gen.Input: mode_ChangeDeviceDontPropagateList :: ChangeDeviceDontPropagateList -> Word8
- Graphics.XHB.Gen.Input: mode_FocusIn :: FocusIn -> BYTE
+ Graphics.XHB.Gen.Input: mode_FocusIn :: FocusIn -> Word8
- Graphics.XHB.Gen.Input: mode_SetDeviceMode :: SetDeviceMode -> CARD8
+ Graphics.XHB.Gen.Input: mode_SetDeviceMode :: SetDeviceMode -> Word8
- Graphics.XHB.Gen.Input: mode_ValuatorInfo :: ValuatorInfo -> CARD8
+ Graphics.XHB.Gen.Input: mode_ValuatorInfo :: ValuatorInfo -> Word8
- Graphics.XHB.Gen.Input: mode_ValuatorState :: ValuatorState -> CARD8
+ Graphics.XHB.Gen.Input: mode_ValuatorState :: ValuatorState -> Word8
- Graphics.XHB.Gen.Input: modifier_device_GrabDeviceButton :: GrabDeviceButton -> CARD8
+ Graphics.XHB.Gen.Input: modifier_device_GrabDeviceButton :: GrabDeviceButton -> Word8
- Graphics.XHB.Gen.Input: modifier_device_GrabDeviceKey :: GrabDeviceKey -> CARD8
+ Graphics.XHB.Gen.Input: modifier_device_GrabDeviceKey :: GrabDeviceKey -> Word8
- Graphics.XHB.Gen.Input: modifier_device_UngrabDeviceButton :: UngrabDeviceButton -> CARD8
+ Graphics.XHB.Gen.Input: modifier_device_UngrabDeviceButton :: UngrabDeviceButton -> Word8
- Graphics.XHB.Gen.Input: modifier_device_UngrabDeviceKey :: UngrabDeviceKey -> CARD8
+ Graphics.XHB.Gen.Input: modifier_device_UngrabDeviceKey :: UngrabDeviceKey -> Word8
- Graphics.XHB.Gen.Input: modifiers_GrabDeviceButton :: GrabDeviceButton -> CARD16
+ Graphics.XHB.Gen.Input: modifiers_GrabDeviceButton :: GrabDeviceButton -> Word16
- Graphics.XHB.Gen.Input: modifiers_GrabDeviceKey :: GrabDeviceKey -> CARD16
+ Graphics.XHB.Gen.Input: modifiers_GrabDeviceKey :: GrabDeviceKey -> Word16
- Graphics.XHB.Gen.Input: modifiers_UngrabDeviceButton :: UngrabDeviceButton -> CARD16
+ Graphics.XHB.Gen.Input: modifiers_UngrabDeviceButton :: UngrabDeviceButton -> Word16
- Graphics.XHB.Gen.Input: modifiers_UngrabDeviceKey :: UngrabDeviceKey -> CARD16
+ Graphics.XHB.Gen.Input: modifiers_UngrabDeviceKey :: UngrabDeviceKey -> Word16
- Graphics.XHB.Gen.Input: motion_size_ValuatorInfo :: ValuatorInfo -> CARD32
+ Graphics.XHB.Gen.Input: motion_size_ValuatorInfo :: ValuatorInfo -> Word32
- Graphics.XHB.Gen.Input: name_len_GetExtensionVersion :: GetExtensionVersion -> CARD16
+ Graphics.XHB.Gen.Input: name_len_GetExtensionVersion :: GetExtensionVersion -> Word16
- Graphics.XHB.Gen.Input: num_PtrFeedbackCtl :: PtrFeedbackCtl -> INT16
+ Graphics.XHB.Gen.Input: num_PtrFeedbackCtl :: PtrFeedbackCtl -> Int16
- Graphics.XHB.Gen.Input: num_all_classes_GetSelectedExtensionEventsReply :: GetSelectedExtensionEventsReply -> CARD16
+ Graphics.XHB.Gen.Input: num_all_classes_GetSelectedExtensionEventsReply :: GetSelectedExtensionEventsReply -> Word16
- Graphics.XHB.Gen.Input: num_axes_GetDeviceMotionEventsReply :: GetDeviceMotionEventsReply -> CARD8
+ Graphics.XHB.Gen.Input: num_axes_GetDeviceMotionEventsReply :: GetDeviceMotionEventsReply -> Word8
- Graphics.XHB.Gen.Input: num_buttons_ButtonInfo :: ButtonInfo -> CARD16
+ Graphics.XHB.Gen.Input: num_buttons_ButtonInfo :: ButtonInfo -> Word16
- Graphics.XHB.Gen.Input: num_buttons_ButtonState :: ButtonState -> CARD8
+ Graphics.XHB.Gen.Input: num_buttons_ButtonState :: ButtonState -> Word8
- Graphics.XHB.Gen.Input: num_buttons_DeviceStateNotify :: DeviceStateNotify -> CARD8
+ Graphics.XHB.Gen.Input: num_buttons_DeviceStateNotify :: DeviceStateNotify -> Word8
- Graphics.XHB.Gen.Input: num_class_info_DeviceInfo :: DeviceInfo -> CARD8
+ Graphics.XHB.Gen.Input: num_class_info_DeviceInfo :: DeviceInfo -> Word8
- Graphics.XHB.Gen.Input: num_classes_ChangeDeviceDontPropagateList :: ChangeDeviceDontPropagateList -> CARD16
+ Graphics.XHB.Gen.Input: num_classes_ChangeDeviceDontPropagateList :: ChangeDeviceDontPropagateList -> Word16
- Graphics.XHB.Gen.Input: num_classes_GetDeviceDontPropagateListReply :: GetDeviceDontPropagateListReply -> CARD16
+ Graphics.XHB.Gen.Input: num_classes_GetDeviceDontPropagateListReply :: GetDeviceDontPropagateListReply -> Word16
- Graphics.XHB.Gen.Input: num_classes_GrabDevice :: GrabDevice -> CARD16
+ Graphics.XHB.Gen.Input: num_classes_GrabDevice :: GrabDevice -> Word16
- Graphics.XHB.Gen.Input: num_classes_GrabDeviceButton :: GrabDeviceButton -> CARD16
+ Graphics.XHB.Gen.Input: num_classes_GrabDeviceButton :: GrabDeviceButton -> Word16
- Graphics.XHB.Gen.Input: num_classes_GrabDeviceKey :: GrabDeviceKey -> CARD16
+ Graphics.XHB.Gen.Input: num_classes_GrabDeviceKey :: GrabDeviceKey -> Word16
- Graphics.XHB.Gen.Input: num_classes_OpenDeviceReply :: OpenDeviceReply -> CARD8
+ Graphics.XHB.Gen.Input: num_classes_OpenDeviceReply :: OpenDeviceReply -> Word8
- Graphics.XHB.Gen.Input: num_classes_QueryDeviceStateReply :: QueryDeviceStateReply -> CARD8
+ Graphics.XHB.Gen.Input: num_classes_QueryDeviceStateReply :: QueryDeviceStateReply -> Word8
- Graphics.XHB.Gen.Input: num_classes_SelectExtensionEvent :: SelectExtensionEvent -> CARD16
+ Graphics.XHB.Gen.Input: num_classes_SelectExtensionEvent :: SelectExtensionEvent -> Word16
- Graphics.XHB.Gen.Input: num_classes_SendExtensionEvent :: SendExtensionEvent -> CARD16
+ Graphics.XHB.Gen.Input: num_classes_SendExtensionEvent :: SendExtensionEvent -> Word16
- Graphics.XHB.Gen.Input: num_coords_GetDeviceMotionEventsReply :: GetDeviceMotionEventsReply -> CARD32
+ Graphics.XHB.Gen.Input: num_coords_GetDeviceMotionEventsReply :: GetDeviceMotionEventsReply -> Word32
- Graphics.XHB.Gen.Input: num_events_SendExtensionEvent :: SendExtensionEvent -> CARD8
+ Graphics.XHB.Gen.Input: num_events_SendExtensionEvent :: SendExtensionEvent -> Word8
- Graphics.XHB.Gen.Input: num_feedback_GetFeedbackControlReply :: GetFeedbackControlReply -> CARD16
+ Graphics.XHB.Gen.Input: num_feedback_GetFeedbackControlReply :: GetFeedbackControlReply -> Word16
- Graphics.XHB.Gen.Input: num_items_InputState :: InputState -> CARD8
+ Graphics.XHB.Gen.Input: num_items_InputState :: InputState -> Word8
- Graphics.XHB.Gen.Input: num_keys_DeviceStateNotify :: DeviceStateNotify -> CARD8
+ Graphics.XHB.Gen.Input: num_keys_DeviceStateNotify :: DeviceStateNotify -> Word8
- Graphics.XHB.Gen.Input: num_keys_KeyInfo :: KeyInfo -> CARD16
+ Graphics.XHB.Gen.Input: num_keys_KeyInfo :: KeyInfo -> Word16
- Graphics.XHB.Gen.Input: num_keys_KeyState :: KeyState -> CARD8
+ Graphics.XHB.Gen.Input: num_keys_KeyState :: KeyState -> Word8
- Graphics.XHB.Gen.Input: num_keysyms_StringFeedbackCtl :: StringFeedbackCtl -> CARD16
+ Graphics.XHB.Gen.Input: num_keysyms_StringFeedbackCtl :: StringFeedbackCtl -> Word16
- Graphics.XHB.Gen.Input: num_keysyms_StringFeedbackState :: StringFeedbackState -> CARD16
+ Graphics.XHB.Gen.Input: num_keysyms_StringFeedbackState :: StringFeedbackState -> Word16
- Graphics.XHB.Gen.Input: num_this_classes_GetSelectedExtensionEventsReply :: GetSelectedExtensionEventsReply -> CARD16
+ Graphics.XHB.Gen.Input: num_this_classes_GetSelectedExtensionEventsReply :: GetSelectedExtensionEventsReply -> Word16
- Graphics.XHB.Gen.Input: num_valuators_DeviceResolutionCtl :: DeviceResolutionCtl -> CARD8
+ Graphics.XHB.Gen.Input: num_valuators_DeviceResolutionCtl :: DeviceResolutionCtl -> Word8
- Graphics.XHB.Gen.Input: num_valuators_DeviceResolutionState :: DeviceResolutionState -> CARD32
+ Graphics.XHB.Gen.Input: num_valuators_DeviceResolutionState :: DeviceResolutionState -> Word32
- Graphics.XHB.Gen.Input: num_valuators_DeviceStateNotify :: DeviceStateNotify -> CARD8
+ Graphics.XHB.Gen.Input: num_valuators_DeviceStateNotify :: DeviceStateNotify -> Word8
- Graphics.XHB.Gen.Input: num_valuators_DeviceValuator :: DeviceValuator -> CARD8
+ Graphics.XHB.Gen.Input: num_valuators_DeviceValuator :: DeviceValuator -> Word8
- Graphics.XHB.Gen.Input: num_valuators_SetDeviceValuators :: SetDeviceValuators -> CARD8
+ Graphics.XHB.Gen.Input: num_valuators_SetDeviceValuators :: SetDeviceValuators -> Word8
- Graphics.XHB.Gen.Input: num_valuators_ValuatorState :: ValuatorState -> CARD8
+ Graphics.XHB.Gen.Input: num_valuators_ValuatorState :: ValuatorState -> Word8
- Graphics.XHB.Gen.Input: offset_x_DeviceAbsAreaCtrl :: DeviceAbsAreaCtrl -> CARD32
+ Graphics.XHB.Gen.Input: offset_x_DeviceAbsAreaCtrl :: DeviceAbsAreaCtrl -> Word32
- Graphics.XHB.Gen.Input: offset_x_DeviceAbsAreaState :: DeviceAbsAreaState -> CARD32
+ Graphics.XHB.Gen.Input: offset_x_DeviceAbsAreaState :: DeviceAbsAreaState -> Word32
- Graphics.XHB.Gen.Input: offset_y_DeviceAbsAreaCtrl :: DeviceAbsAreaCtrl -> CARD32
+ Graphics.XHB.Gen.Input: offset_y_DeviceAbsAreaCtrl :: DeviceAbsAreaCtrl -> Word32
- Graphics.XHB.Gen.Input: offset_y_DeviceAbsAreaState :: DeviceAbsAreaState -> CARD32
+ Graphics.XHB.Gen.Input: offset_y_DeviceAbsAreaState :: DeviceAbsAreaState -> Word32
- Graphics.XHB.Gen.Input: openDevice :: Connection -> CARD8 -> IO (Receipt OpenDeviceReply)
+ Graphics.XHB.Gen.Input: openDevice :: Connection -> Word8 -> IO (Receipt OpenDeviceReply)
- Graphics.XHB.Gen.Input: other_device_mode_GrabDevice :: GrabDevice -> CARD8
+ Graphics.XHB.Gen.Input: other_device_mode_GrabDevice :: GrabDevice -> Word8
- Graphics.XHB.Gen.Input: other_device_mode_GrabDeviceButton :: GrabDeviceButton -> CARD8
+ Graphics.XHB.Gen.Input: other_device_mode_GrabDeviceButton :: GrabDeviceButton -> Word8
- Graphics.XHB.Gen.Input: other_device_mode_GrabDeviceKey :: GrabDeviceKey -> CARD8
+ Graphics.XHB.Gen.Input: other_device_mode_GrabDeviceKey :: GrabDeviceKey -> Word8
- Graphics.XHB.Gen.Input: owner_events_GrabDevice :: GrabDevice -> BOOL
+ Graphics.XHB.Gen.Input: owner_events_GrabDevice :: GrabDevice -> Bool
- Graphics.XHB.Gen.Input: owner_events_GrabDeviceButton :: GrabDeviceButton -> CARD8
+ Graphics.XHB.Gen.Input: owner_events_GrabDeviceButton :: GrabDeviceButton -> Word8
- Graphics.XHB.Gen.Input: owner_events_GrabDeviceKey :: GrabDeviceKey -> BOOL
+ Graphics.XHB.Gen.Input: owner_events_GrabDeviceKey :: GrabDeviceKey -> Bool
- Graphics.XHB.Gen.Input: percent_BellFeedbackCtl :: BellFeedbackCtl -> INT8
+ Graphics.XHB.Gen.Input: percent_BellFeedbackCtl :: BellFeedbackCtl -> Int8
- Graphics.XHB.Gen.Input: percent_BellFeedbackState :: BellFeedbackState -> CARD8
+ Graphics.XHB.Gen.Input: percent_BellFeedbackState :: BellFeedbackState -> Word8
- Graphics.XHB.Gen.Input: percent_DeviceBell :: DeviceBell -> INT8
+ Graphics.XHB.Gen.Input: percent_DeviceBell :: DeviceBell -> Int8
- Graphics.XHB.Gen.Input: percent_KbdFeedbackState :: KbdFeedbackState -> CARD8
+ Graphics.XHB.Gen.Input: percent_KbdFeedbackState :: KbdFeedbackState -> Word8
- Graphics.XHB.Gen.Input: pitch_BellFeedbackCtl :: BellFeedbackCtl -> INT16
+ Graphics.XHB.Gen.Input: pitch_BellFeedbackCtl :: BellFeedbackCtl -> Int16
- Graphics.XHB.Gen.Input: pitch_BellFeedbackState :: BellFeedbackState -> CARD16
+ Graphics.XHB.Gen.Input: pitch_BellFeedbackState :: BellFeedbackState -> Word16
- Graphics.XHB.Gen.Input: pitch_KbdFeedbackState :: KbdFeedbackState -> CARD16
+ Graphics.XHB.Gen.Input: pitch_KbdFeedbackState :: KbdFeedbackState -> Word16
- Graphics.XHB.Gen.Input: present_GetExtensionVersionReply :: GetExtensionVersionReply -> CARD8
+ Graphics.XHB.Gen.Input: present_GetExtensionVersionReply :: GetExtensionVersionReply -> Word8
- Graphics.XHB.Gen.Input: propagate_SendExtensionEvent :: SendExtensionEvent -> BOOL
+ Graphics.XHB.Gen.Input: propagate_SendExtensionEvent :: SendExtensionEvent -> Bool
- Graphics.XHB.Gen.Input: queryDeviceState :: Connection -> CARD8 -> IO (Receipt QueryDeviceStateReply)
+ Graphics.XHB.Gen.Input: queryDeviceState :: Connection -> Word8 -> IO (Receipt Word8)
- Graphics.XHB.Gen.Input: request_ChangeDeviceNotify :: ChangeDeviceNotify -> CARD8
+ Graphics.XHB.Gen.Input: request_ChangeDeviceNotify :: ChangeDeviceNotify -> Word8
- Graphics.XHB.Gen.Input: request_DeviceMappingNotify :: DeviceMappingNotify -> CARD8
+ Graphics.XHB.Gen.Input: request_DeviceMappingNotify :: DeviceMappingNotify -> Word8
- Graphics.XHB.Gen.Input: resolution_AxisInfo :: AxisInfo -> CARD32
+ Graphics.XHB.Gen.Input: resolution_AxisInfo :: AxisInfo -> Word32
- Graphics.XHB.Gen.Input: resolution_IntegerFeedbackState :: IntegerFeedbackState -> CARD32
+ Graphics.XHB.Gen.Input: resolution_IntegerFeedbackState :: IntegerFeedbackState -> Word32
- Graphics.XHB.Gen.Input: resolution_max_DeviceResolutionState :: DeviceResolutionState -> [CARD32]
+ Graphics.XHB.Gen.Input: resolution_max_DeviceResolutionState :: DeviceResolutionState -> [Word32]
- Graphics.XHB.Gen.Input: resolution_min_DeviceResolutionState :: DeviceResolutionState -> [CARD32]
+ Graphics.XHB.Gen.Input: resolution_min_DeviceResolutionState :: DeviceResolutionState -> [Word32]
- Graphics.XHB.Gen.Input: resolution_values_DeviceResolutionCtl :: DeviceResolutionCtl -> [CARD32]
+ Graphics.XHB.Gen.Input: resolution_values_DeviceResolutionCtl :: DeviceResolutionCtl -> [Word32]
- Graphics.XHB.Gen.Input: resolution_values_DeviceResolutionState :: DeviceResolutionState -> [CARD32]
+ Graphics.XHB.Gen.Input: resolution_values_DeviceResolutionState :: DeviceResolutionState -> [Word32]
- Graphics.XHB.Gen.Input: revert_to_GetDeviceFocusReply :: GetDeviceFocusReply -> CARD8
+ Graphics.XHB.Gen.Input: revert_to_GetDeviceFocusReply :: GetDeviceFocusReply -> Word8
- Graphics.XHB.Gen.Input: revert_to_SetDeviceFocus :: SetDeviceFocus -> CARD8
+ Graphics.XHB.Gen.Input: revert_to_SetDeviceFocus :: SetDeviceFocus -> Word8
- Graphics.XHB.Gen.Input: root_x_DeviceButtonPress :: DeviceButtonPress -> INT16
+ Graphics.XHB.Gen.Input: root_x_DeviceButtonPress :: DeviceButtonPress -> Int16
- Graphics.XHB.Gen.Input: root_x_DeviceButtonRelease :: DeviceButtonRelease -> INT16
+ Graphics.XHB.Gen.Input: root_x_DeviceButtonRelease :: DeviceButtonRelease -> Int16
- Graphics.XHB.Gen.Input: root_x_DeviceKeyPress :: DeviceKeyPress -> INT16
+ Graphics.XHB.Gen.Input: root_x_DeviceKeyPress :: DeviceKeyPress -> Int16
- Graphics.XHB.Gen.Input: root_x_DeviceKeyRelease :: DeviceKeyRelease -> INT16
+ Graphics.XHB.Gen.Input: root_x_DeviceKeyRelease :: DeviceKeyRelease -> Int16
- Graphics.XHB.Gen.Input: root_x_DeviceMotionNotify :: DeviceMotionNotify -> INT16
+ Graphics.XHB.Gen.Input: root_x_DeviceMotionNotify :: DeviceMotionNotify -> Int16
- Graphics.XHB.Gen.Input: root_x_FocusOut :: FocusOut -> INT16
+ Graphics.XHB.Gen.Input: root_x_FocusOut :: FocusOut -> Int16
- Graphics.XHB.Gen.Input: root_x_ProximityIn :: ProximityIn -> INT16
+ Graphics.XHB.Gen.Input: root_x_ProximityIn :: ProximityIn -> Int16
- Graphics.XHB.Gen.Input: root_x_ProximityOut :: ProximityOut -> INT16
+ Graphics.XHB.Gen.Input: root_x_ProximityOut :: ProximityOut -> Int16
- Graphics.XHB.Gen.Input: root_y_DeviceButtonPress :: DeviceButtonPress -> INT16
+ Graphics.XHB.Gen.Input: root_y_DeviceButtonPress :: DeviceButtonPress -> Int16
- Graphics.XHB.Gen.Input: root_y_DeviceButtonRelease :: DeviceButtonRelease -> INT16
+ Graphics.XHB.Gen.Input: root_y_DeviceButtonRelease :: DeviceButtonRelease -> Int16
- Graphics.XHB.Gen.Input: root_y_DeviceKeyPress :: DeviceKeyPress -> INT16
+ Graphics.XHB.Gen.Input: root_y_DeviceKeyPress :: DeviceKeyPress -> Int16
- Graphics.XHB.Gen.Input: root_y_DeviceKeyRelease :: DeviceKeyRelease -> INT16
+ Graphics.XHB.Gen.Input: root_y_DeviceKeyRelease :: DeviceKeyRelease -> Int16
- Graphics.XHB.Gen.Input: root_y_DeviceMotionNotify :: DeviceMotionNotify -> INT16
+ Graphics.XHB.Gen.Input: root_y_DeviceMotionNotify :: DeviceMotionNotify -> Int16
- Graphics.XHB.Gen.Input: root_y_FocusOut :: FocusOut -> INT16
+ Graphics.XHB.Gen.Input: root_y_FocusOut :: FocusOut -> Int16
- Graphics.XHB.Gen.Input: root_y_ProximityIn :: ProximityIn -> INT16
+ Graphics.XHB.Gen.Input: root_y_ProximityIn :: ProximityIn -> Int16
- Graphics.XHB.Gen.Input: root_y_ProximityOut :: ProximityOut -> INT16
+ Graphics.XHB.Gen.Input: root_y_ProximityOut :: ProximityOut -> Int16
- Graphics.XHB.Gen.Input: rotation_DeviceAbsCalibCtl :: DeviceAbsCalibCtl -> CARD32
+ Graphics.XHB.Gen.Input: rotation_DeviceAbsCalibCtl :: DeviceAbsCalibCtl -> Word32
- Graphics.XHB.Gen.Input: rotation_DeviceAbsCalibState :: DeviceAbsCalibState -> CARD32
+ Graphics.XHB.Gen.Input: rotation_DeviceAbsCalibState :: DeviceAbsCalibState -> Word32
- Graphics.XHB.Gen.Input: same_screen_DeviceButtonPress :: DeviceButtonPress -> BOOL
+ Graphics.XHB.Gen.Input: same_screen_DeviceButtonPress :: DeviceButtonPress -> Bool
- Graphics.XHB.Gen.Input: same_screen_DeviceButtonRelease :: DeviceButtonRelease -> BOOL
+ Graphics.XHB.Gen.Input: same_screen_DeviceButtonRelease :: DeviceButtonRelease -> Bool
- Graphics.XHB.Gen.Input: same_screen_DeviceKeyPress :: DeviceKeyPress -> BOOL
+ Graphics.XHB.Gen.Input: same_screen_DeviceKeyPress :: DeviceKeyPress -> Bool
- Graphics.XHB.Gen.Input: same_screen_DeviceKeyRelease :: DeviceKeyRelease -> BOOL
+ Graphics.XHB.Gen.Input: same_screen_DeviceKeyRelease :: DeviceKeyRelease -> Bool
- Graphics.XHB.Gen.Input: same_screen_DeviceMotionNotify :: DeviceMotionNotify -> BOOL
+ Graphics.XHB.Gen.Input: same_screen_DeviceMotionNotify :: DeviceMotionNotify -> Bool
- Graphics.XHB.Gen.Input: same_screen_FocusOut :: FocusOut -> BOOL
+ Graphics.XHB.Gen.Input: same_screen_FocusOut :: FocusOut -> Bool
- Graphics.XHB.Gen.Input: same_screen_ProximityIn :: ProximityIn -> BOOL
+ Graphics.XHB.Gen.Input: same_screen_ProximityIn :: ProximityIn -> Bool
- Graphics.XHB.Gen.Input: same_screen_ProximityOut :: ProximityOut -> BOOL
+ Graphics.XHB.Gen.Input: same_screen_ProximityOut :: ProximityOut -> Bool
- Graphics.XHB.Gen.Input: screen_DeviceAbsAreaCtrl :: DeviceAbsAreaCtrl -> INT32
+ Graphics.XHB.Gen.Input: screen_DeviceAbsAreaCtrl :: DeviceAbsAreaCtrl -> Int32
- Graphics.XHB.Gen.Input: screen_DeviceAbsAreaState :: DeviceAbsAreaState -> CARD32
+ Graphics.XHB.Gen.Input: screen_DeviceAbsAreaState :: DeviceAbsAreaState -> Word32
- Graphics.XHB.Gen.Input: server_major_GetExtensionVersionReply :: GetExtensionVersionReply -> CARD16
+ Graphics.XHB.Gen.Input: server_major_GetExtensionVersionReply :: GetExtensionVersionReply -> Word16
- Graphics.XHB.Gen.Input: server_minor_GetExtensionVersionReply :: GetExtensionVersionReply -> CARD16
+ Graphics.XHB.Gen.Input: server_minor_GetExtensionVersionReply :: GetExtensionVersionReply -> Word16
- Graphics.XHB.Gen.Input: setDeviceButtonMapping :: Connection -> SetDeviceButtonMapping -> IO (Receipt SetDeviceButtonMappingReply)
+ Graphics.XHB.Gen.Input: setDeviceButtonMapping :: Connection -> SetDeviceButtonMapping -> IO (Receipt Word8)
- Graphics.XHB.Gen.Input: setDeviceMode :: Connection -> CARD8 -> CARD8 -> IO (Receipt SetDeviceModeReply)
+ Graphics.XHB.Gen.Input: setDeviceMode :: Connection -> Word8 -> Word8 -> IO (Receipt Word8)
- Graphics.XHB.Gen.Input: setDeviceModifierMapping :: Connection -> SetDeviceModifierMapping -> IO (Receipt SetDeviceModifierMappingReply)
+ Graphics.XHB.Gen.Input: setDeviceModifierMapping :: Connection -> SetDeviceModifierMapping -> IO (Receipt Word8)
- Graphics.XHB.Gen.Input: setDeviceValuators :: Connection -> SetDeviceValuators -> IO (Receipt SetDeviceValuatorsReply)
+ Graphics.XHB.Gen.Input: setDeviceValuators :: Connection -> SetDeviceValuators -> IO (Receipt Word8)
- Graphics.XHB.Gen.Input: state_DeviceButtonPress :: DeviceButtonPress -> CARD16
+ Graphics.XHB.Gen.Input: state_DeviceButtonPress :: DeviceButtonPress -> Word16
- Graphics.XHB.Gen.Input: state_DeviceButtonRelease :: DeviceButtonRelease -> CARD16
+ Graphics.XHB.Gen.Input: state_DeviceButtonRelease :: DeviceButtonRelease -> Word16
- Graphics.XHB.Gen.Input: state_DeviceKeyPress :: DeviceKeyPress -> CARD16
+ Graphics.XHB.Gen.Input: state_DeviceKeyPress :: DeviceKeyPress -> Word16
- Graphics.XHB.Gen.Input: state_DeviceKeyRelease :: DeviceKeyRelease -> CARD16
+ Graphics.XHB.Gen.Input: state_DeviceKeyRelease :: DeviceKeyRelease -> Word16
- Graphics.XHB.Gen.Input: state_DeviceMotionNotify :: DeviceMotionNotify -> CARD16
+ Graphics.XHB.Gen.Input: state_DeviceMotionNotify :: DeviceMotionNotify -> Word16
- Graphics.XHB.Gen.Input: state_FocusOut :: FocusOut -> CARD16
+ Graphics.XHB.Gen.Input: state_FocusOut :: FocusOut -> Word16
- Graphics.XHB.Gen.Input: state_ProximityIn :: ProximityIn -> CARD16
+ Graphics.XHB.Gen.Input: state_ProximityIn :: ProximityIn -> Word16
- Graphics.XHB.Gen.Input: state_ProximityOut :: ProximityOut -> CARD16
+ Graphics.XHB.Gen.Input: state_ProximityOut :: ProximityOut -> Word16
- Graphics.XHB.Gen.Input: status_ChangeKeyboardDeviceReply :: ChangeKeyboardDeviceReply -> CARD8
+ Graphics.XHB.Gen.Input: status_ChangeKeyboardDeviceReply :: ChangeKeyboardDeviceReply -> Word8
- Graphics.XHB.Gen.Input: status_ChangePointerDeviceReply :: ChangePointerDeviceReply -> CARD8
+ Graphics.XHB.Gen.Input: status_ChangePointerDeviceReply :: ChangePointerDeviceReply -> Word8
- Graphics.XHB.Gen.Input: status_DeviceCoreCtrl :: DeviceCoreCtrl -> CARD8
+ Graphics.XHB.Gen.Input: status_DeviceCoreCtrl :: DeviceCoreCtrl -> Word8
- Graphics.XHB.Gen.Input: status_DeviceCoreState :: DeviceCoreState -> CARD8
+ Graphics.XHB.Gen.Input: status_DeviceCoreState :: DeviceCoreState -> Word8
- Graphics.XHB.Gen.Input: status_GetDeviceControlReply :: GetDeviceControlReply -> CARD8
+ Graphics.XHB.Gen.Input: status_GetDeviceControlReply :: GetDeviceControlReply -> Word8
- Graphics.XHB.Gen.Input: status_GrabDeviceReply :: GrabDeviceReply -> CARD8
+ Graphics.XHB.Gen.Input: status_GrabDeviceReply :: GrabDeviceReply -> Word8
- Graphics.XHB.Gen.Input: status_SetDeviceButtonMappingReply :: SetDeviceButtonMappingReply -> CARD8
+ Graphics.XHB.Gen.Input: status_SetDeviceButtonMappingReply :: SetDeviceButtonMappingReply -> Word8
- Graphics.XHB.Gen.Input: status_SetDeviceModeReply :: SetDeviceModeReply -> CARD8
+ Graphics.XHB.Gen.Input: status_SetDeviceModeReply :: SetDeviceModeReply -> Word8
- Graphics.XHB.Gen.Input: status_SetDeviceModifierMappingReply :: SetDeviceModifierMappingReply -> CARD8
+ Graphics.XHB.Gen.Input: status_SetDeviceModifierMappingReply :: SetDeviceModifierMappingReply -> Word8
- Graphics.XHB.Gen.Input: status_SetDeviceValuatorsReply :: SetDeviceValuatorsReply -> CARD8
+ Graphics.XHB.Gen.Input: status_SetDeviceValuatorsReply :: SetDeviceValuatorsReply -> Word8
- Graphics.XHB.Gen.Input: this_device_mode_GrabDevice :: GrabDevice -> CARD8
+ Graphics.XHB.Gen.Input: this_device_mode_GrabDevice :: GrabDevice -> Word8
- Graphics.XHB.Gen.Input: this_device_mode_GrabDeviceButton :: GrabDeviceButton -> CARD8
+ Graphics.XHB.Gen.Input: this_device_mode_GrabDeviceButton :: GrabDeviceButton -> Word8
- Graphics.XHB.Gen.Input: this_device_mode_GrabDeviceKey :: GrabDeviceKey -> CARD8
+ Graphics.XHB.Gen.Input: this_device_mode_GrabDeviceKey :: GrabDeviceKey -> Word8
- Graphics.XHB.Gen.Input: threshold_PtrFeedbackCtl :: PtrFeedbackCtl -> INT16
+ Graphics.XHB.Gen.Input: threshold_PtrFeedbackCtl :: PtrFeedbackCtl -> Int16
- Graphics.XHB.Gen.Input: threshold_PtrFeedbackState :: PtrFeedbackState -> CARD16
+ Graphics.XHB.Gen.Input: threshold_PtrFeedbackState :: PtrFeedbackState -> Word16
- Graphics.XHB.Gen.Input: type EventClass = CARD32
+ Graphics.XHB.Gen.Input: type EventClass = Word32
- Graphics.XHB.Gen.Input: type KeyCode = CARD8
+ Graphics.XHB.Gen.Input: type KeyCode = Word8
- Graphics.XHB.Gen.Input: ungrabDevice :: Connection -> TIMESTAMP -> CARD8 -> IO ()
+ Graphics.XHB.Gen.Input: ungrabDevice :: Connection -> TIMESTAMP -> Word8 -> IO ()
- Graphics.XHB.Gen.Input: valuators_DeviceStateNotify :: DeviceStateNotify -> [CARD32]
+ Graphics.XHB.Gen.Input: valuators_DeviceStateNotify :: DeviceStateNotify -> [Word32]
- Graphics.XHB.Gen.Input: valuators_DeviceValuator :: DeviceValuator -> [INT32]
+ Graphics.XHB.Gen.Input: valuators_DeviceValuator :: DeviceValuator -> [Int32]
- Graphics.XHB.Gen.Input: valuators_SetDeviceValuators :: SetDeviceValuators -> [INT32]
+ Graphics.XHB.Gen.Input: valuators_SetDeviceValuators :: SetDeviceValuators -> [Int32]
- Graphics.XHB.Gen.Input: valuators_ValuatorState :: ValuatorState -> [CARD32]
+ Graphics.XHB.Gen.Input: valuators_ValuatorState :: ValuatorState -> [Word32]
- Graphics.XHB.Gen.Input: width_DeviceAbsAreaCtrl :: DeviceAbsAreaCtrl -> INT32
+ Graphics.XHB.Gen.Input: width_DeviceAbsAreaCtrl :: DeviceAbsAreaCtrl -> Int32
- Graphics.XHB.Gen.Input: width_DeviceAbsAreaState :: DeviceAbsAreaState -> CARD32
+ Graphics.XHB.Gen.Input: width_DeviceAbsAreaState :: DeviceAbsAreaState -> Word32
- Graphics.XHB.Gen.Input: x_axis_ChangePointerDevice :: ChangePointerDevice -> CARD8
+ Graphics.XHB.Gen.Input: x_axis_ChangePointerDevice :: ChangePointerDevice -> Word8
- Graphics.XHB.Gen.Input: y_axis_ChangePointerDevice :: ChangePointerDevice -> CARD8
+ Graphics.XHB.Gen.Input: y_axis_ChangePointerDevice :: ChangePointerDevice -> Word8
- Graphics.XHB.Gen.RandR: MkChangeOutputProperty :: OUTPUT -> ATOM -> ATOM -> CARD8 -> CARD8 -> CARD32 -> [Word8] -> ChangeOutputProperty
+ Graphics.XHB.Gen.RandR: MkChangeOutputProperty :: OUTPUT -> ATOM -> ATOM -> Word8 -> Word8 -> Word32 -> [Word8] -> ChangeOutputProperty
- Graphics.XHB.Gen.RandR: MkConfigureOutputProperty :: OUTPUT -> ATOM -> BOOL -> BOOL -> [INT32] -> ConfigureOutputProperty
+ Graphics.XHB.Gen.RandR: MkConfigureOutputProperty :: OUTPUT -> ATOM -> Bool -> Bool -> [Int32] -> ConfigureOutputProperty
- Graphics.XHB.Gen.RandR: MkCrtcChange :: TIMESTAMP -> WINDOW -> CRTC -> MODE -> CARD16 -> INT16 -> INT16 -> CARD16 -> CARD16 -> CrtcChange
+ Graphics.XHB.Gen.RandR: MkCrtcChange :: TIMESTAMP -> WINDOW -> CRTC -> MODE -> Word16 -> Int16 -> Int16 -> Word16 -> Word16 -> CrtcChange
- Graphics.XHB.Gen.RandR: MkGetCrtcGammaReply :: CARD16 -> [CARD16] -> [CARD16] -> [CARD16] -> GetCrtcGammaReply
+ Graphics.XHB.Gen.RandR: MkGetCrtcGammaReply :: Word16 -> [Word16] -> [Word16] -> [Word16] -> GetCrtcGammaReply
- Graphics.XHB.Gen.RandR: MkGetCrtcGammaSizeReply :: CARD16 -> GetCrtcGammaSizeReply
+ Graphics.XHB.Gen.RandR: MkGetCrtcGammaSizeReply :: Word16 -> GetCrtcGammaSizeReply
- Graphics.XHB.Gen.RandR: MkGetCrtcInfoReply :: CARD8 -> TIMESTAMP -> INT16 -> INT16 -> CARD16 -> CARD16 -> MODE -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> [OUTPUT] -> [OUTPUT] -> GetCrtcInfoReply
+ Graphics.XHB.Gen.RandR: MkGetCrtcInfoReply :: Word8 -> TIMESTAMP -> Int16 -> Int16 -> Word16 -> Word16 -> MODE -> Word16 -> Word16 -> Word16 -> Word16 -> [OUTPUT] -> [OUTPUT] -> GetCrtcInfoReply
- Graphics.XHB.Gen.RandR: MkGetOutputInfoReply :: CARD8 -> TIMESTAMP -> CRTC -> CARD32 -> CARD32 -> CARD8 -> CARD8 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> [CRTC] -> [MODE] -> [OUTPUT] -> [BYTE] -> GetOutputInfoReply
+ Graphics.XHB.Gen.RandR: MkGetOutputInfoReply :: Word8 -> TIMESTAMP -> CRTC -> Word32 -> Word32 -> Word8 -> Word8 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> [CRTC] -> [MODE] -> [OUTPUT] -> [Word8] -> GetOutputInfoReply
- Graphics.XHB.Gen.RandR: MkGetOutputProperty :: OUTPUT -> ATOM -> ATOM -> CARD32 -> CARD32 -> BOOL -> BOOL -> GetOutputProperty
+ Graphics.XHB.Gen.RandR: MkGetOutputProperty :: OUTPUT -> ATOM -> ATOM -> Word32 -> Word32 -> Bool -> Bool -> GetOutputProperty
- Graphics.XHB.Gen.RandR: MkGetOutputPropertyReply :: CARD8 -> ATOM -> CARD32 -> CARD32 -> [BYTE] -> GetOutputPropertyReply
+ Graphics.XHB.Gen.RandR: MkGetOutputPropertyReply :: Word8 -> ATOM -> Word32 -> Word32 -> [Word8] -> GetOutputPropertyReply
- Graphics.XHB.Gen.RandR: MkGetScreenInfoReply :: CARD8 -> WINDOW -> TIMESTAMP -> TIMESTAMP -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> [ScreenSize] -> [RefreshRates] -> GetScreenInfoReply
+ Graphics.XHB.Gen.RandR: MkGetScreenInfoReply :: Word8 -> WINDOW -> TIMESTAMP -> TIMESTAMP -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> [ScreenSize] -> [RefreshRates] -> GetScreenInfoReply
- Graphics.XHB.Gen.RandR: MkGetScreenResourcesReply :: TIMESTAMP -> TIMESTAMP -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> [CRTC] -> [OUTPUT] -> [ModeInfo] -> [BYTE] -> GetScreenResourcesReply
+ Graphics.XHB.Gen.RandR: MkGetScreenResourcesReply :: TIMESTAMP -> TIMESTAMP -> Word16 -> Word16 -> Word16 -> Word16 -> [CRTC] -> [OUTPUT] -> [ModeInfo] -> [Word8] -> GetScreenResourcesReply
- Graphics.XHB.Gen.RandR: MkGetScreenSizeRangeReply :: CARD16 -> CARD16 -> CARD16 -> CARD16 -> GetScreenSizeRangeReply
+ Graphics.XHB.Gen.RandR: MkGetScreenSizeRangeReply :: Word16 -> Word16 -> Word16 -> Word16 -> GetScreenSizeRangeReply
- Graphics.XHB.Gen.RandR: MkListOutputPropertiesReply :: CARD16 -> [ATOM] -> ListOutputPropertiesReply
+ Graphics.XHB.Gen.RandR: MkListOutputPropertiesReply :: Word16 -> [ATOM] -> ListOutputPropertiesReply
- Graphics.XHB.Gen.RandR: MkModeInfo :: CARD32 -> CARD16 -> CARD16 -> CARD32 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD32 -> ModeInfo
+ Graphics.XHB.Gen.RandR: MkModeInfo :: Word32 -> Word16 -> Word16 -> Word32 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word32 -> ModeInfo
- Graphics.XHB.Gen.RandR: MkNotify :: CARD8 -> NotifyData -> Notify
+ Graphics.XHB.Gen.RandR: MkNotify :: Word8 -> NotifyData -> Notify
- Graphics.XHB.Gen.RandR: MkOutputChange :: TIMESTAMP -> TIMESTAMP -> WINDOW -> OUTPUT -> CRTC -> MODE -> CARD16 -> CARD8 -> CARD8 -> OutputChange
+ Graphics.XHB.Gen.RandR: MkOutputChange :: TIMESTAMP -> TIMESTAMP -> WINDOW -> OUTPUT -> CRTC -> MODE -> Word16 -> Word8 -> Word8 -> OutputChange
- Graphics.XHB.Gen.RandR: MkOutputProperty :: WINDOW -> OUTPUT -> ATOM -> TIMESTAMP -> CARD8 -> OutputProperty
+ Graphics.XHB.Gen.RandR: MkOutputProperty :: WINDOW -> OUTPUT -> ATOM -> TIMESTAMP -> Word8 -> OutputProperty
- Graphics.XHB.Gen.RandR: MkQueryOutputPropertyReply :: BOOL -> BOOL -> BOOL -> [INT32] -> QueryOutputPropertyReply
+ Graphics.XHB.Gen.RandR: MkQueryOutputPropertyReply :: Bool -> Bool -> Bool -> [Int32] -> QueryOutputPropertyReply
- Graphics.XHB.Gen.RandR: MkQueryVersion :: CARD32 -> CARD32 -> QueryVersion
+ Graphics.XHB.Gen.RandR: MkQueryVersion :: Word32 -> Word32 -> QueryVersion
- Graphics.XHB.Gen.RandR: MkQueryVersionReply :: CARD32 -> CARD32 -> QueryVersionReply
+ Graphics.XHB.Gen.RandR: MkQueryVersionReply :: Word32 -> Word32 -> QueryVersionReply
- Graphics.XHB.Gen.RandR: MkRefreshRates :: CARD16 -> [CARD16] -> RefreshRates
+ Graphics.XHB.Gen.RandR: MkRefreshRates :: Word16 -> [Word16] -> RefreshRates
- Graphics.XHB.Gen.RandR: MkScreenChangeNotify :: CARD8 -> TIMESTAMP -> TIMESTAMP -> WINDOW -> WINDOW -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> ScreenChangeNotify
+ Graphics.XHB.Gen.RandR: MkScreenChangeNotify :: Word8 -> TIMESTAMP -> TIMESTAMP -> WINDOW -> WINDOW -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> ScreenChangeNotify
- Graphics.XHB.Gen.RandR: MkScreenSize :: CARD16 -> CARD16 -> CARD16 -> CARD16 -> ScreenSize
+ Graphics.XHB.Gen.RandR: MkScreenSize :: Word16 -> Word16 -> Word16 -> Word16 -> ScreenSize
- Graphics.XHB.Gen.RandR: MkSelectInput :: WINDOW -> CARD16 -> SelectInput
+ Graphics.XHB.Gen.RandR: MkSelectInput :: WINDOW -> Word16 -> SelectInput
- Graphics.XHB.Gen.RandR: MkSetCrtcConfig :: CRTC -> TIMESTAMP -> TIMESTAMP -> INT16 -> INT16 -> MODE -> CARD16 -> [OUTPUT] -> SetCrtcConfig
+ Graphics.XHB.Gen.RandR: MkSetCrtcConfig :: CRTC -> TIMESTAMP -> TIMESTAMP -> Int16 -> Int16 -> MODE -> Word16 -> [OUTPUT] -> SetCrtcConfig
- Graphics.XHB.Gen.RandR: MkSetCrtcConfigReply :: CARD8 -> TIMESTAMP -> SetCrtcConfigReply
+ Graphics.XHB.Gen.RandR: MkSetCrtcConfigReply :: Word8 -> TIMESTAMP -> SetCrtcConfigReply
- Graphics.XHB.Gen.RandR: MkSetCrtcGamma :: CRTC -> CARD16 -> [CARD16] -> [CARD16] -> [CARD16] -> SetCrtcGamma
+ Graphics.XHB.Gen.RandR: MkSetCrtcGamma :: CRTC -> Word16 -> [Word16] -> [Word16] -> [Word16] -> SetCrtcGamma
- Graphics.XHB.Gen.RandR: MkSetScreenConfig :: WINDOW -> TIMESTAMP -> TIMESTAMP -> CARD16 -> CARD16 -> CARD16 -> SetScreenConfig
+ Graphics.XHB.Gen.RandR: MkSetScreenConfig :: WINDOW -> TIMESTAMP -> TIMESTAMP -> Word16 -> Word16 -> Word16 -> SetScreenConfig
- Graphics.XHB.Gen.RandR: MkSetScreenConfigReply :: CARD8 -> TIMESTAMP -> TIMESTAMP -> WINDOW -> CARD16 -> SetScreenConfigReply
+ Graphics.XHB.Gen.RandR: MkSetScreenConfigReply :: Word8 -> TIMESTAMP -> TIMESTAMP -> WINDOW -> Word16 -> SetScreenConfigReply
- Graphics.XHB.Gen.RandR: MkSetScreenSize :: WINDOW -> CARD16 -> CARD16 -> CARD32 -> CARD32 -> SetScreenSize
+ Graphics.XHB.Gen.RandR: MkSetScreenSize :: WINDOW -> Word16 -> Word16 -> Word32 -> Word32 -> SetScreenSize
- Graphics.XHB.Gen.RandR: blue_GetCrtcGammaReply :: GetCrtcGammaReply -> [CARD16]
+ Graphics.XHB.Gen.RandR: blue_GetCrtcGammaReply :: GetCrtcGammaReply -> [Word16]
- Graphics.XHB.Gen.RandR: blue_SetCrtcGamma :: SetCrtcGamma -> [CARD16]
+ Graphics.XHB.Gen.RandR: blue_SetCrtcGamma :: SetCrtcGamma -> [Word16]
- Graphics.XHB.Gen.RandR: bytes_after_GetOutputPropertyReply :: GetOutputPropertyReply -> CARD32
+ Graphics.XHB.Gen.RandR: bytes_after_GetOutputPropertyReply :: GetOutputPropertyReply -> Word32
- Graphics.XHB.Gen.RandR: connection_GetOutputInfoReply :: GetOutputInfoReply -> CARD8
+ Graphics.XHB.Gen.RandR: connection_GetOutputInfoReply :: GetOutputInfoReply -> Word8
- Graphics.XHB.Gen.RandR: connection_OutputChange :: OutputChange -> CARD8
+ Graphics.XHB.Gen.RandR: connection_OutputChange :: OutputChange -> Word8
- Graphics.XHB.Gen.RandR: createMode :: Connection -> CreateMode -> IO (Receipt CreateModeReply)
+ Graphics.XHB.Gen.RandR: createMode :: Connection -> CreateMode -> IO (Receipt MODE)
- Graphics.XHB.Gen.RandR: data_GetOutputPropertyReply :: GetOutputPropertyReply -> [BYTE]
+ Graphics.XHB.Gen.RandR: data_GetOutputPropertyReply :: GetOutputPropertyReply -> [Word8]
- Graphics.XHB.Gen.RandR: delete_GetOutputProperty :: GetOutputProperty -> BOOL
+ Graphics.XHB.Gen.RandR: delete_GetOutputProperty :: GetOutputProperty -> Bool
- Graphics.XHB.Gen.RandR: dot_clock_ModeInfo :: ModeInfo -> CARD32
+ Graphics.XHB.Gen.RandR: dot_clock_ModeInfo :: ModeInfo -> Word32
- Graphics.XHB.Gen.RandR: enable_SelectInput :: SelectInput -> CARD16
+ Graphics.XHB.Gen.RandR: enable_SelectInput :: SelectInput -> Word16
- Graphics.XHB.Gen.RandR: format_ChangeOutputProperty :: ChangeOutputProperty -> CARD8
+ Graphics.XHB.Gen.RandR: format_ChangeOutputProperty :: ChangeOutputProperty -> Word8
- Graphics.XHB.Gen.RandR: format_GetOutputPropertyReply :: GetOutputPropertyReply -> CARD8
+ Graphics.XHB.Gen.RandR: format_GetOutputPropertyReply :: GetOutputPropertyReply -> Word8
- Graphics.XHB.Gen.RandR: getCrtcGammaSize :: Connection -> CRTC -> IO (Receipt GetCrtcGammaSizeReply)
+ Graphics.XHB.Gen.RandR: getCrtcGammaSize :: Connection -> CRTC -> IO (Receipt Word16)
- Graphics.XHB.Gen.RandR: green_GetCrtcGammaReply :: GetCrtcGammaReply -> [CARD16]
+ Graphics.XHB.Gen.RandR: green_GetCrtcGammaReply :: GetCrtcGammaReply -> [Word16]
- Graphics.XHB.Gen.RandR: green_SetCrtcGamma :: SetCrtcGamma -> [CARD16]
+ Graphics.XHB.Gen.RandR: green_SetCrtcGamma :: SetCrtcGamma -> [Word16]
- Graphics.XHB.Gen.RandR: height_CrtcChange :: CrtcChange -> CARD16
+ Graphics.XHB.Gen.RandR: height_CrtcChange :: CrtcChange -> Word16
- Graphics.XHB.Gen.RandR: height_GetCrtcInfoReply :: GetCrtcInfoReply -> CARD16
+ Graphics.XHB.Gen.RandR: height_GetCrtcInfoReply :: GetCrtcInfoReply -> Word16
- Graphics.XHB.Gen.RandR: height_ModeInfo :: ModeInfo -> CARD16
+ Graphics.XHB.Gen.RandR: height_ModeInfo :: ModeInfo -> Word16
- Graphics.XHB.Gen.RandR: height_ScreenChangeNotify :: ScreenChangeNotify -> CARD16
+ Graphics.XHB.Gen.RandR: height_ScreenChangeNotify :: ScreenChangeNotify -> Word16
- Graphics.XHB.Gen.RandR: height_ScreenSize :: ScreenSize -> CARD16
+ Graphics.XHB.Gen.RandR: height_ScreenSize :: ScreenSize -> Word16
- Graphics.XHB.Gen.RandR: height_SetScreenSize :: SetScreenSize -> CARD16
+ Graphics.XHB.Gen.RandR: height_SetScreenSize :: SetScreenSize -> Word16
- Graphics.XHB.Gen.RandR: hskew_ModeInfo :: ModeInfo -> CARD16
+ Graphics.XHB.Gen.RandR: hskew_ModeInfo :: ModeInfo -> Word16
- Graphics.XHB.Gen.RandR: hsync_end_ModeInfo :: ModeInfo -> CARD16
+ Graphics.XHB.Gen.RandR: hsync_end_ModeInfo :: ModeInfo -> Word16
- Graphics.XHB.Gen.RandR: hsync_start_ModeInfo :: ModeInfo -> CARD16
+ Graphics.XHB.Gen.RandR: hsync_start_ModeInfo :: ModeInfo -> Word16
- Graphics.XHB.Gen.RandR: htotal_ModeInfo :: ModeInfo -> CARD16
+ Graphics.XHB.Gen.RandR: htotal_ModeInfo :: ModeInfo -> Word16
- Graphics.XHB.Gen.RandR: id_ModeInfo :: ModeInfo -> CARD32
+ Graphics.XHB.Gen.RandR: id_ModeInfo :: ModeInfo -> Word32
- Graphics.XHB.Gen.RandR: immutable_QueryOutputPropertyReply :: QueryOutputPropertyReply -> BOOL
+ Graphics.XHB.Gen.RandR: immutable_QueryOutputPropertyReply :: QueryOutputPropertyReply -> Bool
- Graphics.XHB.Gen.RandR: long_length_GetOutputProperty :: GetOutputProperty -> CARD32
+ Graphics.XHB.Gen.RandR: long_length_GetOutputProperty :: GetOutputProperty -> Word32
- Graphics.XHB.Gen.RandR: long_offset_GetOutputProperty :: GetOutputProperty -> CARD32
+ Graphics.XHB.Gen.RandR: long_offset_GetOutputProperty :: GetOutputProperty -> Word32
- Graphics.XHB.Gen.RandR: major_version_QueryVersion :: QueryVersion -> CARD32
+ Graphics.XHB.Gen.RandR: major_version_QueryVersion :: QueryVersion -> Word32
- Graphics.XHB.Gen.RandR: major_version_QueryVersionReply :: QueryVersionReply -> CARD32
+ Graphics.XHB.Gen.RandR: major_version_QueryVersionReply :: QueryVersionReply -> Word32
- Graphics.XHB.Gen.RandR: max_height_GetScreenSizeRangeReply :: GetScreenSizeRangeReply -> CARD16
+ Graphics.XHB.Gen.RandR: max_height_GetScreenSizeRangeReply :: GetScreenSizeRangeReply -> Word16
- Graphics.XHB.Gen.RandR: max_width_GetScreenSizeRangeReply :: GetScreenSizeRangeReply -> CARD16
+ Graphics.XHB.Gen.RandR: max_width_GetScreenSizeRangeReply :: GetScreenSizeRangeReply -> Word16
- Graphics.XHB.Gen.RandR: mheight_ScreenChangeNotify :: ScreenChangeNotify -> CARD16
+ Graphics.XHB.Gen.RandR: mheight_ScreenChangeNotify :: ScreenChangeNotify -> Word16
- Graphics.XHB.Gen.RandR: mheight_ScreenSize :: ScreenSize -> CARD16
+ Graphics.XHB.Gen.RandR: mheight_ScreenSize :: ScreenSize -> Word16
- Graphics.XHB.Gen.RandR: min_height_GetScreenSizeRangeReply :: GetScreenSizeRangeReply -> CARD16
+ Graphics.XHB.Gen.RandR: min_height_GetScreenSizeRangeReply :: GetScreenSizeRangeReply -> Word16
- Graphics.XHB.Gen.RandR: min_width_GetScreenSizeRangeReply :: GetScreenSizeRangeReply -> CARD16
+ Graphics.XHB.Gen.RandR: min_width_GetScreenSizeRangeReply :: GetScreenSizeRangeReply -> Word16
- Graphics.XHB.Gen.RandR: minor_version_QueryVersion :: QueryVersion -> CARD32
+ Graphics.XHB.Gen.RandR: minor_version_QueryVersion :: QueryVersion -> Word32
- Graphics.XHB.Gen.RandR: minor_version_QueryVersionReply :: QueryVersionReply -> CARD32
+ Graphics.XHB.Gen.RandR: minor_version_QueryVersionReply :: QueryVersionReply -> Word32
- Graphics.XHB.Gen.RandR: mm_height_GetOutputInfoReply :: GetOutputInfoReply -> CARD32
+ Graphics.XHB.Gen.RandR: mm_height_GetOutputInfoReply :: GetOutputInfoReply -> Word32
- Graphics.XHB.Gen.RandR: mm_height_SetScreenSize :: SetScreenSize -> CARD32
+ Graphics.XHB.Gen.RandR: mm_height_SetScreenSize :: SetScreenSize -> Word32
- Graphics.XHB.Gen.RandR: mm_width_GetOutputInfoReply :: GetOutputInfoReply -> CARD32
+ Graphics.XHB.Gen.RandR: mm_width_GetOutputInfoReply :: GetOutputInfoReply -> Word32
- Graphics.XHB.Gen.RandR: mm_width_SetScreenSize :: SetScreenSize -> CARD32
+ Graphics.XHB.Gen.RandR: mm_width_SetScreenSize :: SetScreenSize -> Word32
- Graphics.XHB.Gen.RandR: mode_ChangeOutputProperty :: ChangeOutputProperty -> CARD8
+ Graphics.XHB.Gen.RandR: mode_ChangeOutputProperty :: ChangeOutputProperty -> Word8
- Graphics.XHB.Gen.RandR: mode_flags_ModeInfo :: ModeInfo -> CARD32
+ Graphics.XHB.Gen.RandR: mode_flags_ModeInfo :: ModeInfo -> Word32
- Graphics.XHB.Gen.RandR: mwidth_ScreenChangeNotify :: ScreenChangeNotify -> CARD16
+ Graphics.XHB.Gen.RandR: mwidth_ScreenChangeNotify :: ScreenChangeNotify -> Word16
- Graphics.XHB.Gen.RandR: mwidth_ScreenSize :: ScreenSize -> CARD16
+ Graphics.XHB.Gen.RandR: mwidth_ScreenSize :: ScreenSize -> Word16
- Graphics.XHB.Gen.RandR: nInfo_GetScreenInfoReply :: GetScreenInfoReply -> CARD16
+ Graphics.XHB.Gen.RandR: nInfo_GetScreenInfoReply :: GetScreenInfoReply -> Word16
- Graphics.XHB.Gen.RandR: nRates_RefreshRates :: RefreshRates -> CARD16
+ Graphics.XHB.Gen.RandR: nRates_RefreshRates :: RefreshRates -> Word16
- Graphics.XHB.Gen.RandR: nSizes_GetScreenInfoReply :: GetScreenInfoReply -> CARD16
+ Graphics.XHB.Gen.RandR: nSizes_GetScreenInfoReply :: GetScreenInfoReply -> Word16
- Graphics.XHB.Gen.RandR: name_GetOutputInfoReply :: GetOutputInfoReply -> [BYTE]
+ Graphics.XHB.Gen.RandR: name_GetOutputInfoReply :: GetOutputInfoReply -> [Word8]
- Graphics.XHB.Gen.RandR: name_len_GetOutputInfoReply :: GetOutputInfoReply -> CARD16
+ Graphics.XHB.Gen.RandR: name_len_GetOutputInfoReply :: GetOutputInfoReply -> Word16
- Graphics.XHB.Gen.RandR: name_len_ModeInfo :: ModeInfo -> CARD16
+ Graphics.XHB.Gen.RandR: name_len_ModeInfo :: ModeInfo -> Word16
- Graphics.XHB.Gen.RandR: names_GetScreenResourcesReply :: GetScreenResourcesReply -> [BYTE]
+ Graphics.XHB.Gen.RandR: names_GetScreenResourcesReply :: GetScreenResourcesReply -> [Word8]
- Graphics.XHB.Gen.RandR: names_len_GetScreenResourcesReply :: GetScreenResourcesReply -> CARD16
+ Graphics.XHB.Gen.RandR: names_len_GetScreenResourcesReply :: GetScreenResourcesReply -> Word16
- Graphics.XHB.Gen.RandR: num_atoms_ListOutputPropertiesReply :: ListOutputPropertiesReply -> CARD16
+ Graphics.XHB.Gen.RandR: num_atoms_ListOutputPropertiesReply :: ListOutputPropertiesReply -> Word16
- Graphics.XHB.Gen.RandR: num_clones_GetOutputInfoReply :: GetOutputInfoReply -> CARD16
+ Graphics.XHB.Gen.RandR: num_clones_GetOutputInfoReply :: GetOutputInfoReply -> Word16
- Graphics.XHB.Gen.RandR: num_crtcs_GetOutputInfoReply :: GetOutputInfoReply -> CARD16
+ Graphics.XHB.Gen.RandR: num_crtcs_GetOutputInfoReply :: GetOutputInfoReply -> Word16
- Graphics.XHB.Gen.RandR: num_crtcs_GetScreenResourcesReply :: GetScreenResourcesReply -> CARD16
+ Graphics.XHB.Gen.RandR: num_crtcs_GetScreenResourcesReply :: GetScreenResourcesReply -> Word16
- Graphics.XHB.Gen.RandR: num_items_GetOutputPropertyReply :: GetOutputPropertyReply -> CARD32
+ Graphics.XHB.Gen.RandR: num_items_GetOutputPropertyReply :: GetOutputPropertyReply -> Word32
- Graphics.XHB.Gen.RandR: num_modes_GetOutputInfoReply :: GetOutputInfoReply -> CARD16
+ Graphics.XHB.Gen.RandR: num_modes_GetOutputInfoReply :: GetOutputInfoReply -> Word16
- Graphics.XHB.Gen.RandR: num_modes_GetScreenResourcesReply :: GetScreenResourcesReply -> CARD16
+ Graphics.XHB.Gen.RandR: num_modes_GetScreenResourcesReply :: GetScreenResourcesReply -> Word16
- Graphics.XHB.Gen.RandR: num_outputs_GetCrtcInfoReply :: GetCrtcInfoReply -> CARD16
+ Graphics.XHB.Gen.RandR: num_outputs_GetCrtcInfoReply :: GetCrtcInfoReply -> Word16
- Graphics.XHB.Gen.RandR: num_outputs_GetScreenResourcesReply :: GetScreenResourcesReply -> CARD16
+ Graphics.XHB.Gen.RandR: num_outputs_GetScreenResourcesReply :: GetScreenResourcesReply -> Word16
- Graphics.XHB.Gen.RandR: num_possible_outputs_GetCrtcInfoReply :: GetCrtcInfoReply -> CARD16
+ Graphics.XHB.Gen.RandR: num_possible_outputs_GetCrtcInfoReply :: GetCrtcInfoReply -> Word16
- Graphics.XHB.Gen.RandR: num_preferred_GetOutputInfoReply :: GetOutputInfoReply -> CARD16
+ Graphics.XHB.Gen.RandR: num_preferred_GetOutputInfoReply :: GetOutputInfoReply -> Word16
- Graphics.XHB.Gen.RandR: num_units_ChangeOutputProperty :: ChangeOutputProperty -> CARD32
+ Graphics.XHB.Gen.RandR: num_units_ChangeOutputProperty :: ChangeOutputProperty -> Word32
- Graphics.XHB.Gen.RandR: pending_ConfigureOutputProperty :: ConfigureOutputProperty -> BOOL
+ Graphics.XHB.Gen.RandR: pending_ConfigureOutputProperty :: ConfigureOutputProperty -> Bool
- Graphics.XHB.Gen.RandR: pending_GetOutputProperty :: GetOutputProperty -> BOOL
+ Graphics.XHB.Gen.RandR: pending_GetOutputProperty :: GetOutputProperty -> Bool
- Graphics.XHB.Gen.RandR: pending_QueryOutputPropertyReply :: QueryOutputPropertyReply -> BOOL
+ Graphics.XHB.Gen.RandR: pending_QueryOutputPropertyReply :: QueryOutputPropertyReply -> Bool
- Graphics.XHB.Gen.RandR: queryVersion :: Connection -> CARD32 -> CARD32 -> IO (Receipt QueryVersionReply)
+ Graphics.XHB.Gen.RandR: queryVersion :: Connection -> Word32 -> Word32 -> IO (Receipt QueryVersionReply)
- Graphics.XHB.Gen.RandR: range_ConfigureOutputProperty :: ConfigureOutputProperty -> BOOL
+ Graphics.XHB.Gen.RandR: range_ConfigureOutputProperty :: ConfigureOutputProperty -> Bool
- Graphics.XHB.Gen.RandR: range_QueryOutputPropertyReply :: QueryOutputPropertyReply -> BOOL
+ Graphics.XHB.Gen.RandR: range_QueryOutputPropertyReply :: QueryOutputPropertyReply -> Bool
- Graphics.XHB.Gen.RandR: rate_GetScreenInfoReply :: GetScreenInfoReply -> CARD16
+ Graphics.XHB.Gen.RandR: rate_GetScreenInfoReply :: GetScreenInfoReply -> Word16
- Graphics.XHB.Gen.RandR: rate_SetScreenConfig :: SetScreenConfig -> CARD16
+ Graphics.XHB.Gen.RandR: rate_SetScreenConfig :: SetScreenConfig -> Word16
- Graphics.XHB.Gen.RandR: rates_RefreshRates :: RefreshRates -> [CARD16]
+ Graphics.XHB.Gen.RandR: rates_RefreshRates :: RefreshRates -> [Word16]
- Graphics.XHB.Gen.RandR: red_GetCrtcGammaReply :: GetCrtcGammaReply -> [CARD16]
+ Graphics.XHB.Gen.RandR: red_GetCrtcGammaReply :: GetCrtcGammaReply -> [Word16]
- Graphics.XHB.Gen.RandR: red_SetCrtcGamma :: SetCrtcGamma -> [CARD16]
+ Graphics.XHB.Gen.RandR: red_SetCrtcGamma :: SetCrtcGamma -> [Word16]
- Graphics.XHB.Gen.RandR: rotation_CrtcChange :: CrtcChange -> CARD16
+ Graphics.XHB.Gen.RandR: rotation_CrtcChange :: CrtcChange -> Word16
- Graphics.XHB.Gen.RandR: rotation_GetCrtcInfoReply :: GetCrtcInfoReply -> CARD16
+ Graphics.XHB.Gen.RandR: rotation_GetCrtcInfoReply :: GetCrtcInfoReply -> Word16
- Graphics.XHB.Gen.RandR: rotation_GetScreenInfoReply :: GetScreenInfoReply -> CARD16
+ Graphics.XHB.Gen.RandR: rotation_GetScreenInfoReply :: GetScreenInfoReply -> Word16
- Graphics.XHB.Gen.RandR: rotation_OutputChange :: OutputChange -> CARD16
+ Graphics.XHB.Gen.RandR: rotation_OutputChange :: OutputChange -> Word16
- Graphics.XHB.Gen.RandR: rotation_ScreenChangeNotify :: ScreenChangeNotify -> CARD8
+ Graphics.XHB.Gen.RandR: rotation_ScreenChangeNotify :: ScreenChangeNotify -> Word8
- Graphics.XHB.Gen.RandR: rotation_SetCrtcConfig :: SetCrtcConfig -> CARD16
+ Graphics.XHB.Gen.RandR: rotation_SetCrtcConfig :: SetCrtcConfig -> Word16
- Graphics.XHB.Gen.RandR: rotation_SetScreenConfig :: SetScreenConfig -> CARD16
+ Graphics.XHB.Gen.RandR: rotation_SetScreenConfig :: SetScreenConfig -> Word16
- Graphics.XHB.Gen.RandR: rotations_GetCrtcInfoReply :: GetCrtcInfoReply -> CARD16
+ Graphics.XHB.Gen.RandR: rotations_GetCrtcInfoReply :: GetCrtcInfoReply -> Word16
- Graphics.XHB.Gen.RandR: rotations_GetScreenInfoReply :: GetScreenInfoReply -> CARD8
+ Graphics.XHB.Gen.RandR: rotations_GetScreenInfoReply :: GetScreenInfoReply -> Word8
- Graphics.XHB.Gen.RandR: selectInput :: Connection -> WINDOW -> CARD16 -> IO ()
+ Graphics.XHB.Gen.RandR: selectInput :: Connection -> WINDOW -> Word16 -> IO ()
- Graphics.XHB.Gen.RandR: sizeID_GetScreenInfoReply :: GetScreenInfoReply -> CARD16
+ Graphics.XHB.Gen.RandR: sizeID_GetScreenInfoReply :: GetScreenInfoReply -> Word16
- Graphics.XHB.Gen.RandR: sizeID_ScreenChangeNotify :: ScreenChangeNotify -> CARD16
+ Graphics.XHB.Gen.RandR: sizeID_ScreenChangeNotify :: ScreenChangeNotify -> Word16
- Graphics.XHB.Gen.RandR: sizeID_SetScreenConfig :: SetScreenConfig -> CARD16
+ Graphics.XHB.Gen.RandR: sizeID_SetScreenConfig :: SetScreenConfig -> Word16
- Graphics.XHB.Gen.RandR: size_GetCrtcGammaReply :: GetCrtcGammaReply -> CARD16
+ Graphics.XHB.Gen.RandR: size_GetCrtcGammaReply :: GetCrtcGammaReply -> Word16
- Graphics.XHB.Gen.RandR: size_GetCrtcGammaSizeReply :: GetCrtcGammaSizeReply -> CARD16
+ Graphics.XHB.Gen.RandR: size_GetCrtcGammaSizeReply :: GetCrtcGammaSizeReply -> Word16
- Graphics.XHB.Gen.RandR: size_SetCrtcGamma :: SetCrtcGamma -> CARD16
+ Graphics.XHB.Gen.RandR: size_SetCrtcGamma :: SetCrtcGamma -> Word16
- Graphics.XHB.Gen.RandR: status_GetCrtcInfoReply :: GetCrtcInfoReply -> CARD8
+ Graphics.XHB.Gen.RandR: status_GetCrtcInfoReply :: GetCrtcInfoReply -> Word8
- Graphics.XHB.Gen.RandR: status_GetOutputInfoReply :: GetOutputInfoReply -> CARD8
+ Graphics.XHB.Gen.RandR: status_GetOutputInfoReply :: GetOutputInfoReply -> Word8
- Graphics.XHB.Gen.RandR: status_OutputProperty :: OutputProperty -> CARD8
+ Graphics.XHB.Gen.RandR: status_OutputProperty :: OutputProperty -> Word8
- Graphics.XHB.Gen.RandR: status_SetCrtcConfigReply :: SetCrtcConfigReply -> CARD8
+ Graphics.XHB.Gen.RandR: status_SetCrtcConfigReply :: SetCrtcConfigReply -> Word8
- Graphics.XHB.Gen.RandR: status_SetScreenConfigReply :: SetScreenConfigReply -> CARD8
+ Graphics.XHB.Gen.RandR: status_SetScreenConfigReply :: SetScreenConfigReply -> Word8
- Graphics.XHB.Gen.RandR: subCode_Notify :: Notify -> CARD8
+ Graphics.XHB.Gen.RandR: subCode_Notify :: Notify -> Word8
- Graphics.XHB.Gen.RandR: subpixel_order_GetOutputInfoReply :: GetOutputInfoReply -> CARD8
+ Graphics.XHB.Gen.RandR: subpixel_order_GetOutputInfoReply :: GetOutputInfoReply -> Word8
- Graphics.XHB.Gen.RandR: subpixel_order_OutputChange :: OutputChange -> CARD8
+ Graphics.XHB.Gen.RandR: subpixel_order_OutputChange :: OutputChange -> Word8
- Graphics.XHB.Gen.RandR: subpixel_order_ScreenChangeNotify :: ScreenChangeNotify -> CARD16
+ Graphics.XHB.Gen.RandR: subpixel_order_ScreenChangeNotify :: ScreenChangeNotify -> Word16
- Graphics.XHB.Gen.RandR: subpixel_order_SetScreenConfigReply :: SetScreenConfigReply -> CARD16
+ Graphics.XHB.Gen.RandR: subpixel_order_SetScreenConfigReply :: SetScreenConfigReply -> Word16
- Graphics.XHB.Gen.RandR: validValues_QueryOutputPropertyReply :: QueryOutputPropertyReply -> [INT32]
+ Graphics.XHB.Gen.RandR: validValues_QueryOutputPropertyReply :: QueryOutputPropertyReply -> [Int32]
- Graphics.XHB.Gen.RandR: values_ConfigureOutputProperty :: ConfigureOutputProperty -> [INT32]
+ Graphics.XHB.Gen.RandR: values_ConfigureOutputProperty :: ConfigureOutputProperty -> [Int32]
- Graphics.XHB.Gen.RandR: vsync_end_ModeInfo :: ModeInfo -> CARD16
+ Graphics.XHB.Gen.RandR: vsync_end_ModeInfo :: ModeInfo -> Word16
- Graphics.XHB.Gen.RandR: vsync_start_ModeInfo :: ModeInfo -> CARD16
+ Graphics.XHB.Gen.RandR: vsync_start_ModeInfo :: ModeInfo -> Word16
- Graphics.XHB.Gen.RandR: vtotal_ModeInfo :: ModeInfo -> CARD16
+ Graphics.XHB.Gen.RandR: vtotal_ModeInfo :: ModeInfo -> Word16
- Graphics.XHB.Gen.RandR: width_CrtcChange :: CrtcChange -> CARD16
+ Graphics.XHB.Gen.RandR: width_CrtcChange :: CrtcChange -> Word16
- Graphics.XHB.Gen.RandR: width_GetCrtcInfoReply :: GetCrtcInfoReply -> CARD16
+ Graphics.XHB.Gen.RandR: width_GetCrtcInfoReply :: GetCrtcInfoReply -> Word16
- Graphics.XHB.Gen.RandR: width_ModeInfo :: ModeInfo -> CARD16
+ Graphics.XHB.Gen.RandR: width_ModeInfo :: ModeInfo -> Word16
- Graphics.XHB.Gen.RandR: width_ScreenChangeNotify :: ScreenChangeNotify -> CARD16
+ Graphics.XHB.Gen.RandR: width_ScreenChangeNotify :: ScreenChangeNotify -> Word16
- Graphics.XHB.Gen.RandR: width_ScreenSize :: ScreenSize -> CARD16
+ Graphics.XHB.Gen.RandR: width_ScreenSize :: ScreenSize -> Word16
- Graphics.XHB.Gen.RandR: width_SetScreenSize :: SetScreenSize -> CARD16
+ Graphics.XHB.Gen.RandR: width_SetScreenSize :: SetScreenSize -> Word16
- Graphics.XHB.Gen.RandR: x_CrtcChange :: CrtcChange -> INT16
+ Graphics.XHB.Gen.RandR: x_CrtcChange :: CrtcChange -> Int16
- Graphics.XHB.Gen.RandR: x_GetCrtcInfoReply :: GetCrtcInfoReply -> INT16
+ Graphics.XHB.Gen.RandR: x_GetCrtcInfoReply :: GetCrtcInfoReply -> Int16
- Graphics.XHB.Gen.RandR: x_SetCrtcConfig :: SetCrtcConfig -> INT16
+ Graphics.XHB.Gen.RandR: x_SetCrtcConfig :: SetCrtcConfig -> Int16
- Graphics.XHB.Gen.RandR: y_CrtcChange :: CrtcChange -> INT16
+ Graphics.XHB.Gen.RandR: y_CrtcChange :: CrtcChange -> Int16
- Graphics.XHB.Gen.RandR: y_GetCrtcInfoReply :: GetCrtcInfoReply -> INT16
+ Graphics.XHB.Gen.RandR: y_GetCrtcInfoReply :: GetCrtcInfoReply -> Int16
- Graphics.XHB.Gen.RandR: y_SetCrtcConfig :: SetCrtcConfig -> INT16
+ Graphics.XHB.Gen.RandR: y_SetCrtcConfig :: SetCrtcConfig -> Int16
- Graphics.XHB.Gen.Record: MkBadContext :: CARD32 -> BadContext
+ Graphics.XHB.Gen.Record: MkBadContext :: Word32 -> BadContext
- Graphics.XHB.Gen.Record: MkClientInfo :: ClientSpec -> CARD32 -> [Range] -> ClientInfo
+ Graphics.XHB.Gen.Record: MkClientInfo :: ClientSpec -> Word32 -> [Range] -> ClientInfo
- Graphics.XHB.Gen.Record: MkCreateContext :: CONTEXT -> ElementHeader -> CARD32 -> CARD32 -> [ClientSpec] -> [Range] -> CreateContext
+ Graphics.XHB.Gen.Record: MkCreateContext :: CONTEXT -> ElementHeader -> Word32 -> Word32 -> [ClientSpec] -> [Range] -> CreateContext
- Graphics.XHB.Gen.Record: MkEnableContextReply :: CARD8 -> ElementHeader -> BOOL -> CARD32 -> CARD32 -> CARD32 -> [BYTE] -> EnableContextReply
+ Graphics.XHB.Gen.Record: MkEnableContextReply :: Word8 -> ElementHeader -> Bool -> Word32 -> Word32 -> Word32 -> [Word8] -> EnableContextReply
- Graphics.XHB.Gen.Record: MkGetContextReply :: BOOL -> ElementHeader -> CARD32 -> [ClientInfo] -> GetContextReply
+ Graphics.XHB.Gen.Record: MkGetContextReply :: Bool -> ElementHeader -> Word32 -> [ClientInfo] -> GetContextReply
- Graphics.XHB.Gen.Record: MkQueryVersion :: CARD16 -> CARD16 -> QueryVersion
+ Graphics.XHB.Gen.Record: MkQueryVersion :: Word16 -> Word16 -> QueryVersion
- Graphics.XHB.Gen.Record: MkQueryVersionReply :: CARD16 -> CARD16 -> QueryVersionReply
+ Graphics.XHB.Gen.Record: MkQueryVersionReply :: Word16 -> Word16 -> QueryVersionReply
- Graphics.XHB.Gen.Record: MkRange :: Range8 -> Range8 -> ExtRange -> ExtRange -> Range8 -> Range8 -> Range8 -> BOOL -> BOOL -> Range
+ Graphics.XHB.Gen.Record: MkRange :: Range8 -> Range8 -> ExtRange -> ExtRange -> Range8 -> Range8 -> Range8 -> Bool -> Bool -> Range
- Graphics.XHB.Gen.Record: MkRange16 :: CARD16 -> CARD16 -> Range16
+ Graphics.XHB.Gen.Record: MkRange16 :: Word16 -> Word16 -> Range16
- Graphics.XHB.Gen.Record: MkRange8 :: CARD8 -> CARD8 -> Range8
+ Graphics.XHB.Gen.Record: MkRange8 :: Word8 -> Word8 -> Range8
- Graphics.XHB.Gen.Record: MkRegisterClients :: CONTEXT -> ElementHeader -> CARD32 -> CARD32 -> [ClientSpec] -> [Range] -> RegisterClients
+ Graphics.XHB.Gen.Record: MkRegisterClients :: CONTEXT -> ElementHeader -> Word32 -> Word32 -> [ClientSpec] -> [Range] -> RegisterClients
- Graphics.XHB.Gen.Record: MkUnregisterClients :: CONTEXT -> CARD32 -> [ClientSpec] -> UnregisterClients
+ Graphics.XHB.Gen.Record: MkUnregisterClients :: CONTEXT -> Word32 -> [ClientSpec] -> UnregisterClients
- Graphics.XHB.Gen.Record: category_EnableContextReply :: EnableContextReply -> CARD8
+ Graphics.XHB.Gen.Record: category_EnableContextReply :: EnableContextReply -> Word8
- Graphics.XHB.Gen.Record: client_died_Range :: Range -> BOOL
+ Graphics.XHB.Gen.Record: client_died_Range :: Range -> Bool
- Graphics.XHB.Gen.Record: client_started_Range :: Range -> BOOL
+ Graphics.XHB.Gen.Record: client_started_Range :: Range -> Bool
- Graphics.XHB.Gen.Record: client_swapped_EnableContextReply :: EnableContextReply -> BOOL
+ Graphics.XHB.Gen.Record: client_swapped_EnableContextReply :: EnableContextReply -> Bool
- Graphics.XHB.Gen.Record: data_EnableContextReply :: EnableContextReply -> [BYTE]
+ Graphics.XHB.Gen.Record: data_EnableContextReply :: EnableContextReply -> [Word8]
- Graphics.XHB.Gen.Record: enabled_GetContextReply :: GetContextReply -> BOOL
+ Graphics.XHB.Gen.Record: enabled_GetContextReply :: GetContextReply -> Bool
- Graphics.XHB.Gen.Record: first_Range16 :: Range16 -> CARD16
+ Graphics.XHB.Gen.Record: first_Range16 :: Range16 -> Word16
- Graphics.XHB.Gen.Record: first_Range8 :: Range8 -> CARD8
+ Graphics.XHB.Gen.Record: first_Range8 :: Range8 -> Word8
- Graphics.XHB.Gen.Record: invalid_record_BadContext :: BadContext -> CARD32
+ Graphics.XHB.Gen.Record: invalid_record_BadContext :: BadContext -> Word32
- Graphics.XHB.Gen.Record: last_Range16 :: Range16 -> CARD16
+ Graphics.XHB.Gen.Record: last_Range16 :: Range16 -> Word16
- Graphics.XHB.Gen.Record: last_Range8 :: Range8 -> CARD8
+ Graphics.XHB.Gen.Record: last_Range8 :: Range8 -> Word8
- Graphics.XHB.Gen.Record: major_version_QueryVersion :: QueryVersion -> CARD16
+ Graphics.XHB.Gen.Record: major_version_QueryVersion :: QueryVersion -> Word16
- Graphics.XHB.Gen.Record: major_version_QueryVersionReply :: QueryVersionReply -> CARD16
+ Graphics.XHB.Gen.Record: major_version_QueryVersionReply :: QueryVersionReply -> Word16
- Graphics.XHB.Gen.Record: minor_version_QueryVersion :: QueryVersion -> CARD16
+ Graphics.XHB.Gen.Record: minor_version_QueryVersion :: QueryVersion -> Word16
- Graphics.XHB.Gen.Record: minor_version_QueryVersionReply :: QueryVersionReply -> CARD16
+ Graphics.XHB.Gen.Record: minor_version_QueryVersionReply :: QueryVersionReply -> Word16
- Graphics.XHB.Gen.Record: num_client_specs_CreateContext :: CreateContext -> CARD32
+ Graphics.XHB.Gen.Record: num_client_specs_CreateContext :: CreateContext -> Word32
- Graphics.XHB.Gen.Record: num_client_specs_RegisterClients :: RegisterClients -> CARD32
+ Graphics.XHB.Gen.Record: num_client_specs_RegisterClients :: RegisterClients -> Word32
- Graphics.XHB.Gen.Record: num_client_specs_UnregisterClients :: UnregisterClients -> CARD32
+ Graphics.XHB.Gen.Record: num_client_specs_UnregisterClients :: UnregisterClients -> Word32
- Graphics.XHB.Gen.Record: num_intercepted_clients_GetContextReply :: GetContextReply -> CARD32
+ Graphics.XHB.Gen.Record: num_intercepted_clients_GetContextReply :: GetContextReply -> Word32
- Graphics.XHB.Gen.Record: num_ranges_ClientInfo :: ClientInfo -> CARD32
+ Graphics.XHB.Gen.Record: num_ranges_ClientInfo :: ClientInfo -> Word32
- Graphics.XHB.Gen.Record: num_ranges_CreateContext :: CreateContext -> CARD32
+ Graphics.XHB.Gen.Record: num_ranges_CreateContext :: CreateContext -> Word32
- Graphics.XHB.Gen.Record: num_ranges_RegisterClients :: RegisterClients -> CARD32
+ Graphics.XHB.Gen.Record: num_ranges_RegisterClients :: RegisterClients -> Word32
- Graphics.XHB.Gen.Record: queryVersion :: Connection -> CARD16 -> CARD16 -> IO (Receipt QueryVersionReply)
+ Graphics.XHB.Gen.Record: queryVersion :: Connection -> Word16 -> Word16 -> IO (Receipt QueryVersionReply)
- Graphics.XHB.Gen.Record: rec_sequence_num_EnableContextReply :: EnableContextReply -> CARD32
+ Graphics.XHB.Gen.Record: rec_sequence_num_EnableContextReply :: EnableContextReply -> Word32
- Graphics.XHB.Gen.Record: server_time_EnableContextReply :: EnableContextReply -> CARD32
+ Graphics.XHB.Gen.Record: server_time_EnableContextReply :: EnableContextReply -> Word32
- Graphics.XHB.Gen.Record: type ClientSpec = CARD32
+ Graphics.XHB.Gen.Record: type ClientSpec = Word32
- Graphics.XHB.Gen.Record: type ElementHeader = CARD8
+ Graphics.XHB.Gen.Record: type ElementHeader = Word8
- Graphics.XHB.Gen.Record: xid_base_EnableContextReply :: EnableContextReply -> CARD32
+ Graphics.XHB.Gen.Record: xid_base_EnableContextReply :: EnableContextReply -> Word32
- Graphics.XHB.Gen.Render: MkANIMCURSORELT :: CURSOR -> CARD32 -> ANIMCURSORELT
+ Graphics.XHB.Gen.Render: MkANIMCURSORELT :: CURSOR -> Word32 -> ANIMCURSORELT
- Graphics.XHB.Gen.Render: MkAddGlyphs :: GLYPHSET -> CARD32 -> [CARD32] -> [GLYPHINFO] -> [BYTE] -> AddGlyphs
+ Graphics.XHB.Gen.Render: MkAddGlyphs :: GLYPHSET -> Word32 -> [Word32] -> [GLYPHINFO] -> [Word8] -> AddGlyphs
- Graphics.XHB.Gen.Render: MkAddTraps :: PICTURE -> INT16 -> INT16 -> [TRAP] -> AddTraps
+ Graphics.XHB.Gen.Render: MkAddTraps :: PICTURE -> Int16 -> Int16 -> [TRAP] -> AddTraps
- Graphics.XHB.Gen.Render: MkCOLOR :: CARD16 -> CARD16 -> CARD16 -> CARD16 -> COLOR
+ Graphics.XHB.Gen.Render: MkCOLOR :: Word16 -> Word16 -> Word16 -> Word16 -> COLOR
- Graphics.XHB.Gen.Render: MkChangePicture :: PICTURE -> ValueParam CARD32 -> ChangePicture
+ Graphics.XHB.Gen.Render: MkChangePicture :: PICTURE -> ValueParam Word32 -> ChangePicture
- Graphics.XHB.Gen.Render: MkComposite :: CARD8 -> PICTURE -> PICTURE -> PICTURE -> INT16 -> INT16 -> INT16 -> INT16 -> INT16 -> INT16 -> CARD16 -> CARD16 -> Composite
+ Graphics.XHB.Gen.Render: MkComposite :: Word8 -> PICTURE -> PICTURE -> PICTURE -> Int16 -> Int16 -> Int16 -> Int16 -> Int16 -> Int16 -> Word16 -> Word16 -> Composite
- Graphics.XHB.Gen.Render: MkCompositeGlyphs16 :: CARD8 -> PICTURE -> PICTURE -> PICTFORMAT -> GLYPHSET -> INT16 -> INT16 -> [BYTE] -> CompositeGlyphs16
+ Graphics.XHB.Gen.Render: MkCompositeGlyphs16 :: Word8 -> PICTURE -> PICTURE -> PICTFORMAT -> GLYPHSET -> Int16 -> Int16 -> [Word8] -> CompositeGlyphs16
- Graphics.XHB.Gen.Render: MkCompositeGlyphs32 :: CARD8 -> PICTURE -> PICTURE -> PICTFORMAT -> GLYPHSET -> INT16 -> INT16 -> [BYTE] -> CompositeGlyphs32
+ Graphics.XHB.Gen.Render: MkCompositeGlyphs32 :: Word8 -> PICTURE -> PICTURE -> PICTFORMAT -> GLYPHSET -> Int16 -> Int16 -> [Word8] -> CompositeGlyphs32
- Graphics.XHB.Gen.Render: MkCompositeGlyphs8 :: CARD8 -> PICTURE -> PICTURE -> PICTFORMAT -> GLYPHSET -> INT16 -> INT16 -> [BYTE] -> CompositeGlyphs8
+ Graphics.XHB.Gen.Render: MkCompositeGlyphs8 :: Word8 -> PICTURE -> PICTURE -> PICTFORMAT -> GLYPHSET -> Int16 -> Int16 -> [Word8] -> CompositeGlyphs8
- Graphics.XHB.Gen.Render: MkCreateConicalGradient :: PICTURE -> POINTFIX -> FIXED -> CARD32 -> [FIXED] -> [COLOR] -> CreateConicalGradient
+ Graphics.XHB.Gen.Render: MkCreateConicalGradient :: PICTURE -> POINTFIX -> FIXED -> Word32 -> [FIXED] -> [COLOR] -> CreateConicalGradient
- Graphics.XHB.Gen.Render: MkCreateCursor :: CURSOR -> PICTURE -> CARD16 -> CARD16 -> CreateCursor
+ Graphics.XHB.Gen.Render: MkCreateCursor :: CURSOR -> PICTURE -> Word16 -> Word16 -> CreateCursor
- Graphics.XHB.Gen.Render: MkCreateLinearGradient :: PICTURE -> POINTFIX -> POINTFIX -> CARD32 -> [FIXED] -> [COLOR] -> CreateLinearGradient
+ Graphics.XHB.Gen.Render: MkCreateLinearGradient :: PICTURE -> POINTFIX -> POINTFIX -> Word32 -> [FIXED] -> [COLOR] -> CreateLinearGradient
- Graphics.XHB.Gen.Render: MkCreatePicture :: PICTURE -> DRAWABLE -> PICTFORMAT -> ValueParam CARD32 -> CreatePicture
+ Graphics.XHB.Gen.Render: MkCreatePicture :: PICTURE -> DRAWABLE -> PICTFORMAT -> ValueParam Word32 -> CreatePicture
- Graphics.XHB.Gen.Render: MkCreateRadialGradient :: PICTURE -> POINTFIX -> POINTFIX -> FIXED -> FIXED -> CARD32 -> [FIXED] -> [COLOR] -> CreateRadialGradient
+ Graphics.XHB.Gen.Render: MkCreateRadialGradient :: PICTURE -> POINTFIX -> POINTFIX -> FIXED -> FIXED -> Word32 -> [FIXED] -> [COLOR] -> CreateRadialGradient
- Graphics.XHB.Gen.Render: MkDIRECTFORMAT :: CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> DIRECTFORMAT
+ Graphics.XHB.Gen.Render: MkDIRECTFORMAT :: Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> DIRECTFORMAT
- Graphics.XHB.Gen.Render: MkFillRectangles :: CARD8 -> PICTURE -> COLOR -> [RECTANGLE] -> FillRectangles
+ Graphics.XHB.Gen.Render: MkFillRectangles :: Word8 -> PICTURE -> COLOR -> [RECTANGLE] -> FillRectangles
- Graphics.XHB.Gen.Render: MkGLYPHINFO :: CARD16 -> CARD16 -> INT16 -> INT16 -> INT16 -> INT16 -> GLYPHINFO
+ Graphics.XHB.Gen.Render: MkGLYPHINFO :: Word16 -> Word16 -> Int16 -> Int16 -> Int16 -> Int16 -> GLYPHINFO
- Graphics.XHB.Gen.Render: MkINDEXVALUE :: CARD32 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> INDEXVALUE
+ Graphics.XHB.Gen.Render: MkINDEXVALUE :: Word32 -> Word16 -> Word16 -> Word16 -> Word16 -> INDEXVALUE
- Graphics.XHB.Gen.Render: MkPICTDEPTH :: CARD8 -> CARD16 -> [PICTVISUAL] -> PICTDEPTH
+ Graphics.XHB.Gen.Render: MkPICTDEPTH :: Word8 -> Word16 -> [PICTVISUAL] -> PICTDEPTH
- Graphics.XHB.Gen.Render: MkPICTFORMINFO :: PICTFORMAT -> CARD8 -> CARD8 -> DIRECTFORMAT -> COLORMAP -> PICTFORMINFO
+ Graphics.XHB.Gen.Render: MkPICTFORMINFO :: PICTFORMAT -> Word8 -> Word8 -> DIRECTFORMAT -> COLORMAP -> PICTFORMINFO
- Graphics.XHB.Gen.Render: MkPICTSCREEN :: CARD32 -> PICTFORMAT -> [PICTDEPTH] -> PICTSCREEN
+ Graphics.XHB.Gen.Render: MkPICTSCREEN :: Word32 -> PICTFORMAT -> [PICTDEPTH] -> PICTSCREEN
- Graphics.XHB.Gen.Render: MkQueryFiltersReply :: CARD32 -> CARD32 -> [CARD16] -> [STR] -> QueryFiltersReply
+ Graphics.XHB.Gen.Render: MkQueryFiltersReply :: Word32 -> Word32 -> [Word16] -> [STR] -> QueryFiltersReply
- Graphics.XHB.Gen.Render: MkQueryPictFormatsReply :: CARD32 -> CARD32 -> CARD32 -> CARD32 -> CARD32 -> [PICTFORMINFO] -> [PICTSCREEN] -> [CARD32] -> QueryPictFormatsReply
+ Graphics.XHB.Gen.Render: MkQueryPictFormatsReply :: Word32 -> Word32 -> Word32 -> Word32 -> Word32 -> [PICTFORMINFO] -> [PICTSCREEN] -> [Word32] -> QueryPictFormatsReply
- Graphics.XHB.Gen.Render: MkQueryPictIndexValuesReply :: CARD32 -> [INDEXVALUE] -> QueryPictIndexValuesReply
+ Graphics.XHB.Gen.Render: MkQueryPictIndexValuesReply :: Word32 -> [INDEXVALUE] -> QueryPictIndexValuesReply
- Graphics.XHB.Gen.Render: MkQueryVersion :: CARD32 -> CARD32 -> QueryVersion
+ Graphics.XHB.Gen.Render: MkQueryVersion :: Word32 -> Word32 -> QueryVersion
- Graphics.XHB.Gen.Render: MkQueryVersionReply :: CARD32 -> CARD32 -> QueryVersionReply
+ Graphics.XHB.Gen.Render: MkQueryVersionReply :: Word32 -> Word32 -> QueryVersionReply
- Graphics.XHB.Gen.Render: MkSetPictureClipRectangles :: PICTURE -> INT16 -> INT16 -> [RECTANGLE] -> SetPictureClipRectangles
+ Graphics.XHB.Gen.Render: MkSetPictureClipRectangles :: PICTURE -> Int16 -> Int16 -> [RECTANGLE] -> SetPictureClipRectangles
- Graphics.XHB.Gen.Render: MkSetPictureFilter :: PICTURE -> CARD16 -> [CChar] -> [FIXED] -> SetPictureFilter
+ Graphics.XHB.Gen.Render: MkSetPictureFilter :: PICTURE -> Word16 -> [CChar] -> [FIXED] -> SetPictureFilter
- Graphics.XHB.Gen.Render: MkTrapezoids :: CARD8 -> PICTURE -> PICTURE -> PICTFORMAT -> INT16 -> INT16 -> [TRAPEZOID] -> Trapezoids
+ Graphics.XHB.Gen.Render: MkTrapezoids :: Word8 -> PICTURE -> PICTURE -> PICTFORMAT -> Int16 -> Int16 -> [TRAPEZOID] -> Trapezoids
- Graphics.XHB.Gen.Render: MkTriFan :: CARD8 -> PICTURE -> PICTURE -> PICTFORMAT -> INT16 -> INT16 -> [POINTFIX] -> TriFan
+ Graphics.XHB.Gen.Render: MkTriFan :: Word8 -> PICTURE -> PICTURE -> PICTFORMAT -> Int16 -> Int16 -> [POINTFIX] -> TriFan
- Graphics.XHB.Gen.Render: MkTriStrip :: CARD8 -> PICTURE -> PICTURE -> PICTFORMAT -> INT16 -> INT16 -> [POINTFIX] -> TriStrip
+ Graphics.XHB.Gen.Render: MkTriStrip :: Word8 -> PICTURE -> PICTURE -> PICTFORMAT -> Int16 -> Int16 -> [POINTFIX] -> TriStrip
- Graphics.XHB.Gen.Render: MkTriangles :: CARD8 -> PICTURE -> PICTURE -> PICTFORMAT -> INT16 -> INT16 -> [TRIANGLE] -> Triangles
+ Graphics.XHB.Gen.Render: MkTriangles :: Word8 -> PICTURE -> PICTURE -> PICTFORMAT -> Int16 -> Int16 -> [TRIANGLE] -> Triangles
- Graphics.XHB.Gen.Render: aliases_QueryFiltersReply :: QueryFiltersReply -> [CARD16]
+ Graphics.XHB.Gen.Render: aliases_QueryFiltersReply :: QueryFiltersReply -> [Word16]
- Graphics.XHB.Gen.Render: alpha_COLOR :: COLOR -> CARD16
+ Graphics.XHB.Gen.Render: alpha_COLOR :: COLOR -> Word16
- Graphics.XHB.Gen.Render: alpha_INDEXVALUE :: INDEXVALUE -> CARD16
+ Graphics.XHB.Gen.Render: alpha_INDEXVALUE :: INDEXVALUE -> Word16
- Graphics.XHB.Gen.Render: alpha_mask_DIRECTFORMAT :: DIRECTFORMAT -> CARD16
+ Graphics.XHB.Gen.Render: alpha_mask_DIRECTFORMAT :: DIRECTFORMAT -> Word16
- Graphics.XHB.Gen.Render: alpha_shift_DIRECTFORMAT :: DIRECTFORMAT -> CARD16
+ Graphics.XHB.Gen.Render: alpha_shift_DIRECTFORMAT :: DIRECTFORMAT -> Word16
- Graphics.XHB.Gen.Render: blue_COLOR :: COLOR -> CARD16
+ Graphics.XHB.Gen.Render: blue_COLOR :: COLOR -> Word16
- Graphics.XHB.Gen.Render: blue_INDEXVALUE :: INDEXVALUE -> CARD16
+ Graphics.XHB.Gen.Render: blue_INDEXVALUE :: INDEXVALUE -> Word16
- Graphics.XHB.Gen.Render: blue_mask_DIRECTFORMAT :: DIRECTFORMAT -> CARD16
+ Graphics.XHB.Gen.Render: blue_mask_DIRECTFORMAT :: DIRECTFORMAT -> Word16
- Graphics.XHB.Gen.Render: blue_shift_DIRECTFORMAT :: DIRECTFORMAT -> CARD16
+ Graphics.XHB.Gen.Render: blue_shift_DIRECTFORMAT :: DIRECTFORMAT -> Word16
- Graphics.XHB.Gen.Render: changePicture :: Connection -> PICTURE -> ValueParam CARD32 -> IO ()
+ Graphics.XHB.Gen.Render: changePicture :: Connection -> PICTURE -> ValueParam Word32 -> IO ()
- Graphics.XHB.Gen.Render: client_major_version_QueryVersion :: QueryVersion -> CARD32
+ Graphics.XHB.Gen.Render: client_major_version_QueryVersion :: QueryVersion -> Word32
- Graphics.XHB.Gen.Render: client_minor_version_QueryVersion :: QueryVersion -> CARD32
+ Graphics.XHB.Gen.Render: client_minor_version_QueryVersion :: QueryVersion -> Word32
- Graphics.XHB.Gen.Render: clip_x_origin_SetPictureClipRectangles :: SetPictureClipRectangles -> INT16
+ Graphics.XHB.Gen.Render: clip_x_origin_SetPictureClipRectangles :: SetPictureClipRectangles -> Int16
- Graphics.XHB.Gen.Render: clip_y_origin_SetPictureClipRectangles :: SetPictureClipRectangles -> INT16
+ Graphics.XHB.Gen.Render: clip_y_origin_SetPictureClipRectangles :: SetPictureClipRectangles -> Int16
- Graphics.XHB.Gen.Render: data_AddGlyphs :: AddGlyphs -> [BYTE]
+ Graphics.XHB.Gen.Render: data_AddGlyphs :: AddGlyphs -> [Word8]
- Graphics.XHB.Gen.Render: delay_ANIMCURSORELT :: ANIMCURSORELT -> CARD32
+ Graphics.XHB.Gen.Render: delay_ANIMCURSORELT :: ANIMCURSORELT -> Word32
- Graphics.XHB.Gen.Render: depth_PICTDEPTH :: PICTDEPTH -> CARD8
+ Graphics.XHB.Gen.Render: depth_PICTDEPTH :: PICTDEPTH -> Word8
- Graphics.XHB.Gen.Render: depth_PICTFORMINFO :: PICTFORMINFO -> CARD8
+ Graphics.XHB.Gen.Render: depth_PICTFORMINFO :: PICTFORMINFO -> Word8
- Graphics.XHB.Gen.Render: dst_x_Composite :: Composite -> INT16
+ Graphics.XHB.Gen.Render: dst_x_Composite :: Composite -> Int16
- Graphics.XHB.Gen.Render: dst_y_Composite :: Composite -> INT16
+ Graphics.XHB.Gen.Render: dst_y_Composite :: Composite -> Int16
- Graphics.XHB.Gen.Render: filter_len_SetPictureFilter :: SetPictureFilter -> CARD16
+ Graphics.XHB.Gen.Render: filter_len_SetPictureFilter :: SetPictureFilter -> Word16
- Graphics.XHB.Gen.Render: glyphcmds_CompositeGlyphs16 :: CompositeGlyphs16 -> [BYTE]
+ Graphics.XHB.Gen.Render: glyphcmds_CompositeGlyphs16 :: CompositeGlyphs16 -> [Word8]
- Graphics.XHB.Gen.Render: glyphcmds_CompositeGlyphs32 :: CompositeGlyphs32 -> [BYTE]
+ Graphics.XHB.Gen.Render: glyphcmds_CompositeGlyphs32 :: CompositeGlyphs32 -> [Word8]
- Graphics.XHB.Gen.Render: glyphcmds_CompositeGlyphs8 :: CompositeGlyphs8 -> [BYTE]
+ Graphics.XHB.Gen.Render: glyphcmds_CompositeGlyphs8 :: CompositeGlyphs8 -> [Word8]
- Graphics.XHB.Gen.Render: glyphids_AddGlyphs :: AddGlyphs -> [CARD32]
+ Graphics.XHB.Gen.Render: glyphids_AddGlyphs :: AddGlyphs -> [Word32]
- Graphics.XHB.Gen.Render: glyphs_len_AddGlyphs :: AddGlyphs -> CARD32
+ Graphics.XHB.Gen.Render: glyphs_len_AddGlyphs :: AddGlyphs -> Word32
- Graphics.XHB.Gen.Render: green_COLOR :: COLOR -> CARD16
+ Graphics.XHB.Gen.Render: green_COLOR :: COLOR -> Word16
- Graphics.XHB.Gen.Render: green_INDEXVALUE :: INDEXVALUE -> CARD16
+ Graphics.XHB.Gen.Render: green_INDEXVALUE :: INDEXVALUE -> Word16
- Graphics.XHB.Gen.Render: green_mask_DIRECTFORMAT :: DIRECTFORMAT -> CARD16
+ Graphics.XHB.Gen.Render: green_mask_DIRECTFORMAT :: DIRECTFORMAT -> Word16
- Graphics.XHB.Gen.Render: green_shift_DIRECTFORMAT :: DIRECTFORMAT -> CARD16
+ Graphics.XHB.Gen.Render: green_shift_DIRECTFORMAT :: DIRECTFORMAT -> Word16
- Graphics.XHB.Gen.Render: height_Composite :: Composite -> CARD16
+ Graphics.XHB.Gen.Render: height_Composite :: Composite -> Word16
- Graphics.XHB.Gen.Render: height_GLYPHINFO :: GLYPHINFO -> CARD16
+ Graphics.XHB.Gen.Render: height_GLYPHINFO :: GLYPHINFO -> Word16
- Graphics.XHB.Gen.Render: major_version_QueryVersionReply :: QueryVersionReply -> CARD32
+ Graphics.XHB.Gen.Render: major_version_QueryVersionReply :: QueryVersionReply -> Word32
- Graphics.XHB.Gen.Render: mask_x_Composite :: Composite -> INT16
+ Graphics.XHB.Gen.Render: mask_x_Composite :: Composite -> Int16
- Graphics.XHB.Gen.Render: mask_y_Composite :: Composite -> INT16
+ Graphics.XHB.Gen.Render: mask_y_Composite :: Composite -> Int16
- Graphics.XHB.Gen.Render: minor_version_QueryVersionReply :: QueryVersionReply -> CARD32
+ Graphics.XHB.Gen.Render: minor_version_QueryVersionReply :: QueryVersionReply -> Word32
- Graphics.XHB.Gen.Render: num_aliases_QueryFiltersReply :: QueryFiltersReply -> CARD32
+ Graphics.XHB.Gen.Render: num_aliases_QueryFiltersReply :: QueryFiltersReply -> Word32
- Graphics.XHB.Gen.Render: num_depths_PICTSCREEN :: PICTSCREEN -> CARD32
+ Graphics.XHB.Gen.Render: num_depths_PICTSCREEN :: PICTSCREEN -> Word32
- Graphics.XHB.Gen.Render: num_depths_QueryPictFormatsReply :: QueryPictFormatsReply -> CARD32
+ Graphics.XHB.Gen.Render: num_depths_QueryPictFormatsReply :: QueryPictFormatsReply -> Word32
- Graphics.XHB.Gen.Render: num_filters_QueryFiltersReply :: QueryFiltersReply -> CARD32
+ Graphics.XHB.Gen.Render: num_filters_QueryFiltersReply :: QueryFiltersReply -> Word32
- Graphics.XHB.Gen.Render: num_formats_QueryPictFormatsReply :: QueryPictFormatsReply -> CARD32
+ Graphics.XHB.Gen.Render: num_formats_QueryPictFormatsReply :: QueryPictFormatsReply -> Word32
- Graphics.XHB.Gen.Render: num_screens_QueryPictFormatsReply :: QueryPictFormatsReply -> CARD32
+ Graphics.XHB.Gen.Render: num_screens_QueryPictFormatsReply :: QueryPictFormatsReply -> Word32
- Graphics.XHB.Gen.Render: num_stops_CreateConicalGradient :: CreateConicalGradient -> CARD32
+ Graphics.XHB.Gen.Render: num_stops_CreateConicalGradient :: CreateConicalGradient -> Word32
- Graphics.XHB.Gen.Render: num_stops_CreateLinearGradient :: CreateLinearGradient -> CARD32
+ Graphics.XHB.Gen.Render: num_stops_CreateLinearGradient :: CreateLinearGradient -> Word32
- Graphics.XHB.Gen.Render: num_stops_CreateRadialGradient :: CreateRadialGradient -> CARD32
+ Graphics.XHB.Gen.Render: num_stops_CreateRadialGradient :: CreateRadialGradient -> Word32
- Graphics.XHB.Gen.Render: num_subpixel_QueryPictFormatsReply :: QueryPictFormatsReply -> CARD32
+ Graphics.XHB.Gen.Render: num_subpixel_QueryPictFormatsReply :: QueryPictFormatsReply -> Word32
- Graphics.XHB.Gen.Render: num_values_QueryPictIndexValuesReply :: QueryPictIndexValuesReply -> CARD32
+ Graphics.XHB.Gen.Render: num_values_QueryPictIndexValuesReply :: QueryPictIndexValuesReply -> Word32
- Graphics.XHB.Gen.Render: num_visuals_PICTDEPTH :: PICTDEPTH -> CARD16
+ Graphics.XHB.Gen.Render: num_visuals_PICTDEPTH :: PICTDEPTH -> Word16
- Graphics.XHB.Gen.Render: num_visuals_QueryPictFormatsReply :: QueryPictFormatsReply -> CARD32
+ Graphics.XHB.Gen.Render: num_visuals_QueryPictFormatsReply :: QueryPictFormatsReply -> Word32
- Graphics.XHB.Gen.Render: op_Composite :: Composite -> CARD8
+ Graphics.XHB.Gen.Render: op_Composite :: Composite -> Word8
- Graphics.XHB.Gen.Render: op_CompositeGlyphs16 :: CompositeGlyphs16 -> CARD8
+ Graphics.XHB.Gen.Render: op_CompositeGlyphs16 :: CompositeGlyphs16 -> Word8
- Graphics.XHB.Gen.Render: op_CompositeGlyphs32 :: CompositeGlyphs32 -> CARD8
+ Graphics.XHB.Gen.Render: op_CompositeGlyphs32 :: CompositeGlyphs32 -> Word8
- Graphics.XHB.Gen.Render: op_CompositeGlyphs8 :: CompositeGlyphs8 -> CARD8
+ Graphics.XHB.Gen.Render: op_CompositeGlyphs8 :: CompositeGlyphs8 -> Word8
- Graphics.XHB.Gen.Render: op_FillRectangles :: FillRectangles -> CARD8
+ Graphics.XHB.Gen.Render: op_FillRectangles :: FillRectangles -> Word8
- Graphics.XHB.Gen.Render: op_Trapezoids :: Trapezoids -> CARD8
+ Graphics.XHB.Gen.Render: op_Trapezoids :: Trapezoids -> Word8
- Graphics.XHB.Gen.Render: op_TriFan :: TriFan -> CARD8
+ Graphics.XHB.Gen.Render: op_TriFan :: TriFan -> Word8
- Graphics.XHB.Gen.Render: op_TriStrip :: TriStrip -> CARD8
+ Graphics.XHB.Gen.Render: op_TriStrip :: TriStrip -> Word8
- Graphics.XHB.Gen.Render: op_Triangles :: Triangles -> CARD8
+ Graphics.XHB.Gen.Render: op_Triangles :: Triangles -> Word8
- Graphics.XHB.Gen.Render: pixel_INDEXVALUE :: INDEXVALUE -> CARD32
+ Graphics.XHB.Gen.Render: pixel_INDEXVALUE :: INDEXVALUE -> Word32
- Graphics.XHB.Gen.Render: queryVersion :: Connection -> CARD32 -> CARD32 -> IO (Receipt QueryVersionReply)
+ Graphics.XHB.Gen.Render: queryVersion :: Connection -> Word32 -> Word32 -> IO (Receipt QueryVersionReply)
- Graphics.XHB.Gen.Render: red_COLOR :: COLOR -> CARD16
+ Graphics.XHB.Gen.Render: red_COLOR :: COLOR -> Word16
- Graphics.XHB.Gen.Render: red_INDEXVALUE :: INDEXVALUE -> CARD16
+ Graphics.XHB.Gen.Render: red_INDEXVALUE :: INDEXVALUE -> Word16
- Graphics.XHB.Gen.Render: red_mask_DIRECTFORMAT :: DIRECTFORMAT -> CARD16
+ Graphics.XHB.Gen.Render: red_mask_DIRECTFORMAT :: DIRECTFORMAT -> Word16
- Graphics.XHB.Gen.Render: red_shift_DIRECTFORMAT :: DIRECTFORMAT -> CARD16
+ Graphics.XHB.Gen.Render: red_shift_DIRECTFORMAT :: DIRECTFORMAT -> Word16
- Graphics.XHB.Gen.Render: src_x_Composite :: Composite -> INT16
+ Graphics.XHB.Gen.Render: src_x_Composite :: Composite -> Int16
- Graphics.XHB.Gen.Render: src_x_CompositeGlyphs16 :: CompositeGlyphs16 -> INT16
+ Graphics.XHB.Gen.Render: src_x_CompositeGlyphs16 :: CompositeGlyphs16 -> Int16
- Graphics.XHB.Gen.Render: src_x_CompositeGlyphs32 :: CompositeGlyphs32 -> INT16
+ Graphics.XHB.Gen.Render: src_x_CompositeGlyphs32 :: CompositeGlyphs32 -> Int16
- Graphics.XHB.Gen.Render: src_x_CompositeGlyphs8 :: CompositeGlyphs8 -> INT16
+ Graphics.XHB.Gen.Render: src_x_CompositeGlyphs8 :: CompositeGlyphs8 -> Int16
- Graphics.XHB.Gen.Render: src_x_Trapezoids :: Trapezoids -> INT16
+ Graphics.XHB.Gen.Render: src_x_Trapezoids :: Trapezoids -> Int16
- Graphics.XHB.Gen.Render: src_x_TriFan :: TriFan -> INT16
+ Graphics.XHB.Gen.Render: src_x_TriFan :: TriFan -> Int16
- Graphics.XHB.Gen.Render: src_x_TriStrip :: TriStrip -> INT16
+ Graphics.XHB.Gen.Render: src_x_TriStrip :: TriStrip -> Int16
- Graphics.XHB.Gen.Render: src_x_Triangles :: Triangles -> INT16
+ Graphics.XHB.Gen.Render: src_x_Triangles :: Triangles -> Int16
- Graphics.XHB.Gen.Render: src_y_Composite :: Composite -> INT16
+ Graphics.XHB.Gen.Render: src_y_Composite :: Composite -> Int16
- Graphics.XHB.Gen.Render: src_y_CompositeGlyphs16 :: CompositeGlyphs16 -> INT16
+ Graphics.XHB.Gen.Render: src_y_CompositeGlyphs16 :: CompositeGlyphs16 -> Int16
- Graphics.XHB.Gen.Render: src_y_CompositeGlyphs32 :: CompositeGlyphs32 -> INT16
+ Graphics.XHB.Gen.Render: src_y_CompositeGlyphs32 :: CompositeGlyphs32 -> Int16
- Graphics.XHB.Gen.Render: src_y_CompositeGlyphs8 :: CompositeGlyphs8 -> INT16
+ Graphics.XHB.Gen.Render: src_y_CompositeGlyphs8 :: CompositeGlyphs8 -> Int16
- Graphics.XHB.Gen.Render: src_y_Trapezoids :: Trapezoids -> INT16
+ Graphics.XHB.Gen.Render: src_y_Trapezoids :: Trapezoids -> Int16
- Graphics.XHB.Gen.Render: src_y_TriFan :: TriFan -> INT16
+ Graphics.XHB.Gen.Render: src_y_TriFan :: TriFan -> Int16
- Graphics.XHB.Gen.Render: src_y_TriStrip :: TriStrip -> INT16
+ Graphics.XHB.Gen.Render: src_y_TriStrip :: TriStrip -> Int16
- Graphics.XHB.Gen.Render: src_y_Triangles :: Triangles -> INT16
+ Graphics.XHB.Gen.Render: src_y_Triangles :: Triangles -> Int16
- Graphics.XHB.Gen.Render: subpixels_QueryPictFormatsReply :: QueryPictFormatsReply -> [CARD32]
+ Graphics.XHB.Gen.Render: subpixels_QueryPictFormatsReply :: QueryPictFormatsReply -> [Word32]
- Graphics.XHB.Gen.Render: type FIXED = INT32
+ Graphics.XHB.Gen.Render: type FIXED = Int32
- Graphics.XHB.Gen.Render: type GLYPH = CARD32
+ Graphics.XHB.Gen.Render: type GLYPH = Word32
- Graphics.XHB.Gen.Render: type_PICTFORMINFO :: PICTFORMINFO -> CARD8
+ Graphics.XHB.Gen.Render: type_PICTFORMINFO :: PICTFORMINFO -> Word8
- Graphics.XHB.Gen.Render: value_ChangePicture :: ChangePicture -> ValueParam CARD32
+ Graphics.XHB.Gen.Render: value_ChangePicture :: ChangePicture -> ValueParam Word32
- Graphics.XHB.Gen.Render: value_CreatePicture :: CreatePicture -> ValueParam CARD32
+ Graphics.XHB.Gen.Render: value_CreatePicture :: CreatePicture -> ValueParam Word32
- Graphics.XHB.Gen.Render: width_Composite :: Composite -> CARD16
+ Graphics.XHB.Gen.Render: width_Composite :: Composite -> Word16
- Graphics.XHB.Gen.Render: width_GLYPHINFO :: GLYPHINFO -> CARD16
+ Graphics.XHB.Gen.Render: width_GLYPHINFO :: GLYPHINFO -> Word16
- Graphics.XHB.Gen.Render: x_CreateCursor :: CreateCursor -> CARD16
+ Graphics.XHB.Gen.Render: x_CreateCursor :: CreateCursor -> Word16
- Graphics.XHB.Gen.Render: x_GLYPHINFO :: GLYPHINFO -> INT16
+ Graphics.XHB.Gen.Render: x_GLYPHINFO :: GLYPHINFO -> Int16
- Graphics.XHB.Gen.Render: x_off_AddTraps :: AddTraps -> INT16
+ Graphics.XHB.Gen.Render: x_off_AddTraps :: AddTraps -> Int16
- Graphics.XHB.Gen.Render: x_off_GLYPHINFO :: GLYPHINFO -> INT16
+ Graphics.XHB.Gen.Render: x_off_GLYPHINFO :: GLYPHINFO -> Int16
- Graphics.XHB.Gen.Render: y_CreateCursor :: CreateCursor -> CARD16
+ Graphics.XHB.Gen.Render: y_CreateCursor :: CreateCursor -> Word16
- Graphics.XHB.Gen.Render: y_GLYPHINFO :: GLYPHINFO -> INT16
+ Graphics.XHB.Gen.Render: y_GLYPHINFO :: GLYPHINFO -> Int16
- Graphics.XHB.Gen.Render: y_off_AddTraps :: AddTraps -> INT16
+ Graphics.XHB.Gen.Render: y_off_AddTraps :: AddTraps -> Int16
- Graphics.XHB.Gen.Render: y_off_GLYPHINFO :: GLYPHINFO -> INT16
+ Graphics.XHB.Gen.Render: y_off_GLYPHINFO :: GLYPHINFO -> Int16
- Graphics.XHB.Gen.Res: MkClient :: CARD32 -> CARD32 -> Client
+ Graphics.XHB.Gen.Res: MkClient :: Word32 -> Word32 -> Client
- Graphics.XHB.Gen.Res: MkQueryClientPixmapBytes :: CARD32 -> QueryClientPixmapBytes
+ Graphics.XHB.Gen.Res: MkQueryClientPixmapBytes :: Word32 -> QueryClientPixmapBytes
- Graphics.XHB.Gen.Res: MkQueryClientPixmapBytesReply :: CARD32 -> CARD32 -> QueryClientPixmapBytesReply
+ Graphics.XHB.Gen.Res: MkQueryClientPixmapBytesReply :: Word32 -> Word32 -> QueryClientPixmapBytesReply
- Graphics.XHB.Gen.Res: MkQueryClientResources :: CARD32 -> QueryClientResources
+ Graphics.XHB.Gen.Res: MkQueryClientResources :: Word32 -> QueryClientResources
- Graphics.XHB.Gen.Res: MkQueryClientResourcesReply :: CARD32 -> [Type] -> QueryClientResourcesReply
+ Graphics.XHB.Gen.Res: MkQueryClientResourcesReply :: Word32 -> [Type] -> QueryClientResourcesReply
- Graphics.XHB.Gen.Res: MkQueryClientsReply :: CARD32 -> [Client] -> QueryClientsReply
+ Graphics.XHB.Gen.Res: MkQueryClientsReply :: Word32 -> [Client] -> QueryClientsReply
- Graphics.XHB.Gen.Res: MkQueryVersion :: CARD8 -> CARD8 -> QueryVersion
+ Graphics.XHB.Gen.Res: MkQueryVersion :: Word8 -> Word8 -> QueryVersion
- Graphics.XHB.Gen.Res: MkQueryVersionReply :: CARD16 -> CARD16 -> QueryVersionReply
+ Graphics.XHB.Gen.Res: MkQueryVersionReply :: Word16 -> Word16 -> QueryVersionReply
- Graphics.XHB.Gen.Res: MkType :: ATOM -> CARD32 -> Type
+ Graphics.XHB.Gen.Res: MkType :: ATOM -> Word32 -> Type
- Graphics.XHB.Gen.Res: bytes_QueryClientPixmapBytesReply :: QueryClientPixmapBytesReply -> CARD32
+ Graphics.XHB.Gen.Res: bytes_QueryClientPixmapBytesReply :: QueryClientPixmapBytesReply -> Word32
- Graphics.XHB.Gen.Res: bytes_overflow_QueryClientPixmapBytesReply :: QueryClientPixmapBytesReply -> CARD32
+ Graphics.XHB.Gen.Res: bytes_overflow_QueryClientPixmapBytesReply :: QueryClientPixmapBytesReply -> Word32
- Graphics.XHB.Gen.Res: client_major_QueryVersion :: QueryVersion -> CARD8
+ Graphics.XHB.Gen.Res: client_major_QueryVersion :: QueryVersion -> Word8
- Graphics.XHB.Gen.Res: client_minor_QueryVersion :: QueryVersion -> CARD8
+ Graphics.XHB.Gen.Res: client_minor_QueryVersion :: QueryVersion -> Word8
- Graphics.XHB.Gen.Res: count_Type :: Type -> CARD32
+ Graphics.XHB.Gen.Res: count_Type :: Type -> Word32
- Graphics.XHB.Gen.Res: num_clients_QueryClientsReply :: QueryClientsReply -> CARD32
+ Graphics.XHB.Gen.Res: num_clients_QueryClientsReply :: QueryClientsReply -> Word32
- Graphics.XHB.Gen.Res: num_types_QueryClientResourcesReply :: QueryClientResourcesReply -> CARD32
+ Graphics.XHB.Gen.Res: num_types_QueryClientResourcesReply :: QueryClientResourcesReply -> Word32
- Graphics.XHB.Gen.Res: queryClientPixmapBytes :: Connection -> CARD32 -> IO (Receipt QueryClientPixmapBytesReply)
+ Graphics.XHB.Gen.Res: queryClientPixmapBytes :: Connection -> Word32 -> IO (Receipt QueryClientPixmapBytesReply)
- Graphics.XHB.Gen.Res: queryClientResources :: Connection -> CARD32 -> IO (Receipt QueryClientResourcesReply)
+ Graphics.XHB.Gen.Res: queryClientResources :: Connection -> Word32 -> IO (Receipt QueryClientResourcesReply)
- Graphics.XHB.Gen.Res: queryVersion :: Connection -> CARD8 -> CARD8 -> IO (Receipt QueryVersionReply)
+ Graphics.XHB.Gen.Res: queryVersion :: Connection -> Word8 -> Word8 -> IO (Receipt QueryVersionReply)
- Graphics.XHB.Gen.Res: resource_base_Client :: Client -> CARD32
+ Graphics.XHB.Gen.Res: resource_base_Client :: Client -> Word32
- Graphics.XHB.Gen.Res: resource_mask_Client :: Client -> CARD32
+ Graphics.XHB.Gen.Res: resource_mask_Client :: Client -> Word32
- Graphics.XHB.Gen.Res: server_major_QueryVersionReply :: QueryVersionReply -> CARD16
+ Graphics.XHB.Gen.Res: server_major_QueryVersionReply :: QueryVersionReply -> Word16
- Graphics.XHB.Gen.Res: server_minor_QueryVersionReply :: QueryVersionReply -> CARD16
+ Graphics.XHB.Gen.Res: server_minor_QueryVersionReply :: QueryVersionReply -> Word16
- Graphics.XHB.Gen.Res: xid_QueryClientPixmapBytes :: QueryClientPixmapBytes -> CARD32
+ Graphics.XHB.Gen.Res: xid_QueryClientPixmapBytes :: QueryClientPixmapBytes -> Word32
- Graphics.XHB.Gen.Res: xid_QueryClientResources :: QueryClientResources -> CARD32
+ Graphics.XHB.Gen.Res: xid_QueryClientResources :: QueryClientResources -> Word32
- Graphics.XHB.Gen.SELinux: MkGetClientContext :: CARD32 -> GetClientContext
+ Graphics.XHB.Gen.SELinux: MkGetClientContext :: Word32 -> GetClientContext
- Graphics.XHB.Gen.SELinux: MkGetClientContextReply :: CARD32 -> [CChar] -> GetClientContextReply
+ Graphics.XHB.Gen.SELinux: MkGetClientContextReply :: Word32 -> [CChar] -> GetClientContextReply
- Graphics.XHB.Gen.SELinux: MkGetDeviceContext :: CARD32 -> GetDeviceContext
+ Graphics.XHB.Gen.SELinux: MkGetDeviceContext :: Word32 -> GetDeviceContext
- Graphics.XHB.Gen.SELinux: MkGetDeviceContextReply :: CARD32 -> [CChar] -> GetDeviceContextReply
+ Graphics.XHB.Gen.SELinux: MkGetDeviceContextReply :: Word32 -> [CChar] -> GetDeviceContextReply
- Graphics.XHB.Gen.SELinux: MkGetDeviceCreateContextReply :: CARD32 -> [CChar] -> GetDeviceCreateContextReply
+ Graphics.XHB.Gen.SELinux: MkGetDeviceCreateContextReply :: Word32 -> [CChar] -> GetDeviceCreateContextReply
- Graphics.XHB.Gen.SELinux: MkGetPropertyContextReply :: CARD32 -> [CChar] -> GetPropertyContextReply
+ Graphics.XHB.Gen.SELinux: MkGetPropertyContextReply :: Word32 -> [CChar] -> GetPropertyContextReply
- Graphics.XHB.Gen.SELinux: MkGetPropertyCreateContextReply :: CARD32 -> [CChar] -> GetPropertyCreateContextReply
+ Graphics.XHB.Gen.SELinux: MkGetPropertyCreateContextReply :: Word32 -> [CChar] -> GetPropertyCreateContextReply
- Graphics.XHB.Gen.SELinux: MkGetPropertyDataContextReply :: CARD32 -> [CChar] -> GetPropertyDataContextReply
+ Graphics.XHB.Gen.SELinux: MkGetPropertyDataContextReply :: Word32 -> [CChar] -> GetPropertyDataContextReply
- Graphics.XHB.Gen.SELinux: MkGetPropertyUseContextReply :: CARD32 -> [CChar] -> GetPropertyUseContextReply
+ Graphics.XHB.Gen.SELinux: MkGetPropertyUseContextReply :: Word32 -> [CChar] -> GetPropertyUseContextReply
- Graphics.XHB.Gen.SELinux: MkGetSelectionContextReply :: CARD32 -> [CChar] -> GetSelectionContextReply
+ Graphics.XHB.Gen.SELinux: MkGetSelectionContextReply :: Word32 -> [CChar] -> GetSelectionContextReply
- Graphics.XHB.Gen.SELinux: MkGetSelectionCreateContextReply :: CARD32 -> [CChar] -> GetSelectionCreateContextReply
+ Graphics.XHB.Gen.SELinux: MkGetSelectionCreateContextReply :: Word32 -> [CChar] -> GetSelectionCreateContextReply
- Graphics.XHB.Gen.SELinux: MkGetSelectionDataContextReply :: CARD32 -> [CChar] -> GetSelectionDataContextReply
+ Graphics.XHB.Gen.SELinux: MkGetSelectionDataContextReply :: Word32 -> [CChar] -> GetSelectionDataContextReply
- Graphics.XHB.Gen.SELinux: MkGetSelectionUseContextReply :: CARD32 -> [CChar] -> GetSelectionUseContextReply
+ Graphics.XHB.Gen.SELinux: MkGetSelectionUseContextReply :: Word32 -> [CChar] -> GetSelectionUseContextReply
- Graphics.XHB.Gen.SELinux: MkGetWindowContextReply :: CARD32 -> [CChar] -> GetWindowContextReply
+ Graphics.XHB.Gen.SELinux: MkGetWindowContextReply :: Word32 -> [CChar] -> GetWindowContextReply
- Graphics.XHB.Gen.SELinux: MkGetWindowCreateContextReply :: CARD32 -> [CChar] -> GetWindowCreateContextReply
+ Graphics.XHB.Gen.SELinux: MkGetWindowCreateContextReply :: Word32 -> [CChar] -> GetWindowCreateContextReply
- Graphics.XHB.Gen.SELinux: MkListItem :: ATOM -> CARD32 -> CARD32 -> [CChar] -> [CChar] -> ListItem
+ Graphics.XHB.Gen.SELinux: MkListItem :: ATOM -> Word32 -> Word32 -> [CChar] -> [CChar] -> ListItem
- Graphics.XHB.Gen.SELinux: MkListPropertiesReply :: CARD32 -> [ListItem] -> ListPropertiesReply
+ Graphics.XHB.Gen.SELinux: MkListPropertiesReply :: Word32 -> [ListItem] -> ListPropertiesReply
- Graphics.XHB.Gen.SELinux: MkListSelectionsReply :: CARD32 -> [ListItem] -> ListSelectionsReply
+ Graphics.XHB.Gen.SELinux: MkListSelectionsReply :: Word32 -> [ListItem] -> ListSelectionsReply
- Graphics.XHB.Gen.SELinux: MkQueryVersion :: CARD8 -> CARD8 -> QueryVersion
+ Graphics.XHB.Gen.SELinux: MkQueryVersion :: Word8 -> Word8 -> QueryVersion
- Graphics.XHB.Gen.SELinux: MkQueryVersionReply :: CARD16 -> CARD16 -> QueryVersionReply
+ Graphics.XHB.Gen.SELinux: MkQueryVersionReply :: Word16 -> Word16 -> QueryVersionReply
- Graphics.XHB.Gen.SELinux: MkSetDeviceContext :: CARD32 -> CARD32 -> [CChar] -> SetDeviceContext
+ Graphics.XHB.Gen.SELinux: MkSetDeviceContext :: Word32 -> Word32 -> [CChar] -> SetDeviceContext
- Graphics.XHB.Gen.SELinux: MkSetDeviceCreateContext :: CARD32 -> [CChar] -> SetDeviceCreateContext
+ Graphics.XHB.Gen.SELinux: MkSetDeviceCreateContext :: Word32 -> [CChar] -> SetDeviceCreateContext
- Graphics.XHB.Gen.SELinux: MkSetPropertyCreateContext :: CARD32 -> [CChar] -> SetPropertyCreateContext
+ Graphics.XHB.Gen.SELinux: MkSetPropertyCreateContext :: Word32 -> [CChar] -> SetPropertyCreateContext
- Graphics.XHB.Gen.SELinux: MkSetPropertyUseContext :: CARD32 -> [CChar] -> SetPropertyUseContext
+ Graphics.XHB.Gen.SELinux: MkSetPropertyUseContext :: Word32 -> [CChar] -> SetPropertyUseContext
- Graphics.XHB.Gen.SELinux: MkSetSelectionCreateContext :: CARD32 -> [CChar] -> SetSelectionCreateContext
+ Graphics.XHB.Gen.SELinux: MkSetSelectionCreateContext :: Word32 -> [CChar] -> SetSelectionCreateContext
- Graphics.XHB.Gen.SELinux: MkSetSelectionUseContext :: CARD32 -> [CChar] -> SetSelectionUseContext
+ Graphics.XHB.Gen.SELinux: MkSetSelectionUseContext :: Word32 -> [CChar] -> SetSelectionUseContext
- Graphics.XHB.Gen.SELinux: MkSetWindowCreateContext :: CARD32 -> [CChar] -> SetWindowCreateContext
+ Graphics.XHB.Gen.SELinux: MkSetWindowCreateContext :: Word32 -> [CChar] -> SetWindowCreateContext
- Graphics.XHB.Gen.SELinux: client_major_QueryVersion :: QueryVersion -> CARD8
+ Graphics.XHB.Gen.SELinux: client_major_QueryVersion :: QueryVersion -> Word8
- Graphics.XHB.Gen.SELinux: client_minor_QueryVersion :: QueryVersion -> CARD8
+ Graphics.XHB.Gen.SELinux: client_minor_QueryVersion :: QueryVersion -> Word8
- Graphics.XHB.Gen.SELinux: context_len_GetClientContextReply :: GetClientContextReply -> CARD32
+ Graphics.XHB.Gen.SELinux: context_len_GetClientContextReply :: GetClientContextReply -> Word32
- Graphics.XHB.Gen.SELinux: context_len_GetDeviceContextReply :: GetDeviceContextReply -> CARD32
+ Graphics.XHB.Gen.SELinux: context_len_GetDeviceContextReply :: GetDeviceContextReply -> Word32
- Graphics.XHB.Gen.SELinux: context_len_GetDeviceCreateContextReply :: GetDeviceCreateContextReply -> CARD32
+ Graphics.XHB.Gen.SELinux: context_len_GetDeviceCreateContextReply :: GetDeviceCreateContextReply -> Word32
- Graphics.XHB.Gen.SELinux: context_len_GetPropertyContextReply :: GetPropertyContextReply -> CARD32
+ Graphics.XHB.Gen.SELinux: context_len_GetPropertyContextReply :: GetPropertyContextReply -> Word32
- Graphics.XHB.Gen.SELinux: context_len_GetPropertyCreateContextReply :: GetPropertyCreateContextReply -> CARD32
+ Graphics.XHB.Gen.SELinux: context_len_GetPropertyCreateContextReply :: GetPropertyCreateContextReply -> Word32
- Graphics.XHB.Gen.SELinux: context_len_GetPropertyDataContextReply :: GetPropertyDataContextReply -> CARD32
+ Graphics.XHB.Gen.SELinux: context_len_GetPropertyDataContextReply :: GetPropertyDataContextReply -> Word32
- Graphics.XHB.Gen.SELinux: context_len_GetPropertyUseContextReply :: GetPropertyUseContextReply -> CARD32
+ Graphics.XHB.Gen.SELinux: context_len_GetPropertyUseContextReply :: GetPropertyUseContextReply -> Word32
- Graphics.XHB.Gen.SELinux: context_len_GetSelectionContextReply :: GetSelectionContextReply -> CARD32
+ Graphics.XHB.Gen.SELinux: context_len_GetSelectionContextReply :: GetSelectionContextReply -> Word32
- Graphics.XHB.Gen.SELinux: context_len_GetSelectionCreateContextReply :: GetSelectionCreateContextReply -> CARD32
+ Graphics.XHB.Gen.SELinux: context_len_GetSelectionCreateContextReply :: GetSelectionCreateContextReply -> Word32
- Graphics.XHB.Gen.SELinux: context_len_GetSelectionDataContextReply :: GetSelectionDataContextReply -> CARD32
+ Graphics.XHB.Gen.SELinux: context_len_GetSelectionDataContextReply :: GetSelectionDataContextReply -> Word32
- Graphics.XHB.Gen.SELinux: context_len_GetSelectionUseContextReply :: GetSelectionUseContextReply -> CARD32
+ Graphics.XHB.Gen.SELinux: context_len_GetSelectionUseContextReply :: GetSelectionUseContextReply -> Word32
- Graphics.XHB.Gen.SELinux: context_len_GetWindowContextReply :: GetWindowContextReply -> CARD32
+ Graphics.XHB.Gen.SELinux: context_len_GetWindowContextReply :: GetWindowContextReply -> Word32
- Graphics.XHB.Gen.SELinux: context_len_GetWindowCreateContextReply :: GetWindowCreateContextReply -> CARD32
+ Graphics.XHB.Gen.SELinux: context_len_GetWindowCreateContextReply :: GetWindowCreateContextReply -> Word32
- Graphics.XHB.Gen.SELinux: context_len_SetDeviceContext :: SetDeviceContext -> CARD32
+ Graphics.XHB.Gen.SELinux: context_len_SetDeviceContext :: SetDeviceContext -> Word32
- Graphics.XHB.Gen.SELinux: context_len_SetDeviceCreateContext :: SetDeviceCreateContext -> CARD32
+ Graphics.XHB.Gen.SELinux: context_len_SetDeviceCreateContext :: SetDeviceCreateContext -> Word32
- Graphics.XHB.Gen.SELinux: context_len_SetPropertyCreateContext :: SetPropertyCreateContext -> CARD32
+ Graphics.XHB.Gen.SELinux: context_len_SetPropertyCreateContext :: SetPropertyCreateContext -> Word32
- Graphics.XHB.Gen.SELinux: context_len_SetPropertyUseContext :: SetPropertyUseContext -> CARD32
+ Graphics.XHB.Gen.SELinux: context_len_SetPropertyUseContext :: SetPropertyUseContext -> Word32
- Graphics.XHB.Gen.SELinux: context_len_SetSelectionCreateContext :: SetSelectionCreateContext -> CARD32
+ Graphics.XHB.Gen.SELinux: context_len_SetSelectionCreateContext :: SetSelectionCreateContext -> Word32
- Graphics.XHB.Gen.SELinux: context_len_SetSelectionUseContext :: SetSelectionUseContext -> CARD32
+ Graphics.XHB.Gen.SELinux: context_len_SetSelectionUseContext :: SetSelectionUseContext -> Word32
- Graphics.XHB.Gen.SELinux: context_len_SetWindowCreateContext :: SetWindowCreateContext -> CARD32
+ Graphics.XHB.Gen.SELinux: context_len_SetWindowCreateContext :: SetWindowCreateContext -> Word32
- Graphics.XHB.Gen.SELinux: data_context_len_ListItem :: ListItem -> CARD32
+ Graphics.XHB.Gen.SELinux: data_context_len_ListItem :: ListItem -> Word32
- Graphics.XHB.Gen.SELinux: device_GetDeviceContext :: GetDeviceContext -> CARD32
+ Graphics.XHB.Gen.SELinux: device_GetDeviceContext :: GetDeviceContext -> Word32
- Graphics.XHB.Gen.SELinux: device_SetDeviceContext :: SetDeviceContext -> CARD32
+ Graphics.XHB.Gen.SELinux: device_SetDeviceContext :: SetDeviceContext -> Word32
- Graphics.XHB.Gen.SELinux: getClientContext :: Connection -> CARD32 -> IO (Receipt GetClientContextReply)
+ Graphics.XHB.Gen.SELinux: getClientContext :: Connection -> Word32 -> IO (Receipt GetClientContextReply)
- Graphics.XHB.Gen.SELinux: getDeviceContext :: Connection -> CARD32 -> IO (Receipt GetDeviceContextReply)
+ Graphics.XHB.Gen.SELinux: getDeviceContext :: Connection -> Word32 -> IO (Receipt GetDeviceContextReply)
- Graphics.XHB.Gen.SELinux: object_context_len_ListItem :: ListItem -> CARD32
+ Graphics.XHB.Gen.SELinux: object_context_len_ListItem :: ListItem -> Word32
- Graphics.XHB.Gen.SELinux: properties_len_ListPropertiesReply :: ListPropertiesReply -> CARD32
+ Graphics.XHB.Gen.SELinux: properties_len_ListPropertiesReply :: ListPropertiesReply -> Word32
- Graphics.XHB.Gen.SELinux: queryVersion :: Connection -> CARD8 -> CARD8 -> IO (Receipt QueryVersionReply)
+ Graphics.XHB.Gen.SELinux: queryVersion :: Connection -> Word8 -> Word8 -> IO (Receipt QueryVersionReply)
- Graphics.XHB.Gen.SELinux: resource_GetClientContext :: GetClientContext -> CARD32
+ Graphics.XHB.Gen.SELinux: resource_GetClientContext :: GetClientContext -> Word32
- Graphics.XHB.Gen.SELinux: selections_len_ListSelectionsReply :: ListSelectionsReply -> CARD32
+ Graphics.XHB.Gen.SELinux: selections_len_ListSelectionsReply :: ListSelectionsReply -> Word32
- Graphics.XHB.Gen.SELinux: server_major_QueryVersionReply :: QueryVersionReply -> CARD16
+ Graphics.XHB.Gen.SELinux: server_major_QueryVersionReply :: QueryVersionReply -> Word16
- Graphics.XHB.Gen.SELinux: server_minor_QueryVersionReply :: QueryVersionReply -> CARD16
+ Graphics.XHB.Gen.SELinux: server_minor_QueryVersionReply :: QueryVersionReply -> Word16
- Graphics.XHB.Gen.SELinux: setDeviceCreateContext :: Connection -> CARD32 -> [CChar] -> IO ()
+ Graphics.XHB.Gen.SELinux: setDeviceCreateContext :: Connection -> Word32 -> [CChar] -> IO ()
- Graphics.XHB.Gen.SELinux: setPropertyCreateContext :: Connection -> CARD32 -> [CChar] -> IO ()
+ Graphics.XHB.Gen.SELinux: setPropertyCreateContext :: Connection -> Word32 -> [CChar] -> IO ()
- Graphics.XHB.Gen.SELinux: setPropertyUseContext :: Connection -> CARD32 -> [CChar] -> IO ()
+ Graphics.XHB.Gen.SELinux: setPropertyUseContext :: Connection -> Word32 -> [CChar] -> IO ()
- Graphics.XHB.Gen.SELinux: setSelectionCreateContext :: Connection -> CARD32 -> [CChar] -> IO ()
+ Graphics.XHB.Gen.SELinux: setSelectionCreateContext :: Connection -> Word32 -> [CChar] -> IO ()
- Graphics.XHB.Gen.SELinux: setSelectionUseContext :: Connection -> CARD32 -> [CChar] -> IO ()
+ Graphics.XHB.Gen.SELinux: setSelectionUseContext :: Connection -> Word32 -> [CChar] -> IO ()
- Graphics.XHB.Gen.SELinux: setWindowCreateContext :: Connection -> CARD32 -> [CChar] -> IO ()
+ Graphics.XHB.Gen.SELinux: setWindowCreateContext :: Connection -> Word32 -> [CChar] -> IO ()
- Graphics.XHB.Gen.ScreenSaver: MkNotify :: CARD8 -> BYTE -> CARD16 -> TIMESTAMP -> WINDOW -> WINDOW -> BYTE -> BOOL -> Notify
+ Graphics.XHB.Gen.ScreenSaver: MkNotify :: Word8 -> Word8 -> Word16 -> TIMESTAMP -> WINDOW -> WINDOW -> Word8 -> Bool -> Notify
- Graphics.XHB.Gen.ScreenSaver: MkQueryInfoReply :: CARD8 -> WINDOW -> CARD32 -> CARD32 -> CARD32 -> BYTE -> QueryInfoReply
+ Graphics.XHB.Gen.ScreenSaver: MkQueryInfoReply :: Word8 -> WINDOW -> Word32 -> Word32 -> Word32 -> Word8 -> QueryInfoReply
- Graphics.XHB.Gen.ScreenSaver: MkQueryVersion :: CARD8 -> CARD8 -> QueryVersion
+ Graphics.XHB.Gen.ScreenSaver: MkQueryVersion :: Word8 -> Word8 -> QueryVersion
- Graphics.XHB.Gen.ScreenSaver: MkQueryVersionReply :: CARD16 -> CARD16 -> QueryVersionReply
+ Graphics.XHB.Gen.ScreenSaver: MkQueryVersionReply :: Word16 -> Word16 -> QueryVersionReply
- Graphics.XHB.Gen.ScreenSaver: MkSelectInput :: DRAWABLE -> CARD32 -> SelectInput
+ Graphics.XHB.Gen.ScreenSaver: MkSelectInput :: DRAWABLE -> Word32 -> SelectInput
- Graphics.XHB.Gen.ScreenSaver: MkSetAttributes :: DRAWABLE -> INT16 -> INT16 -> CARD16 -> CARD16 -> CARD16 -> BYTE -> CARD8 -> VISUALID -> ValueParam CARD32 -> SetAttributes
+ Graphics.XHB.Gen.ScreenSaver: MkSetAttributes :: DRAWABLE -> Int16 -> Int16 -> Word16 -> Word16 -> Word16 -> Word8 -> Word8 -> VISUALID -> ValueParam Word32 -> SetAttributes
- Graphics.XHB.Gen.ScreenSaver: MkSuspend :: BOOL -> Suspend
+ Graphics.XHB.Gen.ScreenSaver: MkSuspend :: Bool -> Suspend
- Graphics.XHB.Gen.ScreenSaver: border_width_SetAttributes :: SetAttributes -> CARD16
+ Graphics.XHB.Gen.ScreenSaver: border_width_SetAttributes :: SetAttributes -> Word16
- Graphics.XHB.Gen.ScreenSaver: class_SetAttributes :: SetAttributes -> BYTE
+ Graphics.XHB.Gen.ScreenSaver: class_SetAttributes :: SetAttributes -> Word8
- Graphics.XHB.Gen.ScreenSaver: client_major_version_QueryVersion :: QueryVersion -> CARD8
+ Graphics.XHB.Gen.ScreenSaver: client_major_version_QueryVersion :: QueryVersion -> Word8
- Graphics.XHB.Gen.ScreenSaver: client_minor_version_QueryVersion :: QueryVersion -> CARD8
+ Graphics.XHB.Gen.ScreenSaver: client_minor_version_QueryVersion :: QueryVersion -> Word8
- Graphics.XHB.Gen.ScreenSaver: code_Notify :: Notify -> CARD8
+ Graphics.XHB.Gen.ScreenSaver: code_Notify :: Notify -> Word8
- Graphics.XHB.Gen.ScreenSaver: depth_SetAttributes :: SetAttributes -> CARD8
+ Graphics.XHB.Gen.ScreenSaver: depth_SetAttributes :: SetAttributes -> Word8
- Graphics.XHB.Gen.ScreenSaver: event_mask_QueryInfoReply :: QueryInfoReply -> CARD32
+ Graphics.XHB.Gen.ScreenSaver: event_mask_QueryInfoReply :: QueryInfoReply -> Word32
- Graphics.XHB.Gen.ScreenSaver: event_mask_SelectInput :: SelectInput -> CARD32
+ Graphics.XHB.Gen.ScreenSaver: event_mask_SelectInput :: SelectInput -> Word32
- Graphics.XHB.Gen.ScreenSaver: forced_Notify :: Notify -> BOOL
+ Graphics.XHB.Gen.ScreenSaver: forced_Notify :: Notify -> Bool
- Graphics.XHB.Gen.ScreenSaver: height_SetAttributes :: SetAttributes -> CARD16
+ Graphics.XHB.Gen.ScreenSaver: height_SetAttributes :: SetAttributes -> Word16
- Graphics.XHB.Gen.ScreenSaver: kind_Notify :: Notify -> BYTE
+ Graphics.XHB.Gen.ScreenSaver: kind_Notify :: Notify -> Word8
- Graphics.XHB.Gen.ScreenSaver: kind_QueryInfoReply :: QueryInfoReply -> BYTE
+ Graphics.XHB.Gen.ScreenSaver: kind_QueryInfoReply :: QueryInfoReply -> Word8
- Graphics.XHB.Gen.ScreenSaver: ms_since_user_input_QueryInfoReply :: QueryInfoReply -> CARD32
+ Graphics.XHB.Gen.ScreenSaver: ms_since_user_input_QueryInfoReply :: QueryInfoReply -> Word32
- Graphics.XHB.Gen.ScreenSaver: ms_until_server_QueryInfoReply :: QueryInfoReply -> CARD32
+ Graphics.XHB.Gen.ScreenSaver: ms_until_server_QueryInfoReply :: QueryInfoReply -> Word32
- Graphics.XHB.Gen.ScreenSaver: queryVersion :: Connection -> CARD8 -> CARD8 -> IO (Receipt QueryVersionReply)
+ Graphics.XHB.Gen.ScreenSaver: queryVersion :: Connection -> Word8 -> Word8 -> IO (Receipt QueryVersionReply)
- Graphics.XHB.Gen.ScreenSaver: selectInput :: Connection -> DRAWABLE -> CARD32 -> IO ()
+ Graphics.XHB.Gen.ScreenSaver: selectInput :: Connection -> DRAWABLE -> Word32 -> IO ()
- Graphics.XHB.Gen.ScreenSaver: sequence_number_Notify :: Notify -> CARD16
+ Graphics.XHB.Gen.ScreenSaver: sequence_number_Notify :: Notify -> Word16
- Graphics.XHB.Gen.ScreenSaver: server_major_version_QueryVersionReply :: QueryVersionReply -> CARD16
+ Graphics.XHB.Gen.ScreenSaver: server_major_version_QueryVersionReply :: QueryVersionReply -> Word16
- Graphics.XHB.Gen.ScreenSaver: server_minor_version_QueryVersionReply :: QueryVersionReply -> CARD16
+ Graphics.XHB.Gen.ScreenSaver: server_minor_version_QueryVersionReply :: QueryVersionReply -> Word16
- Graphics.XHB.Gen.ScreenSaver: state_Notify :: Notify -> BYTE
+ Graphics.XHB.Gen.ScreenSaver: state_Notify :: Notify -> Word8
- Graphics.XHB.Gen.ScreenSaver: state_QueryInfoReply :: QueryInfoReply -> CARD8
+ Graphics.XHB.Gen.ScreenSaver: state_QueryInfoReply :: QueryInfoReply -> Word8
- Graphics.XHB.Gen.ScreenSaver: suspend :: Connection -> BOOL -> IO ()
+ Graphics.XHB.Gen.ScreenSaver: suspend :: Connection -> Bool -> IO ()
- Graphics.XHB.Gen.ScreenSaver: suspend_Suspend :: Suspend -> BOOL
+ Graphics.XHB.Gen.ScreenSaver: suspend_Suspend :: Suspend -> Bool
- Graphics.XHB.Gen.ScreenSaver: value_SetAttributes :: SetAttributes -> ValueParam CARD32
+ Graphics.XHB.Gen.ScreenSaver: value_SetAttributes :: SetAttributes -> ValueParam Word32
- Graphics.XHB.Gen.ScreenSaver: width_SetAttributes :: SetAttributes -> CARD16
+ Graphics.XHB.Gen.ScreenSaver: width_SetAttributes :: SetAttributes -> Word16
- Graphics.XHB.Gen.ScreenSaver: x_SetAttributes :: SetAttributes -> INT16
+ Graphics.XHB.Gen.ScreenSaver: x_SetAttributes :: SetAttributes -> Int16
- Graphics.XHB.Gen.ScreenSaver: y_SetAttributes :: SetAttributes -> INT16
+ Graphics.XHB.Gen.ScreenSaver: y_SetAttributes :: SetAttributes -> Int16
- Graphics.XHB.Gen.Shape: MkCombine :: OP -> KIND -> KIND -> WINDOW -> INT16 -> INT16 -> WINDOW -> Combine
+ Graphics.XHB.Gen.Shape: MkCombine :: OP -> KIND -> KIND -> WINDOW -> Int16 -> Int16 -> WINDOW -> Combine
- Graphics.XHB.Gen.Shape: MkGetRectanglesReply :: BYTE -> CARD32 -> [RECTANGLE] -> GetRectanglesReply
+ Graphics.XHB.Gen.Shape: MkGetRectanglesReply :: Word8 -> Word32 -> [RECTANGLE] -> GetRectanglesReply
- Graphics.XHB.Gen.Shape: MkInputSelectedReply :: BOOL -> InputSelectedReply
+ Graphics.XHB.Gen.Shape: MkInputSelectedReply :: Bool -> InputSelectedReply
- Graphics.XHB.Gen.Shape: MkMask :: OP -> KIND -> WINDOW -> INT16 -> INT16 -> PIXMAP -> Mask
+ Graphics.XHB.Gen.Shape: MkMask :: OP -> KIND -> WINDOW -> Int16 -> Int16 -> PIXMAP -> Mask
- Graphics.XHB.Gen.Shape: MkNotify :: KIND -> WINDOW -> INT16 -> INT16 -> CARD16 -> CARD16 -> TIMESTAMP -> BOOL -> Notify
+ Graphics.XHB.Gen.Shape: MkNotify :: KIND -> WINDOW -> Int16 -> Int16 -> Word16 -> Word16 -> TIMESTAMP -> Bool -> Notify
- Graphics.XHB.Gen.Shape: MkOffset :: KIND -> WINDOW -> INT16 -> INT16 -> Offset
+ Graphics.XHB.Gen.Shape: MkOffset :: KIND -> WINDOW -> Int16 -> Int16 -> Offset
- Graphics.XHB.Gen.Shape: MkQueryExtentsReply :: BOOL -> BOOL -> INT16 -> INT16 -> CARD16 -> CARD16 -> INT16 -> INT16 -> CARD16 -> CARD16 -> QueryExtentsReply
+ Graphics.XHB.Gen.Shape: MkQueryExtentsReply :: Bool -> Bool -> Int16 -> Int16 -> Word16 -> Word16 -> Int16 -> Int16 -> Word16 -> Word16 -> QueryExtentsReply
- Graphics.XHB.Gen.Shape: MkQueryVersionReply :: CARD16 -> CARD16 -> QueryVersionReply
+ Graphics.XHB.Gen.Shape: MkQueryVersionReply :: Word16 -> Word16 -> QueryVersionReply
- Graphics.XHB.Gen.Shape: MkRectangles :: OP -> KIND -> BYTE -> WINDOW -> INT16 -> INT16 -> [RECTANGLE] -> Rectangles
+ Graphics.XHB.Gen.Shape: MkRectangles :: OP -> KIND -> Word8 -> WINDOW -> Int16 -> Int16 -> [RECTANGLE] -> Rectangles
- Graphics.XHB.Gen.Shape: MkSelectInput :: WINDOW -> BOOL -> SelectInput
+ Graphics.XHB.Gen.Shape: MkSelectInput :: WINDOW -> Bool -> SelectInput
- Graphics.XHB.Gen.Shape: bounding_shape_extents_height_QueryExtentsReply :: QueryExtentsReply -> CARD16
+ Graphics.XHB.Gen.Shape: bounding_shape_extents_height_QueryExtentsReply :: QueryExtentsReply -> Word16
- Graphics.XHB.Gen.Shape: bounding_shape_extents_width_QueryExtentsReply :: QueryExtentsReply -> CARD16
+ Graphics.XHB.Gen.Shape: bounding_shape_extents_width_QueryExtentsReply :: QueryExtentsReply -> Word16
- Graphics.XHB.Gen.Shape: bounding_shape_extents_x_QueryExtentsReply :: QueryExtentsReply -> INT16
+ Graphics.XHB.Gen.Shape: bounding_shape_extents_x_QueryExtentsReply :: QueryExtentsReply -> Int16
- Graphics.XHB.Gen.Shape: bounding_shape_extents_y_QueryExtentsReply :: QueryExtentsReply -> INT16
+ Graphics.XHB.Gen.Shape: bounding_shape_extents_y_QueryExtentsReply :: QueryExtentsReply -> Int16
- Graphics.XHB.Gen.Shape: bounding_shaped_QueryExtentsReply :: QueryExtentsReply -> BOOL
+ Graphics.XHB.Gen.Shape: bounding_shaped_QueryExtentsReply :: QueryExtentsReply -> Bool
- Graphics.XHB.Gen.Shape: clip_shape_extents_height_QueryExtentsReply :: QueryExtentsReply -> CARD16
+ Graphics.XHB.Gen.Shape: clip_shape_extents_height_QueryExtentsReply :: QueryExtentsReply -> Word16
- Graphics.XHB.Gen.Shape: clip_shape_extents_width_QueryExtentsReply :: QueryExtentsReply -> CARD16
+ Graphics.XHB.Gen.Shape: clip_shape_extents_width_QueryExtentsReply :: QueryExtentsReply -> Word16
- Graphics.XHB.Gen.Shape: clip_shape_extents_x_QueryExtentsReply :: QueryExtentsReply -> INT16
+ Graphics.XHB.Gen.Shape: clip_shape_extents_x_QueryExtentsReply :: QueryExtentsReply -> Int16
- Graphics.XHB.Gen.Shape: clip_shape_extents_y_QueryExtentsReply :: QueryExtentsReply -> INT16
+ Graphics.XHB.Gen.Shape: clip_shape_extents_y_QueryExtentsReply :: QueryExtentsReply -> Int16
- Graphics.XHB.Gen.Shape: clip_shaped_QueryExtentsReply :: QueryExtentsReply -> BOOL
+ Graphics.XHB.Gen.Shape: clip_shaped_QueryExtentsReply :: QueryExtentsReply -> Bool
- Graphics.XHB.Gen.Shape: enable_SelectInput :: SelectInput -> BOOL
+ Graphics.XHB.Gen.Shape: enable_SelectInput :: SelectInput -> Bool
- Graphics.XHB.Gen.Shape: enabled_InputSelectedReply :: InputSelectedReply -> BOOL
+ Graphics.XHB.Gen.Shape: enabled_InputSelectedReply :: InputSelectedReply -> Bool
- Graphics.XHB.Gen.Shape: extents_height_Notify :: Notify -> CARD16
+ Graphics.XHB.Gen.Shape: extents_height_Notify :: Notify -> Word16
- Graphics.XHB.Gen.Shape: extents_width_Notify :: Notify -> CARD16
+ Graphics.XHB.Gen.Shape: extents_width_Notify :: Notify -> Word16
- Graphics.XHB.Gen.Shape: extents_x_Notify :: Notify -> INT16
+ Graphics.XHB.Gen.Shape: extents_x_Notify :: Notify -> Int16
- Graphics.XHB.Gen.Shape: extents_y_Notify :: Notify -> INT16
+ Graphics.XHB.Gen.Shape: extents_y_Notify :: Notify -> Int16
- Graphics.XHB.Gen.Shape: inputSelected :: Connection -> WINDOW -> IO (Receipt InputSelectedReply)
+ Graphics.XHB.Gen.Shape: inputSelected :: Connection -> WINDOW -> IO (Receipt Bool)
- Graphics.XHB.Gen.Shape: major_version_QueryVersionReply :: QueryVersionReply -> CARD16
+ Graphics.XHB.Gen.Shape: major_version_QueryVersionReply :: QueryVersionReply -> Word16
- Graphics.XHB.Gen.Shape: minor_version_QueryVersionReply :: QueryVersionReply -> CARD16
+ Graphics.XHB.Gen.Shape: minor_version_QueryVersionReply :: QueryVersionReply -> Word16
- Graphics.XHB.Gen.Shape: ordering_GetRectanglesReply :: GetRectanglesReply -> BYTE
+ Graphics.XHB.Gen.Shape: ordering_GetRectanglesReply :: GetRectanglesReply -> Word8
- Graphics.XHB.Gen.Shape: ordering_Rectangles :: Rectangles -> BYTE
+ Graphics.XHB.Gen.Shape: ordering_Rectangles :: Rectangles -> Word8
- Graphics.XHB.Gen.Shape: rectangles_len_GetRectanglesReply :: GetRectanglesReply -> CARD32
+ Graphics.XHB.Gen.Shape: rectangles_len_GetRectanglesReply :: GetRectanglesReply -> Word32
- Graphics.XHB.Gen.Shape: selectInput :: Connection -> WINDOW -> BOOL -> IO ()
+ Graphics.XHB.Gen.Shape: selectInput :: Connection -> WINDOW -> Bool -> IO ()
- Graphics.XHB.Gen.Shape: shaped_Notify :: Notify -> BOOL
+ Graphics.XHB.Gen.Shape: shaped_Notify :: Notify -> Bool
- Graphics.XHB.Gen.Shape: type KIND = CARD8
+ Graphics.XHB.Gen.Shape: type KIND = Word8
- Graphics.XHB.Gen.Shape: type OP = CARD8
+ Graphics.XHB.Gen.Shape: type OP = Word8
- Graphics.XHB.Gen.Shape: x_offset_Combine :: Combine -> INT16
+ Graphics.XHB.Gen.Shape: x_offset_Combine :: Combine -> Int16
- Graphics.XHB.Gen.Shape: x_offset_Mask :: Mask -> INT16
+ Graphics.XHB.Gen.Shape: x_offset_Mask :: Mask -> Int16
- Graphics.XHB.Gen.Shape: x_offset_Offset :: Offset -> INT16
+ Graphics.XHB.Gen.Shape: x_offset_Offset :: Offset -> Int16
- Graphics.XHB.Gen.Shape: x_offset_Rectangles :: Rectangles -> INT16
+ Graphics.XHB.Gen.Shape: x_offset_Rectangles :: Rectangles -> Int16
- Graphics.XHB.Gen.Shape: y_offset_Combine :: Combine -> INT16
+ Graphics.XHB.Gen.Shape: y_offset_Combine :: Combine -> Int16
- Graphics.XHB.Gen.Shape: y_offset_Mask :: Mask -> INT16
+ Graphics.XHB.Gen.Shape: y_offset_Mask :: Mask -> Int16
- Graphics.XHB.Gen.Shape: y_offset_Offset :: Offset -> INT16
+ Graphics.XHB.Gen.Shape: y_offset_Offset :: Offset -> Int16
- Graphics.XHB.Gen.Shape: y_offset_Rectangles :: Rectangles -> INT16
+ Graphics.XHB.Gen.Shape: y_offset_Rectangles :: Rectangles -> Int16
- Graphics.XHB.Gen.Shm: MkAttach :: SEG -> CARD32 -> BOOL -> Attach
+ Graphics.XHB.Gen.Shm: MkAttach :: SEG -> Word32 -> Bool -> Attach
- Graphics.XHB.Gen.Shm: MkBadSeg :: CARD32 -> CARD16 -> CARD8 -> BadSeg
+ Graphics.XHB.Gen.Shm: MkBadSeg :: Word32 -> Word16 -> Word8 -> BadSeg
- Graphics.XHB.Gen.Shm: MkCompletion :: DRAWABLE -> SEG -> CARD16 -> BYTE -> CARD32 -> Completion
+ Graphics.XHB.Gen.Shm: MkCompletion :: DRAWABLE -> SEG -> Word16 -> Word8 -> Word32 -> Completion
- Graphics.XHB.Gen.Shm: MkCreatePixmap :: PIXMAP -> DRAWABLE -> CARD16 -> CARD16 -> CARD8 -> SEG -> CARD32 -> CreatePixmap
+ Graphics.XHB.Gen.Shm: MkCreatePixmap :: PIXMAP -> DRAWABLE -> Word16 -> Word16 -> Word8 -> SEG -> Word32 -> CreatePixmap
- Graphics.XHB.Gen.Shm: MkGetImage :: DRAWABLE -> INT16 -> INT16 -> CARD16 -> CARD16 -> CARD32 -> CARD8 -> SEG -> CARD32 -> GetImage
+ Graphics.XHB.Gen.Shm: MkGetImage :: DRAWABLE -> Int16 -> Int16 -> Word16 -> Word16 -> Word32 -> Word8 -> SEG -> Word32 -> GetImage
- Graphics.XHB.Gen.Shm: MkGetImageReply :: CARD8 -> VISUALID -> CARD32 -> GetImageReply
+ Graphics.XHB.Gen.Shm: MkGetImageReply :: Word8 -> VISUALID -> Word32 -> GetImageReply
- Graphics.XHB.Gen.Shm: MkPutImage :: DRAWABLE -> GCONTEXT -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> INT16 -> INT16 -> CARD8 -> CARD8 -> CARD8 -> SEG -> CARD32 -> PutImage
+ Graphics.XHB.Gen.Shm: MkPutImage :: DRAWABLE -> GCONTEXT -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Int16 -> Int16 -> Word8 -> Word8 -> Word8 -> SEG -> Word32 -> PutImage
- Graphics.XHB.Gen.Shm: MkQueryVersionReply :: BOOL -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD8 -> QueryVersionReply
+ Graphics.XHB.Gen.Shm: MkQueryVersionReply :: Bool -> Word16 -> Word16 -> Word16 -> Word16 -> Word8 -> QueryVersionReply
- Graphics.XHB.Gen.Shm: bad_value_BadSeg :: BadSeg -> CARD32
+ Graphics.XHB.Gen.Shm: bad_value_BadSeg :: BadSeg -> Word32
- Graphics.XHB.Gen.Shm: depth_CreatePixmap :: CreatePixmap -> CARD8
+ Graphics.XHB.Gen.Shm: depth_CreatePixmap :: CreatePixmap -> Word8
- Graphics.XHB.Gen.Shm: depth_GetImageReply :: GetImageReply -> CARD8
+ Graphics.XHB.Gen.Shm: depth_GetImageReply :: GetImageReply -> Word8
- Graphics.XHB.Gen.Shm: depth_PutImage :: PutImage -> CARD8
+ Graphics.XHB.Gen.Shm: depth_PutImage :: PutImage -> Word8
- Graphics.XHB.Gen.Shm: dst_x_PutImage :: PutImage -> INT16
+ Graphics.XHB.Gen.Shm: dst_x_PutImage :: PutImage -> Int16
- Graphics.XHB.Gen.Shm: dst_y_PutImage :: PutImage -> INT16
+ Graphics.XHB.Gen.Shm: dst_y_PutImage :: PutImage -> Int16
- Graphics.XHB.Gen.Shm: format_GetImage :: GetImage -> CARD8
+ Graphics.XHB.Gen.Shm: format_GetImage :: GetImage -> Word8
- Graphics.XHB.Gen.Shm: format_PutImage :: PutImage -> CARD8
+ Graphics.XHB.Gen.Shm: format_PutImage :: PutImage -> Word8
- Graphics.XHB.Gen.Shm: gid_QueryVersionReply :: QueryVersionReply -> CARD16
+ Graphics.XHB.Gen.Shm: gid_QueryVersionReply :: QueryVersionReply -> Word16
- Graphics.XHB.Gen.Shm: height_CreatePixmap :: CreatePixmap -> CARD16
+ Graphics.XHB.Gen.Shm: height_CreatePixmap :: CreatePixmap -> Word16
- Graphics.XHB.Gen.Shm: height_GetImage :: GetImage -> CARD16
+ Graphics.XHB.Gen.Shm: height_GetImage :: GetImage -> Word16
- Graphics.XHB.Gen.Shm: major_event_Completion :: Completion -> BYTE
+ Graphics.XHB.Gen.Shm: major_event_Completion :: Completion -> Word8
- Graphics.XHB.Gen.Shm: major_opcode_BadSeg :: BadSeg -> CARD8
+ Graphics.XHB.Gen.Shm: major_opcode_BadSeg :: BadSeg -> Word8
- Graphics.XHB.Gen.Shm: major_version_QueryVersionReply :: QueryVersionReply -> CARD16
+ Graphics.XHB.Gen.Shm: major_version_QueryVersionReply :: QueryVersionReply -> Word16
- Graphics.XHB.Gen.Shm: minor_event_Completion :: Completion -> CARD16
+ Graphics.XHB.Gen.Shm: minor_event_Completion :: Completion -> Word16
- Graphics.XHB.Gen.Shm: minor_opcode_BadSeg :: BadSeg -> CARD16
+ Graphics.XHB.Gen.Shm: minor_opcode_BadSeg :: BadSeg -> Word16
- Graphics.XHB.Gen.Shm: minor_version_QueryVersionReply :: QueryVersionReply -> CARD16
+ Graphics.XHB.Gen.Shm: minor_version_QueryVersionReply :: QueryVersionReply -> Word16
- Graphics.XHB.Gen.Shm: offset_Completion :: Completion -> CARD32
+ Graphics.XHB.Gen.Shm: offset_Completion :: Completion -> Word32
- Graphics.XHB.Gen.Shm: offset_CreatePixmap :: CreatePixmap -> CARD32
+ Graphics.XHB.Gen.Shm: offset_CreatePixmap :: CreatePixmap -> Word32
- Graphics.XHB.Gen.Shm: offset_GetImage :: GetImage -> CARD32
+ Graphics.XHB.Gen.Shm: offset_GetImage :: GetImage -> Word32
- Graphics.XHB.Gen.Shm: offset_PutImage :: PutImage -> CARD32
+ Graphics.XHB.Gen.Shm: offset_PutImage :: PutImage -> Word32
- Graphics.XHB.Gen.Shm: pixmap_format_QueryVersionReply :: QueryVersionReply -> CARD8
+ Graphics.XHB.Gen.Shm: pixmap_format_QueryVersionReply :: QueryVersionReply -> Word8
- Graphics.XHB.Gen.Shm: plane_mask_GetImage :: GetImage -> CARD32
+ Graphics.XHB.Gen.Shm: plane_mask_GetImage :: GetImage -> Word32
- Graphics.XHB.Gen.Shm: read_only_Attach :: Attach -> BOOL
+ Graphics.XHB.Gen.Shm: read_only_Attach :: Attach -> Bool
- Graphics.XHB.Gen.Shm: send_event_PutImage :: PutImage -> CARD8
+ Graphics.XHB.Gen.Shm: send_event_PutImage :: PutImage -> Word8
- Graphics.XHB.Gen.Shm: shared_pixmaps_QueryVersionReply :: QueryVersionReply -> BOOL
+ Graphics.XHB.Gen.Shm: shared_pixmaps_QueryVersionReply :: QueryVersionReply -> Bool
- Graphics.XHB.Gen.Shm: shmid_Attach :: Attach -> CARD32
+ Graphics.XHB.Gen.Shm: shmid_Attach :: Attach -> Word32
- Graphics.XHB.Gen.Shm: size_GetImageReply :: GetImageReply -> CARD32
+ Graphics.XHB.Gen.Shm: size_GetImageReply :: GetImageReply -> Word32
- Graphics.XHB.Gen.Shm: src_height_PutImage :: PutImage -> CARD16
+ Graphics.XHB.Gen.Shm: src_height_PutImage :: PutImage -> Word16
- Graphics.XHB.Gen.Shm: src_width_PutImage :: PutImage -> CARD16
+ Graphics.XHB.Gen.Shm: src_width_PutImage :: PutImage -> Word16
- Graphics.XHB.Gen.Shm: src_x_PutImage :: PutImage -> CARD16
+ Graphics.XHB.Gen.Shm: src_x_PutImage :: PutImage -> Word16
- Graphics.XHB.Gen.Shm: src_y_PutImage :: PutImage -> CARD16
+ Graphics.XHB.Gen.Shm: src_y_PutImage :: PutImage -> Word16
- Graphics.XHB.Gen.Shm: total_height_PutImage :: PutImage -> CARD16
+ Graphics.XHB.Gen.Shm: total_height_PutImage :: PutImage -> Word16
- Graphics.XHB.Gen.Shm: total_width_PutImage :: PutImage -> CARD16
+ Graphics.XHB.Gen.Shm: total_width_PutImage :: PutImage -> Word16
- Graphics.XHB.Gen.Shm: uid_QueryVersionReply :: QueryVersionReply -> CARD16
+ Graphics.XHB.Gen.Shm: uid_QueryVersionReply :: QueryVersionReply -> Word16
- Graphics.XHB.Gen.Shm: width_CreatePixmap :: CreatePixmap -> CARD16
+ Graphics.XHB.Gen.Shm: width_CreatePixmap :: CreatePixmap -> Word16
- Graphics.XHB.Gen.Shm: width_GetImage :: GetImage -> CARD16
+ Graphics.XHB.Gen.Shm: width_GetImage :: GetImage -> Word16
- Graphics.XHB.Gen.Shm: x_GetImage :: GetImage -> INT16
+ Graphics.XHB.Gen.Shm: x_GetImage :: GetImage -> Int16
- Graphics.XHB.Gen.Shm: y_GetImage :: GetImage -> INT16
+ Graphics.XHB.Gen.Shm: y_GetImage :: GetImage -> Int16
- Graphics.XHB.Gen.Sync: MkAlarm :: CARD32 -> CARD16 -> CARD8 -> Alarm
+ Graphics.XHB.Gen.Sync: MkAlarm :: Word32 -> Word16 -> Word8 -> Alarm
- Graphics.XHB.Gen.Sync: MkAlarmNotify :: CARD8 -> ALARM -> INT64 -> INT64 -> TIMESTAMP -> AlarmNotify
+ Graphics.XHB.Gen.Sync: MkAlarmNotify :: Word8 -> ALARM -> INT64 -> INT64 -> TIMESTAMP -> AlarmNotify
- Graphics.XHB.Gen.Sync: MkChangeAlarm :: ALARM -> ValueParam CARD32 -> ChangeAlarm
+ Graphics.XHB.Gen.Sync: MkChangeAlarm :: ALARM -> ValueParam Word32 -> ChangeAlarm
- Graphics.XHB.Gen.Sync: MkCounter :: CARD32 -> CARD16 -> CARD8 -> Counter
+ Graphics.XHB.Gen.Sync: MkCounter :: Word32 -> Word16 -> Word8 -> Counter
- Graphics.XHB.Gen.Sync: MkCounterNotify :: CARD8 -> COUNTER -> INT64 -> INT64 -> TIMESTAMP -> CARD16 -> BOOL -> CounterNotify
+ Graphics.XHB.Gen.Sync: MkCounterNotify :: Word8 -> COUNTER -> INT64 -> INT64 -> TIMESTAMP -> Word16 -> Bool -> CounterNotify
- Graphics.XHB.Gen.Sync: MkCreateAlarm :: ALARM -> ValueParam CARD32 -> CreateAlarm
+ Graphics.XHB.Gen.Sync: MkCreateAlarm :: ALARM -> ValueParam Word32 -> CreateAlarm
- Graphics.XHB.Gen.Sync: MkGetPriority :: CARD32 -> GetPriority
+ Graphics.XHB.Gen.Sync: MkGetPriority :: Word32 -> GetPriority
- Graphics.XHB.Gen.Sync: MkGetPriorityReply :: INT32 -> GetPriorityReply
+ Graphics.XHB.Gen.Sync: MkGetPriorityReply :: Int32 -> GetPriorityReply
- Graphics.XHB.Gen.Sync: MkINT64 :: INT32 -> CARD32 -> INT64
+ Graphics.XHB.Gen.Sync: MkINT64 :: Int32 -> Word32 -> INT64
- Graphics.XHB.Gen.Sync: MkInitialize :: CARD8 -> CARD8 -> Initialize
+ Graphics.XHB.Gen.Sync: MkInitialize :: Word8 -> Word8 -> Initialize
- Graphics.XHB.Gen.Sync: MkInitializeReply :: CARD8 -> CARD8 -> InitializeReply
+ Graphics.XHB.Gen.Sync: MkInitializeReply :: Word8 -> Word8 -> InitializeReply
- Graphics.XHB.Gen.Sync: MkListSystemCountersReply :: CARD32 -> [SYSTEMCOUNTER] -> ListSystemCountersReply
+ Graphics.XHB.Gen.Sync: MkListSystemCountersReply :: Word32 -> [SYSTEMCOUNTER] -> ListSystemCountersReply
- Graphics.XHB.Gen.Sync: MkQueryAlarmReply :: TRIGGER -> INT64 -> BOOL -> CARD8 -> QueryAlarmReply
+ Graphics.XHB.Gen.Sync: MkQueryAlarmReply :: TRIGGER -> INT64 -> Bool -> Word8 -> QueryAlarmReply
- Graphics.XHB.Gen.Sync: MkSYSTEMCOUNTER :: COUNTER -> INT64 -> CARD16 -> [CChar] -> SYSTEMCOUNTER
+ Graphics.XHB.Gen.Sync: MkSYSTEMCOUNTER :: COUNTER -> INT64 -> Word16 -> [CChar] -> SYSTEMCOUNTER
- Graphics.XHB.Gen.Sync: MkSetPriority :: CARD32 -> INT32 -> SetPriority
+ Graphics.XHB.Gen.Sync: MkSetPriority :: Word32 -> Int32 -> SetPriority
- Graphics.XHB.Gen.Sync: MkTRIGGER :: COUNTER -> CARD32 -> INT64 -> CARD32 -> TRIGGER
+ Graphics.XHB.Gen.Sync: MkTRIGGER :: COUNTER -> Word32 -> INT64 -> Word32 -> TRIGGER
- Graphics.XHB.Gen.Sync: bad_alarm_Alarm :: Alarm -> CARD32
+ Graphics.XHB.Gen.Sync: bad_alarm_Alarm :: Alarm -> Word32
- Graphics.XHB.Gen.Sync: bad_counter_Counter :: Counter -> CARD32
+ Graphics.XHB.Gen.Sync: bad_counter_Counter :: Counter -> Word32
- Graphics.XHB.Gen.Sync: changeAlarm :: Connection -> ALARM -> ValueParam CARD32 -> IO ()
+ Graphics.XHB.Gen.Sync: changeAlarm :: Connection -> ALARM -> ValueParam Word32 -> IO ()
- Graphics.XHB.Gen.Sync: count_CounterNotify :: CounterNotify -> CARD16
+ Graphics.XHB.Gen.Sync: count_CounterNotify :: CounterNotify -> Word16
- Graphics.XHB.Gen.Sync: counters_len_ListSystemCountersReply :: ListSystemCountersReply -> CARD32
+ Graphics.XHB.Gen.Sync: counters_len_ListSystemCountersReply :: ListSystemCountersReply -> Word32
- Graphics.XHB.Gen.Sync: createAlarm :: Connection -> ALARM -> ValueParam CARD32 -> IO ()
+ Graphics.XHB.Gen.Sync: createAlarm :: Connection -> ALARM -> ValueParam Word32 -> IO ()
- Graphics.XHB.Gen.Sync: desired_major_version_Initialize :: Initialize -> CARD8
+ Graphics.XHB.Gen.Sync: desired_major_version_Initialize :: Initialize -> Word8
- Graphics.XHB.Gen.Sync: desired_minor_version_Initialize :: Initialize -> CARD8
+ Graphics.XHB.Gen.Sync: desired_minor_version_Initialize :: Initialize -> Word8
- Graphics.XHB.Gen.Sync: destroyed_CounterNotify :: CounterNotify -> BOOL
+ Graphics.XHB.Gen.Sync: destroyed_CounterNotify :: CounterNotify -> Bool
- Graphics.XHB.Gen.Sync: events_QueryAlarmReply :: QueryAlarmReply -> BOOL
+ Graphics.XHB.Gen.Sync: events_QueryAlarmReply :: QueryAlarmReply -> Bool
- Graphics.XHB.Gen.Sync: getPriority :: Connection -> CARD32 -> IO (Receipt GetPriorityReply)
+ Graphics.XHB.Gen.Sync: getPriority :: Connection -> Word32 -> IO (Receipt Int32)
- Graphics.XHB.Gen.Sync: hi_INT64 :: INT64 -> INT32
+ Graphics.XHB.Gen.Sync: hi_INT64 :: INT64 -> Int32
- Graphics.XHB.Gen.Sync: id_GetPriority :: GetPriority -> CARD32
+ Graphics.XHB.Gen.Sync: id_GetPriority :: GetPriority -> Word32
- Graphics.XHB.Gen.Sync: id_SetPriority :: SetPriority -> CARD32
+ Graphics.XHB.Gen.Sync: id_SetPriority :: SetPriority -> Word32
- Graphics.XHB.Gen.Sync: initialize :: Connection -> CARD8 -> CARD8 -> IO (Receipt InitializeReply)
+ Graphics.XHB.Gen.Sync: initialize :: Connection -> Word8 -> Word8 -> IO (Receipt InitializeReply)
- Graphics.XHB.Gen.Sync: kind_AlarmNotify :: AlarmNotify -> CARD8
+ Graphics.XHB.Gen.Sync: kind_AlarmNotify :: AlarmNotify -> Word8
- Graphics.XHB.Gen.Sync: kind_CounterNotify :: CounterNotify -> CARD8
+ Graphics.XHB.Gen.Sync: kind_CounterNotify :: CounterNotify -> Word8
- Graphics.XHB.Gen.Sync: lo_INT64 :: INT64 -> CARD32
+ Graphics.XHB.Gen.Sync: lo_INT64 :: INT64 -> Word32
- Graphics.XHB.Gen.Sync: major_opcode_Alarm :: Alarm -> CARD8
+ Graphics.XHB.Gen.Sync: major_opcode_Alarm :: Alarm -> Word8
- Graphics.XHB.Gen.Sync: major_opcode_Counter :: Counter -> CARD8
+ Graphics.XHB.Gen.Sync: major_opcode_Counter :: Counter -> Word8
- Graphics.XHB.Gen.Sync: major_version_InitializeReply :: InitializeReply -> CARD8
+ Graphics.XHB.Gen.Sync: major_version_InitializeReply :: InitializeReply -> Word8
- Graphics.XHB.Gen.Sync: minor_opcode_Alarm :: Alarm -> CARD16
+ Graphics.XHB.Gen.Sync: minor_opcode_Alarm :: Alarm -> Word16
- Graphics.XHB.Gen.Sync: minor_opcode_Counter :: Counter -> CARD16
+ Graphics.XHB.Gen.Sync: minor_opcode_Counter :: Counter -> Word16
- Graphics.XHB.Gen.Sync: minor_version_InitializeReply :: InitializeReply -> CARD8
+ Graphics.XHB.Gen.Sync: minor_version_InitializeReply :: InitializeReply -> Word8
- Graphics.XHB.Gen.Sync: name_len_SYSTEMCOUNTER :: SYSTEMCOUNTER -> CARD16
+ Graphics.XHB.Gen.Sync: name_len_SYSTEMCOUNTER :: SYSTEMCOUNTER -> Word16
- Graphics.XHB.Gen.Sync: priority_GetPriorityReply :: GetPriorityReply -> INT32
+ Graphics.XHB.Gen.Sync: priority_GetPriorityReply :: GetPriorityReply -> Int32
- Graphics.XHB.Gen.Sync: priority_SetPriority :: SetPriority -> INT32
+ Graphics.XHB.Gen.Sync: priority_SetPriority :: SetPriority -> Int32
- Graphics.XHB.Gen.Sync: queryCounter :: Connection -> COUNTER -> IO (Receipt QueryCounterReply)
+ Graphics.XHB.Gen.Sync: queryCounter :: Connection -> COUNTER -> IO (Receipt INT64)
- Graphics.XHB.Gen.Sync: setPriority :: Connection -> CARD32 -> INT32 -> IO ()
+ Graphics.XHB.Gen.Sync: setPriority :: Connection -> Word32 -> Int32 -> IO ()
- Graphics.XHB.Gen.Sync: state_QueryAlarmReply :: QueryAlarmReply -> CARD8
+ Graphics.XHB.Gen.Sync: state_QueryAlarmReply :: QueryAlarmReply -> Word8
- Graphics.XHB.Gen.Sync: test_type_TRIGGER :: TRIGGER -> CARD32
+ Graphics.XHB.Gen.Sync: test_type_TRIGGER :: TRIGGER -> Word32
- Graphics.XHB.Gen.Sync: value_ChangeAlarm :: ChangeAlarm -> ValueParam CARD32
+ Graphics.XHB.Gen.Sync: value_ChangeAlarm :: ChangeAlarm -> ValueParam Word32
- Graphics.XHB.Gen.Sync: value_CreateAlarm :: CreateAlarm -> ValueParam CARD32
+ Graphics.XHB.Gen.Sync: value_CreateAlarm :: CreateAlarm -> ValueParam Word32
- Graphics.XHB.Gen.Sync: wait_type_TRIGGER :: TRIGGER -> CARD32
+ Graphics.XHB.Gen.Sync: wait_type_TRIGGER :: TRIGGER -> Word32
- Graphics.XHB.Gen.Test: MkCompareCursorReply :: BOOL -> CompareCursorReply
+ Graphics.XHB.Gen.Test: MkCompareCursorReply :: Bool -> CompareCursorReply
- Graphics.XHB.Gen.Test: MkFakeInput :: BYTE -> BYTE -> CARD32 -> WINDOW -> CARD16 -> CARD16 -> CARD8 -> FakeInput
+ Graphics.XHB.Gen.Test: MkFakeInput :: Word8 -> Word8 -> Word32 -> WINDOW -> Word16 -> Word16 -> Word8 -> FakeInput
- Graphics.XHB.Gen.Test: MkGetVersion :: CARD8 -> CARD16 -> GetVersion
+ Graphics.XHB.Gen.Test: MkGetVersion :: Word8 -> Word16 -> GetVersion
- Graphics.XHB.Gen.Test: MkGetVersionReply :: CARD8 -> CARD16 -> GetVersionReply
+ Graphics.XHB.Gen.Test: MkGetVersionReply :: Word8 -> Word16 -> GetVersionReply
- Graphics.XHB.Gen.Test: MkGrabControl :: BOOL -> GrabControl
+ Graphics.XHB.Gen.Test: MkGrabControl :: Bool -> GrabControl
- Graphics.XHB.Gen.Test: compareCursor :: Connection -> WINDOW -> CURSOR -> IO (Receipt CompareCursorReply)
+ Graphics.XHB.Gen.Test: compareCursor :: Connection -> WINDOW -> CURSOR -> IO (Receipt Bool)
- Graphics.XHB.Gen.Test: detail_FakeInput :: FakeInput -> BYTE
+ Graphics.XHB.Gen.Test: detail_FakeInput :: FakeInput -> Word8
- Graphics.XHB.Gen.Test: deviceid_FakeInput :: FakeInput -> CARD8
+ Graphics.XHB.Gen.Test: deviceid_FakeInput :: FakeInput -> Word8
- Graphics.XHB.Gen.Test: getVersion :: Connection -> CARD8 -> CARD16 -> IO (Receipt GetVersionReply)
+ Graphics.XHB.Gen.Test: getVersion :: Connection -> Word8 -> Word16 -> IO (Receipt GetVersionReply)
- Graphics.XHB.Gen.Test: grabControl :: Connection -> BOOL -> IO ()
+ Graphics.XHB.Gen.Test: grabControl :: Connection -> Bool -> IO ()
- Graphics.XHB.Gen.Test: impervious_GrabControl :: GrabControl -> BOOL
+ Graphics.XHB.Gen.Test: impervious_GrabControl :: GrabControl -> Bool
- Graphics.XHB.Gen.Test: major_version_GetVersion :: GetVersion -> CARD8
+ Graphics.XHB.Gen.Test: major_version_GetVersion :: GetVersion -> Word8
- Graphics.XHB.Gen.Test: major_version_GetVersionReply :: GetVersionReply -> CARD8
+ Graphics.XHB.Gen.Test: major_version_GetVersionReply :: GetVersionReply -> Word8
- Graphics.XHB.Gen.Test: minor_version_GetVersion :: GetVersion -> CARD16
+ Graphics.XHB.Gen.Test: minor_version_GetVersion :: GetVersion -> Word16
- Graphics.XHB.Gen.Test: minor_version_GetVersionReply :: GetVersionReply -> CARD16
+ Graphics.XHB.Gen.Test: minor_version_GetVersionReply :: GetVersionReply -> Word16
- Graphics.XHB.Gen.Test: rootX_FakeInput :: FakeInput -> CARD16
+ Graphics.XHB.Gen.Test: rootX_FakeInput :: FakeInput -> Word16
- Graphics.XHB.Gen.Test: rootY_FakeInput :: FakeInput -> CARD16
+ Graphics.XHB.Gen.Test: rootY_FakeInput :: FakeInput -> Word16
- Graphics.XHB.Gen.Test: same_CompareCursorReply :: CompareCursorReply -> BOOL
+ Graphics.XHB.Gen.Test: same_CompareCursorReply :: CompareCursorReply -> Bool
- Graphics.XHB.Gen.Test: time_FakeInput :: FakeInput -> CARD32
+ Graphics.XHB.Gen.Test: time_FakeInput :: FakeInput -> Word32
- Graphics.XHB.Gen.Test: type_FakeInput :: FakeInput -> BYTE
+ Graphics.XHB.Gen.Test: type_FakeInput :: FakeInput -> Word8
- Graphics.XHB.Gen.XCMisc: MkGetVersion :: CARD16 -> CARD16 -> GetVersion
+ Graphics.XHB.Gen.XCMisc: MkGetVersion :: Word16 -> Word16 -> GetVersion
- Graphics.XHB.Gen.XCMisc: MkGetVersionReply :: CARD16 -> CARD16 -> GetVersionReply
+ Graphics.XHB.Gen.XCMisc: MkGetVersionReply :: Word16 -> Word16 -> GetVersionReply
- Graphics.XHB.Gen.XCMisc: MkGetXIDList :: CARD32 -> GetXIDList
+ Graphics.XHB.Gen.XCMisc: MkGetXIDList :: Word32 -> GetXIDList
- Graphics.XHB.Gen.XCMisc: MkGetXIDListReply :: CARD32 -> [CARD32] -> GetXIDListReply
+ Graphics.XHB.Gen.XCMisc: MkGetXIDListReply :: Word32 -> [Word32] -> GetXIDListReply
- Graphics.XHB.Gen.XCMisc: MkGetXIDRangeReply :: CARD32 -> CARD32 -> GetXIDRangeReply
+ Graphics.XHB.Gen.XCMisc: MkGetXIDRangeReply :: Word32 -> Word32 -> GetXIDRangeReply
- Graphics.XHB.Gen.XCMisc: client_major_version_GetVersion :: GetVersion -> CARD16
+ Graphics.XHB.Gen.XCMisc: client_major_version_GetVersion :: GetVersion -> Word16
- Graphics.XHB.Gen.XCMisc: client_minor_version_GetVersion :: GetVersion -> CARD16
+ Graphics.XHB.Gen.XCMisc: client_minor_version_GetVersion :: GetVersion -> Word16
- Graphics.XHB.Gen.XCMisc: count_GetXIDList :: GetXIDList -> CARD32
+ Graphics.XHB.Gen.XCMisc: count_GetXIDList :: GetXIDList -> Word32
- Graphics.XHB.Gen.XCMisc: count_GetXIDRangeReply :: GetXIDRangeReply -> CARD32
+ Graphics.XHB.Gen.XCMisc: count_GetXIDRangeReply :: GetXIDRangeReply -> Word32
- Graphics.XHB.Gen.XCMisc: getVersion :: Connection -> CARD16 -> CARD16 -> IO (Receipt GetVersionReply)
+ Graphics.XHB.Gen.XCMisc: getVersion :: Connection -> Word16 -> Word16 -> IO (Receipt GetVersionReply)
- Graphics.XHB.Gen.XCMisc: getXIDList :: Connection -> CARD32 -> IO (Receipt GetXIDListReply)
+ Graphics.XHB.Gen.XCMisc: getXIDList :: Connection -> Word32 -> IO (Receipt GetXIDListReply)
- Graphics.XHB.Gen.XCMisc: ids_GetXIDListReply :: GetXIDListReply -> [CARD32]
+ Graphics.XHB.Gen.XCMisc: ids_GetXIDListReply :: GetXIDListReply -> [Word32]
- Graphics.XHB.Gen.XCMisc: ids_len_GetXIDListReply :: GetXIDListReply -> CARD32
+ Graphics.XHB.Gen.XCMisc: ids_len_GetXIDListReply :: GetXIDListReply -> Word32
- Graphics.XHB.Gen.XCMisc: server_major_version_GetVersionReply :: GetVersionReply -> CARD16
+ Graphics.XHB.Gen.XCMisc: server_major_version_GetVersionReply :: GetVersionReply -> Word16
- Graphics.XHB.Gen.XCMisc: server_minor_version_GetVersionReply :: GetVersionReply -> CARD16
+ Graphics.XHB.Gen.XCMisc: server_minor_version_GetVersionReply :: GetVersionReply -> Word16
- Graphics.XHB.Gen.XCMisc: start_id_GetXIDRangeReply :: GetXIDRangeReply -> CARD32
+ Graphics.XHB.Gen.XCMisc: start_id_GetXIDRangeReply :: GetXIDRangeReply -> Word32
- Graphics.XHB.Gen.XF86Dri: MkAuthConnection :: CARD32 -> CARD32 -> AuthConnection
+ Graphics.XHB.Gen.XF86Dri: MkAuthConnection :: Word32 -> Word32 -> AuthConnection
- Graphics.XHB.Gen.XF86Dri: MkAuthConnectionReply :: CARD32 -> AuthConnectionReply
+ Graphics.XHB.Gen.XF86Dri: MkAuthConnectionReply :: Word32 -> AuthConnectionReply
- Graphics.XHB.Gen.XF86Dri: MkCloseConnection :: CARD32 -> CloseConnection
+ Graphics.XHB.Gen.XF86Dri: MkCloseConnection :: Word32 -> CloseConnection
- Graphics.XHB.Gen.XF86Dri: MkCreateContext :: CARD32 -> CARD32 -> CARD32 -> CreateContext
+ Graphics.XHB.Gen.XF86Dri: MkCreateContext :: Word32 -> Word32 -> Word32 -> CreateContext
- Graphics.XHB.Gen.XF86Dri: MkCreateContextReply :: CARD32 -> CreateContextReply
+ Graphics.XHB.Gen.XF86Dri: MkCreateContextReply :: Word32 -> CreateContextReply
- Graphics.XHB.Gen.XF86Dri: MkCreateDrawable :: CARD32 -> CARD32 -> CreateDrawable
+ Graphics.XHB.Gen.XF86Dri: MkCreateDrawable :: Word32 -> Word32 -> CreateDrawable
- Graphics.XHB.Gen.XF86Dri: MkCreateDrawableReply :: CARD32 -> CreateDrawableReply
+ Graphics.XHB.Gen.XF86Dri: MkCreateDrawableReply :: Word32 -> CreateDrawableReply
- Graphics.XHB.Gen.XF86Dri: MkDestroyContext :: CARD32 -> CARD32 -> DestroyContext
+ Graphics.XHB.Gen.XF86Dri: MkDestroyContext :: Word32 -> Word32 -> DestroyContext
- Graphics.XHB.Gen.XF86Dri: MkDestroyDrawable :: CARD32 -> CARD32 -> DestroyDrawable
+ Graphics.XHB.Gen.XF86Dri: MkDestroyDrawable :: Word32 -> Word32 -> DestroyDrawable
- Graphics.XHB.Gen.XF86Dri: MkDrmClipRect :: INT16 -> INT16 -> INT16 -> INT16 -> DrmClipRect
+ Graphics.XHB.Gen.XF86Dri: MkDrmClipRect :: Int16 -> Int16 -> Int16 -> Int16 -> DrmClipRect
- Graphics.XHB.Gen.XF86Dri: MkGetClientDriverName :: CARD32 -> GetClientDriverName
+ Graphics.XHB.Gen.XF86Dri: MkGetClientDriverName :: Word32 -> GetClientDriverName
- Graphics.XHB.Gen.XF86Dri: MkGetClientDriverNameReply :: CARD32 -> CARD32 -> CARD32 -> CARD32 -> [CChar] -> GetClientDriverNameReply
+ Graphics.XHB.Gen.XF86Dri: MkGetClientDriverNameReply :: Word32 -> Word32 -> Word32 -> Word32 -> [CChar] -> GetClientDriverNameReply
- Graphics.XHB.Gen.XF86Dri: MkGetDeviceInfo :: CARD32 -> GetDeviceInfo
+ Graphics.XHB.Gen.XF86Dri: MkGetDeviceInfo :: Word32 -> GetDeviceInfo
- Graphics.XHB.Gen.XF86Dri: MkGetDeviceInfoReply :: CARD32 -> CARD32 -> CARD32 -> CARD32 -> CARD32 -> CARD32 -> [CARD32] -> GetDeviceInfoReply
+ Graphics.XHB.Gen.XF86Dri: MkGetDeviceInfoReply :: Word32 -> Word32 -> Word32 -> Word32 -> Word32 -> Word32 -> [Word32] -> GetDeviceInfoReply
- Graphics.XHB.Gen.XF86Dri: MkGetDrawableInfo :: CARD32 -> CARD32 -> GetDrawableInfo
+ Graphics.XHB.Gen.XF86Dri: MkGetDrawableInfo :: Word32 -> Word32 -> GetDrawableInfo
- Graphics.XHB.Gen.XF86Dri: MkGetDrawableInfoReply :: CARD32 -> CARD32 -> INT16 -> INT16 -> INT16 -> INT16 -> CARD32 -> [DrmClipRect] -> GetDrawableInfoReply
+ Graphics.XHB.Gen.XF86Dri: MkGetDrawableInfoReply :: Word32 -> Word32 -> Int16 -> Int16 -> Int16 -> Int16 -> Word32 -> [DrmClipRect] -> GetDrawableInfoReply
- Graphics.XHB.Gen.XF86Dri: MkOpenConnection :: CARD32 -> OpenConnection
+ Graphics.XHB.Gen.XF86Dri: MkOpenConnection :: Word32 -> OpenConnection
- Graphics.XHB.Gen.XF86Dri: MkOpenConnectionReply :: CARD32 -> CARD32 -> CARD32 -> CARD32 -> CARD32 -> [CChar] -> OpenConnectionReply
+ Graphics.XHB.Gen.XF86Dri: MkOpenConnectionReply :: Word32 -> Word32 -> Word32 -> Word32 -> Word32 -> [CChar] -> OpenConnectionReply
- Graphics.XHB.Gen.XF86Dri: MkQueryDirectRenderingCapable :: CARD32 -> QueryDirectRenderingCapable
+ Graphics.XHB.Gen.XF86Dri: MkQueryDirectRenderingCapable :: Word32 -> QueryDirectRenderingCapable
- Graphics.XHB.Gen.XF86Dri: MkQueryDirectRenderingCapableReply :: BOOL -> QueryDirectRenderingCapableReply
+ Graphics.XHB.Gen.XF86Dri: MkQueryDirectRenderingCapableReply :: Bool -> QueryDirectRenderingCapableReply
- Graphics.XHB.Gen.XF86Dri: MkQueryVersionReply :: CARD16 -> CARD16 -> CARD32 -> QueryVersionReply
+ Graphics.XHB.Gen.XF86Dri: MkQueryVersionReply :: Word16 -> Word16 -> Word32 -> QueryVersionReply
- Graphics.XHB.Gen.XF86Dri: authConnection :: Connection -> CARD32 -> CARD32 -> IO (Receipt AuthConnectionReply)
+ Graphics.XHB.Gen.XF86Dri: authConnection :: Connection -> Word32 -> Word32 -> IO (Receipt Word32)
- Graphics.XHB.Gen.XF86Dri: authenticated_AuthConnectionReply :: AuthConnectionReply -> CARD32
+ Graphics.XHB.Gen.XF86Dri: authenticated_AuthConnectionReply :: AuthConnectionReply -> Word32
- Graphics.XHB.Gen.XF86Dri: bus_id_len_OpenConnectionReply :: OpenConnectionReply -> CARD32
+ Graphics.XHB.Gen.XF86Dri: bus_id_len_OpenConnectionReply :: OpenConnectionReply -> Word32
- Graphics.XHB.Gen.XF86Dri: client_driver_major_version_GetClientDriverNameReply :: GetClientDriverNameReply -> CARD32
+ Graphics.XHB.Gen.XF86Dri: client_driver_major_version_GetClientDriverNameReply :: GetClientDriverNameReply -> Word32
- Graphics.XHB.Gen.XF86Dri: client_driver_minor_version_GetClientDriverNameReply :: GetClientDriverNameReply -> CARD32
+ Graphics.XHB.Gen.XF86Dri: client_driver_minor_version_GetClientDriverNameReply :: GetClientDriverNameReply -> Word32
- Graphics.XHB.Gen.XF86Dri: client_driver_name_len_GetClientDriverNameReply :: GetClientDriverNameReply -> CARD32
+ Graphics.XHB.Gen.XF86Dri: client_driver_name_len_GetClientDriverNameReply :: GetClientDriverNameReply -> Word32
- Graphics.XHB.Gen.XF86Dri: client_driver_patch_version_GetClientDriverNameReply :: GetClientDriverNameReply -> CARD32
+ Graphics.XHB.Gen.XF86Dri: client_driver_patch_version_GetClientDriverNameReply :: GetClientDriverNameReply -> Word32
- Graphics.XHB.Gen.XF86Dri: closeConnection :: Connection -> CARD32 -> IO ()
+ Graphics.XHB.Gen.XF86Dri: closeConnection :: Connection -> Word32 -> IO ()
- Graphics.XHB.Gen.XF86Dri: context_CreateContext :: CreateContext -> CARD32
+ Graphics.XHB.Gen.XF86Dri: context_CreateContext :: CreateContext -> Word32
- Graphics.XHB.Gen.XF86Dri: context_DestroyContext :: DestroyContext -> CARD32
+ Graphics.XHB.Gen.XF86Dri: context_DestroyContext :: DestroyContext -> Word32
- Graphics.XHB.Gen.XF86Dri: createContext :: Connection -> CreateContext -> IO (Receipt CreateContextReply)
+ Graphics.XHB.Gen.XF86Dri: createContext :: Connection -> CreateContext -> IO (Receipt Word32)
- Graphics.XHB.Gen.XF86Dri: createDrawable :: Connection -> CARD32 -> CARD32 -> IO (Receipt CreateDrawableReply)
+ Graphics.XHB.Gen.XF86Dri: createDrawable :: Connection -> Word32 -> Word32 -> IO (Receipt Word32)
- Graphics.XHB.Gen.XF86Dri: destroyContext :: Connection -> CARD32 -> CARD32 -> IO ()
+ Graphics.XHB.Gen.XF86Dri: destroyContext :: Connection -> Word32 -> Word32 -> IO ()
- Graphics.XHB.Gen.XF86Dri: destroyDrawable :: Connection -> CARD32 -> CARD32 -> IO ()
+ Graphics.XHB.Gen.XF86Dri: destroyDrawable :: Connection -> Word32 -> Word32 -> IO ()
- Graphics.XHB.Gen.XF86Dri: device_private_GetDeviceInfoReply :: GetDeviceInfoReply -> [CARD32]
+ Graphics.XHB.Gen.XF86Dri: device_private_GetDeviceInfoReply :: GetDeviceInfoReply -> [Word32]
- Graphics.XHB.Gen.XF86Dri: device_private_size_GetDeviceInfoReply :: GetDeviceInfoReply -> CARD32
+ Graphics.XHB.Gen.XF86Dri: device_private_size_GetDeviceInfoReply :: GetDeviceInfoReply -> Word32
- Graphics.XHB.Gen.XF86Dri: drawable_CreateDrawable :: CreateDrawable -> CARD32
+ Graphics.XHB.Gen.XF86Dri: drawable_CreateDrawable :: CreateDrawable -> Word32
- Graphics.XHB.Gen.XF86Dri: drawable_DestroyDrawable :: DestroyDrawable -> CARD32
+ Graphics.XHB.Gen.XF86Dri: drawable_DestroyDrawable :: DestroyDrawable -> Word32
- Graphics.XHB.Gen.XF86Dri: drawable_GetDrawableInfo :: GetDrawableInfo -> CARD32
+ Graphics.XHB.Gen.XF86Dri: drawable_GetDrawableInfo :: GetDrawableInfo -> Word32
- Graphics.XHB.Gen.XF86Dri: drawable_origin_X_GetDrawableInfoReply :: GetDrawableInfoReply -> INT16
+ Graphics.XHB.Gen.XF86Dri: drawable_origin_X_GetDrawableInfoReply :: GetDrawableInfoReply -> Int16
- Graphics.XHB.Gen.XF86Dri: drawable_origin_Y_GetDrawableInfoReply :: GetDrawableInfoReply -> INT16
+ Graphics.XHB.Gen.XF86Dri: drawable_origin_Y_GetDrawableInfoReply :: GetDrawableInfoReply -> Int16
- Graphics.XHB.Gen.XF86Dri: drawable_size_H_GetDrawableInfoReply :: GetDrawableInfoReply -> INT16
+ Graphics.XHB.Gen.XF86Dri: drawable_size_H_GetDrawableInfoReply :: GetDrawableInfoReply -> Int16
- Graphics.XHB.Gen.XF86Dri: drawable_size_W_GetDrawableInfoReply :: GetDrawableInfoReply -> INT16
+ Graphics.XHB.Gen.XF86Dri: drawable_size_W_GetDrawableInfoReply :: GetDrawableInfoReply -> Int16
- Graphics.XHB.Gen.XF86Dri: drawable_table_index_GetDrawableInfoReply :: GetDrawableInfoReply -> CARD32
+ Graphics.XHB.Gen.XF86Dri: drawable_table_index_GetDrawableInfoReply :: GetDrawableInfoReply -> Word32
- Graphics.XHB.Gen.XF86Dri: drawable_table_stamp_GetDrawableInfoReply :: GetDrawableInfoReply -> CARD32
+ Graphics.XHB.Gen.XF86Dri: drawable_table_stamp_GetDrawableInfoReply :: GetDrawableInfoReply -> Word32
- Graphics.XHB.Gen.XF86Dri: dri_major_version_QueryVersionReply :: QueryVersionReply -> CARD16
+ Graphics.XHB.Gen.XF86Dri: dri_major_version_QueryVersionReply :: QueryVersionReply -> Word16
- Graphics.XHB.Gen.XF86Dri: dri_minor_patch_QueryVersionReply :: QueryVersionReply -> CARD32
+ Graphics.XHB.Gen.XF86Dri: dri_minor_patch_QueryVersionReply :: QueryVersionReply -> Word32
- Graphics.XHB.Gen.XF86Dri: dri_minor_version_QueryVersionReply :: QueryVersionReply -> CARD16
+ Graphics.XHB.Gen.XF86Dri: dri_minor_version_QueryVersionReply :: QueryVersionReply -> Word16
- Graphics.XHB.Gen.XF86Dri: drm_client_key_high_OpenConnectionReply :: OpenConnectionReply -> CARD32
+ Graphics.XHB.Gen.XF86Dri: drm_client_key_high_OpenConnectionReply :: OpenConnectionReply -> Word32
- Graphics.XHB.Gen.XF86Dri: drm_client_key_low_OpenConnectionReply :: OpenConnectionReply -> CARD32
+ Graphics.XHB.Gen.XF86Dri: drm_client_key_low_OpenConnectionReply :: OpenConnectionReply -> Word32
- Graphics.XHB.Gen.XF86Dri: framebuffer_handle_high_GetDeviceInfoReply :: GetDeviceInfoReply -> CARD32
+ Graphics.XHB.Gen.XF86Dri: framebuffer_handle_high_GetDeviceInfoReply :: GetDeviceInfoReply -> Word32
- Graphics.XHB.Gen.XF86Dri: framebuffer_handle_low_GetDeviceInfoReply :: GetDeviceInfoReply -> CARD32
+ Graphics.XHB.Gen.XF86Dri: framebuffer_handle_low_GetDeviceInfoReply :: GetDeviceInfoReply -> Word32
- Graphics.XHB.Gen.XF86Dri: framebuffer_origin_offset_GetDeviceInfoReply :: GetDeviceInfoReply -> CARD32
+ Graphics.XHB.Gen.XF86Dri: framebuffer_origin_offset_GetDeviceInfoReply :: GetDeviceInfoReply -> Word32
- Graphics.XHB.Gen.XF86Dri: framebuffer_size_GetDeviceInfoReply :: GetDeviceInfoReply -> CARD32
+ Graphics.XHB.Gen.XF86Dri: framebuffer_size_GetDeviceInfoReply :: GetDeviceInfoReply -> Word32
- Graphics.XHB.Gen.XF86Dri: framebuffer_stride_GetDeviceInfoReply :: GetDeviceInfoReply -> CARD32
+ Graphics.XHB.Gen.XF86Dri: framebuffer_stride_GetDeviceInfoReply :: GetDeviceInfoReply -> Word32
- Graphics.XHB.Gen.XF86Dri: getClientDriverName :: Connection -> CARD32 -> IO (Receipt GetClientDriverNameReply)
+ Graphics.XHB.Gen.XF86Dri: getClientDriverName :: Connection -> Word32 -> IO (Receipt GetClientDriverNameReply)
- Graphics.XHB.Gen.XF86Dri: getDeviceInfo :: Connection -> CARD32 -> IO (Receipt GetDeviceInfoReply)
+ Graphics.XHB.Gen.XF86Dri: getDeviceInfo :: Connection -> Word32 -> IO (Receipt GetDeviceInfoReply)
- Graphics.XHB.Gen.XF86Dri: getDrawableInfo :: Connection -> CARD32 -> CARD32 -> IO (Receipt GetDrawableInfoReply)
+ Graphics.XHB.Gen.XF86Dri: getDrawableInfo :: Connection -> Word32 -> Word32 -> IO (Receipt GetDrawableInfoReply)
- Graphics.XHB.Gen.XF86Dri: hw_context_CreateContextReply :: CreateContextReply -> CARD32
+ Graphics.XHB.Gen.XF86Dri: hw_context_CreateContextReply :: CreateContextReply -> Word32
- Graphics.XHB.Gen.XF86Dri: hw_drawable_handle_CreateDrawableReply :: CreateDrawableReply -> CARD32
+ Graphics.XHB.Gen.XF86Dri: hw_drawable_handle_CreateDrawableReply :: CreateDrawableReply -> Word32
- Graphics.XHB.Gen.XF86Dri: is_capable_QueryDirectRenderingCapableReply :: QueryDirectRenderingCapableReply -> BOOL
+ Graphics.XHB.Gen.XF86Dri: is_capable_QueryDirectRenderingCapableReply :: QueryDirectRenderingCapableReply -> Bool
- Graphics.XHB.Gen.XF86Dri: magic_AuthConnection :: AuthConnection -> CARD32
+ Graphics.XHB.Gen.XF86Dri: magic_AuthConnection :: AuthConnection -> Word32
- Graphics.XHB.Gen.XF86Dri: num_clip_rects_GetDrawableInfoReply :: GetDrawableInfoReply -> CARD32
+ Graphics.XHB.Gen.XF86Dri: num_clip_rects_GetDrawableInfoReply :: GetDrawableInfoReply -> Word32
- Graphics.XHB.Gen.XF86Dri: openConnection :: Connection -> CARD32 -> IO (Receipt OpenConnectionReply)
+ Graphics.XHB.Gen.XF86Dri: openConnection :: Connection -> Word32 -> IO (Receipt OpenConnectionReply)
- Graphics.XHB.Gen.XF86Dri: queryDirectRenderingCapable :: Connection -> CARD32 -> IO (Receipt QueryDirectRenderingCapableReply)
+ Graphics.XHB.Gen.XF86Dri: queryDirectRenderingCapable :: Connection -> Word32 -> IO (Receipt Bool)
- Graphics.XHB.Gen.XF86Dri: sarea_handle_high_OpenConnectionReply :: OpenConnectionReply -> CARD32
+ Graphics.XHB.Gen.XF86Dri: sarea_handle_high_OpenConnectionReply :: OpenConnectionReply -> Word32
- Graphics.XHB.Gen.XF86Dri: sarea_handle_low_OpenConnectionReply :: OpenConnectionReply -> CARD32
+ Graphics.XHB.Gen.XF86Dri: sarea_handle_low_OpenConnectionReply :: OpenConnectionReply -> Word32
- Graphics.XHB.Gen.XF86Dri: screen_AuthConnection :: AuthConnection -> CARD32
+ Graphics.XHB.Gen.XF86Dri: screen_AuthConnection :: AuthConnection -> Word32
- Graphics.XHB.Gen.XF86Dri: screen_CloseConnection :: CloseConnection -> CARD32
+ Graphics.XHB.Gen.XF86Dri: screen_CloseConnection :: CloseConnection -> Word32
- Graphics.XHB.Gen.XF86Dri: screen_CreateContext :: CreateContext -> CARD32
+ Graphics.XHB.Gen.XF86Dri: screen_CreateContext :: CreateContext -> Word32
- Graphics.XHB.Gen.XF86Dri: screen_CreateDrawable :: CreateDrawable -> CARD32
+ Graphics.XHB.Gen.XF86Dri: screen_CreateDrawable :: CreateDrawable -> Word32
- Graphics.XHB.Gen.XF86Dri: screen_DestroyContext :: DestroyContext -> CARD32
+ Graphics.XHB.Gen.XF86Dri: screen_DestroyContext :: DestroyContext -> Word32
- Graphics.XHB.Gen.XF86Dri: screen_DestroyDrawable :: DestroyDrawable -> CARD32
+ Graphics.XHB.Gen.XF86Dri: screen_DestroyDrawable :: DestroyDrawable -> Word32
- Graphics.XHB.Gen.XF86Dri: screen_GetClientDriverName :: GetClientDriverName -> CARD32
+ Graphics.XHB.Gen.XF86Dri: screen_GetClientDriverName :: GetClientDriverName -> Word32
- Graphics.XHB.Gen.XF86Dri: screen_GetDeviceInfo :: GetDeviceInfo -> CARD32
+ Graphics.XHB.Gen.XF86Dri: screen_GetDeviceInfo :: GetDeviceInfo -> Word32
- Graphics.XHB.Gen.XF86Dri: screen_GetDrawableInfo :: GetDrawableInfo -> CARD32
+ Graphics.XHB.Gen.XF86Dri: screen_GetDrawableInfo :: GetDrawableInfo -> Word32
- Graphics.XHB.Gen.XF86Dri: screen_OpenConnection :: OpenConnection -> CARD32
+ Graphics.XHB.Gen.XF86Dri: screen_OpenConnection :: OpenConnection -> Word32
- Graphics.XHB.Gen.XF86Dri: screen_QueryDirectRenderingCapable :: QueryDirectRenderingCapable -> CARD32
+ Graphics.XHB.Gen.XF86Dri: screen_QueryDirectRenderingCapable :: QueryDirectRenderingCapable -> Word32
- Graphics.XHB.Gen.XF86Dri: visual_CreateContext :: CreateContext -> CARD32
+ Graphics.XHB.Gen.XF86Dri: visual_CreateContext :: CreateContext -> Word32
- Graphics.XHB.Gen.XF86Dri: x1_DrmClipRect :: DrmClipRect -> INT16
+ Graphics.XHB.Gen.XF86Dri: x1_DrmClipRect :: DrmClipRect -> Int16
- Graphics.XHB.Gen.XF86Dri: x2_DrmClipRect :: DrmClipRect -> INT16
+ Graphics.XHB.Gen.XF86Dri: x2_DrmClipRect :: DrmClipRect -> Int16
- Graphics.XHB.Gen.XF86Dri: x3_DrmClipRect :: DrmClipRect -> INT16
+ Graphics.XHB.Gen.XF86Dri: x3_DrmClipRect :: DrmClipRect -> Int16
- Graphics.XHB.Gen.XF86Dri: y1_DrmClipRect :: DrmClipRect -> INT16
+ Graphics.XHB.Gen.XF86Dri: y1_DrmClipRect :: DrmClipRect -> Int16
- Graphics.XHB.Gen.XFixes: MkChangeCursorByName :: CURSOR -> CARD16 -> [CChar] -> ChangeCursorByName
+ Graphics.XHB.Gen.XFixes: MkChangeCursorByName :: CURSOR -> Word16 -> [CChar] -> ChangeCursorByName
- Graphics.XHB.Gen.XFixes: MkChangeSaveSet :: BYTE -> BYTE -> BYTE -> WINDOW -> ChangeSaveSet
+ Graphics.XHB.Gen.XFixes: MkChangeSaveSet :: Word8 -> Word8 -> Word8 -> WINDOW -> ChangeSaveSet
- Graphics.XHB.Gen.XFixes: MkCursorNotify :: CARD8 -> WINDOW -> CARD32 -> TIMESTAMP -> ATOM -> CursorNotify
+ Graphics.XHB.Gen.XFixes: MkCursorNotify :: Word8 -> WINDOW -> Word32 -> TIMESTAMP -> ATOM -> CursorNotify
- Graphics.XHB.Gen.XFixes: MkExpandRegion :: REGION -> REGION -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> ExpandRegion
+ Graphics.XHB.Gen.XFixes: MkExpandRegion :: REGION -> REGION -> Word16 -> Word16 -> Word16 -> Word16 -> ExpandRegion
- Graphics.XHB.Gen.XFixes: MkGetCursorImageAndNameReply :: INT16 -> INT16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD32 -> ATOM -> CARD16 -> [CChar] -> [CARD32] -> GetCursorImageAndNameReply
+ Graphics.XHB.Gen.XFixes: MkGetCursorImageAndNameReply :: Int16 -> Int16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word32 -> ATOM -> Word16 -> [CChar] -> [Word32] -> GetCursorImageAndNameReply
- Graphics.XHB.Gen.XFixes: MkGetCursorImageReply :: INT16 -> INT16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD32 -> [CARD32] -> GetCursorImageReply
+ Graphics.XHB.Gen.XFixes: MkGetCursorImageReply :: Int16 -> Int16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word32 -> [Word32] -> GetCursorImageReply
- Graphics.XHB.Gen.XFixes: MkGetCursorNameReply :: ATOM -> CARD16 -> [CChar] -> GetCursorNameReply
+ Graphics.XHB.Gen.XFixes: MkGetCursorNameReply :: ATOM -> Word16 -> [CChar] -> GetCursorNameReply
- Graphics.XHB.Gen.XFixes: MkQueryVersion :: CARD32 -> CARD32 -> QueryVersion
+ Graphics.XHB.Gen.XFixes: MkQueryVersion :: Word32 -> Word32 -> QueryVersion
- Graphics.XHB.Gen.XFixes: MkQueryVersionReply :: CARD32 -> CARD32 -> QueryVersionReply
+ Graphics.XHB.Gen.XFixes: MkQueryVersionReply :: Word32 -> Word32 -> QueryVersionReply
- Graphics.XHB.Gen.XFixes: MkSelectCursorInput :: WINDOW -> CARD32 -> SelectCursorInput
+ Graphics.XHB.Gen.XFixes: MkSelectCursorInput :: WINDOW -> Word32 -> SelectCursorInput
- Graphics.XHB.Gen.XFixes: MkSelectSelectionInput :: WINDOW -> ATOM -> CARD32 -> SelectSelectionInput
+ Graphics.XHB.Gen.XFixes: MkSelectSelectionInput :: WINDOW -> ATOM -> Word32 -> SelectSelectionInput
- Graphics.XHB.Gen.XFixes: MkSelectionNotify :: CARD8 -> WINDOW -> WINDOW -> ATOM -> TIMESTAMP -> TIMESTAMP -> SelectionNotify
+ Graphics.XHB.Gen.XFixes: MkSelectionNotify :: Word8 -> WINDOW -> WINDOW -> ATOM -> TIMESTAMP -> TIMESTAMP -> SelectionNotify
- Graphics.XHB.Gen.XFixes: MkSetCursorName :: CURSOR -> CARD16 -> [CChar] -> SetCursorName
+ Graphics.XHB.Gen.XFixes: MkSetCursorName :: CURSOR -> Word16 -> [CChar] -> SetCursorName
- Graphics.XHB.Gen.XFixes: MkSetGCClipRegion :: GCONTEXT -> REGION -> INT16 -> INT16 -> SetGCClipRegion
+ Graphics.XHB.Gen.XFixes: MkSetGCClipRegion :: GCONTEXT -> REGION -> Int16 -> Int16 -> SetGCClipRegion
- Graphics.XHB.Gen.XFixes: MkSetPictureClipRegion :: PICTURE -> REGION -> INT16 -> INT16 -> SetPictureClipRegion
+ Graphics.XHB.Gen.XFixes: MkSetPictureClipRegion :: PICTURE -> REGION -> Int16 -> Int16 -> SetPictureClipRegion
- Graphics.XHB.Gen.XFixes: MkSetWindowShapeRegion :: WINDOW -> KIND -> INT16 -> INT16 -> REGION -> SetWindowShapeRegion
+ Graphics.XHB.Gen.XFixes: MkSetWindowShapeRegion :: WINDOW -> KIND -> Int16 -> Int16 -> REGION -> SetWindowShapeRegion
- Graphics.XHB.Gen.XFixes: MkTranslateRegion :: REGION -> INT16 -> INT16 -> TranslateRegion
+ Graphics.XHB.Gen.XFixes: MkTranslateRegion :: REGION -> Int16 -> Int16 -> TranslateRegion
- Graphics.XHB.Gen.XFixes: bottom_ExpandRegion :: ExpandRegion -> CARD16
+ Graphics.XHB.Gen.XFixes: bottom_ExpandRegion :: ExpandRegion -> Word16
- Graphics.XHB.Gen.XFixes: client_major_version_QueryVersion :: QueryVersion -> CARD32
+ Graphics.XHB.Gen.XFixes: client_major_version_QueryVersion :: QueryVersion -> Word32
- Graphics.XHB.Gen.XFixes: client_minor_version_QueryVersion :: QueryVersion -> CARD32
+ Graphics.XHB.Gen.XFixes: client_minor_version_QueryVersion :: QueryVersion -> Word32
- Graphics.XHB.Gen.XFixes: cursor_image_GetCursorImageAndNameReply :: GetCursorImageAndNameReply -> [CARD32]
+ Graphics.XHB.Gen.XFixes: cursor_image_GetCursorImageAndNameReply :: GetCursorImageAndNameReply -> [Word32]
- Graphics.XHB.Gen.XFixes: cursor_image_GetCursorImageReply :: GetCursorImageReply -> [CARD32]
+ Graphics.XHB.Gen.XFixes: cursor_image_GetCursorImageReply :: GetCursorImageReply -> [Word32]
- Graphics.XHB.Gen.XFixes: cursor_serial_CursorNotify :: CursorNotify -> CARD32
+ Graphics.XHB.Gen.XFixes: cursor_serial_CursorNotify :: CursorNotify -> Word32
- Graphics.XHB.Gen.XFixes: cursor_serial_GetCursorImageAndNameReply :: GetCursorImageAndNameReply -> CARD32
+ Graphics.XHB.Gen.XFixes: cursor_serial_GetCursorImageAndNameReply :: GetCursorImageAndNameReply -> Word32
- Graphics.XHB.Gen.XFixes: cursor_serial_GetCursorImageReply :: GetCursorImageReply -> CARD32
+ Graphics.XHB.Gen.XFixes: cursor_serial_GetCursorImageReply :: GetCursorImageReply -> Word32
- Graphics.XHB.Gen.XFixes: dx_TranslateRegion :: TranslateRegion -> INT16
+ Graphics.XHB.Gen.XFixes: dx_TranslateRegion :: TranslateRegion -> Int16
- Graphics.XHB.Gen.XFixes: dy_TranslateRegion :: TranslateRegion -> INT16
+ Graphics.XHB.Gen.XFixes: dy_TranslateRegion :: TranslateRegion -> Int16
- Graphics.XHB.Gen.XFixes: event_mask_SelectCursorInput :: SelectCursorInput -> CARD32
+ Graphics.XHB.Gen.XFixes: event_mask_SelectCursorInput :: SelectCursorInput -> Word32
- Graphics.XHB.Gen.XFixes: event_mask_SelectSelectionInput :: SelectSelectionInput -> CARD32
+ Graphics.XHB.Gen.XFixes: event_mask_SelectSelectionInput :: SelectSelectionInput -> Word32
- Graphics.XHB.Gen.XFixes: height_GetCursorImageAndNameReply :: GetCursorImageAndNameReply -> CARD16
+ Graphics.XHB.Gen.XFixes: height_GetCursorImageAndNameReply :: GetCursorImageAndNameReply -> Word16
- Graphics.XHB.Gen.XFixes: height_GetCursorImageReply :: GetCursorImageReply -> CARD16
+ Graphics.XHB.Gen.XFixes: height_GetCursorImageReply :: GetCursorImageReply -> Word16
- Graphics.XHB.Gen.XFixes: left_ExpandRegion :: ExpandRegion -> CARD16
+ Graphics.XHB.Gen.XFixes: left_ExpandRegion :: ExpandRegion -> Word16
- Graphics.XHB.Gen.XFixes: major_version_QueryVersionReply :: QueryVersionReply -> CARD32
+ Graphics.XHB.Gen.XFixes: major_version_QueryVersionReply :: QueryVersionReply -> Word32
- Graphics.XHB.Gen.XFixes: map_ChangeSaveSet :: ChangeSaveSet -> BYTE
+ Graphics.XHB.Gen.XFixes: map_ChangeSaveSet :: ChangeSaveSet -> Word8
- Graphics.XHB.Gen.XFixes: minor_version_QueryVersionReply :: QueryVersionReply -> CARD32
+ Graphics.XHB.Gen.XFixes: minor_version_QueryVersionReply :: QueryVersionReply -> Word32
- Graphics.XHB.Gen.XFixes: mode_ChangeSaveSet :: ChangeSaveSet -> BYTE
+ Graphics.XHB.Gen.XFixes: mode_ChangeSaveSet :: ChangeSaveSet -> Word8
- Graphics.XHB.Gen.XFixes: nbytes_ChangeCursorByName :: ChangeCursorByName -> CARD16
+ Graphics.XHB.Gen.XFixes: nbytes_ChangeCursorByName :: ChangeCursorByName -> Word16
- Graphics.XHB.Gen.XFixes: nbytes_GetCursorImageAndNameReply :: GetCursorImageAndNameReply -> CARD16
+ Graphics.XHB.Gen.XFixes: nbytes_GetCursorImageAndNameReply :: GetCursorImageAndNameReply -> Word16
- Graphics.XHB.Gen.XFixes: nbytes_GetCursorNameReply :: GetCursorNameReply -> CARD16
+ Graphics.XHB.Gen.XFixes: nbytes_GetCursorNameReply :: GetCursorNameReply -> Word16
- Graphics.XHB.Gen.XFixes: nbytes_SetCursorName :: SetCursorName -> CARD16
+ Graphics.XHB.Gen.XFixes: nbytes_SetCursorName :: SetCursorName -> Word16
- Graphics.XHB.Gen.XFixes: queryVersion :: Connection -> CARD32 -> CARD32 -> IO (Receipt QueryVersionReply)
+ Graphics.XHB.Gen.XFixes: queryVersion :: Connection -> Word32 -> Word32 -> IO (Receipt QueryVersionReply)
- Graphics.XHB.Gen.XFixes: right_ExpandRegion :: ExpandRegion -> CARD16
+ Graphics.XHB.Gen.XFixes: right_ExpandRegion :: ExpandRegion -> Word16
- Graphics.XHB.Gen.XFixes: selectCursorInput :: Connection -> WINDOW -> CARD32 -> IO ()
+ Graphics.XHB.Gen.XFixes: selectCursorInput :: Connection -> WINDOW -> Word32 -> IO ()
- Graphics.XHB.Gen.XFixes: subtype_CursorNotify :: CursorNotify -> CARD8
+ Graphics.XHB.Gen.XFixes: subtype_CursorNotify :: CursorNotify -> Word8
- Graphics.XHB.Gen.XFixes: subtype_SelectionNotify :: SelectionNotify -> CARD8
+ Graphics.XHB.Gen.XFixes: subtype_SelectionNotify :: SelectionNotify -> Word8
- Graphics.XHB.Gen.XFixes: target_ChangeSaveSet :: ChangeSaveSet -> BYTE
+ Graphics.XHB.Gen.XFixes: target_ChangeSaveSet :: ChangeSaveSet -> Word8
- Graphics.XHB.Gen.XFixes: top_ExpandRegion :: ExpandRegion -> CARD16
+ Graphics.XHB.Gen.XFixes: top_ExpandRegion :: ExpandRegion -> Word16
- Graphics.XHB.Gen.XFixes: width_GetCursorImageAndNameReply :: GetCursorImageAndNameReply -> CARD16
+ Graphics.XHB.Gen.XFixes: width_GetCursorImageAndNameReply :: GetCursorImageAndNameReply -> Word16
- Graphics.XHB.Gen.XFixes: width_GetCursorImageReply :: GetCursorImageReply -> CARD16
+ Graphics.XHB.Gen.XFixes: width_GetCursorImageReply :: GetCursorImageReply -> Word16
- Graphics.XHB.Gen.XFixes: x_GetCursorImageAndNameReply :: GetCursorImageAndNameReply -> INT16
+ Graphics.XHB.Gen.XFixes: x_GetCursorImageAndNameReply :: GetCursorImageAndNameReply -> Int16
- Graphics.XHB.Gen.XFixes: x_GetCursorImageReply :: GetCursorImageReply -> INT16
+ Graphics.XHB.Gen.XFixes: x_GetCursorImageReply :: GetCursorImageReply -> Int16
- Graphics.XHB.Gen.XFixes: x_offset_SetWindowShapeRegion :: SetWindowShapeRegion -> INT16
+ Graphics.XHB.Gen.XFixes: x_offset_SetWindowShapeRegion :: SetWindowShapeRegion -> Int16
- Graphics.XHB.Gen.XFixes: x_origin_SetGCClipRegion :: SetGCClipRegion -> INT16
+ Graphics.XHB.Gen.XFixes: x_origin_SetGCClipRegion :: SetGCClipRegion -> Int16
- Graphics.XHB.Gen.XFixes: x_origin_SetPictureClipRegion :: SetPictureClipRegion -> INT16
+ Graphics.XHB.Gen.XFixes: x_origin_SetPictureClipRegion :: SetPictureClipRegion -> Int16
- Graphics.XHB.Gen.XFixes: xhot_GetCursorImageAndNameReply :: GetCursorImageAndNameReply -> CARD16
+ Graphics.XHB.Gen.XFixes: xhot_GetCursorImageAndNameReply :: GetCursorImageAndNameReply -> Word16
- Graphics.XHB.Gen.XFixes: xhot_GetCursorImageReply :: GetCursorImageReply -> CARD16
+ Graphics.XHB.Gen.XFixes: xhot_GetCursorImageReply :: GetCursorImageReply -> Word16
- Graphics.XHB.Gen.XFixes: y_GetCursorImageAndNameReply :: GetCursorImageAndNameReply -> INT16
+ Graphics.XHB.Gen.XFixes: y_GetCursorImageAndNameReply :: GetCursorImageAndNameReply -> Int16
- Graphics.XHB.Gen.XFixes: y_GetCursorImageReply :: GetCursorImageReply -> INT16
+ Graphics.XHB.Gen.XFixes: y_GetCursorImageReply :: GetCursorImageReply -> Int16
- Graphics.XHB.Gen.XFixes: y_offset_SetWindowShapeRegion :: SetWindowShapeRegion -> INT16
+ Graphics.XHB.Gen.XFixes: y_offset_SetWindowShapeRegion :: SetWindowShapeRegion -> Int16
- Graphics.XHB.Gen.XFixes: y_origin_SetGCClipRegion :: SetGCClipRegion -> INT16
+ Graphics.XHB.Gen.XFixes: y_origin_SetGCClipRegion :: SetGCClipRegion -> Int16
- Graphics.XHB.Gen.XFixes: y_origin_SetPictureClipRegion :: SetPictureClipRegion -> INT16
+ Graphics.XHB.Gen.XFixes: y_origin_SetPictureClipRegion :: SetPictureClipRegion -> Int16
- Graphics.XHB.Gen.XFixes: yhot_GetCursorImageAndNameReply :: GetCursorImageAndNameReply -> CARD16
+ Graphics.XHB.Gen.XFixes: yhot_GetCursorImageAndNameReply :: GetCursorImageAndNameReply -> Word16
- Graphics.XHB.Gen.XFixes: yhot_GetCursorImageReply :: GetCursorImageReply -> CARD16
+ Graphics.XHB.Gen.XFixes: yhot_GetCursorImageReply :: GetCursorImageReply -> Word16
- Graphics.XHB.Gen.XPrint: MkAttributNotify :: CARD8 -> PCONTEXT -> AttributNotify
+ Graphics.XHB.Gen.XPrint: MkAttributNotify :: Word8 -> PCONTEXT -> AttributNotify
- Graphics.XHB.Gen.XPrint: MkCreateContext :: CARD32 -> CARD32 -> CARD32 -> [STRING8] -> [STRING8] -> CreateContext
+ Graphics.XHB.Gen.XPrint: MkCreateContext :: Word32 -> Word32 -> Word32 -> [STRING8] -> [STRING8] -> CreateContext
- Graphics.XHB.Gen.XPrint: MkNotify :: CARD8 -> PCONTEXT -> BOOL -> Notify
+ Graphics.XHB.Gen.XPrint: MkNotify :: Word8 -> PCONTEXT -> Bool -> Notify
- Graphics.XHB.Gen.XPrint: MkPRINTER :: CARD32 -> [STRING8] -> CARD32 -> [STRING8] -> PRINTER
+ Graphics.XHB.Gen.XPrint: MkPRINTER :: Word32 -> [STRING8] -> Word32 -> [STRING8] -> PRINTER
- Graphics.XHB.Gen.XPrint: MkPrintDestroyContext :: CARD32 -> PrintDestroyContext
+ Graphics.XHB.Gen.XPrint: MkPrintDestroyContext :: Word32 -> PrintDestroyContext
- Graphics.XHB.Gen.XPrint: MkPrintEndDoc :: BOOL -> PrintEndDoc
+ Graphics.XHB.Gen.XPrint: MkPrintEndDoc :: Bool -> PrintEndDoc
- Graphics.XHB.Gen.XPrint: MkPrintEndJob :: BOOL -> PrintEndJob
+ Graphics.XHB.Gen.XPrint: MkPrintEndJob :: Bool -> PrintEndJob
- Graphics.XHB.Gen.XPrint: MkPrintEndPage :: BOOL -> PrintEndPage
+ Graphics.XHB.Gen.XPrint: MkPrintEndPage :: Bool -> PrintEndPage
- Graphics.XHB.Gen.XPrint: MkPrintGetAttributes :: PCONTEXT -> CARD8 -> PrintGetAttributes
+ Graphics.XHB.Gen.XPrint: MkPrintGetAttributes :: PCONTEXT -> Word8 -> PrintGetAttributes
- Graphics.XHB.Gen.XPrint: MkPrintGetAttributesReply :: CARD32 -> STRING8 -> PrintGetAttributesReply
+ Graphics.XHB.Gen.XPrint: MkPrintGetAttributesReply :: Word32 -> STRING8 -> PrintGetAttributesReply
- Graphics.XHB.Gen.XPrint: MkPrintGetContextReply :: CARD32 -> PrintGetContextReply
+ Graphics.XHB.Gen.XPrint: MkPrintGetContextReply :: Word32 -> PrintGetContextReply
- Graphics.XHB.Gen.XPrint: MkPrintGetDocumentData :: PCONTEXT -> CARD32 -> PrintGetDocumentData
+ Graphics.XHB.Gen.XPrint: MkPrintGetDocumentData :: PCONTEXT -> Word32 -> PrintGetDocumentData
- Graphics.XHB.Gen.XPrint: MkPrintGetDocumentDataReply :: CARD32 -> CARD32 -> CARD32 -> [BYTE] -> PrintGetDocumentDataReply
+ Graphics.XHB.Gen.XPrint: MkPrintGetDocumentDataReply :: Word32 -> Word32 -> Word32 -> [Word8] -> PrintGetDocumentDataReply
- Graphics.XHB.Gen.XPrint: MkPrintGetImageResolutionReply :: CARD16 -> PrintGetImageResolutionReply
+ Graphics.XHB.Gen.XPrint: MkPrintGetImageResolutionReply :: Word16 -> PrintGetImageResolutionReply
- Graphics.XHB.Gen.XPrint: MkPrintGetOneAttributes :: PCONTEXT -> CARD32 -> CARD8 -> [STRING8] -> PrintGetOneAttributes
+ Graphics.XHB.Gen.XPrint: MkPrintGetOneAttributes :: PCONTEXT -> Word32 -> Word8 -> [STRING8] -> PrintGetOneAttributes
- Graphics.XHB.Gen.XPrint: MkPrintGetOneAttributesReply :: CARD32 -> [STRING8] -> PrintGetOneAttributesReply
+ Graphics.XHB.Gen.XPrint: MkPrintGetOneAttributesReply :: Word32 -> [STRING8] -> PrintGetOneAttributesReply
- Graphics.XHB.Gen.XPrint: MkPrintGetPageDimensionsReply :: CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> PrintGetPageDimensionsReply
+ Graphics.XHB.Gen.XPrint: MkPrintGetPageDimensionsReply :: Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> PrintGetPageDimensionsReply
- Graphics.XHB.Gen.XPrint: MkPrintGetPrinterList :: CARD32 -> CARD32 -> [STRING8] -> [STRING8] -> PrintGetPrinterList
+ Graphics.XHB.Gen.XPrint: MkPrintGetPrinterList :: Word32 -> Word32 -> [STRING8] -> [STRING8] -> PrintGetPrinterList
- Graphics.XHB.Gen.XPrint: MkPrintGetPrinterListReply :: CARD32 -> [PRINTER] -> PrintGetPrinterListReply
+ Graphics.XHB.Gen.XPrint: MkPrintGetPrinterListReply :: Word32 -> [PRINTER] -> PrintGetPrinterListReply
- Graphics.XHB.Gen.XPrint: MkPrintInputSelectedReply :: ValueParam CARD32 -> ValueParam CARD32 -> PrintInputSelectedReply
+ Graphics.XHB.Gen.XPrint: MkPrintInputSelectedReply :: ValueParam Word32 -> ValueParam Word32 -> PrintInputSelectedReply
- Graphics.XHB.Gen.XPrint: MkPrintPutDocumentData :: DRAWABLE -> CARD32 -> CARD16 -> CARD16 -> [BYTE] -> [STRING8] -> [STRING8] -> PrintPutDocumentData
+ Graphics.XHB.Gen.XPrint: MkPrintPutDocumentData :: DRAWABLE -> Word32 -> Word16 -> Word16 -> [Word8] -> [STRING8] -> [STRING8] -> PrintPutDocumentData
- Graphics.XHB.Gen.XPrint: MkPrintQueryScreensReply :: CARD32 -> [WINDOW] -> PrintQueryScreensReply
+ Graphics.XHB.Gen.XPrint: MkPrintQueryScreensReply :: Word32 -> [WINDOW] -> PrintQueryScreensReply
- Graphics.XHB.Gen.XPrint: MkPrintQueryVersionReply :: CARD16 -> CARD16 -> PrintQueryVersionReply
+ Graphics.XHB.Gen.XPrint: MkPrintQueryVersionReply :: Word16 -> Word16 -> PrintQueryVersionReply
- Graphics.XHB.Gen.XPrint: MkPrintSelectInput :: PCONTEXT -> ValueParam CARD32 -> PrintSelectInput
+ Graphics.XHB.Gen.XPrint: MkPrintSelectInput :: PCONTEXT -> ValueParam Word32 -> PrintSelectInput
- Graphics.XHB.Gen.XPrint: MkPrintSetAttributes :: PCONTEXT -> CARD32 -> CARD8 -> CARD8 -> [STRING8] -> PrintSetAttributes
+ Graphics.XHB.Gen.XPrint: MkPrintSetAttributes :: PCONTEXT -> Word32 -> Word8 -> Word8 -> [STRING8] -> PrintSetAttributes
- Graphics.XHB.Gen.XPrint: MkPrintSetContext :: CARD32 -> PrintSetContext
+ Graphics.XHB.Gen.XPrint: MkPrintSetContext :: Word32 -> PrintSetContext
- Graphics.XHB.Gen.XPrint: MkPrintSetImageResolution :: PCONTEXT -> CARD16 -> PrintSetImageResolution
+ Graphics.XHB.Gen.XPrint: MkPrintSetImageResolution :: PCONTEXT -> Word16 -> PrintSetImageResolution
- Graphics.XHB.Gen.XPrint: MkPrintSetImageResolutionReply :: BOOL -> CARD16 -> PrintSetImageResolutionReply
+ Graphics.XHB.Gen.XPrint: MkPrintSetImageResolutionReply :: Bool -> Word16 -> PrintSetImageResolutionReply
- Graphics.XHB.Gen.XPrint: MkPrintStartDoc :: CARD8 -> PrintStartDoc
+ Graphics.XHB.Gen.XPrint: MkPrintStartDoc :: Word8 -> PrintStartDoc
- Graphics.XHB.Gen.XPrint: MkPrintStartJob :: CARD8 -> PrintStartJob
+ Graphics.XHB.Gen.XPrint: MkPrintStartJob :: Word8 -> PrintStartJob
- Graphics.XHB.Gen.XPrint: all_events_PrintInputSelectedReply :: PrintInputSelectedReply -> ValueParam CARD32
+ Graphics.XHB.Gen.XPrint: all_events_PrintInputSelectedReply :: PrintInputSelectedReply -> ValueParam Word32
- Graphics.XHB.Gen.XPrint: cancel_Notify :: Notify -> BOOL
+ Graphics.XHB.Gen.XPrint: cancel_Notify :: Notify -> Bool
- Graphics.XHB.Gen.XPrint: cancel_PrintEndDoc :: PrintEndDoc -> BOOL
+ Graphics.XHB.Gen.XPrint: cancel_PrintEndDoc :: PrintEndDoc -> Bool
- Graphics.XHB.Gen.XPrint: cancel_PrintEndJob :: PrintEndJob -> BOOL
+ Graphics.XHB.Gen.XPrint: cancel_PrintEndJob :: PrintEndJob -> Bool
- Graphics.XHB.Gen.XPrint: cancel_PrintEndPage :: PrintEndPage -> BOOL
+ Graphics.XHB.Gen.XPrint: cancel_PrintEndPage :: PrintEndPage -> Bool
- Graphics.XHB.Gen.XPrint: context_PrintDestroyContext :: PrintDestroyContext -> CARD32
+ Graphics.XHB.Gen.XPrint: context_PrintDestroyContext :: PrintDestroyContext -> Word32
- Graphics.XHB.Gen.XPrint: context_PrintGetContextReply :: PrintGetContextReply -> CARD32
+ Graphics.XHB.Gen.XPrint: context_PrintGetContextReply :: PrintGetContextReply -> Word32
- Graphics.XHB.Gen.XPrint: context_PrintSetContext :: PrintSetContext -> CARD32
+ Graphics.XHB.Gen.XPrint: context_PrintSetContext :: PrintSetContext -> Word32
- Graphics.XHB.Gen.XPrint: context_id_CreateContext :: CreateContext -> CARD32
+ Graphics.XHB.Gen.XPrint: context_id_CreateContext :: CreateContext -> Word32
- Graphics.XHB.Gen.XPrint: dataLen_PrintGetDocumentDataReply :: PrintGetDocumentDataReply -> CARD32
+ Graphics.XHB.Gen.XPrint: dataLen_PrintGetDocumentDataReply :: PrintGetDocumentDataReply -> Word32
- Graphics.XHB.Gen.XPrint: data_PrintGetDocumentDataReply :: PrintGetDocumentDataReply -> [BYTE]
+ Graphics.XHB.Gen.XPrint: data_PrintGetDocumentDataReply :: PrintGetDocumentDataReply -> [Word8]
- Graphics.XHB.Gen.XPrint: data_PrintPutDocumentData :: PrintPutDocumentData -> [BYTE]
+ Graphics.XHB.Gen.XPrint: data_PrintPutDocumentData :: PrintPutDocumentData -> [Word8]
- Graphics.XHB.Gen.XPrint: descLen_PRINTER :: PRINTER -> CARD32
+ Graphics.XHB.Gen.XPrint: descLen_PRINTER :: PRINTER -> Word32
- Graphics.XHB.Gen.XPrint: detail_AttributNotify :: AttributNotify -> CARD8
+ Graphics.XHB.Gen.XPrint: detail_AttributNotify :: AttributNotify -> Word8
- Graphics.XHB.Gen.XPrint: detail_Notify :: Notify -> CARD8
+ Graphics.XHB.Gen.XPrint: detail_Notify :: Notify -> Word8
- Graphics.XHB.Gen.XPrint: driver_mode_PrintStartDoc :: PrintStartDoc -> CARD8
+ Graphics.XHB.Gen.XPrint: driver_mode_PrintStartDoc :: PrintStartDoc -> Word8
- Graphics.XHB.Gen.XPrint: event_PrintInputSelectedReply :: PrintInputSelectedReply -> ValueParam CARD32
+ Graphics.XHB.Gen.XPrint: event_PrintInputSelectedReply :: PrintInputSelectedReply -> ValueParam Word32
- Graphics.XHB.Gen.XPrint: event_PrintSelectInput :: PrintSelectInput -> ValueParam CARD32
+ Graphics.XHB.Gen.XPrint: event_PrintSelectInput :: PrintSelectInput -> ValueParam Word32
- Graphics.XHB.Gen.XPrint: finished_flag_PrintGetDocumentDataReply :: PrintGetDocumentDataReply -> CARD32
+ Graphics.XHB.Gen.XPrint: finished_flag_PrintGetDocumentDataReply :: PrintGetDocumentDataReply -> Word32
- Graphics.XHB.Gen.XPrint: height_PrintGetPageDimensionsReply :: PrintGetPageDimensionsReply -> CARD16
+ Graphics.XHB.Gen.XPrint: height_PrintGetPageDimensionsReply :: PrintGetPageDimensionsReply -> Word16
- Graphics.XHB.Gen.XPrint: image_resolution_PrintGetImageResolutionReply :: PrintGetImageResolutionReply -> CARD16
+ Graphics.XHB.Gen.XPrint: image_resolution_PrintGetImageResolutionReply :: PrintGetImageResolutionReply -> Word16
- Graphics.XHB.Gen.XPrint: image_resolution_PrintSetImageResolution :: PrintSetImageResolution -> CARD16
+ Graphics.XHB.Gen.XPrint: image_resolution_PrintSetImageResolution :: PrintSetImageResolution -> Word16
- Graphics.XHB.Gen.XPrint: len_data_PrintPutDocumentData :: PrintPutDocumentData -> CARD32
+ Graphics.XHB.Gen.XPrint: len_data_PrintPutDocumentData :: PrintPutDocumentData -> Word32
- Graphics.XHB.Gen.XPrint: len_fmt_PrintPutDocumentData :: PrintPutDocumentData -> CARD16
+ Graphics.XHB.Gen.XPrint: len_fmt_PrintPutDocumentData :: PrintPutDocumentData -> Word16
- Graphics.XHB.Gen.XPrint: len_options_PrintPutDocumentData :: PrintPutDocumentData -> CARD16
+ Graphics.XHB.Gen.XPrint: len_options_PrintPutDocumentData :: PrintPutDocumentData -> Word16
- Graphics.XHB.Gen.XPrint: listCount_PrintGetPrinterListReply :: PrintGetPrinterListReply -> CARD32
+ Graphics.XHB.Gen.XPrint: listCount_PrintGetPrinterListReply :: PrintGetPrinterListReply -> Word32
- Graphics.XHB.Gen.XPrint: listCount_PrintQueryScreensReply :: PrintQueryScreensReply -> CARD32
+ Graphics.XHB.Gen.XPrint: listCount_PrintQueryScreensReply :: PrintQueryScreensReply -> Word32
- Graphics.XHB.Gen.XPrint: localeLen_CreateContext :: CreateContext -> CARD32
+ Graphics.XHB.Gen.XPrint: localeLen_CreateContext :: CreateContext -> Word32
- Graphics.XHB.Gen.XPrint: localeLen_PrintGetPrinterList :: PrintGetPrinterList -> CARD32
+ Graphics.XHB.Gen.XPrint: localeLen_PrintGetPrinterList :: PrintGetPrinterList -> Word32
- Graphics.XHB.Gen.XPrint: major_version_PrintQueryVersionReply :: PrintQueryVersionReply -> CARD16
+ Graphics.XHB.Gen.XPrint: major_version_PrintQueryVersionReply :: PrintQueryVersionReply -> Word16
- Graphics.XHB.Gen.XPrint: max_bytes_PrintGetDocumentData :: PrintGetDocumentData -> CARD32
+ Graphics.XHB.Gen.XPrint: max_bytes_PrintGetDocumentData :: PrintGetDocumentData -> Word32
- Graphics.XHB.Gen.XPrint: minor_version_PrintQueryVersionReply :: PrintQueryVersionReply -> CARD16
+ Graphics.XHB.Gen.XPrint: minor_version_PrintQueryVersionReply :: PrintQueryVersionReply -> Word16
- Graphics.XHB.Gen.XPrint: nameLen_PRINTER :: PRINTER -> CARD32
+ Graphics.XHB.Gen.XPrint: nameLen_PRINTER :: PRINTER -> Word32
- Graphics.XHB.Gen.XPrint: nameLen_PrintGetOneAttributes :: PrintGetOneAttributes -> CARD32
+ Graphics.XHB.Gen.XPrint: nameLen_PrintGetOneAttributes :: PrintGetOneAttributes -> Word32
- Graphics.XHB.Gen.XPrint: offset_x_PrintGetPageDimensionsReply :: PrintGetPageDimensionsReply -> CARD16
+ Graphics.XHB.Gen.XPrint: offset_x_PrintGetPageDimensionsReply :: PrintGetPageDimensionsReply -> Word16
- Graphics.XHB.Gen.XPrint: offset_y_PrintGetPageDimensionsReply :: PrintGetPageDimensionsReply -> CARD16
+ Graphics.XHB.Gen.XPrint: offset_y_PrintGetPageDimensionsReply :: PrintGetPageDimensionsReply -> Word16
- Graphics.XHB.Gen.XPrint: output_mode_PrintStartJob :: PrintStartJob -> CARD8
+ Graphics.XHB.Gen.XPrint: output_mode_PrintStartJob :: PrintStartJob -> Word8
- Graphics.XHB.Gen.XPrint: pool_PrintGetAttributes :: PrintGetAttributes -> CARD8
+ Graphics.XHB.Gen.XPrint: pool_PrintGetAttributes :: PrintGetAttributes -> Word8
- Graphics.XHB.Gen.XPrint: pool_PrintGetOneAttributes :: PrintGetOneAttributes -> CARD8
+ Graphics.XHB.Gen.XPrint: pool_PrintGetOneAttributes :: PrintGetOneAttributes -> Word8
- Graphics.XHB.Gen.XPrint: pool_PrintSetAttributes :: PrintSetAttributes -> CARD8
+ Graphics.XHB.Gen.XPrint: pool_PrintSetAttributes :: PrintSetAttributes -> Word8
- Graphics.XHB.Gen.XPrint: previous_resolutions_PrintSetImageResolutionReply :: PrintSetImageResolutionReply -> CARD16
+ Graphics.XHB.Gen.XPrint: previous_resolutions_PrintSetImageResolutionReply :: PrintSetImageResolutionReply -> Word16
- Graphics.XHB.Gen.XPrint: printDestroyContext :: Connection -> CARD32 -> IO ()
+ Graphics.XHB.Gen.XPrint: printDestroyContext :: Connection -> Word32 -> IO ()
- Graphics.XHB.Gen.XPrint: printEndDoc :: Connection -> BOOL -> IO ()
+ Graphics.XHB.Gen.XPrint: printEndDoc :: Connection -> Bool -> IO ()
- Graphics.XHB.Gen.XPrint: printEndJob :: Connection -> BOOL -> IO ()
+ Graphics.XHB.Gen.XPrint: printEndJob :: Connection -> Bool -> IO ()
- Graphics.XHB.Gen.XPrint: printEndPage :: Connection -> BOOL -> IO ()
+ Graphics.XHB.Gen.XPrint: printEndPage :: Connection -> Bool -> IO ()
- Graphics.XHB.Gen.XPrint: printGetAttributes :: Connection -> PCONTEXT -> CARD8 -> IO (Receipt PrintGetAttributesReply)
+ Graphics.XHB.Gen.XPrint: printGetAttributes :: Connection -> PCONTEXT -> Word8 -> IO (Receipt PrintGetAttributesReply)
- Graphics.XHB.Gen.XPrint: printGetContext :: Connection -> IO (Receipt PrintGetContextReply)
+ Graphics.XHB.Gen.XPrint: printGetContext :: Connection -> IO (Receipt Word32)
- Graphics.XHB.Gen.XPrint: printGetDocumentData :: Connection -> PCONTEXT -> CARD32 -> IO (Receipt PrintGetDocumentDataReply)
+ Graphics.XHB.Gen.XPrint: printGetDocumentData :: Connection -> PCONTEXT -> Word32 -> IO (Receipt PrintGetDocumentDataReply)
- Graphics.XHB.Gen.XPrint: printGetImageResolution :: Connection -> PCONTEXT -> IO (Receipt PrintGetImageResolutionReply)
+ Graphics.XHB.Gen.XPrint: printGetImageResolution :: Connection -> PCONTEXT -> IO (Receipt Word16)
- Graphics.XHB.Gen.XPrint: printGetScreenOfContext :: Connection -> IO (Receipt PrintGetScreenOfContextReply)
+ Graphics.XHB.Gen.XPrint: printGetScreenOfContext :: Connection -> IO (Receipt WINDOW)
- Graphics.XHB.Gen.XPrint: printSelectInput :: Connection -> PCONTEXT -> ValueParam CARD32 -> IO ()
+ Graphics.XHB.Gen.XPrint: printSelectInput :: Connection -> PCONTEXT -> ValueParam Word32 -> IO ()
- Graphics.XHB.Gen.XPrint: printSetContext :: Connection -> CARD32 -> IO ()
+ Graphics.XHB.Gen.XPrint: printSetContext :: Connection -> Word32 -> IO ()
- Graphics.XHB.Gen.XPrint: printSetImageResolution :: Connection -> PCONTEXT -> CARD16 -> IO (Receipt PrintSetImageResolutionReply)
+ Graphics.XHB.Gen.XPrint: printSetImageResolution :: Connection -> PCONTEXT -> Word16 -> IO (Receipt PrintSetImageResolutionReply)
- Graphics.XHB.Gen.XPrint: printStartDoc :: Connection -> CARD8 -> IO ()
+ Graphics.XHB.Gen.XPrint: printStartDoc :: Connection -> Word8 -> IO ()
- Graphics.XHB.Gen.XPrint: printStartJob :: Connection -> CARD8 -> IO ()
+ Graphics.XHB.Gen.XPrint: printStartJob :: Connection -> Word8 -> IO ()
- Graphics.XHB.Gen.XPrint: printerNameLen_CreateContext :: CreateContext -> CARD32
+ Graphics.XHB.Gen.XPrint: printerNameLen_CreateContext :: CreateContext -> Word32
- Graphics.XHB.Gen.XPrint: printerNameLen_PrintGetPrinterList :: PrintGetPrinterList -> CARD32
+ Graphics.XHB.Gen.XPrint: printerNameLen_PrintGetPrinterList :: PrintGetPrinterList -> Word32
- Graphics.XHB.Gen.XPrint: reproducible_height_PrintGetPageDimensionsReply :: PrintGetPageDimensionsReply -> CARD16
+ Graphics.XHB.Gen.XPrint: reproducible_height_PrintGetPageDimensionsReply :: PrintGetPageDimensionsReply -> Word16
- Graphics.XHB.Gen.XPrint: reproducible_width_PrintGetPageDimensionsReply :: PrintGetPageDimensionsReply -> CARD16
+ Graphics.XHB.Gen.XPrint: reproducible_width_PrintGetPageDimensionsReply :: PrintGetPageDimensionsReply -> Word16
- Graphics.XHB.Gen.XPrint: rule_PrintSetAttributes :: PrintSetAttributes -> CARD8
+ Graphics.XHB.Gen.XPrint: rule_PrintSetAttributes :: PrintSetAttributes -> Word8
- Graphics.XHB.Gen.XPrint: status_PrintSetImageResolutionReply :: PrintSetImageResolutionReply -> BOOL
+ Graphics.XHB.Gen.XPrint: status_PrintSetImageResolutionReply :: PrintSetImageResolutionReply -> Bool
- Graphics.XHB.Gen.XPrint: status_code_PrintGetDocumentDataReply :: PrintGetDocumentDataReply -> CARD32
+ Graphics.XHB.Gen.XPrint: status_code_PrintGetDocumentDataReply :: PrintGetDocumentDataReply -> Word32
- Graphics.XHB.Gen.XPrint: stringLen_PrintGetAttributesReply :: PrintGetAttributesReply -> CARD32
+ Graphics.XHB.Gen.XPrint: stringLen_PrintGetAttributesReply :: PrintGetAttributesReply -> Word32
- Graphics.XHB.Gen.XPrint: stringLen_PrintSetAttributes :: PrintSetAttributes -> CARD32
+ Graphics.XHB.Gen.XPrint: stringLen_PrintSetAttributes :: PrintSetAttributes -> Word32
- Graphics.XHB.Gen.XPrint: valueLen_PrintGetOneAttributesReply :: PrintGetOneAttributesReply -> CARD32
+ Graphics.XHB.Gen.XPrint: valueLen_PrintGetOneAttributesReply :: PrintGetOneAttributesReply -> Word32
- Graphics.XHB.Gen.XPrint: width_PrintGetPageDimensionsReply :: PrintGetPageDimensionsReply -> CARD16
+ Graphics.XHB.Gen.XPrint: width_PrintGetPageDimensionsReply :: PrintGetPageDimensionsReply -> Word16
- Graphics.XHB.Gen.Xevie: MkEnd :: CARD32 -> End
+ Graphics.XHB.Gen.Xevie: MkEnd :: Word32 -> End
- Graphics.XHB.Gen.Xevie: MkQueryVersion :: CARD16 -> CARD16 -> QueryVersion
+ Graphics.XHB.Gen.Xevie: MkQueryVersion :: Word16 -> Word16 -> QueryVersion
- Graphics.XHB.Gen.Xevie: MkQueryVersionReply :: CARD16 -> CARD16 -> QueryVersionReply
+ Graphics.XHB.Gen.Xevie: MkQueryVersionReply :: Word16 -> Word16 -> QueryVersionReply
- Graphics.XHB.Gen.Xevie: MkSelectInput :: CARD32 -> SelectInput
+ Graphics.XHB.Gen.Xevie: MkSelectInput :: Word32 -> SelectInput
- Graphics.XHB.Gen.Xevie: MkSend :: Event -> CARD32 -> Send
+ Graphics.XHB.Gen.Xevie: MkSend :: Event -> Word32 -> Send
- Graphics.XHB.Gen.Xevie: MkStart :: CARD32 -> Start
+ Graphics.XHB.Gen.Xevie: MkStart :: Word32 -> Start
- Graphics.XHB.Gen.Xevie: client_major_version_QueryVersion :: QueryVersion -> CARD16
+ Graphics.XHB.Gen.Xevie: client_major_version_QueryVersion :: QueryVersion -> Word16
- Graphics.XHB.Gen.Xevie: client_minor_version_QueryVersion :: QueryVersion -> CARD16
+ Graphics.XHB.Gen.Xevie: client_minor_version_QueryVersion :: QueryVersion -> Word16
- Graphics.XHB.Gen.Xevie: cmap_End :: End -> CARD32
+ Graphics.XHB.Gen.Xevie: cmap_End :: End -> Word32
- Graphics.XHB.Gen.Xevie: data_type_Send :: Send -> CARD32
+ Graphics.XHB.Gen.Xevie: data_type_Send :: Send -> Word32
- Graphics.XHB.Gen.Xevie: end :: Connection -> CARD32 -> IO (Receipt EndReply)
+ Graphics.XHB.Gen.Xevie: end :: Connection -> Word32 -> IO (Receipt EndReply)
- Graphics.XHB.Gen.Xevie: event_mask_SelectInput :: SelectInput -> CARD32
+ Graphics.XHB.Gen.Xevie: event_mask_SelectInput :: SelectInput -> Word32
- Graphics.XHB.Gen.Xevie: queryVersion :: Connection -> CARD16 -> CARD16 -> IO (Receipt QueryVersionReply)
+ Graphics.XHB.Gen.Xevie: queryVersion :: Connection -> Word16 -> Word16 -> IO (Receipt QueryVersionReply)
- Graphics.XHB.Gen.Xevie: screen_Start :: Start -> CARD32
+ Graphics.XHB.Gen.Xevie: screen_Start :: Start -> Word32
- Graphics.XHB.Gen.Xevie: selectInput :: Connection -> CARD32 -> IO (Receipt SelectInputReply)
+ Graphics.XHB.Gen.Xevie: selectInput :: Connection -> Word32 -> IO (Receipt SelectInputReply)
- Graphics.XHB.Gen.Xevie: send :: Connection -> Event -> CARD32 -> IO (Receipt SendReply)
+ Graphics.XHB.Gen.Xevie: send :: Connection -> Event -> Word32 -> IO (Receipt SendReply)
- Graphics.XHB.Gen.Xevie: server_major_version_QueryVersionReply :: QueryVersionReply -> CARD16
+ Graphics.XHB.Gen.Xevie: server_major_version_QueryVersionReply :: QueryVersionReply -> Word16
- Graphics.XHB.Gen.Xevie: server_minor_version_QueryVersionReply :: QueryVersionReply -> CARD16
+ Graphics.XHB.Gen.Xevie: server_minor_version_QueryVersionReply :: QueryVersionReply -> Word16
- Graphics.XHB.Gen.Xevie: start :: Connection -> CARD32 -> IO (Receipt StartReply)
+ Graphics.XHB.Gen.Xevie: start :: Connection -> Word32 -> IO (Receipt StartReply)
- Graphics.XHB.Gen.Xinerama: MkGetScreenCountReply :: BYTE -> WINDOW -> GetScreenCountReply
+ Graphics.XHB.Gen.Xinerama: MkGetScreenCountReply :: Word8 -> WINDOW -> GetScreenCountReply
- Graphics.XHB.Gen.Xinerama: MkGetScreenSize :: WINDOW -> CARD32 -> GetScreenSize
+ Graphics.XHB.Gen.Xinerama: MkGetScreenSize :: WINDOW -> Word32 -> GetScreenSize
- Graphics.XHB.Gen.Xinerama: MkGetScreenSizeReply :: CARD32 -> CARD32 -> WINDOW -> CARD32 -> GetScreenSizeReply
+ Graphics.XHB.Gen.Xinerama: MkGetScreenSizeReply :: Word32 -> Word32 -> WINDOW -> Word32 -> GetScreenSizeReply
- Graphics.XHB.Gen.Xinerama: MkGetStateReply :: BYTE -> WINDOW -> GetStateReply
+ Graphics.XHB.Gen.Xinerama: MkGetStateReply :: Word8 -> WINDOW -> GetStateReply
- Graphics.XHB.Gen.Xinerama: MkIsActiveReply :: CARD32 -> IsActiveReply
+ Graphics.XHB.Gen.Xinerama: MkIsActiveReply :: Word32 -> IsActiveReply
- Graphics.XHB.Gen.Xinerama: MkQueryScreensReply :: CARD32 -> [ScreenInfo] -> QueryScreensReply
+ Graphics.XHB.Gen.Xinerama: MkQueryScreensReply :: Word32 -> [ScreenInfo] -> QueryScreensReply
- Graphics.XHB.Gen.Xinerama: MkQueryVersion :: CARD8 -> CARD8 -> QueryVersion
+ Graphics.XHB.Gen.Xinerama: MkQueryVersion :: Word8 -> Word8 -> QueryVersion
- Graphics.XHB.Gen.Xinerama: MkQueryVersionReply :: CARD16 -> CARD16 -> QueryVersionReply
+ Graphics.XHB.Gen.Xinerama: MkQueryVersionReply :: Word16 -> Word16 -> QueryVersionReply
- Graphics.XHB.Gen.Xinerama: MkScreenInfo :: INT16 -> INT16 -> CARD16 -> CARD16 -> ScreenInfo
+ Graphics.XHB.Gen.Xinerama: MkScreenInfo :: Int16 -> Int16 -> Word16 -> Word16 -> ScreenInfo
- Graphics.XHB.Gen.Xinerama: getScreenSize :: Connection -> WINDOW -> CARD32 -> IO (Receipt GetScreenSizeReply)
+ Graphics.XHB.Gen.Xinerama: getScreenSize :: Connection -> WINDOW -> Word32 -> IO (Receipt GetScreenSizeReply)
- Graphics.XHB.Gen.Xinerama: height_GetScreenSizeReply :: GetScreenSizeReply -> CARD32
+ Graphics.XHB.Gen.Xinerama: height_GetScreenSizeReply :: GetScreenSizeReply -> Word32
- Graphics.XHB.Gen.Xinerama: height_ScreenInfo :: ScreenInfo -> CARD16
+ Graphics.XHB.Gen.Xinerama: height_ScreenInfo :: ScreenInfo -> Word16
- Graphics.XHB.Gen.Xinerama: isActive :: Connection -> IO (Receipt IsActiveReply)
+ Graphics.XHB.Gen.Xinerama: isActive :: Connection -> IO (Receipt Word32)
- Graphics.XHB.Gen.Xinerama: major_QueryVersion :: QueryVersion -> CARD8
+ Graphics.XHB.Gen.Xinerama: major_QueryVersion :: QueryVersion -> Word8
- Graphics.XHB.Gen.Xinerama: major_QueryVersionReply :: QueryVersionReply -> CARD16
+ Graphics.XHB.Gen.Xinerama: major_QueryVersionReply :: QueryVersionReply -> Word16
- Graphics.XHB.Gen.Xinerama: minor_QueryVersion :: QueryVersion -> CARD8
+ Graphics.XHB.Gen.Xinerama: minor_QueryVersion :: QueryVersion -> Word8
- Graphics.XHB.Gen.Xinerama: minor_QueryVersionReply :: QueryVersionReply -> CARD16
+ Graphics.XHB.Gen.Xinerama: minor_QueryVersionReply :: QueryVersionReply -> Word16
- Graphics.XHB.Gen.Xinerama: number_QueryScreensReply :: QueryScreensReply -> CARD32
+ Graphics.XHB.Gen.Xinerama: number_QueryScreensReply :: QueryScreensReply -> Word32
- Graphics.XHB.Gen.Xinerama: queryVersion :: Connection -> CARD8 -> CARD8 -> IO (Receipt QueryVersionReply)
+ Graphics.XHB.Gen.Xinerama: queryVersion :: Connection -> Word8 -> Word8 -> IO (Receipt QueryVersionReply)
- Graphics.XHB.Gen.Xinerama: screen_GetScreenSize :: GetScreenSize -> CARD32
+ Graphics.XHB.Gen.Xinerama: screen_GetScreenSize :: GetScreenSize -> Word32
- Graphics.XHB.Gen.Xinerama: screen_GetScreenSizeReply :: GetScreenSizeReply -> CARD32
+ Graphics.XHB.Gen.Xinerama: screen_GetScreenSizeReply :: GetScreenSizeReply -> Word32
- Graphics.XHB.Gen.Xinerama: screen_count_GetScreenCountReply :: GetScreenCountReply -> BYTE
+ Graphics.XHB.Gen.Xinerama: screen_count_GetScreenCountReply :: GetScreenCountReply -> Word8
- Graphics.XHB.Gen.Xinerama: state_GetStateReply :: GetStateReply -> BYTE
+ Graphics.XHB.Gen.Xinerama: state_GetStateReply :: GetStateReply -> Word8
- Graphics.XHB.Gen.Xinerama: state_IsActiveReply :: IsActiveReply -> CARD32
+ Graphics.XHB.Gen.Xinerama: state_IsActiveReply :: IsActiveReply -> Word32
- Graphics.XHB.Gen.Xinerama: width_GetScreenSizeReply :: GetScreenSizeReply -> CARD32
+ Graphics.XHB.Gen.Xinerama: width_GetScreenSizeReply :: GetScreenSizeReply -> Word32
- Graphics.XHB.Gen.Xinerama: width_ScreenInfo :: ScreenInfo -> CARD16
+ Graphics.XHB.Gen.Xinerama: width_ScreenInfo :: ScreenInfo -> Word16
- Graphics.XHB.Gen.Xinerama: x_org_ScreenInfo :: ScreenInfo -> INT16
+ Graphics.XHB.Gen.Xinerama: x_org_ScreenInfo :: ScreenInfo -> Int16
- Graphics.XHB.Gen.Xinerama: y_org_ScreenInfo :: ScreenInfo -> INT16
+ Graphics.XHB.Gen.Xinerama: y_org_ScreenInfo :: ScreenInfo -> Int16
- Graphics.XHB.Gen.Xproto: ClientData16 :: [CARD16] -> ClientMessageData
+ Graphics.XHB.Gen.Xproto: ClientData16 :: [Word16] -> ClientMessageData
- Graphics.XHB.Gen.Xproto: ClientData32 :: [CARD32] -> ClientMessageData
+ Graphics.XHB.Gen.Xproto: ClientData32 :: [Word32] -> ClientMessageData
- Graphics.XHB.Gen.Xproto: ClientData8 :: [CARD8] -> ClientMessageData
+ Graphics.XHB.Gen.Xproto: ClientData8 :: [Word8] -> ClientMessageData
- Graphics.XHB.Gen.Xproto: MkARC :: INT16 -> INT16 -> CARD16 -> CARD16 -> INT16 -> INT16 -> ARC
+ Graphics.XHB.Gen.Xproto: MkARC :: Int16 -> Int16 -> Word16 -> Word16 -> Int16 -> Int16 -> ARC
- Graphics.XHB.Gen.Xproto: MkAccess :: CARD32 -> CARD16 -> CARD8 -> Access
+ Graphics.XHB.Gen.Xproto: MkAccess :: Word32 -> Word16 -> Word8 -> Access
- Graphics.XHB.Gen.Xproto: MkAlloc :: CARD32 -> CARD16 -> CARD8 -> Alloc
+ Graphics.XHB.Gen.Xproto: MkAlloc :: Word32 -> Word16 -> Word8 -> Alloc
- Graphics.XHB.Gen.Xproto: MkAllocColor :: COLORMAP -> CARD16 -> CARD16 -> CARD16 -> AllocColor
+ Graphics.XHB.Gen.Xproto: MkAllocColor :: COLORMAP -> Word16 -> Word16 -> Word16 -> AllocColor
- Graphics.XHB.Gen.Xproto: MkAllocColorCells :: BOOL -> COLORMAP -> CARD16 -> CARD16 -> AllocColorCells
+ Graphics.XHB.Gen.Xproto: MkAllocColorCells :: Bool -> COLORMAP -> Word16 -> Word16 -> AllocColorCells
- Graphics.XHB.Gen.Xproto: MkAllocColorCellsReply :: CARD16 -> CARD16 -> [CARD32] -> [CARD32] -> AllocColorCellsReply
+ Graphics.XHB.Gen.Xproto: MkAllocColorCellsReply :: Word16 -> Word16 -> [Word32] -> [Word32] -> AllocColorCellsReply
- Graphics.XHB.Gen.Xproto: MkAllocColorPlanes :: BOOL -> COLORMAP -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> AllocColorPlanes
+ Graphics.XHB.Gen.Xproto: MkAllocColorPlanes :: Bool -> COLORMAP -> Word16 -> Word16 -> Word16 -> Word16 -> AllocColorPlanes
- Graphics.XHB.Gen.Xproto: MkAllocColorPlanesReply :: CARD16 -> CARD32 -> CARD32 -> CARD32 -> [CARD32] -> AllocColorPlanesReply
+ Graphics.XHB.Gen.Xproto: MkAllocColorPlanesReply :: Word16 -> Word32 -> Word32 -> Word32 -> [Word32] -> AllocColorPlanesReply
- Graphics.XHB.Gen.Xproto: MkAllocColorReply :: CARD16 -> CARD16 -> CARD16 -> CARD32 -> AllocColorReply
+ Graphics.XHB.Gen.Xproto: MkAllocColorReply :: Word16 -> Word16 -> Word16 -> Word32 -> AllocColorReply
- Graphics.XHB.Gen.Xproto: MkAllocNamedColor :: COLORMAP -> CARD16 -> [CChar] -> AllocNamedColor
+ Graphics.XHB.Gen.Xproto: MkAllocNamedColor :: COLORMAP -> Word16 -> [CChar] -> AllocNamedColor
- Graphics.XHB.Gen.Xproto: MkAllocNamedColorReply :: CARD32 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> AllocNamedColorReply
+ Graphics.XHB.Gen.Xproto: MkAllocNamedColorReply :: Word32 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> AllocNamedColorReply
- Graphics.XHB.Gen.Xproto: MkAllowEvents :: CARD8 -> TIMESTAMP -> AllowEvents
+ Graphics.XHB.Gen.Xproto: MkAllowEvents :: Word8 -> TIMESTAMP -> AllowEvents
- Graphics.XHB.Gen.Xproto: MkAtom :: CARD32 -> CARD16 -> CARD8 -> Atom
+ Graphics.XHB.Gen.Xproto: MkAtom :: Word32 -> Word16 -> Word8 -> Atom
- Graphics.XHB.Gen.Xproto: MkBell :: INT8 -> Bell
+ Graphics.XHB.Gen.Xproto: MkBell :: Int8 -> Bell
- Graphics.XHB.Gen.Xproto: MkButtonPress :: BUTTON -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> INT16 -> INT16 -> INT16 -> INT16 -> CARD16 -> BOOL -> ButtonPress
+ Graphics.XHB.Gen.Xproto: MkButtonPress :: BUTTON -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> Int16 -> Int16 -> Int16 -> Int16 -> Word16 -> Bool -> ButtonPress
- Graphics.XHB.Gen.Xproto: MkButtonRelease :: BUTTON -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> INT16 -> INT16 -> INT16 -> INT16 -> CARD16 -> BOOL -> ButtonRelease
+ Graphics.XHB.Gen.Xproto: MkButtonRelease :: BUTTON -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> Int16 -> Int16 -> Int16 -> Int16 -> Word16 -> Bool -> ButtonRelease
- Graphics.XHB.Gen.Xproto: MkCHAR2B :: CARD8 -> CARD8 -> CHAR2B
+ Graphics.XHB.Gen.Xproto: MkCHAR2B :: Word8 -> Word8 -> CHAR2B
- Graphics.XHB.Gen.Xproto: MkCHARINFO :: INT16 -> INT16 -> INT16 -> INT16 -> INT16 -> CARD16 -> CHARINFO
+ Graphics.XHB.Gen.Xproto: MkCHARINFO :: Int16 -> Int16 -> Int16 -> Int16 -> Int16 -> Word16 -> CHARINFO
- Graphics.XHB.Gen.Xproto: MkCOLORITEM :: CARD32 -> CARD16 -> CARD16 -> CARD16 -> BYTE -> COLORITEM
+ Graphics.XHB.Gen.Xproto: MkCOLORITEM :: Word32 -> Word16 -> Word16 -> Word16 -> Word8 -> COLORITEM
- Graphics.XHB.Gen.Xproto: MkChangeActivePointerGrab :: CURSOR -> TIMESTAMP -> CARD16 -> ChangeActivePointerGrab
+ Graphics.XHB.Gen.Xproto: MkChangeActivePointerGrab :: CURSOR -> TIMESTAMP -> Word16 -> ChangeActivePointerGrab
- Graphics.XHB.Gen.Xproto: MkChangeGC :: GCONTEXT -> ValueParam CARD32 -> ChangeGC
+ Graphics.XHB.Gen.Xproto: MkChangeGC :: GCONTEXT -> ValueParam Word32 -> ChangeGC
- Graphics.XHB.Gen.Xproto: MkChangeHosts :: CARD8 -> CARD8 -> CARD16 -> [CChar] -> ChangeHosts
+ Graphics.XHB.Gen.Xproto: MkChangeHosts :: Word8 -> Word8 -> Word16 -> [CChar] -> ChangeHosts
- Graphics.XHB.Gen.Xproto: MkChangeKeyboardControl :: ValueParam CARD32 -> ChangeKeyboardControl
+ Graphics.XHB.Gen.Xproto: MkChangeKeyboardControl :: ValueParam Word32 -> ChangeKeyboardControl
- Graphics.XHB.Gen.Xproto: MkChangeKeyboardMapping :: CARD8 -> KEYCODE -> CARD8 -> [KEYSYM] -> ChangeKeyboardMapping
+ Graphics.XHB.Gen.Xproto: MkChangeKeyboardMapping :: Word8 -> KEYCODE -> Word8 -> [KEYSYM] -> ChangeKeyboardMapping
- Graphics.XHB.Gen.Xproto: MkChangePointerControl :: INT16 -> INT16 -> INT16 -> BOOL -> BOOL -> ChangePointerControl
+ Graphics.XHB.Gen.Xproto: MkChangePointerControl :: Int16 -> Int16 -> Int16 -> Bool -> Bool -> ChangePointerControl
- Graphics.XHB.Gen.Xproto: MkChangeProperty :: CARD8 -> WINDOW -> ATOM -> ATOM -> CARD8 -> CARD32 -> [Word8] -> ChangeProperty
+ Graphics.XHB.Gen.Xproto: MkChangeProperty :: Word8 -> WINDOW -> ATOM -> ATOM -> Word8 -> Word32 -> [Word8] -> ChangeProperty
- Graphics.XHB.Gen.Xproto: MkChangeSaveSet :: BYTE -> WINDOW -> ChangeSaveSet
+ Graphics.XHB.Gen.Xproto: MkChangeSaveSet :: Word8 -> WINDOW -> ChangeSaveSet
- Graphics.XHB.Gen.Xproto: MkChangeWindowAttributes :: WINDOW -> ValueParam CARD32 -> ChangeWindowAttributes
+ Graphics.XHB.Gen.Xproto: MkChangeWindowAttributes :: WINDOW -> ValueParam Word32 -> ChangeWindowAttributes
- Graphics.XHB.Gen.Xproto: MkCirculateNotify :: WINDOW -> WINDOW -> BYTE -> CirculateNotify
+ Graphics.XHB.Gen.Xproto: MkCirculateNotify :: WINDOW -> WINDOW -> Word8 -> CirculateNotify
- Graphics.XHB.Gen.Xproto: MkCirculateRequest :: WINDOW -> WINDOW -> BYTE -> CirculateRequest
+ Graphics.XHB.Gen.Xproto: MkCirculateRequest :: WINDOW -> WINDOW -> Word8 -> CirculateRequest
- Graphics.XHB.Gen.Xproto: MkCirculateWindow :: CARD8 -> WINDOW -> CirculateWindow
+ Graphics.XHB.Gen.Xproto: MkCirculateWindow :: Word8 -> WINDOW -> CirculateWindow
- Graphics.XHB.Gen.Xproto: MkClearArea :: BOOL -> WINDOW -> INT16 -> INT16 -> CARD16 -> CARD16 -> ClearArea
+ Graphics.XHB.Gen.Xproto: MkClearArea :: Bool -> WINDOW -> Int16 -> Int16 -> Word16 -> Word16 -> ClearArea
- Graphics.XHB.Gen.Xproto: MkClientMessage :: CARD8 -> WINDOW -> ATOM -> ClientMessageData -> ClientMessage
+ Graphics.XHB.Gen.Xproto: MkClientMessage :: Word8 -> WINDOW -> ATOM -> ClientMessageData -> ClientMessage
- Graphics.XHB.Gen.Xproto: MkColormap :: CARD32 -> CARD16 -> CARD8 -> Colormap
+ Graphics.XHB.Gen.Xproto: MkColormap :: Word32 -> Word16 -> Word8 -> Colormap
- Graphics.XHB.Gen.Xproto: MkColormapNotify :: WINDOW -> COLORMAP -> BOOL -> BYTE -> ColormapNotify
+ Graphics.XHB.Gen.Xproto: MkColormapNotify :: WINDOW -> COLORMAP -> Bool -> Word8 -> ColormapNotify
- Graphics.XHB.Gen.Xproto: MkConfigureNotify :: WINDOW -> WINDOW -> WINDOW -> INT16 -> INT16 -> CARD16 -> CARD16 -> CARD16 -> BOOL -> ConfigureNotify
+ Graphics.XHB.Gen.Xproto: MkConfigureNotify :: WINDOW -> WINDOW -> WINDOW -> Int16 -> Int16 -> Word16 -> Word16 -> Word16 -> Bool -> ConfigureNotify
- Graphics.XHB.Gen.Xproto: MkConfigureRequest :: BYTE -> WINDOW -> WINDOW -> WINDOW -> INT16 -> INT16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> ConfigureRequest
+ Graphics.XHB.Gen.Xproto: MkConfigureRequest :: Word8 -> WINDOW -> WINDOW -> WINDOW -> Int16 -> Int16 -> Word16 -> Word16 -> Word16 -> Word16 -> ConfigureRequest
- Graphics.XHB.Gen.Xproto: MkConfigureWindow :: WINDOW -> ValueParam CARD16 -> ConfigureWindow
+ Graphics.XHB.Gen.Xproto: MkConfigureWindow :: WINDOW -> ValueParam Word16 -> ConfigureWindow
- Graphics.XHB.Gen.Xproto: MkCopyArea :: DRAWABLE -> DRAWABLE -> GCONTEXT -> INT16 -> INT16 -> INT16 -> INT16 -> CARD16 -> CARD16 -> CopyArea
+ Graphics.XHB.Gen.Xproto: MkCopyArea :: DRAWABLE -> DRAWABLE -> GCONTEXT -> Int16 -> Int16 -> Int16 -> Int16 -> Word16 -> Word16 -> CopyArea
- Graphics.XHB.Gen.Xproto: MkCopyGC :: GCONTEXT -> GCONTEXT -> CARD32 -> CopyGC
+ Graphics.XHB.Gen.Xproto: MkCopyGC :: GCONTEXT -> GCONTEXT -> Word32 -> CopyGC
- Graphics.XHB.Gen.Xproto: MkCopyPlane :: DRAWABLE -> DRAWABLE -> GCONTEXT -> INT16 -> INT16 -> INT16 -> INT16 -> CARD16 -> CARD16 -> CARD32 -> CopyPlane
+ Graphics.XHB.Gen.Xproto: MkCopyPlane :: DRAWABLE -> DRAWABLE -> GCONTEXT -> Int16 -> Int16 -> Int16 -> Int16 -> Word16 -> Word16 -> Word32 -> CopyPlane
- Graphics.XHB.Gen.Xproto: MkCreateColormap :: BYTE -> COLORMAP -> WINDOW -> VISUALID -> CreateColormap
+ Graphics.XHB.Gen.Xproto: MkCreateColormap :: Word8 -> COLORMAP -> WINDOW -> VISUALID -> CreateColormap
- Graphics.XHB.Gen.Xproto: MkCreateCursor :: CURSOR -> PIXMAP -> PIXMAP -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CreateCursor
+ Graphics.XHB.Gen.Xproto: MkCreateCursor :: CURSOR -> PIXMAP -> PIXMAP -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> CreateCursor
- Graphics.XHB.Gen.Xproto: MkCreateGC :: GCONTEXT -> DRAWABLE -> ValueParam CARD32 -> CreateGC
+ Graphics.XHB.Gen.Xproto: MkCreateGC :: GCONTEXT -> DRAWABLE -> ValueParam Word32 -> CreateGC
- Graphics.XHB.Gen.Xproto: MkCreateGlyphCursor :: CURSOR -> FONT -> FONT -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CreateGlyphCursor
+ Graphics.XHB.Gen.Xproto: MkCreateGlyphCursor :: CURSOR -> FONT -> FONT -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> CreateGlyphCursor
- Graphics.XHB.Gen.Xproto: MkCreateNotify :: WINDOW -> WINDOW -> INT16 -> INT16 -> CARD16 -> CARD16 -> CARD16 -> BOOL -> CreateNotify
+ Graphics.XHB.Gen.Xproto: MkCreateNotify :: WINDOW -> WINDOW -> Int16 -> Int16 -> Word16 -> Word16 -> Word16 -> Bool -> CreateNotify
- Graphics.XHB.Gen.Xproto: MkCreatePixmap :: CARD8 -> PIXMAP -> DRAWABLE -> CARD16 -> CARD16 -> CreatePixmap
+ Graphics.XHB.Gen.Xproto: MkCreatePixmap :: Word8 -> PIXMAP -> DRAWABLE -> Word16 -> Word16 -> CreatePixmap
- Graphics.XHB.Gen.Xproto: MkCreateWindow :: CARD8 -> WINDOW -> WINDOW -> INT16 -> INT16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> VISUALID -> ValueParam CARD32 -> CreateWindow
+ Graphics.XHB.Gen.Xproto: MkCreateWindow :: Word8 -> WINDOW -> WINDOW -> Int16 -> Int16 -> Word16 -> Word16 -> Word16 -> Word16 -> VISUALID -> ValueParam Word32 -> CreateWindow
- Graphics.XHB.Gen.Xproto: MkCursor :: CARD32 -> CARD16 -> CARD8 -> Cursor
+ Graphics.XHB.Gen.Xproto: MkCursor :: Word32 -> Word16 -> Word8 -> Cursor
- Graphics.XHB.Gen.Xproto: MkDEPTH :: CARD8 -> CARD16 -> [VISUALTYPE] -> DEPTH
+ Graphics.XHB.Gen.Xproto: MkDEPTH :: Word8 -> Word16 -> [VISUALTYPE] -> DEPTH
- Graphics.XHB.Gen.Xproto: MkDrawable :: CARD32 -> CARD16 -> CARD8 -> Drawable
+ Graphics.XHB.Gen.Xproto: MkDrawable :: Word32 -> Word16 -> Word8 -> Drawable
- Graphics.XHB.Gen.Xproto: MkEnterNotify :: BYTE -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> INT16 -> INT16 -> INT16 -> INT16 -> CARD16 -> BYTE -> BYTE -> EnterNotify
+ Graphics.XHB.Gen.Xproto: MkEnterNotify :: Word8 -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> Int16 -> Int16 -> Int16 -> Int16 -> Word16 -> Word8 -> Word8 -> EnterNotify
- Graphics.XHB.Gen.Xproto: MkExpose :: WINDOW -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> Expose
+ Graphics.XHB.Gen.Xproto: MkExpose :: WINDOW -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Expose
- Graphics.XHB.Gen.Xproto: MkFONTPROP :: ATOM -> CARD32 -> FONTPROP
+ Graphics.XHB.Gen.Xproto: MkFONTPROP :: ATOM -> Word32 -> FONTPROP
- Graphics.XHB.Gen.Xproto: MkFORMAT :: CARD8 -> CARD8 -> CARD8 -> FORMAT
+ Graphics.XHB.Gen.Xproto: MkFORMAT :: Word8 -> Word8 -> Word8 -> FORMAT
- Graphics.XHB.Gen.Xproto: MkFillPoly :: DRAWABLE -> GCONTEXT -> CARD8 -> CARD8 -> [POINT] -> FillPoly
+ Graphics.XHB.Gen.Xproto: MkFillPoly :: DRAWABLE -> GCONTEXT -> Word8 -> Word8 -> [POINT] -> FillPoly
- Graphics.XHB.Gen.Xproto: MkFocusIn :: BYTE -> WINDOW -> BYTE -> FocusIn
+ Graphics.XHB.Gen.Xproto: MkFocusIn :: Word8 -> WINDOW -> Word8 -> FocusIn
- Graphics.XHB.Gen.Xproto: MkFocusOut :: BYTE -> WINDOW -> BYTE -> FocusOut
+ Graphics.XHB.Gen.Xproto: MkFocusOut :: Word8 -> WINDOW -> Word8 -> FocusOut
- Graphics.XHB.Gen.Xproto: MkFont :: CARD32 -> CARD16 -> CARD8 -> Font
+ Graphics.XHB.Gen.Xproto: MkFont :: Word32 -> Word16 -> Word8 -> Font
- Graphics.XHB.Gen.Xproto: MkForceScreenSaver :: CARD8 -> ForceScreenSaver
+ Graphics.XHB.Gen.Xproto: MkForceScreenSaver :: Word8 -> ForceScreenSaver
- Graphics.XHB.Gen.Xproto: MkFreeColors :: COLORMAP -> CARD32 -> [CARD32] -> FreeColors
+ Graphics.XHB.Gen.Xproto: MkFreeColors :: COLORMAP -> Word32 -> [Word32] -> FreeColors
- Graphics.XHB.Gen.Xproto: MkGContext :: CARD32 -> CARD16 -> CARD8 -> GContext
+ Graphics.XHB.Gen.Xproto: MkGContext :: Word32 -> Word16 -> Word8 -> GContext
- Graphics.XHB.Gen.Xproto: MkGetAtomNameReply :: CARD16 -> [CChar] -> GetAtomNameReply
+ Graphics.XHB.Gen.Xproto: MkGetAtomNameReply :: Word16 -> [CChar] -> GetAtomNameReply
- Graphics.XHB.Gen.Xproto: MkGetFontPathReply :: CARD16 -> [STR] -> GetFontPathReply
+ Graphics.XHB.Gen.Xproto: MkGetFontPathReply :: Word16 -> [STR] -> GetFontPathReply
- Graphics.XHB.Gen.Xproto: MkGetGeometryReply :: CARD8 -> WINDOW -> INT16 -> INT16 -> CARD16 -> CARD16 -> CARD16 -> GetGeometryReply
+ Graphics.XHB.Gen.Xproto: MkGetGeometryReply :: Word8 -> WINDOW -> Int16 -> Int16 -> Word16 -> Word16 -> Word16 -> GetGeometryReply
- Graphics.XHB.Gen.Xproto: MkGetImage :: CARD8 -> DRAWABLE -> INT16 -> INT16 -> CARD16 -> CARD16 -> CARD32 -> GetImage
+ Graphics.XHB.Gen.Xproto: MkGetImage :: Word8 -> DRAWABLE -> Int16 -> Int16 -> Word16 -> Word16 -> Word32 -> GetImage
- Graphics.XHB.Gen.Xproto: MkGetImageReply :: CARD8 -> VISUALID -> [BYTE] -> GetImageReply
+ Graphics.XHB.Gen.Xproto: MkGetImageReply :: Word8 -> VISUALID -> [Word8] -> GetImageReply
- Graphics.XHB.Gen.Xproto: MkGetInputFocusReply :: CARD8 -> WINDOW -> GetInputFocusReply
+ Graphics.XHB.Gen.Xproto: MkGetInputFocusReply :: Word8 -> WINDOW -> GetInputFocusReply
- Graphics.XHB.Gen.Xproto: MkGetKeyboardControlReply :: BYTE -> CARD32 -> CARD8 -> CARD8 -> CARD16 -> CARD16 -> [CARD8] -> GetKeyboardControlReply
+ Graphics.XHB.Gen.Xproto: MkGetKeyboardControlReply :: Word8 -> Word32 -> Word8 -> Word8 -> Word16 -> Word16 -> [Word8] -> GetKeyboardControlReply
- Graphics.XHB.Gen.Xproto: MkGetKeyboardMapping :: KEYCODE -> CARD8 -> GetKeyboardMapping
+ Graphics.XHB.Gen.Xproto: MkGetKeyboardMapping :: KEYCODE -> Word8 -> GetKeyboardMapping
- Graphics.XHB.Gen.Xproto: MkGetKeyboardMappingReply :: BYTE -> [KEYSYM] -> GetKeyboardMappingReply
+ Graphics.XHB.Gen.Xproto: MkGetKeyboardMappingReply :: Word8 -> [KEYSYM] -> GetKeyboardMappingReply
- Graphics.XHB.Gen.Xproto: MkGetModifierMappingReply :: CARD8 -> [KEYCODE] -> GetModifierMappingReply
+ Graphics.XHB.Gen.Xproto: MkGetModifierMappingReply :: Word8 -> [KEYCODE] -> GetModifierMappingReply
- Graphics.XHB.Gen.Xproto: MkGetMotionEventsReply :: CARD32 -> [TIMECOORD] -> GetMotionEventsReply
+ Graphics.XHB.Gen.Xproto: MkGetMotionEventsReply :: Word32 -> [TIMECOORD] -> GetMotionEventsReply
- Graphics.XHB.Gen.Xproto: MkGetPointerControlReply :: CARD16 -> CARD16 -> CARD16 -> GetPointerControlReply
+ Graphics.XHB.Gen.Xproto: MkGetPointerControlReply :: Word16 -> Word16 -> Word16 -> GetPointerControlReply
- Graphics.XHB.Gen.Xproto: MkGetPointerMappingReply :: CARD8 -> [CARD8] -> GetPointerMappingReply
+ Graphics.XHB.Gen.Xproto: MkGetPointerMappingReply :: Word8 -> [Word8] -> GetPointerMappingReply
- Graphics.XHB.Gen.Xproto: MkGetProperty :: BOOL -> WINDOW -> ATOM -> ATOM -> CARD32 -> CARD32 -> GetProperty
+ Graphics.XHB.Gen.Xproto: MkGetProperty :: Bool -> WINDOW -> ATOM -> ATOM -> Word32 -> Word32 -> GetProperty
- Graphics.XHB.Gen.Xproto: MkGetPropertyReply :: CARD8 -> ATOM -> CARD32 -> CARD32 -> [Word8] -> GetPropertyReply
+ Graphics.XHB.Gen.Xproto: MkGetPropertyReply :: Word8 -> ATOM -> Word32 -> Word32 -> [Word8] -> GetPropertyReply
- Graphics.XHB.Gen.Xproto: MkGetScreenSaverReply :: CARD16 -> CARD16 -> BYTE -> BYTE -> GetScreenSaverReply
+ Graphics.XHB.Gen.Xproto: MkGetScreenSaverReply :: Word16 -> Word16 -> Word8 -> Word8 -> GetScreenSaverReply
- Graphics.XHB.Gen.Xproto: MkGetWindowAttributesReply :: CARD8 -> VISUALID -> CARD16 -> CARD8 -> CARD8 -> CARD32 -> CARD32 -> BOOL -> BOOL -> CARD8 -> BOOL -> COLORMAP -> CARD32 -> CARD32 -> CARD16 -> GetWindowAttributesReply
+ Graphics.XHB.Gen.Xproto: MkGetWindowAttributesReply :: Word8 -> VISUALID -> Word16 -> Word8 -> Word8 -> Word32 -> Word32 -> Bool -> Bool -> Word8 -> Bool -> COLORMAP -> Word32 -> Word32 -> Word16 -> GetWindowAttributesReply
- Graphics.XHB.Gen.Xproto: MkGrabButton :: BOOL -> WINDOW -> CARD16 -> CARD8 -> CARD8 -> WINDOW -> CURSOR -> CARD8 -> CARD16 -> GrabButton
+ Graphics.XHB.Gen.Xproto: MkGrabButton :: Bool -> WINDOW -> Word16 -> Word8 -> Word8 -> WINDOW -> CURSOR -> Word8 -> Word16 -> GrabButton
- Graphics.XHB.Gen.Xproto: MkGrabKey :: BOOL -> WINDOW -> CARD16 -> KEYCODE -> CARD8 -> CARD8 -> GrabKey
+ Graphics.XHB.Gen.Xproto: MkGrabKey :: Bool -> WINDOW -> Word16 -> KEYCODE -> Word8 -> Word8 -> GrabKey
- Graphics.XHB.Gen.Xproto: MkGrabKeyboard :: BOOL -> WINDOW -> TIMESTAMP -> BYTE -> BYTE -> GrabKeyboard
+ Graphics.XHB.Gen.Xproto: MkGrabKeyboard :: Bool -> WINDOW -> TIMESTAMP -> Word8 -> Word8 -> GrabKeyboard
- Graphics.XHB.Gen.Xproto: MkGrabKeyboardReply :: BYTE -> GrabKeyboardReply
+ Graphics.XHB.Gen.Xproto: MkGrabKeyboardReply :: Word8 -> GrabKeyboardReply
- Graphics.XHB.Gen.Xproto: MkGrabPointer :: BOOL -> WINDOW -> CARD16 -> BYTE -> BYTE -> WINDOW -> CURSOR -> TIMESTAMP -> GrabPointer
+ Graphics.XHB.Gen.Xproto: MkGrabPointer :: Bool -> WINDOW -> Word16 -> Word8 -> Word8 -> WINDOW -> CURSOR -> TIMESTAMP -> GrabPointer
- Graphics.XHB.Gen.Xproto: MkGrabPointerReply :: BYTE -> GrabPointerReply
+ Graphics.XHB.Gen.Xproto: MkGrabPointerReply :: Word8 -> GrabPointerReply
- Graphics.XHB.Gen.Xproto: MkGraphicsExposure :: DRAWABLE -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD8 -> GraphicsExposure
+ Graphics.XHB.Gen.Xproto: MkGraphicsExposure :: DRAWABLE -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word8 -> GraphicsExposure
- Graphics.XHB.Gen.Xproto: MkGravityNotify :: WINDOW -> WINDOW -> INT16 -> INT16 -> GravityNotify
+ Graphics.XHB.Gen.Xproto: MkGravityNotify :: WINDOW -> WINDOW -> Int16 -> Int16 -> GravityNotify
- Graphics.XHB.Gen.Xproto: MkHOST :: CARD8 -> CARD16 -> [BYTE] -> HOST
+ Graphics.XHB.Gen.Xproto: MkHOST :: Word8 -> Word16 -> [Word8] -> HOST
- Graphics.XHB.Gen.Xproto: MkIDChoice :: CARD32 -> CARD16 -> CARD8 -> IDChoice
+ Graphics.XHB.Gen.Xproto: MkIDChoice :: Word32 -> Word16 -> Word8 -> IDChoice
- Graphics.XHB.Gen.Xproto: MkImageText16 :: BYTE -> DRAWABLE -> GCONTEXT -> INT16 -> INT16 -> [CHAR2B] -> ImageText16
+ Graphics.XHB.Gen.Xproto: MkImageText16 :: Word8 -> DRAWABLE -> GCONTEXT -> Int16 -> Int16 -> [CHAR2B] -> ImageText16
- Graphics.XHB.Gen.Xproto: MkImageText8 :: BYTE -> DRAWABLE -> GCONTEXT -> INT16 -> INT16 -> [CChar] -> ImageText8
+ Graphics.XHB.Gen.Xproto: MkImageText8 :: Word8 -> DRAWABLE -> GCONTEXT -> Int16 -> Int16 -> [CChar] -> ImageText8
- Graphics.XHB.Gen.Xproto: MkImplementation :: CARD32 -> CARD16 -> CARD8 -> Implementation
+ Graphics.XHB.Gen.Xproto: MkImplementation :: Word32 -> Word16 -> Word8 -> Implementation
- Graphics.XHB.Gen.Xproto: MkInternAtom :: BOOL -> CARD16 -> [CChar] -> InternAtom
+ Graphics.XHB.Gen.Xproto: MkInternAtom :: Bool -> Word16 -> [CChar] -> InternAtom
- Graphics.XHB.Gen.Xproto: MkKeyPress :: KEYCODE -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> INT16 -> INT16 -> INT16 -> INT16 -> CARD16 -> BOOL -> KeyPress
+ Graphics.XHB.Gen.Xproto: MkKeyPress :: KEYCODE -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> Int16 -> Int16 -> Int16 -> Int16 -> Word16 -> Bool -> KeyPress
- Graphics.XHB.Gen.Xproto: MkKeyRelease :: KEYCODE -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> INT16 -> INT16 -> INT16 -> INT16 -> CARD16 -> BOOL -> KeyRelease
+ Graphics.XHB.Gen.Xproto: MkKeyRelease :: KEYCODE -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> Int16 -> Int16 -> Int16 -> Int16 -> Word16 -> Bool -> KeyRelease
- Graphics.XHB.Gen.Xproto: MkKeymapNotify :: [CARD8] -> KeymapNotify
+ Graphics.XHB.Gen.Xproto: MkKeymapNotify :: [Word8] -> KeymapNotify
- Graphics.XHB.Gen.Xproto: MkKillClient :: CARD32 -> KillClient
+ Graphics.XHB.Gen.Xproto: MkKillClient :: Word32 -> KillClient
- Graphics.XHB.Gen.Xproto: MkLeaveNotify :: BYTE -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> INT16 -> INT16 -> INT16 -> INT16 -> CARD16 -> BYTE -> BYTE -> LeaveNotify
+ Graphics.XHB.Gen.Xproto: MkLeaveNotify :: Word8 -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> Int16 -> Int16 -> Int16 -> Int16 -> Word16 -> Word8 -> Word8 -> LeaveNotify
- Graphics.XHB.Gen.Xproto: MkLength :: CARD32 -> CARD16 -> CARD8 -> Length
+ Graphics.XHB.Gen.Xproto: MkLength :: Word32 -> Word16 -> Word8 -> Length
- Graphics.XHB.Gen.Xproto: MkListExtensionsReply :: CARD8 -> [STR] -> ListExtensionsReply
+ Graphics.XHB.Gen.Xproto: MkListExtensionsReply :: Word8 -> [STR] -> ListExtensionsReply
- Graphics.XHB.Gen.Xproto: MkListFonts :: CARD16 -> CARD16 -> [CChar] -> ListFonts
+ Graphics.XHB.Gen.Xproto: MkListFonts :: Word16 -> Word16 -> [CChar] -> ListFonts
- Graphics.XHB.Gen.Xproto: MkListFontsReply :: CARD16 -> [STR] -> ListFontsReply
+ Graphics.XHB.Gen.Xproto: MkListFontsReply :: Word16 -> [STR] -> ListFontsReply
- Graphics.XHB.Gen.Xproto: MkListFontsWithInfo :: CARD16 -> CARD16 -> [CChar] -> ListFontsWithInfo
+ Graphics.XHB.Gen.Xproto: MkListFontsWithInfo :: Word16 -> Word16 -> [CChar] -> ListFontsWithInfo
- Graphics.XHB.Gen.Xproto: MkListFontsWithInfoReply :: CARD8 -> CHARINFO -> CHARINFO -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> BYTE -> CARD8 -> CARD8 -> BOOL -> INT16 -> INT16 -> CARD32 -> [FONTPROP] -> [CChar] -> ListFontsWithInfoReply
+ Graphics.XHB.Gen.Xproto: MkListFontsWithInfoReply :: Word8 -> CHARINFO -> CHARINFO -> Word16 -> Word16 -> Word16 -> Word16 -> Word8 -> Word8 -> Word8 -> Bool -> Int16 -> Int16 -> Word32 -> [FONTPROP] -> [CChar] -> ListFontsWithInfoReply
- Graphics.XHB.Gen.Xproto: MkListHostsReply :: BYTE -> CARD16 -> [HOST] -> ListHostsReply
+ Graphics.XHB.Gen.Xproto: MkListHostsReply :: Word8 -> Word16 -> [HOST] -> ListHostsReply
- Graphics.XHB.Gen.Xproto: MkListInstalledColormapsReply :: CARD16 -> [COLORMAP] -> ListInstalledColormapsReply
+ Graphics.XHB.Gen.Xproto: MkListInstalledColormapsReply :: Word16 -> [COLORMAP] -> ListInstalledColormapsReply
- Graphics.XHB.Gen.Xproto: MkListPropertiesReply :: CARD16 -> [ATOM] -> ListPropertiesReply
+ Graphics.XHB.Gen.Xproto: MkListPropertiesReply :: Word16 -> [ATOM] -> ListPropertiesReply
- Graphics.XHB.Gen.Xproto: MkLookupColor :: COLORMAP -> CARD16 -> [CChar] -> LookupColor
+ Graphics.XHB.Gen.Xproto: MkLookupColor :: COLORMAP -> Word16 -> [CChar] -> LookupColor
- Graphics.XHB.Gen.Xproto: MkLookupColorReply :: CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> LookupColorReply
+ Graphics.XHB.Gen.Xproto: MkLookupColorReply :: Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> LookupColorReply
- Graphics.XHB.Gen.Xproto: MkMapNotify :: WINDOW -> WINDOW -> BOOL -> MapNotify
+ Graphics.XHB.Gen.Xproto: MkMapNotify :: WINDOW -> WINDOW -> Bool -> MapNotify
- Graphics.XHB.Gen.Xproto: MkMappingNotify :: BYTE -> KEYCODE -> CARD8 -> MappingNotify
+ Graphics.XHB.Gen.Xproto: MkMappingNotify :: Word8 -> KEYCODE -> Word8 -> MappingNotify
- Graphics.XHB.Gen.Xproto: MkMatch :: CARD32 -> CARD16 -> CARD8 -> Match
+ Graphics.XHB.Gen.Xproto: MkMatch :: Word32 -> Word16 -> Word8 -> Match
- Graphics.XHB.Gen.Xproto: MkMotionNotify :: BYTE -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> INT16 -> INT16 -> INT16 -> INT16 -> CARD16 -> BOOL -> MotionNotify
+ Graphics.XHB.Gen.Xproto: MkMotionNotify :: Word8 -> TIMESTAMP -> WINDOW -> WINDOW -> WINDOW -> Int16 -> Int16 -> Int16 -> Int16 -> Word16 -> Bool -> MotionNotify
- Graphics.XHB.Gen.Xproto: MkName :: CARD32 -> CARD16 -> CARD8 -> Name
+ Graphics.XHB.Gen.Xproto: MkName :: Word32 -> Word16 -> Word8 -> Name
- Graphics.XHB.Gen.Xproto: MkNoExposure :: DRAWABLE -> CARD16 -> CARD8 -> NoExposure
+ Graphics.XHB.Gen.Xproto: MkNoExposure :: DRAWABLE -> Word16 -> Word8 -> NoExposure
- Graphics.XHB.Gen.Xproto: MkOpenFont :: FONT -> CARD16 -> [CChar] -> OpenFont
+ Graphics.XHB.Gen.Xproto: MkOpenFont :: FONT -> Word16 -> [CChar] -> OpenFont
- Graphics.XHB.Gen.Xproto: MkPOINT :: INT16 -> INT16 -> POINT
+ Graphics.XHB.Gen.Xproto: MkPOINT :: Int16 -> Int16 -> POINT
- Graphics.XHB.Gen.Xproto: MkPixmap :: CARD32 -> CARD16 -> CARD8 -> Pixmap
+ Graphics.XHB.Gen.Xproto: MkPixmap :: Word32 -> Word16 -> Word8 -> Pixmap
- Graphics.XHB.Gen.Xproto: MkPolyLine :: BYTE -> DRAWABLE -> GCONTEXT -> [POINT] -> PolyLine
+ Graphics.XHB.Gen.Xproto: MkPolyLine :: Word8 -> DRAWABLE -> GCONTEXT -> [POINT] -> PolyLine
- Graphics.XHB.Gen.Xproto: MkPolyPoint :: BYTE -> DRAWABLE -> GCONTEXT -> [POINT] -> PolyPoint
+ Graphics.XHB.Gen.Xproto: MkPolyPoint :: Word8 -> DRAWABLE -> GCONTEXT -> [POINT] -> PolyPoint
- Graphics.XHB.Gen.Xproto: MkPolyText16 :: DRAWABLE -> GCONTEXT -> INT16 -> INT16 -> [BYTE] -> PolyText16
+ Graphics.XHB.Gen.Xproto: MkPolyText16 :: DRAWABLE -> GCONTEXT -> Int16 -> Int16 -> [Word8] -> PolyText16
- Graphics.XHB.Gen.Xproto: MkPolyText8 :: DRAWABLE -> GCONTEXT -> INT16 -> INT16 -> [BYTE] -> PolyText8
+ Graphics.XHB.Gen.Xproto: MkPolyText8 :: DRAWABLE -> GCONTEXT -> Int16 -> Int16 -> [Word8] -> PolyText8
- Graphics.XHB.Gen.Xproto: MkPropertyNotify :: WINDOW -> ATOM -> TIMESTAMP -> BYTE -> PropertyNotify
+ Graphics.XHB.Gen.Xproto: MkPropertyNotify :: WINDOW -> ATOM -> TIMESTAMP -> Word8 -> PropertyNotify
- Graphics.XHB.Gen.Xproto: MkPutImage :: CARD8 -> DRAWABLE -> GCONTEXT -> CARD16 -> CARD16 -> INT16 -> INT16 -> CARD8 -> CARD8 -> [BYTE] -> PutImage
+ Graphics.XHB.Gen.Xproto: MkPutImage :: Word8 -> DRAWABLE -> GCONTEXT -> Word16 -> Word16 -> Int16 -> Int16 -> Word8 -> Word8 -> [Word8] -> PutImage
- Graphics.XHB.Gen.Xproto: MkQueryBestSize :: CARD8 -> DRAWABLE -> CARD16 -> CARD16 -> QueryBestSize
+ Graphics.XHB.Gen.Xproto: MkQueryBestSize :: Word8 -> DRAWABLE -> Word16 -> Word16 -> QueryBestSize
- Graphics.XHB.Gen.Xproto: MkQueryBestSizeReply :: CARD16 -> CARD16 -> QueryBestSizeReply
+ Graphics.XHB.Gen.Xproto: MkQueryBestSizeReply :: Word16 -> Word16 -> QueryBestSizeReply
- Graphics.XHB.Gen.Xproto: MkQueryColors :: COLORMAP -> [CARD32] -> QueryColors
+ Graphics.XHB.Gen.Xproto: MkQueryColors :: COLORMAP -> [Word32] -> QueryColors
- Graphics.XHB.Gen.Xproto: MkQueryColorsReply :: CARD16 -> [RGB] -> QueryColorsReply
+ Graphics.XHB.Gen.Xproto: MkQueryColorsReply :: Word16 -> [RGB] -> QueryColorsReply
- Graphics.XHB.Gen.Xproto: MkQueryExtension :: CARD16 -> [CChar] -> QueryExtension
+ Graphics.XHB.Gen.Xproto: MkQueryExtension :: Word16 -> [CChar] -> QueryExtension
- Graphics.XHB.Gen.Xproto: MkQueryExtensionReply :: BOOL -> CARD8 -> CARD8 -> CARD8 -> QueryExtensionReply
+ Graphics.XHB.Gen.Xproto: MkQueryExtensionReply :: Bool -> Word8 -> Word8 -> Word8 -> QueryExtensionReply
- Graphics.XHB.Gen.Xproto: MkQueryFontReply :: CHARINFO -> CHARINFO -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> BYTE -> CARD8 -> CARD8 -> BOOL -> INT16 -> INT16 -> CARD32 -> [FONTPROP] -> [CHARINFO] -> QueryFontReply
+ Graphics.XHB.Gen.Xproto: MkQueryFontReply :: CHARINFO -> CHARINFO -> Word16 -> Word16 -> Word16 -> Word16 -> Word8 -> Word8 -> Word8 -> Bool -> Int16 -> Int16 -> Word32 -> [FONTPROP] -> [CHARINFO] -> QueryFontReply
- Graphics.XHB.Gen.Xproto: MkQueryKeymapReply :: [CARD8] -> QueryKeymapReply
+ Graphics.XHB.Gen.Xproto: MkQueryKeymapReply :: [Word8] -> QueryKeymapReply
- Graphics.XHB.Gen.Xproto: MkQueryPointerReply :: BOOL -> WINDOW -> WINDOW -> INT16 -> INT16 -> INT16 -> INT16 -> CARD16 -> QueryPointerReply
+ Graphics.XHB.Gen.Xproto: MkQueryPointerReply :: Bool -> WINDOW -> WINDOW -> Int16 -> Int16 -> Int16 -> Int16 -> Word16 -> QueryPointerReply
- Graphics.XHB.Gen.Xproto: MkQueryTextExtentsReply :: BYTE -> INT16 -> INT16 -> INT16 -> INT16 -> INT32 -> INT32 -> INT32 -> QueryTextExtentsReply
+ Graphics.XHB.Gen.Xproto: MkQueryTextExtentsReply :: Word8 -> Int16 -> Int16 -> Int16 -> Int16 -> Int32 -> Int32 -> Int32 -> QueryTextExtentsReply
- Graphics.XHB.Gen.Xproto: MkQueryTreeReply :: WINDOW -> WINDOW -> CARD16 -> [WINDOW] -> QueryTreeReply
+ Graphics.XHB.Gen.Xproto: MkQueryTreeReply :: WINDOW -> WINDOW -> Word16 -> [WINDOW] -> QueryTreeReply
- Graphics.XHB.Gen.Xproto: MkRECTANGLE :: INT16 -> INT16 -> CARD16 -> CARD16 -> RECTANGLE
+ Graphics.XHB.Gen.Xproto: MkRECTANGLE :: Int16 -> Int16 -> Word16 -> Word16 -> RECTANGLE
- Graphics.XHB.Gen.Xproto: MkRGB :: CARD16 -> CARD16 -> CARD16 -> RGB
+ Graphics.XHB.Gen.Xproto: MkRGB :: Word16 -> Word16 -> Word16 -> RGB
- Graphics.XHB.Gen.Xproto: MkRecolorCursor :: CURSOR -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> RecolorCursor
+ Graphics.XHB.Gen.Xproto: MkRecolorCursor :: CURSOR -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> RecolorCursor
- Graphics.XHB.Gen.Xproto: MkReparentNotify :: WINDOW -> WINDOW -> WINDOW -> INT16 -> INT16 -> BOOL -> ReparentNotify
+ Graphics.XHB.Gen.Xproto: MkReparentNotify :: WINDOW -> WINDOW -> WINDOW -> Int16 -> Int16 -> Bool -> ReparentNotify
- Graphics.XHB.Gen.Xproto: MkReparentWindow :: WINDOW -> WINDOW -> INT16 -> INT16 -> ReparentWindow
+ Graphics.XHB.Gen.Xproto: MkReparentWindow :: WINDOW -> WINDOW -> Int16 -> Int16 -> ReparentWindow
- Graphics.XHB.Gen.Xproto: MkRequest :: CARD32 -> CARD16 -> CARD8 -> Request
+ Graphics.XHB.Gen.Xproto: MkRequest :: Word32 -> Word16 -> Word8 -> Request
- Graphics.XHB.Gen.Xproto: MkResizeRequest :: WINDOW -> CARD16 -> CARD16 -> ResizeRequest
+ Graphics.XHB.Gen.Xproto: MkResizeRequest :: WINDOW -> Word16 -> Word16 -> ResizeRequest
- Graphics.XHB.Gen.Xproto: MkRotateProperties :: WINDOW -> CARD16 -> INT16 -> [ATOM] -> RotateProperties
+ Graphics.XHB.Gen.Xproto: MkRotateProperties :: WINDOW -> Word16 -> Int16 -> [ATOM] -> RotateProperties
- Graphics.XHB.Gen.Xproto: MkSCREEN :: WINDOW -> COLORMAP -> CARD32 -> CARD32 -> CARD32 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> VISUALID -> BYTE -> BOOL -> CARD8 -> CARD8 -> [DEPTH] -> SCREEN
+ Graphics.XHB.Gen.Xproto: MkSCREEN :: WINDOW -> COLORMAP -> Word32 -> Word32 -> Word32 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> VISUALID -> Word8 -> Bool -> Word8 -> Word8 -> [DEPTH] -> SCREEN
- Graphics.XHB.Gen.Xproto: MkSEGMENT :: INT16 -> INT16 -> INT16 -> INT16 -> SEGMENT
+ Graphics.XHB.Gen.Xproto: MkSEGMENT :: Int16 -> Int16 -> Int16 -> Int16 -> SEGMENT
- Graphics.XHB.Gen.Xproto: MkSTR :: CARD8 -> [CChar] -> STR
+ Graphics.XHB.Gen.Xproto: MkSTR :: Word8 -> [CChar] -> STR
- Graphics.XHB.Gen.Xproto: MkSendEvent :: BOOL -> WINDOW -> CARD32 -> [CChar] -> SendEvent
+ Graphics.XHB.Gen.Xproto: MkSendEvent :: Bool -> WINDOW -> Word32 -> [CChar] -> SendEvent
- Graphics.XHB.Gen.Xproto: MkSetAccessControl :: CARD8 -> SetAccessControl
+ Graphics.XHB.Gen.Xproto: MkSetAccessControl :: Word8 -> SetAccessControl
- Graphics.XHB.Gen.Xproto: MkSetClipRectangles :: BYTE -> GCONTEXT -> INT16 -> INT16 -> [RECTANGLE] -> SetClipRectangles
+ Graphics.XHB.Gen.Xproto: MkSetClipRectangles :: Word8 -> GCONTEXT -> Int16 -> Int16 -> [RECTANGLE] -> SetClipRectangles
- Graphics.XHB.Gen.Xproto: MkSetCloseDownMode :: CARD8 -> SetCloseDownMode
+ Graphics.XHB.Gen.Xproto: MkSetCloseDownMode :: Word8 -> SetCloseDownMode
- Graphics.XHB.Gen.Xproto: MkSetDashes :: GCONTEXT -> CARD16 -> CARD16 -> [CARD8] -> SetDashes
+ Graphics.XHB.Gen.Xproto: MkSetDashes :: GCONTEXT -> Word16 -> Word16 -> [Word8] -> SetDashes
- Graphics.XHB.Gen.Xproto: MkSetFontPath :: CARD16 -> [CChar] -> SetFontPath
+ Graphics.XHB.Gen.Xproto: MkSetFontPath :: Word16 -> [CChar] -> SetFontPath
- Graphics.XHB.Gen.Xproto: MkSetInputFocus :: CARD8 -> WINDOW -> TIMESTAMP -> SetInputFocus
+ Graphics.XHB.Gen.Xproto: MkSetInputFocus :: Word8 -> WINDOW -> TIMESTAMP -> SetInputFocus
- Graphics.XHB.Gen.Xproto: MkSetModifierMapping :: CARD8 -> [KEYCODE] -> SetModifierMapping
+ Graphics.XHB.Gen.Xproto: MkSetModifierMapping :: Word8 -> [KEYCODE] -> SetModifierMapping
- Graphics.XHB.Gen.Xproto: MkSetModifierMappingReply :: BYTE -> SetModifierMappingReply
+ Graphics.XHB.Gen.Xproto: MkSetModifierMappingReply :: Word8 -> SetModifierMappingReply
- Graphics.XHB.Gen.Xproto: MkSetPointerMapping :: CARD8 -> [CARD8] -> SetPointerMapping
+ Graphics.XHB.Gen.Xproto: MkSetPointerMapping :: Word8 -> [Word8] -> SetPointerMapping
- Graphics.XHB.Gen.Xproto: MkSetPointerMappingReply :: BYTE -> SetPointerMappingReply
+ Graphics.XHB.Gen.Xproto: MkSetPointerMappingReply :: Word8 -> SetPointerMappingReply
- Graphics.XHB.Gen.Xproto: MkSetScreenSaver :: INT16 -> INT16 -> CARD8 -> CARD8 -> SetScreenSaver
+ Graphics.XHB.Gen.Xproto: MkSetScreenSaver :: Int16 -> Int16 -> Word8 -> Word8 -> SetScreenSaver
- Graphics.XHB.Gen.Xproto: MkSetup :: CARD8 -> CARD16 -> CARD16 -> CARD16 -> CARD32 -> CARD32 -> CARD32 -> CARD32 -> CARD16 -> CARD16 -> CARD8 -> CARD8 -> CARD8 -> CARD8 -> CARD8 -> CARD8 -> KEYCODE -> KEYCODE -> [CChar] -> [FORMAT] -> [SCREEN] -> Setup
+ Graphics.XHB.Gen.Xproto: MkSetup :: Word8 -> Word16 -> Word16 -> Word16 -> Word32 -> Word32 -> Word32 -> Word32 -> Word16 -> Word16 -> Word8 -> Word8 -> Word8 -> Word8 -> Word8 -> Word8 -> KEYCODE -> KEYCODE -> [CChar] -> [FORMAT] -> [SCREEN] -> Setup
- Graphics.XHB.Gen.Xproto: MkSetupAuthenticate :: CARD8 -> CARD16 -> [CChar] -> SetupAuthenticate
+ Graphics.XHB.Gen.Xproto: MkSetupAuthenticate :: Word8 -> Word16 -> [CChar] -> SetupAuthenticate
- Graphics.XHB.Gen.Xproto: MkSetupFailed :: CARD8 -> CARD8 -> CARD16 -> CARD16 -> CARD16 -> [CChar] -> SetupFailed
+ Graphics.XHB.Gen.Xproto: MkSetupFailed :: Word8 -> Word8 -> Word16 -> Word16 -> Word16 -> [CChar] -> SetupFailed
- Graphics.XHB.Gen.Xproto: MkSetupRequest :: CARD8 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> [CChar] -> [CChar] -> SetupRequest
+ Graphics.XHB.Gen.Xproto: MkSetupRequest :: Word8 -> Word16 -> Word16 -> Word16 -> Word16 -> [CChar] -> [CChar] -> SetupRequest
- Graphics.XHB.Gen.Xproto: MkStoreNamedColor :: CARD8 -> COLORMAP -> CARD32 -> CARD16 -> [CChar] -> StoreNamedColor
+ Graphics.XHB.Gen.Xproto: MkStoreNamedColor :: Word8 -> COLORMAP -> Word32 -> Word16 -> [CChar] -> StoreNamedColor
- Graphics.XHB.Gen.Xproto: MkTIMECOORD :: TIMESTAMP -> INT16 -> INT16 -> TIMECOORD
+ Graphics.XHB.Gen.Xproto: MkTIMECOORD :: TIMESTAMP -> Int16 -> Int16 -> TIMECOORD
- Graphics.XHB.Gen.Xproto: MkTranslateCoordinates :: WINDOW -> WINDOW -> INT16 -> INT16 -> TranslateCoordinates
+ Graphics.XHB.Gen.Xproto: MkTranslateCoordinates :: WINDOW -> WINDOW -> Int16 -> Int16 -> TranslateCoordinates
- Graphics.XHB.Gen.Xproto: MkTranslateCoordinatesReply :: BOOL -> WINDOW -> CARD16 -> CARD16 -> TranslateCoordinatesReply
+ Graphics.XHB.Gen.Xproto: MkTranslateCoordinatesReply :: Bool -> WINDOW -> Word16 -> Word16 -> TranslateCoordinatesReply
- Graphics.XHB.Gen.Xproto: MkUngrabButton :: CARD8 -> WINDOW -> CARD16 -> UngrabButton
+ Graphics.XHB.Gen.Xproto: MkUngrabButton :: Word8 -> WINDOW -> Word16 -> UngrabButton
- Graphics.XHB.Gen.Xproto: MkUngrabKey :: KEYCODE -> WINDOW -> CARD16 -> UngrabKey
+ Graphics.XHB.Gen.Xproto: MkUngrabKey :: KEYCODE -> WINDOW -> Word16 -> UngrabKey
- Graphics.XHB.Gen.Xproto: MkUnmapNotify :: WINDOW -> WINDOW -> BOOL -> UnmapNotify
+ Graphics.XHB.Gen.Xproto: MkUnmapNotify :: WINDOW -> WINDOW -> Bool -> UnmapNotify
- Graphics.XHB.Gen.Xproto: MkVISUALTYPE :: VISUALID -> CARD8 -> CARD8 -> CARD16 -> CARD32 -> CARD32 -> CARD32 -> VISUALTYPE
+ Graphics.XHB.Gen.Xproto: MkVISUALTYPE :: VISUALID -> Word8 -> Word8 -> Word16 -> Word32 -> Word32 -> Word32 -> VISUALTYPE
- Graphics.XHB.Gen.Xproto: MkValue :: CARD32 -> CARD16 -> CARD8 -> Value
+ Graphics.XHB.Gen.Xproto: MkValue :: Word32 -> Word16 -> Word8 -> Value
- Graphics.XHB.Gen.Xproto: MkVisibilityNotify :: WINDOW -> BYTE -> VisibilityNotify
+ Graphics.XHB.Gen.Xproto: MkVisibilityNotify :: WINDOW -> Word8 -> VisibilityNotify
- Graphics.XHB.Gen.Xproto: MkWarpPointer :: WINDOW -> WINDOW -> INT16 -> INT16 -> CARD16 -> CARD16 -> INT16 -> INT16 -> WarpPointer
+ Graphics.XHB.Gen.Xproto: MkWarpPointer :: WINDOW -> WINDOW -> Int16 -> Int16 -> Word16 -> Word16 -> Int16 -> Int16 -> WarpPointer
- Graphics.XHB.Gen.Xproto: MkWindow :: CARD32 -> CARD16 -> CARD8 -> Window
+ Graphics.XHB.Gen.Xproto: MkWindow :: Word32 -> Word16 -> Word8 -> Window
- Graphics.XHB.Gen.Xproto: acceleration_denominator_ChangePointerControl :: ChangePointerControl -> INT16
+ Graphics.XHB.Gen.Xproto: acceleration_denominator_ChangePointerControl :: ChangePointerControl -> Int16
- Graphics.XHB.Gen.Xproto: acceleration_denominator_GetPointerControlReply :: GetPointerControlReply -> CARD16
+ Graphics.XHB.Gen.Xproto: acceleration_denominator_GetPointerControlReply :: GetPointerControlReply -> Word16
- Graphics.XHB.Gen.Xproto: acceleration_numerator_ChangePointerControl :: ChangePointerControl -> INT16
+ Graphics.XHB.Gen.Xproto: acceleration_numerator_ChangePointerControl :: ChangePointerControl -> Int16
- Graphics.XHB.Gen.Xproto: acceleration_numerator_GetPointerControlReply :: GetPointerControlReply -> CARD16
+ Graphics.XHB.Gen.Xproto: acceleration_numerator_GetPointerControlReply :: GetPointerControlReply -> Word16
- Graphics.XHB.Gen.Xproto: address_HOST :: HOST -> [BYTE]
+ Graphics.XHB.Gen.Xproto: address_HOST :: HOST -> [Word8]
- Graphics.XHB.Gen.Xproto: address_len_ChangeHosts :: ChangeHosts -> CARD16
+ Graphics.XHB.Gen.Xproto: address_len_ChangeHosts :: ChangeHosts -> Word16
- Graphics.XHB.Gen.Xproto: address_len_HOST :: HOST -> CARD16
+ Graphics.XHB.Gen.Xproto: address_len_HOST :: HOST -> Word16
- Graphics.XHB.Gen.Xproto: all_chars_exist_ListFontsWithInfoReply :: ListFontsWithInfoReply -> BOOL
+ Graphics.XHB.Gen.Xproto: all_chars_exist_ListFontsWithInfoReply :: ListFontsWithInfoReply -> Bool
- Graphics.XHB.Gen.Xproto: all_chars_exist_QueryFontReply :: QueryFontReply -> BOOL
+ Graphics.XHB.Gen.Xproto: all_chars_exist_QueryFontReply :: QueryFontReply -> Bool
- Graphics.XHB.Gen.Xproto: all_event_masks_GetWindowAttributesReply :: GetWindowAttributesReply -> CARD32
+ Graphics.XHB.Gen.Xproto: all_event_masks_GetWindowAttributesReply :: GetWindowAttributesReply -> Word32
- Graphics.XHB.Gen.Xproto: alloc_CreateColormap :: CreateColormap -> BYTE
+ Graphics.XHB.Gen.Xproto: alloc_CreateColormap :: CreateColormap -> Word8
- Graphics.XHB.Gen.Xproto: allowEvents :: Connection -> CARD8 -> TIMESTAMP -> IO ()
+ Graphics.XHB.Gen.Xproto: allowEvents :: Connection -> Word8 -> TIMESTAMP -> IO ()
- Graphics.XHB.Gen.Xproto: allow_exposures_GetScreenSaverReply :: GetScreenSaverReply -> BYTE
+ Graphics.XHB.Gen.Xproto: allow_exposures_GetScreenSaverReply :: GetScreenSaverReply -> Word8
- Graphics.XHB.Gen.Xproto: allow_exposures_SetScreenSaver :: SetScreenSaver -> CARD8
+ Graphics.XHB.Gen.Xproto: allow_exposures_SetScreenSaver :: SetScreenSaver -> Word8
- Graphics.XHB.Gen.Xproto: allowed_depths_len_SCREEN :: SCREEN -> CARD8
+ Graphics.XHB.Gen.Xproto: allowed_depths_len_SCREEN :: SCREEN -> Word8
- Graphics.XHB.Gen.Xproto: angle1_ARC :: ARC -> INT16
+ Graphics.XHB.Gen.Xproto: angle1_ARC :: ARC -> Int16
- Graphics.XHB.Gen.Xproto: angle2_ARC :: ARC -> INT16
+ Graphics.XHB.Gen.Xproto: angle2_ARC :: ARC -> Int16
- Graphics.XHB.Gen.Xproto: ascent_CHARINFO :: CHARINFO -> INT16
+ Graphics.XHB.Gen.Xproto: ascent_CHARINFO :: CHARINFO -> Int16
- Graphics.XHB.Gen.Xproto: atoms_len_ListPropertiesReply :: ListPropertiesReply -> CARD16
+ Graphics.XHB.Gen.Xproto: atoms_len_ListPropertiesReply :: ListPropertiesReply -> Word16
- Graphics.XHB.Gen.Xproto: atoms_len_RotateProperties :: RotateProperties -> CARD16
+ Graphics.XHB.Gen.Xproto: atoms_len_RotateProperties :: RotateProperties -> Word16
- Graphics.XHB.Gen.Xproto: attributes_CHARINFO :: CHARINFO -> CARD16
+ Graphics.XHB.Gen.Xproto: attributes_CHARINFO :: CHARINFO -> Word16
- Graphics.XHB.Gen.Xproto: authorization_protocol_data_len_SetupRequest :: SetupRequest -> CARD16
+ Graphics.XHB.Gen.Xproto: authorization_protocol_data_len_SetupRequest :: SetupRequest -> Word16
- Graphics.XHB.Gen.Xproto: authorization_protocol_name_len_SetupRequest :: SetupRequest -> CARD16
+ Graphics.XHB.Gen.Xproto: authorization_protocol_name_len_SetupRequest :: SetupRequest -> Word16
- Graphics.XHB.Gen.Xproto: auto_repeats_GetKeyboardControlReply :: GetKeyboardControlReply -> [CARD8]
+ Graphics.XHB.Gen.Xproto: auto_repeats_GetKeyboardControlReply :: GetKeyboardControlReply -> [Word8]
- Graphics.XHB.Gen.Xproto: back_blue_CreateCursor :: CreateCursor -> CARD16
+ Graphics.XHB.Gen.Xproto: back_blue_CreateCursor :: CreateCursor -> Word16
- Graphics.XHB.Gen.Xproto: back_blue_CreateGlyphCursor :: CreateGlyphCursor -> CARD16
+ Graphics.XHB.Gen.Xproto: back_blue_CreateGlyphCursor :: CreateGlyphCursor -> Word16
- Graphics.XHB.Gen.Xproto: back_blue_RecolorCursor :: RecolorCursor -> CARD16
+ Graphics.XHB.Gen.Xproto: back_blue_RecolorCursor :: RecolorCursor -> Word16
- Graphics.XHB.Gen.Xproto: back_green_CreateCursor :: CreateCursor -> CARD16
+ Graphics.XHB.Gen.Xproto: back_green_CreateCursor :: CreateCursor -> Word16
- Graphics.XHB.Gen.Xproto: back_green_CreateGlyphCursor :: CreateGlyphCursor -> CARD16
+ Graphics.XHB.Gen.Xproto: back_green_CreateGlyphCursor :: CreateGlyphCursor -> Word16
- Graphics.XHB.Gen.Xproto: back_green_RecolorCursor :: RecolorCursor -> CARD16
+ Graphics.XHB.Gen.Xproto: back_green_RecolorCursor :: RecolorCursor -> Word16
- Graphics.XHB.Gen.Xproto: back_red_CreateCursor :: CreateCursor -> CARD16
+ Graphics.XHB.Gen.Xproto: back_red_CreateCursor :: CreateCursor -> Word16
- Graphics.XHB.Gen.Xproto: back_red_CreateGlyphCursor :: CreateGlyphCursor -> CARD16
+ Graphics.XHB.Gen.Xproto: back_red_CreateGlyphCursor :: CreateGlyphCursor -> Word16
- Graphics.XHB.Gen.Xproto: back_red_RecolorCursor :: RecolorCursor -> CARD16
+ Graphics.XHB.Gen.Xproto: back_red_RecolorCursor :: RecolorCursor -> Word16
- Graphics.XHB.Gen.Xproto: backing_pixel_GetWindowAttributesReply :: GetWindowAttributesReply -> CARD32
+ Graphics.XHB.Gen.Xproto: backing_pixel_GetWindowAttributesReply :: GetWindowAttributesReply -> Word32
- Graphics.XHB.Gen.Xproto: backing_planes_GetWindowAttributesReply :: GetWindowAttributesReply -> CARD32
+ Graphics.XHB.Gen.Xproto: backing_planes_GetWindowAttributesReply :: GetWindowAttributesReply -> Word32
- Graphics.XHB.Gen.Xproto: backing_store_GetWindowAttributesReply :: GetWindowAttributesReply -> CARD8
+ Graphics.XHB.Gen.Xproto: backing_store_GetWindowAttributesReply :: GetWindowAttributesReply -> Word8
- Graphics.XHB.Gen.Xproto: backing_stores_SCREEN :: SCREEN -> BYTE
+ Graphics.XHB.Gen.Xproto: backing_stores_SCREEN :: SCREEN -> Word8
- Graphics.XHB.Gen.Xproto: bad_value_Access :: Access -> CARD32
+ Graphics.XHB.Gen.Xproto: bad_value_Access :: Access -> Word32
- Graphics.XHB.Gen.Xproto: bad_value_Alloc :: Alloc -> CARD32
+ Graphics.XHB.Gen.Xproto: bad_value_Alloc :: Alloc -> Word32
- Graphics.XHB.Gen.Xproto: bad_value_Atom :: Atom -> CARD32
+ Graphics.XHB.Gen.Xproto: bad_value_Atom :: Atom -> Word32
- Graphics.XHB.Gen.Xproto: bad_value_Colormap :: Colormap -> CARD32
+ Graphics.XHB.Gen.Xproto: bad_value_Colormap :: Colormap -> Word32
- Graphics.XHB.Gen.Xproto: bad_value_Cursor :: Cursor -> CARD32
+ Graphics.XHB.Gen.Xproto: bad_value_Cursor :: Cursor -> Word32
- Graphics.XHB.Gen.Xproto: bad_value_Drawable :: Drawable -> CARD32
+ Graphics.XHB.Gen.Xproto: bad_value_Drawable :: Drawable -> Word32
- Graphics.XHB.Gen.Xproto: bad_value_Font :: Font -> CARD32
+ Graphics.XHB.Gen.Xproto: bad_value_Font :: Font -> Word32
- Graphics.XHB.Gen.Xproto: bad_value_GContext :: GContext -> CARD32
+ Graphics.XHB.Gen.Xproto: bad_value_GContext :: GContext -> Word32
- Graphics.XHB.Gen.Xproto: bad_value_IDChoice :: IDChoice -> CARD32
+ Graphics.XHB.Gen.Xproto: bad_value_IDChoice :: IDChoice -> Word32
- Graphics.XHB.Gen.Xproto: bad_value_Implementation :: Implementation -> CARD32
+ Graphics.XHB.Gen.Xproto: bad_value_Implementation :: Implementation -> Word32
- Graphics.XHB.Gen.Xproto: bad_value_Length :: Length -> CARD32
+ Graphics.XHB.Gen.Xproto: bad_value_Length :: Length -> Word32
- Graphics.XHB.Gen.Xproto: bad_value_Match :: Match -> CARD32
+ Graphics.XHB.Gen.Xproto: bad_value_Match :: Match -> Word32
- Graphics.XHB.Gen.Xproto: bad_value_Name :: Name -> CARD32
+ Graphics.XHB.Gen.Xproto: bad_value_Name :: Name -> Word32
- Graphics.XHB.Gen.Xproto: bad_value_Pixmap :: Pixmap -> CARD32
+ Graphics.XHB.Gen.Xproto: bad_value_Pixmap :: Pixmap -> Word32
- Graphics.XHB.Gen.Xproto: bad_value_Request :: Request -> CARD32
+ Graphics.XHB.Gen.Xproto: bad_value_Request :: Request -> Word32
- Graphics.XHB.Gen.Xproto: bad_value_Value :: Value -> CARD32
+ Graphics.XHB.Gen.Xproto: bad_value_Value :: Value -> Word32
- Graphics.XHB.Gen.Xproto: bad_value_Window :: Window -> CARD32
+ Graphics.XHB.Gen.Xproto: bad_value_Window :: Window -> Word32
- Graphics.XHB.Gen.Xproto: bell :: Connection -> INT8 -> IO ()
+ Graphics.XHB.Gen.Xproto: bell :: Connection -> Int8 -> IO ()
- Graphics.XHB.Gen.Xproto: bell_duration_GetKeyboardControlReply :: GetKeyboardControlReply -> CARD16
+ Graphics.XHB.Gen.Xproto: bell_duration_GetKeyboardControlReply :: GetKeyboardControlReply -> Word16
- Graphics.XHB.Gen.Xproto: bell_percent_GetKeyboardControlReply :: GetKeyboardControlReply -> CARD8
+ Graphics.XHB.Gen.Xproto: bell_percent_GetKeyboardControlReply :: GetKeyboardControlReply -> Word8
- Graphics.XHB.Gen.Xproto: bell_pitch_GetKeyboardControlReply :: GetKeyboardControlReply -> CARD16
+ Graphics.XHB.Gen.Xproto: bell_pitch_GetKeyboardControlReply :: GetKeyboardControlReply -> Word16
- Graphics.XHB.Gen.Xproto: bit_gravity_GetWindowAttributesReply :: GetWindowAttributesReply -> CARD8
+ Graphics.XHB.Gen.Xproto: bit_gravity_GetWindowAttributesReply :: GetWindowAttributesReply -> Word8
- Graphics.XHB.Gen.Xproto: bit_plane_CopyPlane :: CopyPlane -> CARD32
+ Graphics.XHB.Gen.Xproto: bit_plane_CopyPlane :: CopyPlane -> Word32
- Graphics.XHB.Gen.Xproto: bitmap_format_bit_order_Setup :: Setup -> CARD8
+ Graphics.XHB.Gen.Xproto: bitmap_format_bit_order_Setup :: Setup -> Word8
- Graphics.XHB.Gen.Xproto: bitmap_format_scanline_pad_Setup :: Setup -> CARD8
+ Graphics.XHB.Gen.Xproto: bitmap_format_scanline_pad_Setup :: Setup -> Word8
- Graphics.XHB.Gen.Xproto: bitmap_format_scanline_unit_Setup :: Setup -> CARD8
+ Graphics.XHB.Gen.Xproto: bitmap_format_scanline_unit_Setup :: Setup -> Word8
- Graphics.XHB.Gen.Xproto: bits_per_pixel_FORMAT :: FORMAT -> CARD8
+ Graphics.XHB.Gen.Xproto: bits_per_pixel_FORMAT :: FORMAT -> Word8
- Graphics.XHB.Gen.Xproto: bits_per_rgb_value_VISUALTYPE :: VISUALTYPE -> CARD8
+ Graphics.XHB.Gen.Xproto: bits_per_rgb_value_VISUALTYPE :: VISUALTYPE -> Word8
- Graphics.XHB.Gen.Xproto: black_pixel_SCREEN :: SCREEN -> CARD32
+ Graphics.XHB.Gen.Xproto: black_pixel_SCREEN :: SCREEN -> Word32
- Graphics.XHB.Gen.Xproto: blue_AllocColor :: AllocColor -> CARD16
+ Graphics.XHB.Gen.Xproto: blue_AllocColor :: AllocColor -> Word16
- Graphics.XHB.Gen.Xproto: blue_AllocColorReply :: AllocColorReply -> CARD16
+ Graphics.XHB.Gen.Xproto: blue_AllocColorReply :: AllocColorReply -> Word16
- Graphics.XHB.Gen.Xproto: blue_COLORITEM :: COLORITEM -> CARD16
+ Graphics.XHB.Gen.Xproto: blue_COLORITEM :: COLORITEM -> Word16
- Graphics.XHB.Gen.Xproto: blue_RGB :: RGB -> CARD16
+ Graphics.XHB.Gen.Xproto: blue_RGB :: RGB -> Word16
- Graphics.XHB.Gen.Xproto: blue_mask_AllocColorPlanesReply :: AllocColorPlanesReply -> CARD32
+ Graphics.XHB.Gen.Xproto: blue_mask_AllocColorPlanesReply :: AllocColorPlanesReply -> Word32
- Graphics.XHB.Gen.Xproto: blue_mask_VISUALTYPE :: VISUALTYPE -> CARD32
+ Graphics.XHB.Gen.Xproto: blue_mask_VISUALTYPE :: VISUALTYPE -> Word32
- Graphics.XHB.Gen.Xproto: blues_AllocColorPlanes :: AllocColorPlanes -> CARD16
+ Graphics.XHB.Gen.Xproto: blues_AllocColorPlanes :: AllocColorPlanes -> Word16
- Graphics.XHB.Gen.Xproto: border_width_ConfigureNotify :: ConfigureNotify -> CARD16
+ Graphics.XHB.Gen.Xproto: border_width_ConfigureNotify :: ConfigureNotify -> Word16
- Graphics.XHB.Gen.Xproto: border_width_ConfigureRequest :: ConfigureRequest -> CARD16
+ Graphics.XHB.Gen.Xproto: border_width_ConfigureRequest :: ConfigureRequest -> Word16
- Graphics.XHB.Gen.Xproto: border_width_CreateNotify :: CreateNotify -> CARD16
+ Graphics.XHB.Gen.Xproto: border_width_CreateNotify :: CreateNotify -> Word16
- Graphics.XHB.Gen.Xproto: border_width_CreateWindow :: CreateWindow -> CARD16
+ Graphics.XHB.Gen.Xproto: border_width_CreateWindow :: CreateWindow -> Word16
- Graphics.XHB.Gen.Xproto: border_width_GetGeometryReply :: GetGeometryReply -> CARD16
+ Graphics.XHB.Gen.Xproto: border_width_GetGeometryReply :: GetGeometryReply -> Word16
- Graphics.XHB.Gen.Xproto: button_GrabButton :: GrabButton -> CARD8
+ Graphics.XHB.Gen.Xproto: button_GrabButton :: GrabButton -> Word8
- Graphics.XHB.Gen.Xproto: button_UngrabButton :: UngrabButton -> CARD8
+ Graphics.XHB.Gen.Xproto: button_UngrabButton :: UngrabButton -> Word8
- Graphics.XHB.Gen.Xproto: byte1_CHAR2B :: CHAR2B -> CARD8
+ Graphics.XHB.Gen.Xproto: byte1_CHAR2B :: CHAR2B -> Word8
- Graphics.XHB.Gen.Xproto: byte2_CHAR2B :: CHAR2B -> CARD8
+ Graphics.XHB.Gen.Xproto: byte2_CHAR2B :: CHAR2B -> Word8
- Graphics.XHB.Gen.Xproto: byte_order_SetupRequest :: SetupRequest -> CARD8
+ Graphics.XHB.Gen.Xproto: byte_order_SetupRequest :: SetupRequest -> Word8
- Graphics.XHB.Gen.Xproto: bytes_after_GetPropertyReply :: GetPropertyReply -> CARD32
+ Graphics.XHB.Gen.Xproto: bytes_after_GetPropertyReply :: GetPropertyReply -> Word32
- Graphics.XHB.Gen.Xproto: changeGC :: Connection -> GCONTEXT -> ValueParam CARD32 -> IO ()
+ Graphics.XHB.Gen.Xproto: changeGC :: Connection -> GCONTEXT -> ValueParam Word32 -> IO ()
- Graphics.XHB.Gen.Xproto: changeKeyboardControl :: Connection -> ValueParam CARD32 -> IO ()
+ Graphics.XHB.Gen.Xproto: changeKeyboardControl :: Connection -> ValueParam Word32 -> IO ()
- Graphics.XHB.Gen.Xproto: changeSaveSet :: Connection -> BYTE -> WINDOW -> IO ()
+ Graphics.XHB.Gen.Xproto: changeSaveSet :: Connection -> Word8 -> WINDOW -> IO ()
- Graphics.XHB.Gen.Xproto: changeWindowAttributes :: Connection -> WINDOW -> ValueParam CARD32 -> IO ()
+ Graphics.XHB.Gen.Xproto: changeWindowAttributes :: Connection -> WINDOW -> ValueParam Word32 -> IO ()
- Graphics.XHB.Gen.Xproto: char_infos_len_QueryFontReply :: QueryFontReply -> CARD32
+ Graphics.XHB.Gen.Xproto: char_infos_len_QueryFontReply :: QueryFontReply -> Word32
- Graphics.XHB.Gen.Xproto: character_width_CHARINFO :: CHARINFO -> INT16
+ Graphics.XHB.Gen.Xproto: character_width_CHARINFO :: CHARINFO -> Int16
- Graphics.XHB.Gen.Xproto: children_len_QueryTreeReply :: QueryTreeReply -> CARD16
+ Graphics.XHB.Gen.Xproto: children_len_QueryTreeReply :: QueryTreeReply -> Word16
- Graphics.XHB.Gen.Xproto: circulateWindow :: Connection -> CARD8 -> WINDOW -> IO ()
+ Graphics.XHB.Gen.Xproto: circulateWindow :: Connection -> Word8 -> WINDOW -> IO ()
- Graphics.XHB.Gen.Xproto: class_CreateWindow :: CreateWindow -> CARD16
+ Graphics.XHB.Gen.Xproto: class_CreateWindow :: CreateWindow -> Word16
- Graphics.XHB.Gen.Xproto: class_GetWindowAttributesReply :: GetWindowAttributesReply -> CARD16
+ Graphics.XHB.Gen.Xproto: class_GetWindowAttributesReply :: GetWindowAttributesReply -> Word16
- Graphics.XHB.Gen.Xproto: class_QueryBestSize :: QueryBestSize -> CARD8
+ Graphics.XHB.Gen.Xproto: class_QueryBestSize :: QueryBestSize -> Word8
- Graphics.XHB.Gen.Xproto: class_VISUALTYPE :: VISUALTYPE -> CARD8
+ Graphics.XHB.Gen.Xproto: class_VISUALTYPE :: VISUALTYPE -> Word8
- Graphics.XHB.Gen.Xproto: clip_x_origin_SetClipRectangles :: SetClipRectangles -> INT16
+ Graphics.XHB.Gen.Xproto: clip_x_origin_SetClipRectangles :: SetClipRectangles -> Int16
- Graphics.XHB.Gen.Xproto: clip_y_origin_SetClipRectangles :: SetClipRectangles -> INT16
+ Graphics.XHB.Gen.Xproto: clip_y_origin_SetClipRectangles :: SetClipRectangles -> Int16
- Graphics.XHB.Gen.Xproto: cmaps_len_ListInstalledColormapsReply :: ListInstalledColormapsReply -> CARD16
+ Graphics.XHB.Gen.Xproto: cmaps_len_ListInstalledColormapsReply :: ListInstalledColormapsReply -> Word16
- Graphics.XHB.Gen.Xproto: colormap_entries_VISUALTYPE :: VISUALTYPE -> CARD16
+ Graphics.XHB.Gen.Xproto: colormap_entries_VISUALTYPE :: VISUALTYPE -> Word16
- Graphics.XHB.Gen.Xproto: colors_AllocColorCells :: AllocColorCells -> CARD16
+ Graphics.XHB.Gen.Xproto: colors_AllocColorCells :: AllocColorCells -> Word16
- Graphics.XHB.Gen.Xproto: colors_AllocColorPlanes :: AllocColorPlanes -> CARD16
+ Graphics.XHB.Gen.Xproto: colors_AllocColorPlanes :: AllocColorPlanes -> Word16
- Graphics.XHB.Gen.Xproto: colors_len_QueryColorsReply :: QueryColorsReply -> CARD16
+ Graphics.XHB.Gen.Xproto: colors_len_QueryColorsReply :: QueryColorsReply -> Word16
- Graphics.XHB.Gen.Xproto: configureWindow :: Connection -> WINDOW -> ValueParam CARD16 -> IO ()
+ Graphics.XHB.Gen.Xproto: configureWindow :: Connection -> WINDOW -> ValueParam Word16 -> IO ()
- Graphics.XHB.Gen.Xproto: contiguous_AllocColorCells :: AllocColorCells -> BOOL
+ Graphics.XHB.Gen.Xproto: contiguous_AllocColorCells :: AllocColorCells -> Bool
- Graphics.XHB.Gen.Xproto: contiguous_AllocColorPlanes :: AllocColorPlanes -> BOOL
+ Graphics.XHB.Gen.Xproto: contiguous_AllocColorPlanes :: AllocColorPlanes -> Bool
- Graphics.XHB.Gen.Xproto: coordinate_mode_FillPoly :: FillPoly -> CARD8
+ Graphics.XHB.Gen.Xproto: coordinate_mode_FillPoly :: FillPoly -> Word8
- Graphics.XHB.Gen.Xproto: coordinate_mode_PolyLine :: PolyLine -> BYTE
+ Graphics.XHB.Gen.Xproto: coordinate_mode_PolyLine :: PolyLine -> Word8
- Graphics.XHB.Gen.Xproto: coordinate_mode_PolyPoint :: PolyPoint -> BYTE
+ Graphics.XHB.Gen.Xproto: coordinate_mode_PolyPoint :: PolyPoint -> Word8
- Graphics.XHB.Gen.Xproto: count_Expose :: Expose -> CARD16
+ Graphics.XHB.Gen.Xproto: count_Expose :: Expose -> Word16
- Graphics.XHB.Gen.Xproto: count_GetKeyboardMapping :: GetKeyboardMapping -> CARD8
+ Graphics.XHB.Gen.Xproto: count_GetKeyboardMapping :: GetKeyboardMapping -> Word8
- Graphics.XHB.Gen.Xproto: count_GraphicsExposure :: GraphicsExposure -> CARD16
+ Graphics.XHB.Gen.Xproto: count_GraphicsExposure :: GraphicsExposure -> Word16
- Graphics.XHB.Gen.Xproto: count_MappingNotify :: MappingNotify -> CARD8
+ Graphics.XHB.Gen.Xproto: count_MappingNotify :: MappingNotify -> Word8
- Graphics.XHB.Gen.Xproto: current_input_masks_SCREEN :: SCREEN -> CARD32
+ Graphics.XHB.Gen.Xproto: current_input_masks_SCREEN :: SCREEN -> Word32
- Graphics.XHB.Gen.Xproto: dash_offset_SetDashes :: SetDashes -> CARD16
+ Graphics.XHB.Gen.Xproto: dash_offset_SetDashes :: SetDashes -> Word16
- Graphics.XHB.Gen.Xproto: dashes_SetDashes :: SetDashes -> [CARD8]
+ Graphics.XHB.Gen.Xproto: dashes_SetDashes :: SetDashes -> [Word8]
- Graphics.XHB.Gen.Xproto: dashes_len_SetDashes :: SetDashes -> CARD16
+ Graphics.XHB.Gen.Xproto: dashes_len_SetDashes :: SetDashes -> Word16
- Graphics.XHB.Gen.Xproto: data_GetImageReply :: GetImageReply -> [BYTE]
+ Graphics.XHB.Gen.Xproto: data_GetImageReply :: GetImageReply -> [Word8]
- Graphics.XHB.Gen.Xproto: data_PutImage :: PutImage -> [BYTE]
+ Graphics.XHB.Gen.Xproto: data_PutImage :: PutImage -> [Word8]
- Graphics.XHB.Gen.Xproto: data_len_ChangeProperty :: ChangeProperty -> CARD32
+ Graphics.XHB.Gen.Xproto: data_len_ChangeProperty :: ChangeProperty -> Word32
- Graphics.XHB.Gen.Xproto: default_char_ListFontsWithInfoReply :: ListFontsWithInfoReply -> CARD16
+ Graphics.XHB.Gen.Xproto: default_char_ListFontsWithInfoReply :: ListFontsWithInfoReply -> Word16
- Graphics.XHB.Gen.Xproto: default_char_QueryFontReply :: QueryFontReply -> CARD16
+ Graphics.XHB.Gen.Xproto: default_char_QueryFontReply :: QueryFontReply -> Word16
- Graphics.XHB.Gen.Xproto: delete_GetProperty :: GetProperty -> BOOL
+ Graphics.XHB.Gen.Xproto: delete_GetProperty :: GetProperty -> Bool
- Graphics.XHB.Gen.Xproto: delta_RotateProperties :: RotateProperties -> INT16
+ Graphics.XHB.Gen.Xproto: delta_RotateProperties :: RotateProperties -> Int16
- Graphics.XHB.Gen.Xproto: depth_CreatePixmap :: CreatePixmap -> CARD8
+ Graphics.XHB.Gen.Xproto: depth_CreatePixmap :: CreatePixmap -> Word8
- Graphics.XHB.Gen.Xproto: depth_CreateWindow :: CreateWindow -> CARD8
+ Graphics.XHB.Gen.Xproto: depth_CreateWindow :: CreateWindow -> Word8
- Graphics.XHB.Gen.Xproto: depth_DEPTH :: DEPTH -> CARD8
+ Graphics.XHB.Gen.Xproto: depth_DEPTH :: DEPTH -> Word8
- Graphics.XHB.Gen.Xproto: depth_FORMAT :: FORMAT -> CARD8
+ Graphics.XHB.Gen.Xproto: depth_FORMAT :: FORMAT -> Word8
- Graphics.XHB.Gen.Xproto: depth_GetGeometryReply :: GetGeometryReply -> CARD8
+ Graphics.XHB.Gen.Xproto: depth_GetGeometryReply :: GetGeometryReply -> Word8
- Graphics.XHB.Gen.Xproto: depth_GetImageReply :: GetImageReply -> CARD8
+ Graphics.XHB.Gen.Xproto: depth_GetImageReply :: GetImageReply -> Word8
- Graphics.XHB.Gen.Xproto: depth_PutImage :: PutImage -> CARD8
+ Graphics.XHB.Gen.Xproto: depth_PutImage :: PutImage -> Word8
- Graphics.XHB.Gen.Xproto: descent_CHARINFO :: CHARINFO -> INT16
+ Graphics.XHB.Gen.Xproto: descent_CHARINFO :: CHARINFO -> Int16
- Graphics.XHB.Gen.Xproto: detail_EnterNotify :: EnterNotify -> BYTE
+ Graphics.XHB.Gen.Xproto: detail_EnterNotify :: EnterNotify -> Word8
- Graphics.XHB.Gen.Xproto: detail_FocusIn :: FocusIn -> BYTE
+ Graphics.XHB.Gen.Xproto: detail_FocusIn :: FocusIn -> Word8
- Graphics.XHB.Gen.Xproto: detail_FocusOut :: FocusOut -> BYTE
+ Graphics.XHB.Gen.Xproto: detail_FocusOut :: FocusOut -> Word8
- Graphics.XHB.Gen.Xproto: detail_LeaveNotify :: LeaveNotify -> BYTE
+ Graphics.XHB.Gen.Xproto: detail_LeaveNotify :: LeaveNotify -> Word8
- Graphics.XHB.Gen.Xproto: detail_MotionNotify :: MotionNotify -> BYTE
+ Graphics.XHB.Gen.Xproto: detail_MotionNotify :: MotionNotify -> Word8
- Graphics.XHB.Gen.Xproto: direction_CirculateWindow :: CirculateWindow -> CARD8
+ Graphics.XHB.Gen.Xproto: direction_CirculateWindow :: CirculateWindow -> Word8
- Graphics.XHB.Gen.Xproto: do_acceleration_ChangePointerControl :: ChangePointerControl -> BOOL
+ Graphics.XHB.Gen.Xproto: do_acceleration_ChangePointerControl :: ChangePointerControl -> Bool
- Graphics.XHB.Gen.Xproto: do_not_propagate_mask_GetWindowAttributesReply :: GetWindowAttributesReply -> CARD16
+ Graphics.XHB.Gen.Xproto: do_not_propagate_mask_GetWindowAttributesReply :: GetWindowAttributesReply -> Word16
- Graphics.XHB.Gen.Xproto: do_threshold_ChangePointerControl :: ChangePointerControl -> BOOL
+ Graphics.XHB.Gen.Xproto: do_threshold_ChangePointerControl :: ChangePointerControl -> Bool
- Graphics.XHB.Gen.Xproto: draw_direction_ListFontsWithInfoReply :: ListFontsWithInfoReply -> BYTE
+ Graphics.XHB.Gen.Xproto: draw_direction_ListFontsWithInfoReply :: ListFontsWithInfoReply -> Word8
- Graphics.XHB.Gen.Xproto: draw_direction_QueryFontReply :: QueryFontReply -> BYTE
+ Graphics.XHB.Gen.Xproto: draw_direction_QueryFontReply :: QueryFontReply -> Word8
- Graphics.XHB.Gen.Xproto: draw_direction_QueryTextExtentsReply :: QueryTextExtentsReply -> BYTE
+ Graphics.XHB.Gen.Xproto: draw_direction_QueryTextExtentsReply :: QueryTextExtentsReply -> Word8
- Graphics.XHB.Gen.Xproto: dst_x_CopyArea :: CopyArea -> INT16
+ Graphics.XHB.Gen.Xproto: dst_x_CopyArea :: CopyArea -> Int16
- Graphics.XHB.Gen.Xproto: dst_x_CopyPlane :: CopyPlane -> INT16
+ Graphics.XHB.Gen.Xproto: dst_x_CopyPlane :: CopyPlane -> Int16
- Graphics.XHB.Gen.Xproto: dst_x_PutImage :: PutImage -> INT16
+ Graphics.XHB.Gen.Xproto: dst_x_PutImage :: PutImage -> Int16
- Graphics.XHB.Gen.Xproto: dst_x_TranslateCoordinatesReply :: TranslateCoordinatesReply -> CARD16
+ Graphics.XHB.Gen.Xproto: dst_x_TranslateCoordinatesReply :: TranslateCoordinatesReply -> Word16
- Graphics.XHB.Gen.Xproto: dst_x_WarpPointer :: WarpPointer -> INT16
+ Graphics.XHB.Gen.Xproto: dst_x_WarpPointer :: WarpPointer -> Int16
- Graphics.XHB.Gen.Xproto: dst_y_CopyArea :: CopyArea -> INT16
+ Graphics.XHB.Gen.Xproto: dst_y_CopyArea :: CopyArea -> Int16
- Graphics.XHB.Gen.Xproto: dst_y_CopyPlane :: CopyPlane -> INT16
+ Graphics.XHB.Gen.Xproto: dst_y_CopyPlane :: CopyPlane -> Int16
- Graphics.XHB.Gen.Xproto: dst_y_PutImage :: PutImage -> INT16
+ Graphics.XHB.Gen.Xproto: dst_y_PutImage :: PutImage -> Int16
- Graphics.XHB.Gen.Xproto: dst_y_TranslateCoordinatesReply :: TranslateCoordinatesReply -> CARD16
+ Graphics.XHB.Gen.Xproto: dst_y_TranslateCoordinatesReply :: TranslateCoordinatesReply -> Word16
- Graphics.XHB.Gen.Xproto: dst_y_WarpPointer :: WarpPointer -> INT16
+ Graphics.XHB.Gen.Xproto: dst_y_WarpPointer :: WarpPointer -> Int16
- Graphics.XHB.Gen.Xproto: event_mask_ChangeActivePointerGrab :: ChangeActivePointerGrab -> CARD16
+ Graphics.XHB.Gen.Xproto: event_mask_ChangeActivePointerGrab :: ChangeActivePointerGrab -> Word16
- Graphics.XHB.Gen.Xproto: event_mask_GrabButton :: GrabButton -> CARD16
+ Graphics.XHB.Gen.Xproto: event_mask_GrabButton :: GrabButton -> Word16
- Graphics.XHB.Gen.Xproto: event_mask_GrabPointer :: GrabPointer -> CARD16
+ Graphics.XHB.Gen.Xproto: event_mask_GrabPointer :: GrabPointer -> Word16
- Graphics.XHB.Gen.Xproto: event_mask_SendEvent :: SendEvent -> CARD32
+ Graphics.XHB.Gen.Xproto: event_mask_SendEvent :: SendEvent -> Word32
- Graphics.XHB.Gen.Xproto: event_x_ButtonPress :: ButtonPress -> INT16
+ Graphics.XHB.Gen.Xproto: event_x_ButtonPress :: ButtonPress -> Int16
- Graphics.XHB.Gen.Xproto: event_x_ButtonRelease :: ButtonRelease -> INT16
+ Graphics.XHB.Gen.Xproto: event_x_ButtonRelease :: ButtonRelease -> Int16
- Graphics.XHB.Gen.Xproto: event_x_EnterNotify :: EnterNotify -> INT16
+ Graphics.XHB.Gen.Xproto: event_x_EnterNotify :: EnterNotify -> Int16
- Graphics.XHB.Gen.Xproto: event_x_KeyPress :: KeyPress -> INT16
+ Graphics.XHB.Gen.Xproto: event_x_KeyPress :: KeyPress -> Int16
- Graphics.XHB.Gen.Xproto: event_x_KeyRelease :: KeyRelease -> INT16
+ Graphics.XHB.Gen.Xproto: event_x_KeyRelease :: KeyRelease -> Int16
- Graphics.XHB.Gen.Xproto: event_x_LeaveNotify :: LeaveNotify -> INT16
+ Graphics.XHB.Gen.Xproto: event_x_LeaveNotify :: LeaveNotify -> Int16
- Graphics.XHB.Gen.Xproto: event_x_MotionNotify :: MotionNotify -> INT16
+ Graphics.XHB.Gen.Xproto: event_x_MotionNotify :: MotionNotify -> Int16
- Graphics.XHB.Gen.Xproto: event_y_ButtonPress :: ButtonPress -> INT16
+ Graphics.XHB.Gen.Xproto: event_y_ButtonPress :: ButtonPress -> Int16
- Graphics.XHB.Gen.Xproto: event_y_ButtonRelease :: ButtonRelease -> INT16
+ Graphics.XHB.Gen.Xproto: event_y_ButtonRelease :: ButtonRelease -> Int16
- Graphics.XHB.Gen.Xproto: event_y_EnterNotify :: EnterNotify -> INT16
+ Graphics.XHB.Gen.Xproto: event_y_EnterNotify :: EnterNotify -> Int16
- Graphics.XHB.Gen.Xproto: event_y_KeyPress :: KeyPress -> INT16
+ Graphics.XHB.Gen.Xproto: event_y_KeyPress :: KeyPress -> Int16
- Graphics.XHB.Gen.Xproto: event_y_KeyRelease :: KeyRelease -> INT16
+ Graphics.XHB.Gen.Xproto: event_y_KeyRelease :: KeyRelease -> Int16
- Graphics.XHB.Gen.Xproto: event_y_LeaveNotify :: LeaveNotify -> INT16
+ Graphics.XHB.Gen.Xproto: event_y_LeaveNotify :: LeaveNotify -> Int16
- Graphics.XHB.Gen.Xproto: event_y_MotionNotify :: MotionNotify -> INT16
+ Graphics.XHB.Gen.Xproto: event_y_MotionNotify :: MotionNotify -> Int16
- Graphics.XHB.Gen.Xproto: events_len_GetMotionEventsReply :: GetMotionEventsReply -> CARD32
+ Graphics.XHB.Gen.Xproto: events_len_GetMotionEventsReply :: GetMotionEventsReply -> Word32
- Graphics.XHB.Gen.Xproto: exact_blue_AllocNamedColorReply :: AllocNamedColorReply -> CARD16
+ Graphics.XHB.Gen.Xproto: exact_blue_AllocNamedColorReply :: AllocNamedColorReply -> Word16
- Graphics.XHB.Gen.Xproto: exact_blue_LookupColorReply :: LookupColorReply -> CARD16
+ Graphics.XHB.Gen.Xproto: exact_blue_LookupColorReply :: LookupColorReply -> Word16
- Graphics.XHB.Gen.Xproto: exact_green_AllocNamedColorReply :: AllocNamedColorReply -> CARD16
+ Graphics.XHB.Gen.Xproto: exact_green_AllocNamedColorReply :: AllocNamedColorReply -> Word16
- Graphics.XHB.Gen.Xproto: exact_green_LookupColorReply :: LookupColorReply -> CARD16
+ Graphics.XHB.Gen.Xproto: exact_green_LookupColorReply :: LookupColorReply -> Word16
- Graphics.XHB.Gen.Xproto: exact_red_AllocNamedColorReply :: AllocNamedColorReply -> CARD16
+ Graphics.XHB.Gen.Xproto: exact_red_AllocNamedColorReply :: AllocNamedColorReply -> Word16
- Graphics.XHB.Gen.Xproto: exact_red_LookupColorReply :: LookupColorReply -> CARD16
+ Graphics.XHB.Gen.Xproto: exact_red_LookupColorReply :: LookupColorReply -> Word16
- Graphics.XHB.Gen.Xproto: exposures_ClearArea :: ClearArea -> BOOL
+ Graphics.XHB.Gen.Xproto: exposures_ClearArea :: ClearArea -> Bool
- Graphics.XHB.Gen.Xproto: family_ChangeHosts :: ChangeHosts -> CARD8
+ Graphics.XHB.Gen.Xproto: family_ChangeHosts :: ChangeHosts -> Word8
- Graphics.XHB.Gen.Xproto: family_HOST :: HOST -> CARD8
+ Graphics.XHB.Gen.Xproto: family_HOST :: HOST -> Word8
- Graphics.XHB.Gen.Xproto: first_error_QueryExtensionReply :: QueryExtensionReply -> CARD8
+ Graphics.XHB.Gen.Xproto: first_error_QueryExtensionReply :: QueryExtensionReply -> Word8
- Graphics.XHB.Gen.Xproto: first_event_QueryExtensionReply :: QueryExtensionReply -> CARD8
+ Graphics.XHB.Gen.Xproto: first_event_QueryExtensionReply :: QueryExtensionReply -> Word8
- Graphics.XHB.Gen.Xproto: flags_COLORITEM :: COLORITEM -> BYTE
+ Graphics.XHB.Gen.Xproto: flags_COLORITEM :: COLORITEM -> Word8
- Graphics.XHB.Gen.Xproto: flags_StoreNamedColor :: StoreNamedColor -> CARD8
+ Graphics.XHB.Gen.Xproto: flags_StoreNamedColor :: StoreNamedColor -> Word8
- Graphics.XHB.Gen.Xproto: font_ascent_ListFontsWithInfoReply :: ListFontsWithInfoReply -> INT16
+ Graphics.XHB.Gen.Xproto: font_ascent_ListFontsWithInfoReply :: ListFontsWithInfoReply -> Int16
- Graphics.XHB.Gen.Xproto: font_ascent_QueryFontReply :: QueryFontReply -> INT16
+ Graphics.XHB.Gen.Xproto: font_ascent_QueryFontReply :: QueryFontReply -> Int16
- Graphics.XHB.Gen.Xproto: font_ascent_QueryTextExtentsReply :: QueryTextExtentsReply -> INT16
+ Graphics.XHB.Gen.Xproto: font_ascent_QueryTextExtentsReply :: QueryTextExtentsReply -> Int16
- Graphics.XHB.Gen.Xproto: font_descent_ListFontsWithInfoReply :: ListFontsWithInfoReply -> INT16
+ Graphics.XHB.Gen.Xproto: font_descent_ListFontsWithInfoReply :: ListFontsWithInfoReply -> Int16
- Graphics.XHB.Gen.Xproto: font_descent_QueryFontReply :: QueryFontReply -> INT16
+ Graphics.XHB.Gen.Xproto: font_descent_QueryFontReply :: QueryFontReply -> Int16
- Graphics.XHB.Gen.Xproto: font_descent_QueryTextExtentsReply :: QueryTextExtentsReply -> INT16
+ Graphics.XHB.Gen.Xproto: font_descent_QueryTextExtentsReply :: QueryTextExtentsReply -> Int16
- Graphics.XHB.Gen.Xproto: font_qty_SetFontPath :: SetFontPath -> CARD16
+ Graphics.XHB.Gen.Xproto: font_qty_SetFontPath :: SetFontPath -> Word16
- Graphics.XHB.Gen.Xproto: forceScreenSaver :: Connection -> CARD8 -> IO ()
+ Graphics.XHB.Gen.Xproto: forceScreenSaver :: Connection -> Word8 -> IO ()
- Graphics.XHB.Gen.Xproto: fore_blue_CreateCursor :: CreateCursor -> CARD16
+ Graphics.XHB.Gen.Xproto: fore_blue_CreateCursor :: CreateCursor -> Word16
- Graphics.XHB.Gen.Xproto: fore_blue_CreateGlyphCursor :: CreateGlyphCursor -> CARD16
+ Graphics.XHB.Gen.Xproto: fore_blue_CreateGlyphCursor :: CreateGlyphCursor -> Word16
- Graphics.XHB.Gen.Xproto: fore_blue_RecolorCursor :: RecolorCursor -> CARD16
+ Graphics.XHB.Gen.Xproto: fore_blue_RecolorCursor :: RecolorCursor -> Word16
- Graphics.XHB.Gen.Xproto: fore_green_CreateCursor :: CreateCursor -> CARD16
+ Graphics.XHB.Gen.Xproto: fore_green_CreateCursor :: CreateCursor -> Word16
- Graphics.XHB.Gen.Xproto: fore_green_CreateGlyphCursor :: CreateGlyphCursor -> CARD16
+ Graphics.XHB.Gen.Xproto: fore_green_CreateGlyphCursor :: CreateGlyphCursor -> Word16
- Graphics.XHB.Gen.Xproto: fore_green_RecolorCursor :: RecolorCursor -> CARD16
+ Graphics.XHB.Gen.Xproto: fore_green_RecolorCursor :: RecolorCursor -> Word16
- Graphics.XHB.Gen.Xproto: fore_red_CreateCursor :: CreateCursor -> CARD16
+ Graphics.XHB.Gen.Xproto: fore_red_CreateCursor :: CreateCursor -> Word16
- Graphics.XHB.Gen.Xproto: fore_red_CreateGlyphCursor :: CreateGlyphCursor -> CARD16
+ Graphics.XHB.Gen.Xproto: fore_red_CreateGlyphCursor :: CreateGlyphCursor -> Word16
- Graphics.XHB.Gen.Xproto: fore_red_RecolorCursor :: RecolorCursor -> CARD16
+ Graphics.XHB.Gen.Xproto: fore_red_RecolorCursor :: RecolorCursor -> Word16
- Graphics.XHB.Gen.Xproto: format_ChangeProperty :: ChangeProperty -> CARD8
+ Graphics.XHB.Gen.Xproto: format_ChangeProperty :: ChangeProperty -> Word8
- Graphics.XHB.Gen.Xproto: format_ClientMessage :: ClientMessage -> CARD8
+ Graphics.XHB.Gen.Xproto: format_ClientMessage :: ClientMessage -> Word8
- Graphics.XHB.Gen.Xproto: format_GetImage :: GetImage -> CARD8
+ Graphics.XHB.Gen.Xproto: format_GetImage :: GetImage -> Word8
- Graphics.XHB.Gen.Xproto: format_GetPropertyReply :: GetPropertyReply -> CARD8
+ Graphics.XHB.Gen.Xproto: format_GetPropertyReply :: GetPropertyReply -> Word8
- Graphics.XHB.Gen.Xproto: format_PutImage :: PutImage -> CARD8
+ Graphics.XHB.Gen.Xproto: format_PutImage :: PutImage -> Word8
- Graphics.XHB.Gen.Xproto: from_configure_UnmapNotify :: UnmapNotify -> BOOL
+ Graphics.XHB.Gen.Xproto: from_configure_UnmapNotify :: UnmapNotify -> Bool
- Graphics.XHB.Gen.Xproto: getKeyboardMapping :: Connection -> KEYCODE -> CARD8 -> IO (Receipt GetKeyboardMappingReply)
+ Graphics.XHB.Gen.Xproto: getKeyboardMapping :: Connection -> KEYCODE -> Word8 -> IO (Receipt GetKeyboardMappingReply)
- Graphics.XHB.Gen.Xproto: getSelectionOwner :: Connection -> ATOM -> IO (Receipt GetSelectionOwnerReply)
+ Graphics.XHB.Gen.Xproto: getSelectionOwner :: Connection -> ATOM -> IO (Receipt WINDOW)
- Graphics.XHB.Gen.Xproto: global_auto_repeat_GetKeyboardControlReply :: GetKeyboardControlReply -> BYTE
+ Graphics.XHB.Gen.Xproto: global_auto_repeat_GetKeyboardControlReply :: GetKeyboardControlReply -> Word8
- Graphics.XHB.Gen.Xproto: grabKeyboard :: Connection -> GrabKeyboard -> IO (Receipt GrabKeyboardReply)
+ Graphics.XHB.Gen.Xproto: grabKeyboard :: Connection -> GrabKeyboard -> IO (Receipt Word8)
- Graphics.XHB.Gen.Xproto: grabPointer :: Connection -> GrabPointer -> IO (Receipt GrabPointerReply)
+ Graphics.XHB.Gen.Xproto: grabPointer :: Connection -> GrabPointer -> IO (Receipt Word8)
- Graphics.XHB.Gen.Xproto: green_AllocColor :: AllocColor -> CARD16
+ Graphics.XHB.Gen.Xproto: green_AllocColor :: AllocColor -> Word16
- Graphics.XHB.Gen.Xproto: green_AllocColorReply :: AllocColorReply -> CARD16
+ Graphics.XHB.Gen.Xproto: green_AllocColorReply :: AllocColorReply -> Word16
- Graphics.XHB.Gen.Xproto: green_COLORITEM :: COLORITEM -> CARD16
+ Graphics.XHB.Gen.Xproto: green_COLORITEM :: COLORITEM -> Word16
- Graphics.XHB.Gen.Xproto: green_RGB :: RGB -> CARD16
+ Graphics.XHB.Gen.Xproto: green_RGB :: RGB -> Word16
- Graphics.XHB.Gen.Xproto: green_mask_AllocColorPlanesReply :: AllocColorPlanesReply -> CARD32
+ Graphics.XHB.Gen.Xproto: green_mask_AllocColorPlanesReply :: AllocColorPlanesReply -> Word32
- Graphics.XHB.Gen.Xproto: green_mask_VISUALTYPE :: VISUALTYPE -> CARD32
+ Graphics.XHB.Gen.Xproto: green_mask_VISUALTYPE :: VISUALTYPE -> Word32
- Graphics.XHB.Gen.Xproto: greens_AllocColorPlanes :: AllocColorPlanes -> CARD16
+ Graphics.XHB.Gen.Xproto: greens_AllocColorPlanes :: AllocColorPlanes -> Word16
- Graphics.XHB.Gen.Xproto: height_ARC :: ARC -> CARD16
+ Graphics.XHB.Gen.Xproto: height_ARC :: ARC -> Word16
- Graphics.XHB.Gen.Xproto: height_ClearArea :: ClearArea -> CARD16
+ Graphics.XHB.Gen.Xproto: height_ClearArea :: ClearArea -> Word16
- Graphics.XHB.Gen.Xproto: height_ConfigureNotify :: ConfigureNotify -> CARD16
+ Graphics.XHB.Gen.Xproto: height_ConfigureNotify :: ConfigureNotify -> Word16
- Graphics.XHB.Gen.Xproto: height_ConfigureRequest :: ConfigureRequest -> CARD16
+ Graphics.XHB.Gen.Xproto: height_ConfigureRequest :: ConfigureRequest -> Word16
- Graphics.XHB.Gen.Xproto: height_CopyArea :: CopyArea -> CARD16
+ Graphics.XHB.Gen.Xproto: height_CopyArea :: CopyArea -> Word16
- Graphics.XHB.Gen.Xproto: height_CopyPlane :: CopyPlane -> CARD16
+ Graphics.XHB.Gen.Xproto: height_CopyPlane :: CopyPlane -> Word16
- Graphics.XHB.Gen.Xproto: height_CreateNotify :: CreateNotify -> CARD16
+ Graphics.XHB.Gen.Xproto: height_CreateNotify :: CreateNotify -> Word16
- Graphics.XHB.Gen.Xproto: height_CreatePixmap :: CreatePixmap -> CARD16
+ Graphics.XHB.Gen.Xproto: height_CreatePixmap :: CreatePixmap -> Word16
- Graphics.XHB.Gen.Xproto: height_CreateWindow :: CreateWindow -> CARD16
+ Graphics.XHB.Gen.Xproto: height_CreateWindow :: CreateWindow -> Word16
- Graphics.XHB.Gen.Xproto: height_Expose :: Expose -> CARD16
+ Graphics.XHB.Gen.Xproto: height_Expose :: Expose -> Word16
- Graphics.XHB.Gen.Xproto: height_GetGeometryReply :: GetGeometryReply -> CARD16
+ Graphics.XHB.Gen.Xproto: height_GetGeometryReply :: GetGeometryReply -> Word16
- Graphics.XHB.Gen.Xproto: height_GetImage :: GetImage -> CARD16
+ Graphics.XHB.Gen.Xproto: height_GetImage :: GetImage -> Word16
- Graphics.XHB.Gen.Xproto: height_GraphicsExposure :: GraphicsExposure -> CARD16
+ Graphics.XHB.Gen.Xproto: height_GraphicsExposure :: GraphicsExposure -> Word16
- Graphics.XHB.Gen.Xproto: height_PutImage :: PutImage -> CARD16
+ Graphics.XHB.Gen.Xproto: height_PutImage :: PutImage -> Word16
- Graphics.XHB.Gen.Xproto: height_QueryBestSize :: QueryBestSize -> CARD16
+ Graphics.XHB.Gen.Xproto: height_QueryBestSize :: QueryBestSize -> Word16
- Graphics.XHB.Gen.Xproto: height_QueryBestSizeReply :: QueryBestSizeReply -> CARD16
+ Graphics.XHB.Gen.Xproto: height_QueryBestSizeReply :: QueryBestSizeReply -> Word16
- Graphics.XHB.Gen.Xproto: height_RECTANGLE :: RECTANGLE -> CARD16
+ Graphics.XHB.Gen.Xproto: height_RECTANGLE :: RECTANGLE -> Word16
- Graphics.XHB.Gen.Xproto: height_ResizeRequest :: ResizeRequest -> CARD16
+ Graphics.XHB.Gen.Xproto: height_ResizeRequest :: ResizeRequest -> Word16
- Graphics.XHB.Gen.Xproto: height_in_millimeters_SCREEN :: SCREEN -> CARD16
+ Graphics.XHB.Gen.Xproto: height_in_millimeters_SCREEN :: SCREEN -> Word16
- Graphics.XHB.Gen.Xproto: height_in_pixels_SCREEN :: SCREEN -> CARD16
+ Graphics.XHB.Gen.Xproto: height_in_pixels_SCREEN :: SCREEN -> Word16
- Graphics.XHB.Gen.Xproto: hosts_len_ListHostsReply :: ListHostsReply -> CARD16
+ Graphics.XHB.Gen.Xproto: hosts_len_ListHostsReply :: ListHostsReply -> Word16
- Graphics.XHB.Gen.Xproto: image_byte_order_Setup :: Setup -> CARD8
+ Graphics.XHB.Gen.Xproto: image_byte_order_Setup :: Setup -> Word8
- Graphics.XHB.Gen.Xproto: internAtom :: Connection -> InternAtom -> IO (Receipt InternAtomReply)
+ Graphics.XHB.Gen.Xproto: internAtom :: Connection -> InternAtom -> IO (Receipt ATOM)
- Graphics.XHB.Gen.Xproto: interval_GetScreenSaverReply :: GetScreenSaverReply -> CARD16
+ Graphics.XHB.Gen.Xproto: interval_GetScreenSaverReply :: GetScreenSaverReply -> Word16
- Graphics.XHB.Gen.Xproto: interval_SetScreenSaver :: SetScreenSaver -> INT16
+ Graphics.XHB.Gen.Xproto: interval_SetScreenSaver :: SetScreenSaver -> Int16
- Graphics.XHB.Gen.Xproto: items_PolyText16 :: PolyText16 -> [BYTE]
+ Graphics.XHB.Gen.Xproto: items_PolyText16 :: PolyText16 -> [Word8]
- Graphics.XHB.Gen.Xproto: items_PolyText8 :: PolyText8 -> [BYTE]
+ Graphics.XHB.Gen.Xproto: items_PolyText8 :: PolyText8 -> [Word8]
- Graphics.XHB.Gen.Xproto: key_click_percent_GetKeyboardControlReply :: GetKeyboardControlReply -> CARD8
+ Graphics.XHB.Gen.Xproto: key_click_percent_GetKeyboardControlReply :: GetKeyboardControlReply -> Word8
- Graphics.XHB.Gen.Xproto: keyboard_mode_GrabButton :: GrabButton -> CARD8
+ Graphics.XHB.Gen.Xproto: keyboard_mode_GrabButton :: GrabButton -> Word8
- Graphics.XHB.Gen.Xproto: keyboard_mode_GrabKey :: GrabKey -> CARD8
+ Graphics.XHB.Gen.Xproto: keyboard_mode_GrabKey :: GrabKey -> Word8
- Graphics.XHB.Gen.Xproto: keyboard_mode_GrabKeyboard :: GrabKeyboard -> BYTE
+ Graphics.XHB.Gen.Xproto: keyboard_mode_GrabKeyboard :: GrabKeyboard -> Word8
- Graphics.XHB.Gen.Xproto: keyboard_mode_GrabPointer :: GrabPointer -> BYTE
+ Graphics.XHB.Gen.Xproto: keyboard_mode_GrabPointer :: GrabPointer -> Word8
- Graphics.XHB.Gen.Xproto: keycode_count_ChangeKeyboardMapping :: ChangeKeyboardMapping -> CARD8
+ Graphics.XHB.Gen.Xproto: keycode_count_ChangeKeyboardMapping :: ChangeKeyboardMapping -> Word8
- Graphics.XHB.Gen.Xproto: keycodes_per_modifier_GetModifierMappingReply :: GetModifierMappingReply -> CARD8
+ Graphics.XHB.Gen.Xproto: keycodes_per_modifier_GetModifierMappingReply :: GetModifierMappingReply -> Word8
- Graphics.XHB.Gen.Xproto: keycodes_per_modifier_SetModifierMapping :: SetModifierMapping -> CARD8
+ Graphics.XHB.Gen.Xproto: keycodes_per_modifier_SetModifierMapping :: SetModifierMapping -> Word8
- Graphics.XHB.Gen.Xproto: keys_KeymapNotify :: KeymapNotify -> [CARD8]
+ Graphics.XHB.Gen.Xproto: keys_KeymapNotify :: KeymapNotify -> [Word8]
- Graphics.XHB.Gen.Xproto: keys_QueryKeymapReply :: QueryKeymapReply -> [CARD8]
+ Graphics.XHB.Gen.Xproto: keys_QueryKeymapReply :: QueryKeymapReply -> [Word8]
- Graphics.XHB.Gen.Xproto: keysyms_per_keycode_ChangeKeyboardMapping :: ChangeKeyboardMapping -> CARD8
+ Graphics.XHB.Gen.Xproto: keysyms_per_keycode_ChangeKeyboardMapping :: ChangeKeyboardMapping -> Word8
- Graphics.XHB.Gen.Xproto: keysyms_per_keycode_GetKeyboardMappingReply :: GetKeyboardMappingReply -> BYTE
+ Graphics.XHB.Gen.Xproto: keysyms_per_keycode_GetKeyboardMappingReply :: GetKeyboardMappingReply -> Word8
- Graphics.XHB.Gen.Xproto: killClient :: Connection -> CARD32 -> IO ()
+ Graphics.XHB.Gen.Xproto: killClient :: Connection -> Word32 -> IO ()
- Graphics.XHB.Gen.Xproto: led_mask_GetKeyboardControlReply :: GetKeyboardControlReply -> CARD32
+ Graphics.XHB.Gen.Xproto: led_mask_GetKeyboardControlReply :: GetKeyboardControlReply -> Word32
- Graphics.XHB.Gen.Xproto: left_pad_PutImage :: PutImage -> CARD8
+ Graphics.XHB.Gen.Xproto: left_pad_PutImage :: PutImage -> Word8
- Graphics.XHB.Gen.Xproto: left_side_bearing_CHARINFO :: CHARINFO -> INT16
+ Graphics.XHB.Gen.Xproto: left_side_bearing_CHARINFO :: CHARINFO -> Int16
- Graphics.XHB.Gen.Xproto: length_Setup :: Setup -> CARD16
+ Graphics.XHB.Gen.Xproto: length_Setup :: Setup -> Word16
- Graphics.XHB.Gen.Xproto: length_SetupAuthenticate :: SetupAuthenticate -> CARD16
+ Graphics.XHB.Gen.Xproto: length_SetupAuthenticate :: SetupAuthenticate -> Word16
- Graphics.XHB.Gen.Xproto: length_SetupFailed :: SetupFailed -> CARD16
+ Graphics.XHB.Gen.Xproto: length_SetupFailed :: SetupFailed -> Word16
- Graphics.XHB.Gen.Xproto: long_length_GetProperty :: GetProperty -> CARD32
+ Graphics.XHB.Gen.Xproto: long_length_GetProperty :: GetProperty -> Word32
- Graphics.XHB.Gen.Xproto: long_offset_GetProperty :: GetProperty -> CARD32
+ Graphics.XHB.Gen.Xproto: long_offset_GetProperty :: GetProperty -> Word32
- Graphics.XHB.Gen.Xproto: major_opcode_Access :: Access -> CARD8
+ Graphics.XHB.Gen.Xproto: major_opcode_Access :: Access -> Word8
- Graphics.XHB.Gen.Xproto: major_opcode_Alloc :: Alloc -> CARD8
+ Graphics.XHB.Gen.Xproto: major_opcode_Alloc :: Alloc -> Word8
- Graphics.XHB.Gen.Xproto: major_opcode_Atom :: Atom -> CARD8
+ Graphics.XHB.Gen.Xproto: major_opcode_Atom :: Atom -> Word8
- Graphics.XHB.Gen.Xproto: major_opcode_Colormap :: Colormap -> CARD8
+ Graphics.XHB.Gen.Xproto: major_opcode_Colormap :: Colormap -> Word8
- Graphics.XHB.Gen.Xproto: major_opcode_Cursor :: Cursor -> CARD8
+ Graphics.XHB.Gen.Xproto: major_opcode_Cursor :: Cursor -> Word8
- Graphics.XHB.Gen.Xproto: major_opcode_Drawable :: Drawable -> CARD8
+ Graphics.XHB.Gen.Xproto: major_opcode_Drawable :: Drawable -> Word8
- Graphics.XHB.Gen.Xproto: major_opcode_Font :: Font -> CARD8
+ Graphics.XHB.Gen.Xproto: major_opcode_Font :: Font -> Word8
- Graphics.XHB.Gen.Xproto: major_opcode_GContext :: GContext -> CARD8
+ Graphics.XHB.Gen.Xproto: major_opcode_GContext :: GContext -> Word8
- Graphics.XHB.Gen.Xproto: major_opcode_GraphicsExposure :: GraphicsExposure -> CARD8
+ Graphics.XHB.Gen.Xproto: major_opcode_GraphicsExposure :: GraphicsExposure -> Word8
- Graphics.XHB.Gen.Xproto: major_opcode_IDChoice :: IDChoice -> CARD8
+ Graphics.XHB.Gen.Xproto: major_opcode_IDChoice :: IDChoice -> Word8
- Graphics.XHB.Gen.Xproto: major_opcode_Implementation :: Implementation -> CARD8
+ Graphics.XHB.Gen.Xproto: major_opcode_Implementation :: Implementation -> Word8
- Graphics.XHB.Gen.Xproto: major_opcode_Length :: Length -> CARD8
+ Graphics.XHB.Gen.Xproto: major_opcode_Length :: Length -> Word8
- Graphics.XHB.Gen.Xproto: major_opcode_Match :: Match -> CARD8
+ Graphics.XHB.Gen.Xproto: major_opcode_Match :: Match -> Word8
- Graphics.XHB.Gen.Xproto: major_opcode_Name :: Name -> CARD8
+ Graphics.XHB.Gen.Xproto: major_opcode_Name :: Name -> Word8
- Graphics.XHB.Gen.Xproto: major_opcode_NoExposure :: NoExposure -> CARD8
+ Graphics.XHB.Gen.Xproto: major_opcode_NoExposure :: NoExposure -> Word8
- Graphics.XHB.Gen.Xproto: major_opcode_Pixmap :: Pixmap -> CARD8
+ Graphics.XHB.Gen.Xproto: major_opcode_Pixmap :: Pixmap -> Word8
- Graphics.XHB.Gen.Xproto: major_opcode_QueryExtensionReply :: QueryExtensionReply -> CARD8
+ Graphics.XHB.Gen.Xproto: major_opcode_QueryExtensionReply :: QueryExtensionReply -> Word8
- Graphics.XHB.Gen.Xproto: major_opcode_Request :: Request -> CARD8
+ Graphics.XHB.Gen.Xproto: major_opcode_Request :: Request -> Word8
- Graphics.XHB.Gen.Xproto: major_opcode_Value :: Value -> CARD8
+ Graphics.XHB.Gen.Xproto: major_opcode_Value :: Value -> Word8
- Graphics.XHB.Gen.Xproto: major_opcode_Window :: Window -> CARD8
+ Graphics.XHB.Gen.Xproto: major_opcode_Window :: Window -> Word8
- Graphics.XHB.Gen.Xproto: map_GetPointerMappingReply :: GetPointerMappingReply -> [CARD8]
+ Graphics.XHB.Gen.Xproto: map_GetPointerMappingReply :: GetPointerMappingReply -> [Word8]
- Graphics.XHB.Gen.Xproto: map_SetPointerMapping :: SetPointerMapping -> [CARD8]
+ Graphics.XHB.Gen.Xproto: map_SetPointerMapping :: SetPointerMapping -> [Word8]
- Graphics.XHB.Gen.Xproto: map_is_installed_GetWindowAttributesReply :: GetWindowAttributesReply -> BOOL
+ Graphics.XHB.Gen.Xproto: map_is_installed_GetWindowAttributesReply :: GetWindowAttributesReply -> Bool
- Graphics.XHB.Gen.Xproto: map_len_GetPointerMappingReply :: GetPointerMappingReply -> CARD8
+ Graphics.XHB.Gen.Xproto: map_len_GetPointerMappingReply :: GetPointerMappingReply -> Word8
- Graphics.XHB.Gen.Xproto: map_len_SetPointerMapping :: SetPointerMapping -> CARD8
+ Graphics.XHB.Gen.Xproto: map_len_SetPointerMapping :: SetPointerMapping -> Word8
- Graphics.XHB.Gen.Xproto: map_state_GetWindowAttributesReply :: GetWindowAttributesReply -> CARD8
+ Graphics.XHB.Gen.Xproto: map_state_GetWindowAttributesReply :: GetWindowAttributesReply -> Word8
- Graphics.XHB.Gen.Xproto: mask_QueryPointerReply :: QueryPointerReply -> CARD16
+ Graphics.XHB.Gen.Xproto: mask_QueryPointerReply :: QueryPointerReply -> Word16
- Graphics.XHB.Gen.Xproto: mask_char_CreateGlyphCursor :: CreateGlyphCursor -> CARD16
+ Graphics.XHB.Gen.Xproto: mask_char_CreateGlyphCursor :: CreateGlyphCursor -> Word16
- Graphics.XHB.Gen.Xproto: masks_AllocColorCellsReply :: AllocColorCellsReply -> [CARD32]
+ Graphics.XHB.Gen.Xproto: masks_AllocColorCellsReply :: AllocColorCellsReply -> [Word32]
- Graphics.XHB.Gen.Xproto: masks_len_AllocColorCellsReply :: AllocColorCellsReply -> CARD16
+ Graphics.XHB.Gen.Xproto: masks_len_AllocColorCellsReply :: AllocColorCellsReply -> Word16
- Graphics.XHB.Gen.Xproto: max_byte1_ListFontsWithInfoReply :: ListFontsWithInfoReply -> CARD8
+ Graphics.XHB.Gen.Xproto: max_byte1_ListFontsWithInfoReply :: ListFontsWithInfoReply -> Word8
- Graphics.XHB.Gen.Xproto: max_byte1_QueryFontReply :: QueryFontReply -> CARD8
+ Graphics.XHB.Gen.Xproto: max_byte1_QueryFontReply :: QueryFontReply -> Word8
- Graphics.XHB.Gen.Xproto: max_char_or_byte2_ListFontsWithInfoReply :: ListFontsWithInfoReply -> CARD16
+ Graphics.XHB.Gen.Xproto: max_char_or_byte2_ListFontsWithInfoReply :: ListFontsWithInfoReply -> Word16
- Graphics.XHB.Gen.Xproto: max_char_or_byte2_QueryFontReply :: QueryFontReply -> CARD16
+ Graphics.XHB.Gen.Xproto: max_char_or_byte2_QueryFontReply :: QueryFontReply -> Word16
- Graphics.XHB.Gen.Xproto: max_installed_maps_SCREEN :: SCREEN -> CARD16
+ Graphics.XHB.Gen.Xproto: max_installed_maps_SCREEN :: SCREEN -> Word16
- Graphics.XHB.Gen.Xproto: max_names_ListFonts :: ListFonts -> CARD16
+ Graphics.XHB.Gen.Xproto: max_names_ListFonts :: ListFonts -> Word16
- Graphics.XHB.Gen.Xproto: max_names_ListFontsWithInfo :: ListFontsWithInfo -> CARD16
+ Graphics.XHB.Gen.Xproto: max_names_ListFontsWithInfo :: ListFontsWithInfo -> Word16
- Graphics.XHB.Gen.Xproto: maximum_request_length_Setup :: Setup -> CARD16
+ Graphics.XHB.Gen.Xproto: maximum_request_length_Setup :: Setup -> Word16
- Graphics.XHB.Gen.Xproto: min_byte1_ListFontsWithInfoReply :: ListFontsWithInfoReply -> CARD8
+ Graphics.XHB.Gen.Xproto: min_byte1_ListFontsWithInfoReply :: ListFontsWithInfoReply -> Word8
- Graphics.XHB.Gen.Xproto: min_byte1_QueryFontReply :: QueryFontReply -> CARD8
+ Graphics.XHB.Gen.Xproto: min_byte1_QueryFontReply :: QueryFontReply -> Word8
- Graphics.XHB.Gen.Xproto: min_char_or_byte2_ListFontsWithInfoReply :: ListFontsWithInfoReply -> CARD16
+ Graphics.XHB.Gen.Xproto: min_char_or_byte2_ListFontsWithInfoReply :: ListFontsWithInfoReply -> Word16
- Graphics.XHB.Gen.Xproto: min_char_or_byte2_QueryFontReply :: QueryFontReply -> CARD16
+ Graphics.XHB.Gen.Xproto: min_char_or_byte2_QueryFontReply :: QueryFontReply -> Word16
- Graphics.XHB.Gen.Xproto: min_installed_maps_SCREEN :: SCREEN -> CARD16
+ Graphics.XHB.Gen.Xproto: min_installed_maps_SCREEN :: SCREEN -> Word16
- Graphics.XHB.Gen.Xproto: minor_opcode_Access :: Access -> CARD16
+ Graphics.XHB.Gen.Xproto: minor_opcode_Access :: Access -> Word16
- Graphics.XHB.Gen.Xproto: minor_opcode_Alloc :: Alloc -> CARD16
+ Graphics.XHB.Gen.Xproto: minor_opcode_Alloc :: Alloc -> Word16
- Graphics.XHB.Gen.Xproto: minor_opcode_Atom :: Atom -> CARD16
+ Graphics.XHB.Gen.Xproto: minor_opcode_Atom :: Atom -> Word16
- Graphics.XHB.Gen.Xproto: minor_opcode_Colormap :: Colormap -> CARD16
+ Graphics.XHB.Gen.Xproto: minor_opcode_Colormap :: Colormap -> Word16
- Graphics.XHB.Gen.Xproto: minor_opcode_Cursor :: Cursor -> CARD16
+ Graphics.XHB.Gen.Xproto: minor_opcode_Cursor :: Cursor -> Word16
- Graphics.XHB.Gen.Xproto: minor_opcode_Drawable :: Drawable -> CARD16
+ Graphics.XHB.Gen.Xproto: minor_opcode_Drawable :: Drawable -> Word16
- Graphics.XHB.Gen.Xproto: minor_opcode_Font :: Font -> CARD16
+ Graphics.XHB.Gen.Xproto: minor_opcode_Font :: Font -> Word16
- Graphics.XHB.Gen.Xproto: minor_opcode_GContext :: GContext -> CARD16
+ Graphics.XHB.Gen.Xproto: minor_opcode_GContext :: GContext -> Word16
- Graphics.XHB.Gen.Xproto: minor_opcode_GraphicsExposure :: GraphicsExposure -> CARD16
+ Graphics.XHB.Gen.Xproto: minor_opcode_GraphicsExposure :: GraphicsExposure -> Word16
- Graphics.XHB.Gen.Xproto: minor_opcode_IDChoice :: IDChoice -> CARD16
+ Graphics.XHB.Gen.Xproto: minor_opcode_IDChoice :: IDChoice -> Word16
- Graphics.XHB.Gen.Xproto: minor_opcode_Implementation :: Implementation -> CARD16
+ Graphics.XHB.Gen.Xproto: minor_opcode_Implementation :: Implementation -> Word16
- Graphics.XHB.Gen.Xproto: minor_opcode_Length :: Length -> CARD16
+ Graphics.XHB.Gen.Xproto: minor_opcode_Length :: Length -> Word16
- Graphics.XHB.Gen.Xproto: minor_opcode_Match :: Match -> CARD16
+ Graphics.XHB.Gen.Xproto: minor_opcode_Match :: Match -> Word16
- Graphics.XHB.Gen.Xproto: minor_opcode_Name :: Name -> CARD16
+ Graphics.XHB.Gen.Xproto: minor_opcode_Name :: Name -> Word16
- Graphics.XHB.Gen.Xproto: minor_opcode_NoExposure :: NoExposure -> CARD16
+ Graphics.XHB.Gen.Xproto: minor_opcode_NoExposure :: NoExposure -> Word16
- Graphics.XHB.Gen.Xproto: minor_opcode_Pixmap :: Pixmap -> CARD16
+ Graphics.XHB.Gen.Xproto: minor_opcode_Pixmap :: Pixmap -> Word16
- Graphics.XHB.Gen.Xproto: minor_opcode_Request :: Request -> CARD16
+ Graphics.XHB.Gen.Xproto: minor_opcode_Request :: Request -> Word16
- Graphics.XHB.Gen.Xproto: minor_opcode_Value :: Value -> CARD16
+ Graphics.XHB.Gen.Xproto: minor_opcode_Value :: Value -> Word16
- Graphics.XHB.Gen.Xproto: minor_opcode_Window :: Window -> CARD16
+ Graphics.XHB.Gen.Xproto: minor_opcode_Window :: Window -> Word16
- Graphics.XHB.Gen.Xproto: mode_AllowEvents :: AllowEvents -> CARD8
+ Graphics.XHB.Gen.Xproto: mode_AllowEvents :: AllowEvents -> Word8
- Graphics.XHB.Gen.Xproto: mode_ChangeHosts :: ChangeHosts -> CARD8
+ Graphics.XHB.Gen.Xproto: mode_ChangeHosts :: ChangeHosts -> Word8
- Graphics.XHB.Gen.Xproto: mode_ChangeProperty :: ChangeProperty -> CARD8
+ Graphics.XHB.Gen.Xproto: mode_ChangeProperty :: ChangeProperty -> Word8
- Graphics.XHB.Gen.Xproto: mode_ChangeSaveSet :: ChangeSaveSet -> BYTE
+ Graphics.XHB.Gen.Xproto: mode_ChangeSaveSet :: ChangeSaveSet -> Word8
- Graphics.XHB.Gen.Xproto: mode_EnterNotify :: EnterNotify -> BYTE
+ Graphics.XHB.Gen.Xproto: mode_EnterNotify :: EnterNotify -> Word8
- Graphics.XHB.Gen.Xproto: mode_FocusIn :: FocusIn -> BYTE
+ Graphics.XHB.Gen.Xproto: mode_FocusIn :: FocusIn -> Word8
- Graphics.XHB.Gen.Xproto: mode_FocusOut :: FocusOut -> BYTE
+ Graphics.XHB.Gen.Xproto: mode_FocusOut :: FocusOut -> Word8
- Graphics.XHB.Gen.Xproto: mode_ForceScreenSaver :: ForceScreenSaver -> CARD8
+ Graphics.XHB.Gen.Xproto: mode_ForceScreenSaver :: ForceScreenSaver -> Word8
- Graphics.XHB.Gen.Xproto: mode_LeaveNotify :: LeaveNotify -> BYTE
+ Graphics.XHB.Gen.Xproto: mode_LeaveNotify :: LeaveNotify -> Word8
- Graphics.XHB.Gen.Xproto: mode_ListHostsReply :: ListHostsReply -> BYTE
+ Graphics.XHB.Gen.Xproto: mode_ListHostsReply :: ListHostsReply -> Word8
- Graphics.XHB.Gen.Xproto: mode_SetAccessControl :: SetAccessControl -> CARD8
+ Graphics.XHB.Gen.Xproto: mode_SetAccessControl :: SetAccessControl -> Word8
- Graphics.XHB.Gen.Xproto: mode_SetCloseDownMode :: SetCloseDownMode -> CARD8
+ Graphics.XHB.Gen.Xproto: mode_SetCloseDownMode :: SetCloseDownMode -> Word8
- Graphics.XHB.Gen.Xproto: modifiers_GrabButton :: GrabButton -> CARD16
+ Graphics.XHB.Gen.Xproto: modifiers_GrabButton :: GrabButton -> Word16
- Graphics.XHB.Gen.Xproto: modifiers_GrabKey :: GrabKey -> CARD16
+ Graphics.XHB.Gen.Xproto: modifiers_GrabKey :: GrabKey -> Word16
- Graphics.XHB.Gen.Xproto: modifiers_UngrabButton :: UngrabButton -> CARD16
+ Graphics.XHB.Gen.Xproto: modifiers_UngrabButton :: UngrabButton -> Word16
- Graphics.XHB.Gen.Xproto: modifiers_UngrabKey :: UngrabKey -> CARD16
+ Graphics.XHB.Gen.Xproto: modifiers_UngrabKey :: UngrabKey -> Word16
- Graphics.XHB.Gen.Xproto: motion_buffer_size_Setup :: Setup -> CARD32
+ Graphics.XHB.Gen.Xproto: motion_buffer_size_Setup :: Setup -> Word32
- Graphics.XHB.Gen.Xproto: name_len_AllocNamedColor :: AllocNamedColor -> CARD16
+ Graphics.XHB.Gen.Xproto: name_len_AllocNamedColor :: AllocNamedColor -> Word16
- Graphics.XHB.Gen.Xproto: name_len_GetAtomNameReply :: GetAtomNameReply -> CARD16
+ Graphics.XHB.Gen.Xproto: name_len_GetAtomNameReply :: GetAtomNameReply -> Word16
- Graphics.XHB.Gen.Xproto: name_len_InternAtom :: InternAtom -> CARD16
+ Graphics.XHB.Gen.Xproto: name_len_InternAtom :: InternAtom -> Word16
- Graphics.XHB.Gen.Xproto: name_len_ListFontsWithInfoReply :: ListFontsWithInfoReply -> CARD8
+ Graphics.XHB.Gen.Xproto: name_len_ListFontsWithInfoReply :: ListFontsWithInfoReply -> Word8
- Graphics.XHB.Gen.Xproto: name_len_LookupColor :: LookupColor -> CARD16
+ Graphics.XHB.Gen.Xproto: name_len_LookupColor :: LookupColor -> Word16
- Graphics.XHB.Gen.Xproto: name_len_OpenFont :: OpenFont -> CARD16
+ Graphics.XHB.Gen.Xproto: name_len_OpenFont :: OpenFont -> Word16
- Graphics.XHB.Gen.Xproto: name_len_QueryExtension :: QueryExtension -> CARD16
+ Graphics.XHB.Gen.Xproto: name_len_QueryExtension :: QueryExtension -> Word16
- Graphics.XHB.Gen.Xproto: name_len_STR :: STR -> CARD8
+ Graphics.XHB.Gen.Xproto: name_len_STR :: STR -> Word8
- Graphics.XHB.Gen.Xproto: name_len_StoreNamedColor :: StoreNamedColor -> CARD16
+ Graphics.XHB.Gen.Xproto: name_len_StoreNamedColor :: StoreNamedColor -> Word16
- Graphics.XHB.Gen.Xproto: names_len_ListExtensionsReply :: ListExtensionsReply -> CARD8
+ Graphics.XHB.Gen.Xproto: names_len_ListExtensionsReply :: ListExtensionsReply -> Word8
- Graphics.XHB.Gen.Xproto: names_len_ListFontsReply :: ListFontsReply -> CARD16
+ Graphics.XHB.Gen.Xproto: names_len_ListFontsReply :: ListFontsReply -> Word16
- Graphics.XHB.Gen.Xproto: new_ColormapNotify :: ColormapNotify -> BOOL
+ Graphics.XHB.Gen.Xproto: new_ColormapNotify :: ColormapNotify -> Bool
- Graphics.XHB.Gen.Xproto: odd_length_QueryTextExtents :: QueryTextExtents -> BOOL
+ Graphics.XHB.Gen.Xproto: odd_length_QueryTextExtents :: QueryTextExtents -> Bool
- Graphics.XHB.Gen.Xproto: only_if_exists_InternAtom :: InternAtom -> BOOL
+ Graphics.XHB.Gen.Xproto: only_if_exists_InternAtom :: InternAtom -> Bool
- Graphics.XHB.Gen.Xproto: ordering_SetClipRectangles :: SetClipRectangles -> BYTE
+ Graphics.XHB.Gen.Xproto: ordering_SetClipRectangles :: SetClipRectangles -> Word8
- Graphics.XHB.Gen.Xproto: overall_ascent_QueryTextExtentsReply :: QueryTextExtentsReply -> INT16
+ Graphics.XHB.Gen.Xproto: overall_ascent_QueryTextExtentsReply :: QueryTextExtentsReply -> Int16
- Graphics.XHB.Gen.Xproto: overall_descent_QueryTextExtentsReply :: QueryTextExtentsReply -> INT16
+ Graphics.XHB.Gen.Xproto: overall_descent_QueryTextExtentsReply :: QueryTextExtentsReply -> Int16
- Graphics.XHB.Gen.Xproto: overall_left_QueryTextExtentsReply :: QueryTextExtentsReply -> INT32
+ Graphics.XHB.Gen.Xproto: overall_left_QueryTextExtentsReply :: QueryTextExtentsReply -> Int32
- Graphics.XHB.Gen.Xproto: overall_right_QueryTextExtentsReply :: QueryTextExtentsReply -> INT32
+ Graphics.XHB.Gen.Xproto: overall_right_QueryTextExtentsReply :: QueryTextExtentsReply -> Int32
- Graphics.XHB.Gen.Xproto: overall_width_QueryTextExtentsReply :: QueryTextExtentsReply -> INT32
+ Graphics.XHB.Gen.Xproto: overall_width_QueryTextExtentsReply :: QueryTextExtentsReply -> Int32
- Graphics.XHB.Gen.Xproto: override_redirect_ConfigureNotify :: ConfigureNotify -> BOOL
+ Graphics.XHB.Gen.Xproto: override_redirect_ConfigureNotify :: ConfigureNotify -> Bool
- Graphics.XHB.Gen.Xproto: override_redirect_CreateNotify :: CreateNotify -> BOOL
+ Graphics.XHB.Gen.Xproto: override_redirect_CreateNotify :: CreateNotify -> Bool
- Graphics.XHB.Gen.Xproto: override_redirect_GetWindowAttributesReply :: GetWindowAttributesReply -> BOOL
+ Graphics.XHB.Gen.Xproto: override_redirect_GetWindowAttributesReply :: GetWindowAttributesReply -> Bool
- Graphics.XHB.Gen.Xproto: override_redirect_MapNotify :: MapNotify -> BOOL
+ Graphics.XHB.Gen.Xproto: override_redirect_MapNotify :: MapNotify -> Bool
- Graphics.XHB.Gen.Xproto: override_redirect_ReparentNotify :: ReparentNotify -> BOOL
+ Graphics.XHB.Gen.Xproto: override_redirect_ReparentNotify :: ReparentNotify -> Bool
- Graphics.XHB.Gen.Xproto: owner_events_GrabButton :: GrabButton -> BOOL
+ Graphics.XHB.Gen.Xproto: owner_events_GrabButton :: GrabButton -> Bool
- Graphics.XHB.Gen.Xproto: owner_events_GrabKey :: GrabKey -> BOOL
+ Graphics.XHB.Gen.Xproto: owner_events_GrabKey :: GrabKey -> Bool
- Graphics.XHB.Gen.Xproto: owner_events_GrabKeyboard :: GrabKeyboard -> BOOL
+ Graphics.XHB.Gen.Xproto: owner_events_GrabKeyboard :: GrabKeyboard -> Bool
- Graphics.XHB.Gen.Xproto: owner_events_GrabPointer :: GrabPointer -> BOOL
+ Graphics.XHB.Gen.Xproto: owner_events_GrabPointer :: GrabPointer -> Bool
- Graphics.XHB.Gen.Xproto: path_len_GetFontPathReply :: GetFontPathReply -> CARD16
+ Graphics.XHB.Gen.Xproto: path_len_GetFontPathReply :: GetFontPathReply -> Word16
- Graphics.XHB.Gen.Xproto: pattern_len_ListFonts :: ListFonts -> CARD16
+ Graphics.XHB.Gen.Xproto: pattern_len_ListFonts :: ListFonts -> Word16
- Graphics.XHB.Gen.Xproto: pattern_len_ListFontsWithInfo :: ListFontsWithInfo -> CARD16
+ Graphics.XHB.Gen.Xproto: pattern_len_ListFontsWithInfo :: ListFontsWithInfo -> Word16
- Graphics.XHB.Gen.Xproto: percent_Bell :: Bell -> INT8
+ Graphics.XHB.Gen.Xproto: percent_Bell :: Bell -> Int8
- Graphics.XHB.Gen.Xproto: pixel_AllocColorReply :: AllocColorReply -> CARD32
+ Graphics.XHB.Gen.Xproto: pixel_AllocColorReply :: AllocColorReply -> Word32
- Graphics.XHB.Gen.Xproto: pixel_AllocNamedColorReply :: AllocNamedColorReply -> CARD32
+ Graphics.XHB.Gen.Xproto: pixel_AllocNamedColorReply :: AllocNamedColorReply -> Word32
- Graphics.XHB.Gen.Xproto: pixel_COLORITEM :: COLORITEM -> CARD32
+ Graphics.XHB.Gen.Xproto: pixel_COLORITEM :: COLORITEM -> Word32
- Graphics.XHB.Gen.Xproto: pixel_StoreNamedColor :: StoreNamedColor -> CARD32
+ Graphics.XHB.Gen.Xproto: pixel_StoreNamedColor :: StoreNamedColor -> Word32
- Graphics.XHB.Gen.Xproto: pixels_AllocColorCellsReply :: AllocColorCellsReply -> [CARD32]
+ Graphics.XHB.Gen.Xproto: pixels_AllocColorCellsReply :: AllocColorCellsReply -> [Word32]
- Graphics.XHB.Gen.Xproto: pixels_AllocColorPlanesReply :: AllocColorPlanesReply -> [CARD32]
+ Graphics.XHB.Gen.Xproto: pixels_AllocColorPlanesReply :: AllocColorPlanesReply -> [Word32]
- Graphics.XHB.Gen.Xproto: pixels_FreeColors :: FreeColors -> [CARD32]
+ Graphics.XHB.Gen.Xproto: pixels_FreeColors :: FreeColors -> [Word32]
- Graphics.XHB.Gen.Xproto: pixels_QueryColors :: QueryColors -> [CARD32]
+ Graphics.XHB.Gen.Xproto: pixels_QueryColors :: QueryColors -> [Word32]
- Graphics.XHB.Gen.Xproto: pixels_len_AllocColorCellsReply :: AllocColorCellsReply -> CARD16
+ Graphics.XHB.Gen.Xproto: pixels_len_AllocColorCellsReply :: AllocColorCellsReply -> Word16
- Graphics.XHB.Gen.Xproto: pixels_len_AllocColorPlanesReply :: AllocColorPlanesReply -> CARD16
+ Graphics.XHB.Gen.Xproto: pixels_len_AllocColorPlanesReply :: AllocColorPlanesReply -> Word16
- Graphics.XHB.Gen.Xproto: pixmap_formats_len_Setup :: Setup -> CARD8
+ Graphics.XHB.Gen.Xproto: pixmap_formats_len_Setup :: Setup -> Word8
- Graphics.XHB.Gen.Xproto: place_CirculateNotify :: CirculateNotify -> BYTE
+ Graphics.XHB.Gen.Xproto: place_CirculateNotify :: CirculateNotify -> Word8
- Graphics.XHB.Gen.Xproto: place_CirculateRequest :: CirculateRequest -> BYTE
+ Graphics.XHB.Gen.Xproto: place_CirculateRequest :: CirculateRequest -> Word8
- Graphics.XHB.Gen.Xproto: plane_mask_FreeColors :: FreeColors -> CARD32
+ Graphics.XHB.Gen.Xproto: plane_mask_FreeColors :: FreeColors -> Word32
- Graphics.XHB.Gen.Xproto: plane_mask_GetImage :: GetImage -> CARD32
+ Graphics.XHB.Gen.Xproto: plane_mask_GetImage :: GetImage -> Word32
- Graphics.XHB.Gen.Xproto: planes_AllocColorCells :: AllocColorCells -> CARD16
+ Graphics.XHB.Gen.Xproto: planes_AllocColorCells :: AllocColorCells -> Word16
- Graphics.XHB.Gen.Xproto: pointer_mode_GrabButton :: GrabButton -> CARD8
+ Graphics.XHB.Gen.Xproto: pointer_mode_GrabButton :: GrabButton -> Word8
- Graphics.XHB.Gen.Xproto: pointer_mode_GrabKey :: GrabKey -> CARD8
+ Graphics.XHB.Gen.Xproto: pointer_mode_GrabKey :: GrabKey -> Word8
- Graphics.XHB.Gen.Xproto: pointer_mode_GrabKeyboard :: GrabKeyboard -> BYTE
+ Graphics.XHB.Gen.Xproto: pointer_mode_GrabKeyboard :: GrabKeyboard -> Word8
- Graphics.XHB.Gen.Xproto: pointer_mode_GrabPointer :: GrabPointer -> BYTE
+ Graphics.XHB.Gen.Xproto: pointer_mode_GrabPointer :: GrabPointer -> Word8
- Graphics.XHB.Gen.Xproto: prefer_blanking_GetScreenSaverReply :: GetScreenSaverReply -> BYTE
+ Graphics.XHB.Gen.Xproto: prefer_blanking_GetScreenSaverReply :: GetScreenSaverReply -> Word8
- Graphics.XHB.Gen.Xproto: prefer_blanking_SetScreenSaver :: SetScreenSaver -> CARD8
+ Graphics.XHB.Gen.Xproto: prefer_blanking_SetScreenSaver :: SetScreenSaver -> Word8
- Graphics.XHB.Gen.Xproto: present_QueryExtensionReply :: QueryExtensionReply -> BOOL
+ Graphics.XHB.Gen.Xproto: present_QueryExtensionReply :: QueryExtensionReply -> Bool
- Graphics.XHB.Gen.Xproto: propagate_SendEvent :: SendEvent -> BOOL
+ Graphics.XHB.Gen.Xproto: propagate_SendEvent :: SendEvent -> Bool
- Graphics.XHB.Gen.Xproto: properties_len_ListFontsWithInfoReply :: ListFontsWithInfoReply -> CARD16
+ Graphics.XHB.Gen.Xproto: properties_len_ListFontsWithInfoReply :: ListFontsWithInfoReply -> Word16
- Graphics.XHB.Gen.Xproto: properties_len_QueryFontReply :: QueryFontReply -> CARD16
+ Graphics.XHB.Gen.Xproto: properties_len_QueryFontReply :: QueryFontReply -> Word16
- Graphics.XHB.Gen.Xproto: protocol_major_version_Setup :: Setup -> CARD16
+ Graphics.XHB.Gen.Xproto: protocol_major_version_Setup :: Setup -> Word16
- Graphics.XHB.Gen.Xproto: protocol_major_version_SetupFailed :: SetupFailed -> CARD16
+ Graphics.XHB.Gen.Xproto: protocol_major_version_SetupFailed :: SetupFailed -> Word16
- Graphics.XHB.Gen.Xproto: protocol_major_version_SetupRequest :: SetupRequest -> CARD16
+ Graphics.XHB.Gen.Xproto: protocol_major_version_SetupRequest :: SetupRequest -> Word16
- Graphics.XHB.Gen.Xproto: protocol_minor_version_Setup :: Setup -> CARD16
+ Graphics.XHB.Gen.Xproto: protocol_minor_version_Setup :: Setup -> Word16
- Graphics.XHB.Gen.Xproto: protocol_minor_version_SetupFailed :: SetupFailed -> CARD16
+ Graphics.XHB.Gen.Xproto: protocol_minor_version_SetupFailed :: SetupFailed -> Word16
- Graphics.XHB.Gen.Xproto: protocol_minor_version_SetupRequest :: SetupRequest -> CARD16
+ Graphics.XHB.Gen.Xproto: protocol_minor_version_SetupRequest :: SetupRequest -> Word16
- Graphics.XHB.Gen.Xproto: queryColors :: Connection -> COLORMAP -> [CARD32] -> IO (Receipt QueryColorsReply)
+ Graphics.XHB.Gen.Xproto: queryColors :: Connection -> COLORMAP -> [Word32] -> IO (Receipt QueryColorsReply)
- Graphics.XHB.Gen.Xproto: queryExtension :: Connection -> CARD16 -> [CChar] -> IO (Receipt QueryExtensionReply)
+ Graphics.XHB.Gen.Xproto: queryExtension :: Connection -> Word16 -> [CChar] -> IO (Receipt QueryExtensionReply)
- Graphics.XHB.Gen.Xproto: queryKeymap :: Connection -> IO (Receipt QueryKeymapReply)
+ Graphics.XHB.Gen.Xproto: queryKeymap :: Connection -> IO (Receipt [Word8])
- Graphics.XHB.Gen.Xproto: reason_len_SetupFailed :: SetupFailed -> CARD8
+ Graphics.XHB.Gen.Xproto: reason_len_SetupFailed :: SetupFailed -> Word8
- Graphics.XHB.Gen.Xproto: red_AllocColor :: AllocColor -> CARD16
+ Graphics.XHB.Gen.Xproto: red_AllocColor :: AllocColor -> Word16
- Graphics.XHB.Gen.Xproto: red_AllocColorReply :: AllocColorReply -> CARD16
+ Graphics.XHB.Gen.Xproto: red_AllocColorReply :: AllocColorReply -> Word16
- Graphics.XHB.Gen.Xproto: red_COLORITEM :: COLORITEM -> CARD16
+ Graphics.XHB.Gen.Xproto: red_COLORITEM :: COLORITEM -> Word16
- Graphics.XHB.Gen.Xproto: red_RGB :: RGB -> CARD16
+ Graphics.XHB.Gen.Xproto: red_RGB :: RGB -> Word16
- Graphics.XHB.Gen.Xproto: red_mask_AllocColorPlanesReply :: AllocColorPlanesReply -> CARD32
+ Graphics.XHB.Gen.Xproto: red_mask_AllocColorPlanesReply :: AllocColorPlanesReply -> Word32
- Graphics.XHB.Gen.Xproto: red_mask_VISUALTYPE :: VISUALTYPE -> CARD32
+ Graphics.XHB.Gen.Xproto: red_mask_VISUALTYPE :: VISUALTYPE -> Word32
- Graphics.XHB.Gen.Xproto: reds_AllocColorPlanes :: AllocColorPlanes -> CARD16
+ Graphics.XHB.Gen.Xproto: reds_AllocColorPlanes :: AllocColorPlanes -> Word16
- Graphics.XHB.Gen.Xproto: release_number_Setup :: Setup -> CARD32
+ Graphics.XHB.Gen.Xproto: release_number_Setup :: Setup -> Word32
- Graphics.XHB.Gen.Xproto: replies_hint_ListFontsWithInfoReply :: ListFontsWithInfoReply -> CARD32
+ Graphics.XHB.Gen.Xproto: replies_hint_ListFontsWithInfoReply :: ListFontsWithInfoReply -> Word32
- Graphics.XHB.Gen.Xproto: request_MappingNotify :: MappingNotify -> BYTE
+ Graphics.XHB.Gen.Xproto: request_MappingNotify :: MappingNotify -> Word8
- Graphics.XHB.Gen.Xproto: resource_KillClient :: KillClient -> CARD32
+ Graphics.XHB.Gen.Xproto: resource_KillClient :: KillClient -> Word32
- Graphics.XHB.Gen.Xproto: resource_id_base_Setup :: Setup -> CARD32
+ Graphics.XHB.Gen.Xproto: resource_id_base_Setup :: Setup -> Word32
- Graphics.XHB.Gen.Xproto: resource_id_mask_Setup :: Setup -> CARD32
+ Graphics.XHB.Gen.Xproto: resource_id_mask_Setup :: Setup -> Word32
- Graphics.XHB.Gen.Xproto: revert_to_GetInputFocusReply :: GetInputFocusReply -> CARD8
+ Graphics.XHB.Gen.Xproto: revert_to_GetInputFocusReply :: GetInputFocusReply -> Word8
- Graphics.XHB.Gen.Xproto: revert_to_SetInputFocus :: SetInputFocus -> CARD8
+ Graphics.XHB.Gen.Xproto: revert_to_SetInputFocus :: SetInputFocus -> Word8
- Graphics.XHB.Gen.Xproto: right_side_bearing_CHARINFO :: CHARINFO -> INT16
+ Graphics.XHB.Gen.Xproto: right_side_bearing_CHARINFO :: CHARINFO -> Int16
- Graphics.XHB.Gen.Xproto: root_depth_SCREEN :: SCREEN -> CARD8
+ Graphics.XHB.Gen.Xproto: root_depth_SCREEN :: SCREEN -> Word8
- Graphics.XHB.Gen.Xproto: root_x_ButtonPress :: ButtonPress -> INT16
+ Graphics.XHB.Gen.Xproto: root_x_ButtonPress :: ButtonPress -> Int16
- Graphics.XHB.Gen.Xproto: root_x_ButtonRelease :: ButtonRelease -> INT16
+ Graphics.XHB.Gen.Xproto: root_x_ButtonRelease :: ButtonRelease -> Int16
- Graphics.XHB.Gen.Xproto: root_x_EnterNotify :: EnterNotify -> INT16
+ Graphics.XHB.Gen.Xproto: root_x_EnterNotify :: EnterNotify -> Int16
- Graphics.XHB.Gen.Xproto: root_x_KeyPress :: KeyPress -> INT16
+ Graphics.XHB.Gen.Xproto: root_x_KeyPress :: KeyPress -> Int16
- Graphics.XHB.Gen.Xproto: root_x_KeyRelease :: KeyRelease -> INT16
+ Graphics.XHB.Gen.Xproto: root_x_KeyRelease :: KeyRelease -> Int16
- Graphics.XHB.Gen.Xproto: root_x_LeaveNotify :: LeaveNotify -> INT16
+ Graphics.XHB.Gen.Xproto: root_x_LeaveNotify :: LeaveNotify -> Int16
- Graphics.XHB.Gen.Xproto: root_x_MotionNotify :: MotionNotify -> INT16
+ Graphics.XHB.Gen.Xproto: root_x_MotionNotify :: MotionNotify -> Int16
- Graphics.XHB.Gen.Xproto: root_x_QueryPointerReply :: QueryPointerReply -> INT16
+ Graphics.XHB.Gen.Xproto: root_x_QueryPointerReply :: QueryPointerReply -> Int16
- Graphics.XHB.Gen.Xproto: root_y_ButtonPress :: ButtonPress -> INT16
+ Graphics.XHB.Gen.Xproto: root_y_ButtonPress :: ButtonPress -> Int16
- Graphics.XHB.Gen.Xproto: root_y_ButtonRelease :: ButtonRelease -> INT16
+ Graphics.XHB.Gen.Xproto: root_y_ButtonRelease :: ButtonRelease -> Int16
- Graphics.XHB.Gen.Xproto: root_y_EnterNotify :: EnterNotify -> INT16
+ Graphics.XHB.Gen.Xproto: root_y_EnterNotify :: EnterNotify -> Int16
- Graphics.XHB.Gen.Xproto: root_y_KeyPress :: KeyPress -> INT16
+ Graphics.XHB.Gen.Xproto: root_y_KeyPress :: KeyPress -> Int16
- Graphics.XHB.Gen.Xproto: root_y_KeyRelease :: KeyRelease -> INT16
+ Graphics.XHB.Gen.Xproto: root_y_KeyRelease :: KeyRelease -> Int16
- Graphics.XHB.Gen.Xproto: root_y_LeaveNotify :: LeaveNotify -> INT16
+ Graphics.XHB.Gen.Xproto: root_y_LeaveNotify :: LeaveNotify -> Int16
- Graphics.XHB.Gen.Xproto: root_y_MotionNotify :: MotionNotify -> INT16
+ Graphics.XHB.Gen.Xproto: root_y_MotionNotify :: MotionNotify -> Int16
- Graphics.XHB.Gen.Xproto: root_y_QueryPointerReply :: QueryPointerReply -> INT16
+ Graphics.XHB.Gen.Xproto: root_y_QueryPointerReply :: QueryPointerReply -> Int16
- Graphics.XHB.Gen.Xproto: roots_len_Setup :: Setup -> CARD8
+ Graphics.XHB.Gen.Xproto: roots_len_Setup :: Setup -> Word8
- Graphics.XHB.Gen.Xproto: same_screen_ButtonPress :: ButtonPress -> BOOL
+ Graphics.XHB.Gen.Xproto: same_screen_ButtonPress :: ButtonPress -> Bool
- Graphics.XHB.Gen.Xproto: same_screen_ButtonRelease :: ButtonRelease -> BOOL
+ Graphics.XHB.Gen.Xproto: same_screen_ButtonRelease :: ButtonRelease -> Bool
- Graphics.XHB.Gen.Xproto: same_screen_KeyPress :: KeyPress -> BOOL
+ Graphics.XHB.Gen.Xproto: same_screen_KeyPress :: KeyPress -> Bool
- Graphics.XHB.Gen.Xproto: same_screen_KeyRelease :: KeyRelease -> BOOL
+ Graphics.XHB.Gen.Xproto: same_screen_KeyRelease :: KeyRelease -> Bool
- Graphics.XHB.Gen.Xproto: same_screen_MotionNotify :: MotionNotify -> BOOL
+ Graphics.XHB.Gen.Xproto: same_screen_MotionNotify :: MotionNotify -> Bool
- Graphics.XHB.Gen.Xproto: same_screen_QueryPointerReply :: QueryPointerReply -> BOOL
+ Graphics.XHB.Gen.Xproto: same_screen_QueryPointerReply :: QueryPointerReply -> Bool
- Graphics.XHB.Gen.Xproto: same_screen_TranslateCoordinatesReply :: TranslateCoordinatesReply -> BOOL
+ Graphics.XHB.Gen.Xproto: same_screen_TranslateCoordinatesReply :: TranslateCoordinatesReply -> Bool
- Graphics.XHB.Gen.Xproto: same_screen_focus_EnterNotify :: EnterNotify -> BYTE
+ Graphics.XHB.Gen.Xproto: same_screen_focus_EnterNotify :: EnterNotify -> Word8
- Graphics.XHB.Gen.Xproto: same_screen_focus_LeaveNotify :: LeaveNotify -> BYTE
+ Graphics.XHB.Gen.Xproto: same_screen_focus_LeaveNotify :: LeaveNotify -> Word8
- Graphics.XHB.Gen.Xproto: save_under_GetWindowAttributesReply :: GetWindowAttributesReply -> BOOL
+ Graphics.XHB.Gen.Xproto: save_under_GetWindowAttributesReply :: GetWindowAttributesReply -> Bool
- Graphics.XHB.Gen.Xproto: save_unders_SCREEN :: SCREEN -> BOOL
+ Graphics.XHB.Gen.Xproto: save_unders_SCREEN :: SCREEN -> Bool
- Graphics.XHB.Gen.Xproto: scanline_pad_FORMAT :: FORMAT -> CARD8
+ Graphics.XHB.Gen.Xproto: scanline_pad_FORMAT :: FORMAT -> Word8
- Graphics.XHB.Gen.Xproto: setAccessControl :: Connection -> CARD8 -> IO ()
+ Graphics.XHB.Gen.Xproto: setAccessControl :: Connection -> Word8 -> IO ()
- Graphics.XHB.Gen.Xproto: setCloseDownMode :: Connection -> CARD8 -> IO ()
+ Graphics.XHB.Gen.Xproto: setCloseDownMode :: Connection -> Word8 -> IO ()
- Graphics.XHB.Gen.Xproto: setFontPath :: Connection -> CARD16 -> [CChar] -> IO ()
+ Graphics.XHB.Gen.Xproto: setFontPath :: Connection -> Word16 -> [CChar] -> IO ()
- Graphics.XHB.Gen.Xproto: setModifierMapping :: Connection -> CARD8 -> [KEYCODE] -> IO (Receipt SetModifierMappingReply)
+ Graphics.XHB.Gen.Xproto: setModifierMapping :: Connection -> Word8 -> [KEYCODE] -> IO (Receipt Word8)
- Graphics.XHB.Gen.Xproto: setPointerMapping :: Connection -> CARD8 -> [CARD8] -> IO (Receipt SetPointerMappingReply)
+ Graphics.XHB.Gen.Xproto: setPointerMapping :: Connection -> Word8 -> [Word8] -> IO (Receipt Word8)
- Graphics.XHB.Gen.Xproto: shape_FillPoly :: FillPoly -> CARD8
+ Graphics.XHB.Gen.Xproto: shape_FillPoly :: FillPoly -> Word8
- Graphics.XHB.Gen.Xproto: source_char_CreateGlyphCursor :: CreateGlyphCursor -> CARD16
+ Graphics.XHB.Gen.Xproto: source_char_CreateGlyphCursor :: CreateGlyphCursor -> Word16
- Graphics.XHB.Gen.Xproto: src_height_WarpPointer :: WarpPointer -> CARD16
+ Graphics.XHB.Gen.Xproto: src_height_WarpPointer :: WarpPointer -> Word16
- Graphics.XHB.Gen.Xproto: src_width_WarpPointer :: WarpPointer -> CARD16
+ Graphics.XHB.Gen.Xproto: src_width_WarpPointer :: WarpPointer -> Word16
- Graphics.XHB.Gen.Xproto: src_x_CopyArea :: CopyArea -> INT16
+ Graphics.XHB.Gen.Xproto: src_x_CopyArea :: CopyArea -> Int16
- Graphics.XHB.Gen.Xproto: src_x_CopyPlane :: CopyPlane -> INT16
+ Graphics.XHB.Gen.Xproto: src_x_CopyPlane :: CopyPlane -> Int16
- Graphics.XHB.Gen.Xproto: src_x_TranslateCoordinates :: TranslateCoordinates -> INT16
+ Graphics.XHB.Gen.Xproto: src_x_TranslateCoordinates :: TranslateCoordinates -> Int16
- Graphics.XHB.Gen.Xproto: src_x_WarpPointer :: WarpPointer -> INT16
+ Graphics.XHB.Gen.Xproto: src_x_WarpPointer :: WarpPointer -> Int16
- Graphics.XHB.Gen.Xproto: src_y_CopyArea :: CopyArea -> INT16
+ Graphics.XHB.Gen.Xproto: src_y_CopyArea :: CopyArea -> Int16
- Graphics.XHB.Gen.Xproto: src_y_CopyPlane :: CopyPlane -> INT16
+ Graphics.XHB.Gen.Xproto: src_y_CopyPlane :: CopyPlane -> Int16
- Graphics.XHB.Gen.Xproto: src_y_TranslateCoordinates :: TranslateCoordinates -> INT16
+ Graphics.XHB.Gen.Xproto: src_y_TranslateCoordinates :: TranslateCoordinates -> Int16
- Graphics.XHB.Gen.Xproto: src_y_WarpPointer :: WarpPointer -> INT16
+ Graphics.XHB.Gen.Xproto: src_y_WarpPointer :: WarpPointer -> Int16
- Graphics.XHB.Gen.Xproto: stack_mode_ConfigureRequest :: ConfigureRequest -> BYTE
+ Graphics.XHB.Gen.Xproto: stack_mode_ConfigureRequest :: ConfigureRequest -> Word8
- Graphics.XHB.Gen.Xproto: state_ButtonPress :: ButtonPress -> CARD16
+ Graphics.XHB.Gen.Xproto: state_ButtonPress :: ButtonPress -> Word16
- Graphics.XHB.Gen.Xproto: state_ButtonRelease :: ButtonRelease -> CARD16
+ Graphics.XHB.Gen.Xproto: state_ButtonRelease :: ButtonRelease -> Word16
- Graphics.XHB.Gen.Xproto: state_ColormapNotify :: ColormapNotify -> BYTE
+ Graphics.XHB.Gen.Xproto: state_ColormapNotify :: ColormapNotify -> Word8
- Graphics.XHB.Gen.Xproto: state_EnterNotify :: EnterNotify -> CARD16
+ Graphics.XHB.Gen.Xproto: state_EnterNotify :: EnterNotify -> Word16
- Graphics.XHB.Gen.Xproto: state_KeyPress :: KeyPress -> CARD16
+ Graphics.XHB.Gen.Xproto: state_KeyPress :: KeyPress -> Word16
- Graphics.XHB.Gen.Xproto: state_KeyRelease :: KeyRelease -> CARD16
+ Graphics.XHB.Gen.Xproto: state_KeyRelease :: KeyRelease -> Word16
- Graphics.XHB.Gen.Xproto: state_LeaveNotify :: LeaveNotify -> CARD16
+ Graphics.XHB.Gen.Xproto: state_LeaveNotify :: LeaveNotify -> Word16
- Graphics.XHB.Gen.Xproto: state_MotionNotify :: MotionNotify -> CARD16
+ Graphics.XHB.Gen.Xproto: state_MotionNotify :: MotionNotify -> Word16
- Graphics.XHB.Gen.Xproto: state_PropertyNotify :: PropertyNotify -> BYTE
+ Graphics.XHB.Gen.Xproto: state_PropertyNotify :: PropertyNotify -> Word8
- Graphics.XHB.Gen.Xproto: state_VisibilityNotify :: VisibilityNotify -> BYTE
+ Graphics.XHB.Gen.Xproto: state_VisibilityNotify :: VisibilityNotify -> Word8
- Graphics.XHB.Gen.Xproto: status_GrabKeyboardReply :: GrabKeyboardReply -> BYTE
+ Graphics.XHB.Gen.Xproto: status_GrabKeyboardReply :: GrabKeyboardReply -> Word8
- Graphics.XHB.Gen.Xproto: status_GrabPointerReply :: GrabPointerReply -> BYTE
+ Graphics.XHB.Gen.Xproto: status_GrabPointerReply :: GrabPointerReply -> Word8
- Graphics.XHB.Gen.Xproto: status_SetModifierMappingReply :: SetModifierMappingReply -> BYTE
+ Graphics.XHB.Gen.Xproto: status_SetModifierMappingReply :: SetModifierMappingReply -> Word8
- Graphics.XHB.Gen.Xproto: status_SetPointerMappingReply :: SetPointerMappingReply -> BYTE
+ Graphics.XHB.Gen.Xproto: status_SetPointerMappingReply :: SetPointerMappingReply -> Word8
- Graphics.XHB.Gen.Xproto: status_Setup :: Setup -> CARD8
+ Graphics.XHB.Gen.Xproto: status_Setup :: Setup -> Word8
- Graphics.XHB.Gen.Xproto: status_SetupAuthenticate :: SetupAuthenticate -> CARD8
+ Graphics.XHB.Gen.Xproto: status_SetupAuthenticate :: SetupAuthenticate -> Word8
- Graphics.XHB.Gen.Xproto: status_SetupFailed :: SetupFailed -> CARD8
+ Graphics.XHB.Gen.Xproto: status_SetupFailed :: SetupFailed -> Word8
- Graphics.XHB.Gen.Xproto: string_len_ImageText16 :: ImageText16 -> BYTE
+ Graphics.XHB.Gen.Xproto: string_len_ImageText16 :: ImageText16 -> Word8
- Graphics.XHB.Gen.Xproto: string_len_ImageText8 :: ImageText8 -> BYTE
+ Graphics.XHB.Gen.Xproto: string_len_ImageText8 :: ImageText8 -> Word8
- Graphics.XHB.Gen.Xproto: threshold_ChangePointerControl :: ChangePointerControl -> INT16
+ Graphics.XHB.Gen.Xproto: threshold_ChangePointerControl :: ChangePointerControl -> Int16
- Graphics.XHB.Gen.Xproto: threshold_GetPointerControlReply :: GetPointerControlReply -> CARD16
+ Graphics.XHB.Gen.Xproto: threshold_GetPointerControlReply :: GetPointerControlReply -> Word16
- Graphics.XHB.Gen.Xproto: timeout_GetScreenSaverReply :: GetScreenSaverReply -> CARD16
+ Graphics.XHB.Gen.Xproto: timeout_GetScreenSaverReply :: GetScreenSaverReply -> Word16
- Graphics.XHB.Gen.Xproto: timeout_SetScreenSaver :: SetScreenSaver -> INT16
+ Graphics.XHB.Gen.Xproto: timeout_SetScreenSaver :: SetScreenSaver -> Int16
- Graphics.XHB.Gen.Xproto: type BUTTON = CARD8
+ Graphics.XHB.Gen.Xproto: type BUTTON = Word8
- Graphics.XHB.Gen.Xproto: type KEYCODE = CARD8
+ Graphics.XHB.Gen.Xproto: type KEYCODE = Word8
- Graphics.XHB.Gen.Xproto: type KEYSYM = CARD32
+ Graphics.XHB.Gen.Xproto: type KEYSYM = Word32
- Graphics.XHB.Gen.Xproto: type TIMESTAMP = CARD32
+ Graphics.XHB.Gen.Xproto: type TIMESTAMP = Word32
- Graphics.XHB.Gen.Xproto: type VISUALID = CARD32
+ Graphics.XHB.Gen.Xproto: type VISUALID = Word32
- Graphics.XHB.Gen.Xproto: value_ChangeGC :: ChangeGC -> ValueParam CARD32
+ Graphics.XHB.Gen.Xproto: value_ChangeGC :: ChangeGC -> ValueParam Word32
- Graphics.XHB.Gen.Xproto: value_ChangeKeyboardControl :: ChangeKeyboardControl -> ValueParam CARD32
+ Graphics.XHB.Gen.Xproto: value_ChangeKeyboardControl :: ChangeKeyboardControl -> ValueParam Word32
- Graphics.XHB.Gen.Xproto: value_ChangeWindowAttributes :: ChangeWindowAttributes -> ValueParam CARD32
+ Graphics.XHB.Gen.Xproto: value_ChangeWindowAttributes :: ChangeWindowAttributes -> ValueParam Word32
- Graphics.XHB.Gen.Xproto: value_ConfigureWindow :: ConfigureWindow -> ValueParam CARD16
+ Graphics.XHB.Gen.Xproto: value_ConfigureWindow :: ConfigureWindow -> ValueParam Word16
- Graphics.XHB.Gen.Xproto: value_CreateGC :: CreateGC -> ValueParam CARD32
+ Graphics.XHB.Gen.Xproto: value_CreateGC :: CreateGC -> ValueParam Word32
- Graphics.XHB.Gen.Xproto: value_CreateWindow :: CreateWindow -> ValueParam CARD32
+ Graphics.XHB.Gen.Xproto: value_CreateWindow :: CreateWindow -> ValueParam Word32
- Graphics.XHB.Gen.Xproto: value_FONTPROP :: FONTPROP -> CARD32
+ Graphics.XHB.Gen.Xproto: value_FONTPROP :: FONTPROP -> Word32
- Graphics.XHB.Gen.Xproto: value_len_GetPropertyReply :: GetPropertyReply -> CARD32
+ Graphics.XHB.Gen.Xproto: value_len_GetPropertyReply :: GetPropertyReply -> Word32
- Graphics.XHB.Gen.Xproto: value_mask_ConfigureRequest :: ConfigureRequest -> CARD16
+ Graphics.XHB.Gen.Xproto: value_mask_ConfigureRequest :: ConfigureRequest -> Word16
- Graphics.XHB.Gen.Xproto: value_mask_CopyGC :: CopyGC -> CARD32
+ Graphics.XHB.Gen.Xproto: value_mask_CopyGC :: CopyGC -> Word32
- Graphics.XHB.Gen.Xproto: vendor_len_Setup :: Setup -> CARD16
+ Graphics.XHB.Gen.Xproto: vendor_len_Setup :: Setup -> Word16
- Graphics.XHB.Gen.Xproto: visual_blue_AllocNamedColorReply :: AllocNamedColorReply -> CARD16
+ Graphics.XHB.Gen.Xproto: visual_blue_AllocNamedColorReply :: AllocNamedColorReply -> Word16
- Graphics.XHB.Gen.Xproto: visual_blue_LookupColorReply :: LookupColorReply -> CARD16
+ Graphics.XHB.Gen.Xproto: visual_blue_LookupColorReply :: LookupColorReply -> Word16
- Graphics.XHB.Gen.Xproto: visual_green_AllocNamedColorReply :: AllocNamedColorReply -> CARD16
+ Graphics.XHB.Gen.Xproto: visual_green_AllocNamedColorReply :: AllocNamedColorReply -> Word16
- Graphics.XHB.Gen.Xproto: visual_green_LookupColorReply :: LookupColorReply -> CARD16
+ Graphics.XHB.Gen.Xproto: visual_green_LookupColorReply :: LookupColorReply -> Word16
- Graphics.XHB.Gen.Xproto: visual_red_AllocNamedColorReply :: AllocNamedColorReply -> CARD16
+ Graphics.XHB.Gen.Xproto: visual_red_AllocNamedColorReply :: AllocNamedColorReply -> Word16
- Graphics.XHB.Gen.Xproto: visual_red_LookupColorReply :: LookupColorReply -> CARD16
+ Graphics.XHB.Gen.Xproto: visual_red_LookupColorReply :: LookupColorReply -> Word16
- Graphics.XHB.Gen.Xproto: visuals_len_DEPTH :: DEPTH -> CARD16
+ Graphics.XHB.Gen.Xproto: visuals_len_DEPTH :: DEPTH -> Word16
- Graphics.XHB.Gen.Xproto: white_pixel_SCREEN :: SCREEN -> CARD32
+ Graphics.XHB.Gen.Xproto: white_pixel_SCREEN :: SCREEN -> Word32
- Graphics.XHB.Gen.Xproto: width_ARC :: ARC -> CARD16
+ Graphics.XHB.Gen.Xproto: width_ARC :: ARC -> Word16
- Graphics.XHB.Gen.Xproto: width_ClearArea :: ClearArea -> CARD16
+ Graphics.XHB.Gen.Xproto: width_ClearArea :: ClearArea -> Word16
- Graphics.XHB.Gen.Xproto: width_ConfigureNotify :: ConfigureNotify -> CARD16
+ Graphics.XHB.Gen.Xproto: width_ConfigureNotify :: ConfigureNotify -> Word16
- Graphics.XHB.Gen.Xproto: width_ConfigureRequest :: ConfigureRequest -> CARD16
+ Graphics.XHB.Gen.Xproto: width_ConfigureRequest :: ConfigureRequest -> Word16
- Graphics.XHB.Gen.Xproto: width_CopyArea :: CopyArea -> CARD16
+ Graphics.XHB.Gen.Xproto: width_CopyArea :: CopyArea -> Word16
- Graphics.XHB.Gen.Xproto: width_CopyPlane :: CopyPlane -> CARD16
+ Graphics.XHB.Gen.Xproto: width_CopyPlane :: CopyPlane -> Word16
- Graphics.XHB.Gen.Xproto: width_CreateNotify :: CreateNotify -> CARD16
+ Graphics.XHB.Gen.Xproto: width_CreateNotify :: CreateNotify -> Word16
- Graphics.XHB.Gen.Xproto: width_CreatePixmap :: CreatePixmap -> CARD16
+ Graphics.XHB.Gen.Xproto: width_CreatePixmap :: CreatePixmap -> Word16
- Graphics.XHB.Gen.Xproto: width_CreateWindow :: CreateWindow -> CARD16
+ Graphics.XHB.Gen.Xproto: width_CreateWindow :: CreateWindow -> Word16
- Graphics.XHB.Gen.Xproto: width_Expose :: Expose -> CARD16
+ Graphics.XHB.Gen.Xproto: width_Expose :: Expose -> Word16
- Graphics.XHB.Gen.Xproto: width_GetGeometryReply :: GetGeometryReply -> CARD16
+ Graphics.XHB.Gen.Xproto: width_GetGeometryReply :: GetGeometryReply -> Word16
- Graphics.XHB.Gen.Xproto: width_GetImage :: GetImage -> CARD16
+ Graphics.XHB.Gen.Xproto: width_GetImage :: GetImage -> Word16
- Graphics.XHB.Gen.Xproto: width_GraphicsExposure :: GraphicsExposure -> CARD16
+ Graphics.XHB.Gen.Xproto: width_GraphicsExposure :: GraphicsExposure -> Word16
- Graphics.XHB.Gen.Xproto: width_PutImage :: PutImage -> CARD16
+ Graphics.XHB.Gen.Xproto: width_PutImage :: PutImage -> Word16
- Graphics.XHB.Gen.Xproto: width_QueryBestSize :: QueryBestSize -> CARD16
+ Graphics.XHB.Gen.Xproto: width_QueryBestSize :: QueryBestSize -> Word16
- Graphics.XHB.Gen.Xproto: width_QueryBestSizeReply :: QueryBestSizeReply -> CARD16
+ Graphics.XHB.Gen.Xproto: width_QueryBestSizeReply :: QueryBestSizeReply -> Word16
- Graphics.XHB.Gen.Xproto: width_RECTANGLE :: RECTANGLE -> CARD16
+ Graphics.XHB.Gen.Xproto: width_RECTANGLE :: RECTANGLE -> Word16
- Graphics.XHB.Gen.Xproto: width_ResizeRequest :: ResizeRequest -> CARD16
+ Graphics.XHB.Gen.Xproto: width_ResizeRequest :: ResizeRequest -> Word16
- Graphics.XHB.Gen.Xproto: width_in_millimeters_SCREEN :: SCREEN -> CARD16
+ Graphics.XHB.Gen.Xproto: width_in_millimeters_SCREEN :: SCREEN -> Word16
- Graphics.XHB.Gen.Xproto: width_in_pixels_SCREEN :: SCREEN -> CARD16
+ Graphics.XHB.Gen.Xproto: width_in_pixels_SCREEN :: SCREEN -> Word16
- Graphics.XHB.Gen.Xproto: win_gravity_GetWindowAttributesReply :: GetWindowAttributesReply -> CARD8
+ Graphics.XHB.Gen.Xproto: win_gravity_GetWindowAttributesReply :: GetWindowAttributesReply -> Word8
- Graphics.XHB.Gen.Xproto: win_x_QueryPointerReply :: QueryPointerReply -> INT16
+ Graphics.XHB.Gen.Xproto: win_x_QueryPointerReply :: QueryPointerReply -> Int16
- Graphics.XHB.Gen.Xproto: win_y_QueryPointerReply :: QueryPointerReply -> INT16
+ Graphics.XHB.Gen.Xproto: win_y_QueryPointerReply :: QueryPointerReply -> Int16
- Graphics.XHB.Gen.Xproto: x1_SEGMENT :: SEGMENT -> INT16
+ Graphics.XHB.Gen.Xproto: x1_SEGMENT :: SEGMENT -> Int16
- Graphics.XHB.Gen.Xproto: x2_SEGMENT :: SEGMENT -> INT16
+ Graphics.XHB.Gen.Xproto: x2_SEGMENT :: SEGMENT -> Int16
- Graphics.XHB.Gen.Xproto: x_ARC :: ARC -> INT16
+ Graphics.XHB.Gen.Xproto: x_ARC :: ARC -> Int16
- Graphics.XHB.Gen.Xproto: x_ClearArea :: ClearArea -> INT16
+ Graphics.XHB.Gen.Xproto: x_ClearArea :: ClearArea -> Int16
- Graphics.XHB.Gen.Xproto: x_ConfigureNotify :: ConfigureNotify -> INT16
+ Graphics.XHB.Gen.Xproto: x_ConfigureNotify :: ConfigureNotify -> Int16
- Graphics.XHB.Gen.Xproto: x_ConfigureRequest :: ConfigureRequest -> INT16
+ Graphics.XHB.Gen.Xproto: x_ConfigureRequest :: ConfigureRequest -> Int16
- Graphics.XHB.Gen.Xproto: x_CreateCursor :: CreateCursor -> CARD16
+ Graphics.XHB.Gen.Xproto: x_CreateCursor :: CreateCursor -> Word16
- Graphics.XHB.Gen.Xproto: x_CreateNotify :: CreateNotify -> INT16
+ Graphics.XHB.Gen.Xproto: x_CreateNotify :: CreateNotify -> Int16
- Graphics.XHB.Gen.Xproto: x_CreateWindow :: CreateWindow -> INT16
+ Graphics.XHB.Gen.Xproto: x_CreateWindow :: CreateWindow -> Int16
- Graphics.XHB.Gen.Xproto: x_Expose :: Expose -> CARD16
+ Graphics.XHB.Gen.Xproto: x_Expose :: Expose -> Word16
- Graphics.XHB.Gen.Xproto: x_GetGeometryReply :: GetGeometryReply -> INT16
+ Graphics.XHB.Gen.Xproto: x_GetGeometryReply :: GetGeometryReply -> Int16
- Graphics.XHB.Gen.Xproto: x_GetImage :: GetImage -> INT16
+ Graphics.XHB.Gen.Xproto: x_GetImage :: GetImage -> Int16
- Graphics.XHB.Gen.Xproto: x_GraphicsExposure :: GraphicsExposure -> CARD16
+ Graphics.XHB.Gen.Xproto: x_GraphicsExposure :: GraphicsExposure -> Word16
- Graphics.XHB.Gen.Xproto: x_GravityNotify :: GravityNotify -> INT16
+ Graphics.XHB.Gen.Xproto: x_GravityNotify :: GravityNotify -> Int16
- Graphics.XHB.Gen.Xproto: x_ImageText16 :: ImageText16 -> INT16
+ Graphics.XHB.Gen.Xproto: x_ImageText16 :: ImageText16 -> Int16
- Graphics.XHB.Gen.Xproto: x_ImageText8 :: ImageText8 -> INT16
+ Graphics.XHB.Gen.Xproto: x_ImageText8 :: ImageText8 -> Int16
- Graphics.XHB.Gen.Xproto: x_POINT :: POINT -> INT16
+ Graphics.XHB.Gen.Xproto: x_POINT :: POINT -> Int16
- Graphics.XHB.Gen.Xproto: x_PolyText16 :: PolyText16 -> INT16
+ Graphics.XHB.Gen.Xproto: x_PolyText16 :: PolyText16 -> Int16
- Graphics.XHB.Gen.Xproto: x_PolyText8 :: PolyText8 -> INT16
+ Graphics.XHB.Gen.Xproto: x_PolyText8 :: PolyText8 -> Int16
- Graphics.XHB.Gen.Xproto: x_RECTANGLE :: RECTANGLE -> INT16
+ Graphics.XHB.Gen.Xproto: x_RECTANGLE :: RECTANGLE -> Int16
- Graphics.XHB.Gen.Xproto: x_ReparentNotify :: ReparentNotify -> INT16
+ Graphics.XHB.Gen.Xproto: x_ReparentNotify :: ReparentNotify -> Int16
- Graphics.XHB.Gen.Xproto: x_ReparentWindow :: ReparentWindow -> INT16
+ Graphics.XHB.Gen.Xproto: x_ReparentWindow :: ReparentWindow -> Int16
- Graphics.XHB.Gen.Xproto: x_TIMECOORD :: TIMECOORD -> INT16
+ Graphics.XHB.Gen.Xproto: x_TIMECOORD :: TIMECOORD -> Int16
- Graphics.XHB.Gen.Xproto: y1_SEGMENT :: SEGMENT -> INT16
+ Graphics.XHB.Gen.Xproto: y1_SEGMENT :: SEGMENT -> Int16
- Graphics.XHB.Gen.Xproto: y2_SEGMENT :: SEGMENT -> INT16
+ Graphics.XHB.Gen.Xproto: y2_SEGMENT :: SEGMENT -> Int16
- Graphics.XHB.Gen.Xproto: y_ARC :: ARC -> INT16
+ Graphics.XHB.Gen.Xproto: y_ARC :: ARC -> Int16
- Graphics.XHB.Gen.Xproto: y_ClearArea :: ClearArea -> INT16
+ Graphics.XHB.Gen.Xproto: y_ClearArea :: ClearArea -> Int16
- Graphics.XHB.Gen.Xproto: y_ConfigureNotify :: ConfigureNotify -> INT16
+ Graphics.XHB.Gen.Xproto: y_ConfigureNotify :: ConfigureNotify -> Int16
- Graphics.XHB.Gen.Xproto: y_ConfigureRequest :: ConfigureRequest -> INT16
+ Graphics.XHB.Gen.Xproto: y_ConfigureRequest :: ConfigureRequest -> Int16
- Graphics.XHB.Gen.Xproto: y_CreateCursor :: CreateCursor -> CARD16
+ Graphics.XHB.Gen.Xproto: y_CreateCursor :: CreateCursor -> Word16
- Graphics.XHB.Gen.Xproto: y_CreateNotify :: CreateNotify -> INT16
+ Graphics.XHB.Gen.Xproto: y_CreateNotify :: CreateNotify -> Int16
- Graphics.XHB.Gen.Xproto: y_CreateWindow :: CreateWindow -> INT16
+ Graphics.XHB.Gen.Xproto: y_CreateWindow :: CreateWindow -> Int16
- Graphics.XHB.Gen.Xproto: y_Expose :: Expose -> CARD16
+ Graphics.XHB.Gen.Xproto: y_Expose :: Expose -> Word16
- Graphics.XHB.Gen.Xproto: y_GetGeometryReply :: GetGeometryReply -> INT16
+ Graphics.XHB.Gen.Xproto: y_GetGeometryReply :: GetGeometryReply -> Int16
- Graphics.XHB.Gen.Xproto: y_GetImage :: GetImage -> INT16
+ Graphics.XHB.Gen.Xproto: y_GetImage :: GetImage -> Int16
- Graphics.XHB.Gen.Xproto: y_GraphicsExposure :: GraphicsExposure -> CARD16
+ Graphics.XHB.Gen.Xproto: y_GraphicsExposure :: GraphicsExposure -> Word16
- Graphics.XHB.Gen.Xproto: y_GravityNotify :: GravityNotify -> INT16
+ Graphics.XHB.Gen.Xproto: y_GravityNotify :: GravityNotify -> Int16
- Graphics.XHB.Gen.Xproto: y_ImageText16 :: ImageText16 -> INT16
+ Graphics.XHB.Gen.Xproto: y_ImageText16 :: ImageText16 -> Int16
- Graphics.XHB.Gen.Xproto: y_ImageText8 :: ImageText8 -> INT16
+ Graphics.XHB.Gen.Xproto: y_ImageText8 :: ImageText8 -> Int16
- Graphics.XHB.Gen.Xproto: y_POINT :: POINT -> INT16
+ Graphics.XHB.Gen.Xproto: y_POINT :: POINT -> Int16
- Graphics.XHB.Gen.Xproto: y_PolyText16 :: PolyText16 -> INT16
+ Graphics.XHB.Gen.Xproto: y_PolyText16 :: PolyText16 -> Int16
- Graphics.XHB.Gen.Xproto: y_PolyText8 :: PolyText8 -> INT16
+ Graphics.XHB.Gen.Xproto: y_PolyText8 :: PolyText8 -> Int16
- Graphics.XHB.Gen.Xproto: y_RECTANGLE :: RECTANGLE -> INT16
+ Graphics.XHB.Gen.Xproto: y_RECTANGLE :: RECTANGLE -> Int16
- Graphics.XHB.Gen.Xproto: y_ReparentNotify :: ReparentNotify -> INT16
+ Graphics.XHB.Gen.Xproto: y_ReparentNotify :: ReparentNotify -> Int16
- Graphics.XHB.Gen.Xproto: y_ReparentWindow :: ReparentWindow -> INT16
+ Graphics.XHB.Gen.Xproto: y_ReparentWindow :: ReparentWindow -> Int16
- Graphics.XHB.Gen.Xproto: y_TIMECOORD :: TIMECOORD -> INT16
+ Graphics.XHB.Gen.Xproto: y_TIMECOORD :: TIMECOORD -> Int16
- Graphics.XHB.Gen.Xproto: your_event_mask_GetWindowAttributesReply :: GetWindowAttributesReply -> CARD32
+ Graphics.XHB.Gen.Xproto: your_event_mask_GetWindowAttributesReply :: GetWindowAttributesReply -> Word32
- Graphics.XHB.Gen.Xv: MkAdaptorInfo :: PORT -> CARD16 -> CARD16 -> CARD16 -> CARD8 -> [CChar] -> [Format] -> AdaptorInfo
+ Graphics.XHB.Gen.Xv: MkAdaptorInfo :: PORT -> Word16 -> Word16 -> Word16 -> Word8 -> [CChar] -> [Format] -> AdaptorInfo
- Graphics.XHB.Gen.Xv: MkAttributeInfo :: CARD32 -> INT32 -> INT32 -> CARD32 -> [CChar] -> AttributeInfo
+ Graphics.XHB.Gen.Xv: MkAttributeInfo :: Word32 -> Int32 -> Int32 -> Word32 -> [CChar] -> AttributeInfo
- Graphics.XHB.Gen.Xv: MkEncodingInfo :: ENCODING -> CARD16 -> CARD16 -> CARD16 -> Rational -> [CChar] -> EncodingInfo
+ Graphics.XHB.Gen.Xv: MkEncodingInfo :: ENCODING -> Word16 -> Word16 -> Word16 -> Rational -> [CChar] -> EncodingInfo
- Graphics.XHB.Gen.Xv: MkFormat :: VISUALID -> CARD8 -> Format
+ Graphics.XHB.Gen.Xv: MkFormat :: VISUALID -> Word8 -> Format
- Graphics.XHB.Gen.Xv: MkGetPortAttributeReply :: INT32 -> GetPortAttributeReply
+ Graphics.XHB.Gen.Xv: MkGetPortAttributeReply :: Int32 -> GetPortAttributeReply
- Graphics.XHB.Gen.Xv: MkGetStill :: PORT -> DRAWABLE -> GCONTEXT -> INT16 -> INT16 -> CARD16 -> CARD16 -> INT16 -> INT16 -> CARD16 -> CARD16 -> GetStill
+ Graphics.XHB.Gen.Xv: MkGetStill :: PORT -> DRAWABLE -> GCONTEXT -> Int16 -> Int16 -> Word16 -> Word16 -> Int16 -> Int16 -> Word16 -> Word16 -> GetStill
- Graphics.XHB.Gen.Xv: MkGetVideo :: PORT -> DRAWABLE -> GCONTEXT -> INT16 -> INT16 -> CARD16 -> CARD16 -> INT16 -> INT16 -> CARD16 -> CARD16 -> GetVideo
+ Graphics.XHB.Gen.Xv: MkGetVideo :: PORT -> DRAWABLE -> GCONTEXT -> Int16 -> Int16 -> Word16 -> Word16 -> Int16 -> Int16 -> Word16 -> Word16 -> GetVideo
- Graphics.XHB.Gen.Xv: MkGrabPortReply :: BYTE -> GrabPortReply
+ Graphics.XHB.Gen.Xv: MkGrabPortReply :: Word8 -> GrabPortReply
- Graphics.XHB.Gen.Xv: MkImage :: CARD32 -> CARD16 -> CARD16 -> CARD32 -> CARD32 -> [CARD32] -> [CARD32] -> [CARD8] -> Image
+ Graphics.XHB.Gen.Xv: MkImage :: Word32 -> Word16 -> Word16 -> Word32 -> Word32 -> [Word32] -> [Word32] -> [Word8] -> Image
- Graphics.XHB.Gen.Xv: MkImageFormatInfo :: CARD32 -> CARD8 -> CARD8 -> [CARD8] -> CARD8 -> CARD8 -> CARD8 -> CARD32 -> CARD32 -> CARD32 -> CARD8 -> CARD32 -> CARD32 -> CARD32 -> CARD32 -> CARD32 -> CARD32 -> CARD32 -> CARD32 -> CARD32 -> [CARD8] -> CARD8 -> ImageFormatInfo
+ Graphics.XHB.Gen.Xv: MkImageFormatInfo :: Word32 -> Word8 -> Word8 -> [Word8] -> Word8 -> Word8 -> Word8 -> Word32 -> Word32 -> Word32 -> Word8 -> Word32 -> Word32 -> Word32 -> Word32 -> Word32 -> Word32 -> Word32 -> Word32 -> Word32 -> [Word8] -> Word8 -> ImageFormatInfo
- Graphics.XHB.Gen.Xv: MkListImageFormatsReply :: CARD32 -> [ImageFormatInfo] -> ListImageFormatsReply
+ Graphics.XHB.Gen.Xv: MkListImageFormatsReply :: Word32 -> [ImageFormatInfo] -> ListImageFormatsReply
- Graphics.XHB.Gen.Xv: MkPortNotify :: TIMESTAMP -> PORT -> ATOM -> INT32 -> PortNotify
+ Graphics.XHB.Gen.Xv: MkPortNotify :: TIMESTAMP -> PORT -> ATOM -> Int32 -> PortNotify
- Graphics.XHB.Gen.Xv: MkPutImage :: PORT -> DRAWABLE -> GCONTEXT -> CARD32 -> INT16 -> INT16 -> CARD16 -> CARD16 -> INT16 -> INT16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> [CARD8] -> PutImage
+ Graphics.XHB.Gen.Xv: MkPutImage :: PORT -> DRAWABLE -> GCONTEXT -> Word32 -> Int16 -> Int16 -> Word16 -> Word16 -> Int16 -> Int16 -> Word16 -> Word16 -> Word16 -> Word16 -> [Word8] -> PutImage
- Graphics.XHB.Gen.Xv: MkPutStill :: PORT -> DRAWABLE -> GCONTEXT -> INT16 -> INT16 -> CARD16 -> CARD16 -> INT16 -> INT16 -> CARD16 -> CARD16 -> PutStill
+ Graphics.XHB.Gen.Xv: MkPutStill :: PORT -> DRAWABLE -> GCONTEXT -> Int16 -> Int16 -> Word16 -> Word16 -> Int16 -> Int16 -> Word16 -> Word16 -> PutStill
- Graphics.XHB.Gen.Xv: MkPutVideo :: PORT -> DRAWABLE -> GCONTEXT -> INT16 -> INT16 -> CARD16 -> CARD16 -> INT16 -> INT16 -> CARD16 -> CARD16 -> PutVideo
+ Graphics.XHB.Gen.Xv: MkPutVideo :: PORT -> DRAWABLE -> GCONTEXT -> Int16 -> Int16 -> Word16 -> Word16 -> Int16 -> Int16 -> Word16 -> Word16 -> PutVideo
- Graphics.XHB.Gen.Xv: MkQueryAdaptorsReply :: CARD16 -> [AdaptorInfo] -> QueryAdaptorsReply
+ Graphics.XHB.Gen.Xv: MkQueryAdaptorsReply :: Word16 -> [AdaptorInfo] -> QueryAdaptorsReply
- Graphics.XHB.Gen.Xv: MkQueryBestSize :: PORT -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> BOOL -> QueryBestSize
+ Graphics.XHB.Gen.Xv: MkQueryBestSize :: PORT -> Word16 -> Word16 -> Word16 -> Word16 -> Bool -> QueryBestSize
- Graphics.XHB.Gen.Xv: MkQueryBestSizeReply :: CARD16 -> CARD16 -> QueryBestSizeReply
+ Graphics.XHB.Gen.Xv: MkQueryBestSizeReply :: Word16 -> Word16 -> QueryBestSizeReply
- Graphics.XHB.Gen.Xv: MkQueryEncodingsReply :: CARD16 -> [EncodingInfo] -> QueryEncodingsReply
+ Graphics.XHB.Gen.Xv: MkQueryEncodingsReply :: Word16 -> [EncodingInfo] -> QueryEncodingsReply
- Graphics.XHB.Gen.Xv: MkQueryExtensionReply :: CARD16 -> CARD16 -> QueryExtensionReply
+ Graphics.XHB.Gen.Xv: MkQueryExtensionReply :: Word16 -> Word16 -> QueryExtensionReply
- Graphics.XHB.Gen.Xv: MkQueryImageAttributes :: PORT -> CARD32 -> CARD16 -> CARD16 -> QueryImageAttributes
+ Graphics.XHB.Gen.Xv: MkQueryImageAttributes :: PORT -> Word32 -> Word16 -> Word16 -> QueryImageAttributes
- Graphics.XHB.Gen.Xv: MkQueryImageAttributesReply :: CARD32 -> CARD32 -> CARD16 -> CARD16 -> [CARD32] -> [CARD32] -> QueryImageAttributesReply
+ Graphics.XHB.Gen.Xv: MkQueryImageAttributesReply :: Word32 -> Word32 -> Word16 -> Word16 -> [Word32] -> [Word32] -> QueryImageAttributesReply
- Graphics.XHB.Gen.Xv: MkQueryPortAttributesReply :: CARD32 -> CARD32 -> [AttributeInfo] -> QueryPortAttributesReply
+ Graphics.XHB.Gen.Xv: MkQueryPortAttributesReply :: Word32 -> Word32 -> [AttributeInfo] -> QueryPortAttributesReply
- Graphics.XHB.Gen.Xv: MkRational :: INT32 -> INT32 -> Rational
+ Graphics.XHB.Gen.Xv: MkRational :: Int32 -> Int32 -> Rational
- Graphics.XHB.Gen.Xv: MkSelectPortNotify :: PORT -> BOOL -> SelectPortNotify
+ Graphics.XHB.Gen.Xv: MkSelectPortNotify :: PORT -> Bool -> SelectPortNotify
- Graphics.XHB.Gen.Xv: MkSelectVideoNotify :: DRAWABLE -> BOOL -> SelectVideoNotify
+ Graphics.XHB.Gen.Xv: MkSelectVideoNotify :: DRAWABLE -> Bool -> SelectVideoNotify
- Graphics.XHB.Gen.Xv: MkSetPortAttribute :: PORT -> ATOM -> INT32 -> SetPortAttribute
+ Graphics.XHB.Gen.Xv: MkSetPortAttribute :: PORT -> ATOM -> Int32 -> SetPortAttribute
- Graphics.XHB.Gen.Xv: MkShmPutImage :: PORT -> DRAWABLE -> GCONTEXT -> SEG -> CARD32 -> CARD32 -> INT16 -> INT16 -> CARD16 -> CARD16 -> INT16 -> INT16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD8 -> ShmPutImage
+ Graphics.XHB.Gen.Xv: MkShmPutImage :: PORT -> DRAWABLE -> GCONTEXT -> SEG -> Word32 -> Word32 -> Int16 -> Int16 -> Word16 -> Word16 -> Int16 -> Int16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word8 -> ShmPutImage
- Graphics.XHB.Gen.Xv: MkVideoNotify :: BYTE -> TIMESTAMP -> DRAWABLE -> PORT -> VideoNotify
+ Graphics.XHB.Gen.Xv: MkVideoNotify :: Word8 -> TIMESTAMP -> DRAWABLE -> PORT -> VideoNotify
- Graphics.XHB.Gen.Xv: actual_height_QueryBestSizeReply :: QueryBestSizeReply -> CARD16
+ Graphics.XHB.Gen.Xv: actual_height_QueryBestSizeReply :: QueryBestSizeReply -> Word16
- Graphics.XHB.Gen.Xv: actual_width_QueryBestSizeReply :: QueryBestSizeReply -> CARD16
+ Graphics.XHB.Gen.Xv: actual_width_QueryBestSizeReply :: QueryBestSizeReply -> Word16
- Graphics.XHB.Gen.Xv: blue_mask_ImageFormatInfo :: ImageFormatInfo -> CARD32
+ Graphics.XHB.Gen.Xv: blue_mask_ImageFormatInfo :: ImageFormatInfo -> Word32
- Graphics.XHB.Gen.Xv: bpp_ImageFormatInfo :: ImageFormatInfo -> CARD8
+ Graphics.XHB.Gen.Xv: bpp_ImageFormatInfo :: ImageFormatInfo -> Word8
- Graphics.XHB.Gen.Xv: byte_order_ImageFormatInfo :: ImageFormatInfo -> CARD8
+ Graphics.XHB.Gen.Xv: byte_order_ImageFormatInfo :: ImageFormatInfo -> Word8
- Graphics.XHB.Gen.Xv: data_Image :: Image -> [CARD8]
+ Graphics.XHB.Gen.Xv: data_Image :: Image -> [Word8]
- Graphics.XHB.Gen.Xv: data_PutImage :: PutImage -> [CARD8]
+ Graphics.XHB.Gen.Xv: data_PutImage :: PutImage -> [Word8]
- Graphics.XHB.Gen.Xv: data_size_Image :: Image -> CARD32
+ Graphics.XHB.Gen.Xv: data_size_Image :: Image -> Word32
- Graphics.XHB.Gen.Xv: data_size_QueryImageAttributesReply :: QueryImageAttributesReply -> CARD32
+ Graphics.XHB.Gen.Xv: data_size_QueryImageAttributesReply :: QueryImageAttributesReply -> Word32
- Graphics.XHB.Gen.Xv: denominator_Rational :: Rational -> INT32
+ Graphics.XHB.Gen.Xv: denominator_Rational :: Rational -> Int32
- Graphics.XHB.Gen.Xv: depth_Format :: Format -> CARD8
+ Graphics.XHB.Gen.Xv: depth_Format :: Format -> Word8
- Graphics.XHB.Gen.Xv: depth_ImageFormatInfo :: ImageFormatInfo -> CARD8
+ Graphics.XHB.Gen.Xv: depth_ImageFormatInfo :: ImageFormatInfo -> Word8
- Graphics.XHB.Gen.Xv: drw_h_GetStill :: GetStill -> CARD16
+ Graphics.XHB.Gen.Xv: drw_h_GetStill :: GetStill -> Word16
- Graphics.XHB.Gen.Xv: drw_h_GetVideo :: GetVideo -> CARD16
+ Graphics.XHB.Gen.Xv: drw_h_GetVideo :: GetVideo -> Word16
- Graphics.XHB.Gen.Xv: drw_h_PutImage :: PutImage -> CARD16
+ Graphics.XHB.Gen.Xv: drw_h_PutImage :: PutImage -> Word16
- Graphics.XHB.Gen.Xv: drw_h_PutStill :: PutStill -> CARD16
+ Graphics.XHB.Gen.Xv: drw_h_PutStill :: PutStill -> Word16
- Graphics.XHB.Gen.Xv: drw_h_PutVideo :: PutVideo -> CARD16
+ Graphics.XHB.Gen.Xv: drw_h_PutVideo :: PutVideo -> Word16
- Graphics.XHB.Gen.Xv: drw_h_QueryBestSize :: QueryBestSize -> CARD16
+ Graphics.XHB.Gen.Xv: drw_h_QueryBestSize :: QueryBestSize -> Word16
- Graphics.XHB.Gen.Xv: drw_h_ShmPutImage :: ShmPutImage -> CARD16
+ Graphics.XHB.Gen.Xv: drw_h_ShmPutImage :: ShmPutImage -> Word16
- Graphics.XHB.Gen.Xv: drw_w_GetStill :: GetStill -> CARD16
+ Graphics.XHB.Gen.Xv: drw_w_GetStill :: GetStill -> Word16
- Graphics.XHB.Gen.Xv: drw_w_GetVideo :: GetVideo -> CARD16
+ Graphics.XHB.Gen.Xv: drw_w_GetVideo :: GetVideo -> Word16
- Graphics.XHB.Gen.Xv: drw_w_PutImage :: PutImage -> CARD16
+ Graphics.XHB.Gen.Xv: drw_w_PutImage :: PutImage -> Word16
- Graphics.XHB.Gen.Xv: drw_w_PutStill :: PutStill -> CARD16
+ Graphics.XHB.Gen.Xv: drw_w_PutStill :: PutStill -> Word16
- Graphics.XHB.Gen.Xv: drw_w_PutVideo :: PutVideo -> CARD16
+ Graphics.XHB.Gen.Xv: drw_w_PutVideo :: PutVideo -> Word16
- Graphics.XHB.Gen.Xv: drw_w_QueryBestSize :: QueryBestSize -> CARD16
+ Graphics.XHB.Gen.Xv: drw_w_QueryBestSize :: QueryBestSize -> Word16
- Graphics.XHB.Gen.Xv: drw_w_ShmPutImage :: ShmPutImage -> CARD16
+ Graphics.XHB.Gen.Xv: drw_w_ShmPutImage :: ShmPutImage -> Word16
- Graphics.XHB.Gen.Xv: drw_x_GetStill :: GetStill -> INT16
+ Graphics.XHB.Gen.Xv: drw_x_GetStill :: GetStill -> Int16
- Graphics.XHB.Gen.Xv: drw_x_GetVideo :: GetVideo -> INT16
+ Graphics.XHB.Gen.Xv: drw_x_GetVideo :: GetVideo -> Int16
- Graphics.XHB.Gen.Xv: drw_x_PutImage :: PutImage -> INT16
+ Graphics.XHB.Gen.Xv: drw_x_PutImage :: PutImage -> Int16
- Graphics.XHB.Gen.Xv: drw_x_PutStill :: PutStill -> INT16
+ Graphics.XHB.Gen.Xv: drw_x_PutStill :: PutStill -> Int16
- Graphics.XHB.Gen.Xv: drw_x_PutVideo :: PutVideo -> INT16
+ Graphics.XHB.Gen.Xv: drw_x_PutVideo :: PutVideo -> Int16
- Graphics.XHB.Gen.Xv: drw_x_ShmPutImage :: ShmPutImage -> INT16
+ Graphics.XHB.Gen.Xv: drw_x_ShmPutImage :: ShmPutImage -> Int16
- Graphics.XHB.Gen.Xv: drw_y_GetStill :: GetStill -> INT16
+ Graphics.XHB.Gen.Xv: drw_y_GetStill :: GetStill -> Int16
- Graphics.XHB.Gen.Xv: drw_y_GetVideo :: GetVideo -> INT16
+ Graphics.XHB.Gen.Xv: drw_y_GetVideo :: GetVideo -> Int16
- Graphics.XHB.Gen.Xv: drw_y_PutImage :: PutImage -> INT16
+ Graphics.XHB.Gen.Xv: drw_y_PutImage :: PutImage -> Int16
- Graphics.XHB.Gen.Xv: drw_y_PutStill :: PutStill -> INT16
+ Graphics.XHB.Gen.Xv: drw_y_PutStill :: PutStill -> Int16
- Graphics.XHB.Gen.Xv: drw_y_PutVideo :: PutVideo -> INT16
+ Graphics.XHB.Gen.Xv: drw_y_PutVideo :: PutVideo -> Int16
- Graphics.XHB.Gen.Xv: drw_y_ShmPutImage :: ShmPutImage -> INT16
+ Graphics.XHB.Gen.Xv: drw_y_ShmPutImage :: ShmPutImage -> Int16
- Graphics.XHB.Gen.Xv: flags_AttributeInfo :: AttributeInfo -> CARD32
+ Graphics.XHB.Gen.Xv: flags_AttributeInfo :: AttributeInfo -> Word32
- Graphics.XHB.Gen.Xv: format_ImageFormatInfo :: ImageFormatInfo -> CARD8
+ Graphics.XHB.Gen.Xv: format_ImageFormatInfo :: ImageFormatInfo -> Word8
- Graphics.XHB.Gen.Xv: getPortAttribute :: Connection -> PORT -> ATOM -> IO (Receipt GetPortAttributeReply)
+ Graphics.XHB.Gen.Xv: getPortAttribute :: Connection -> PORT -> ATOM -> IO (Receipt Int32)
- Graphics.XHB.Gen.Xv: grabPort :: Connection -> PORT -> TIMESTAMP -> IO (Receipt GrabPortReply)
+ Graphics.XHB.Gen.Xv: grabPort :: Connection -> PORT -> TIMESTAMP -> IO (Receipt Word8)
- Graphics.XHB.Gen.Xv: green_mask_ImageFormatInfo :: ImageFormatInfo -> CARD32
+ Graphics.XHB.Gen.Xv: green_mask_ImageFormatInfo :: ImageFormatInfo -> Word32
- Graphics.XHB.Gen.Xv: guid_ImageFormatInfo :: ImageFormatInfo -> [CARD8]
+ Graphics.XHB.Gen.Xv: guid_ImageFormatInfo :: ImageFormatInfo -> [Word8]
- Graphics.XHB.Gen.Xv: height_EncodingInfo :: EncodingInfo -> CARD16
+ Graphics.XHB.Gen.Xv: height_EncodingInfo :: EncodingInfo -> Word16
- Graphics.XHB.Gen.Xv: height_Image :: Image -> CARD16
+ Graphics.XHB.Gen.Xv: height_Image :: Image -> Word16
- Graphics.XHB.Gen.Xv: height_PutImage :: PutImage -> CARD16
+ Graphics.XHB.Gen.Xv: height_PutImage :: PutImage -> Word16
- Graphics.XHB.Gen.Xv: height_QueryImageAttributes :: QueryImageAttributes -> CARD16
+ Graphics.XHB.Gen.Xv: height_QueryImageAttributes :: QueryImageAttributes -> Word16
- Graphics.XHB.Gen.Xv: height_QueryImageAttributesReply :: QueryImageAttributesReply -> CARD16
+ Graphics.XHB.Gen.Xv: height_QueryImageAttributesReply :: QueryImageAttributesReply -> Word16
- Graphics.XHB.Gen.Xv: height_ShmPutImage :: ShmPutImage -> CARD16
+ Graphics.XHB.Gen.Xv: height_ShmPutImage :: ShmPutImage -> Word16
- Graphics.XHB.Gen.Xv: id_Image :: Image -> CARD32
+ Graphics.XHB.Gen.Xv: id_Image :: Image -> Word32
- Graphics.XHB.Gen.Xv: id_ImageFormatInfo :: ImageFormatInfo -> CARD32
+ Graphics.XHB.Gen.Xv: id_ImageFormatInfo :: ImageFormatInfo -> Word32
- Graphics.XHB.Gen.Xv: id_PutImage :: PutImage -> CARD32
+ Graphics.XHB.Gen.Xv: id_PutImage :: PutImage -> Word32
- Graphics.XHB.Gen.Xv: id_QueryImageAttributes :: QueryImageAttributes -> CARD32
+ Graphics.XHB.Gen.Xv: id_QueryImageAttributes :: QueryImageAttributes -> Word32
- Graphics.XHB.Gen.Xv: id_ShmPutImage :: ShmPutImage -> CARD32
+ Graphics.XHB.Gen.Xv: id_ShmPutImage :: ShmPutImage -> Word32
- Graphics.XHB.Gen.Xv: major_QueryExtensionReply :: QueryExtensionReply -> CARD16
+ Graphics.XHB.Gen.Xv: major_QueryExtensionReply :: QueryExtensionReply -> Word16
- Graphics.XHB.Gen.Xv: max_AttributeInfo :: AttributeInfo -> INT32
+ Graphics.XHB.Gen.Xv: max_AttributeInfo :: AttributeInfo -> Int32
- Graphics.XHB.Gen.Xv: min_AttributeInfo :: AttributeInfo -> INT32
+ Graphics.XHB.Gen.Xv: min_AttributeInfo :: AttributeInfo -> Int32
- Graphics.XHB.Gen.Xv: minor_QueryExtensionReply :: QueryExtensionReply -> CARD16
+ Graphics.XHB.Gen.Xv: minor_QueryExtensionReply :: QueryExtensionReply -> Word16
- Graphics.XHB.Gen.Xv: motion_QueryBestSize :: QueryBestSize -> BOOL
+ Graphics.XHB.Gen.Xv: motion_QueryBestSize :: QueryBestSize -> Bool
- Graphics.XHB.Gen.Xv: name_size_AdaptorInfo :: AdaptorInfo -> CARD16
+ Graphics.XHB.Gen.Xv: name_size_AdaptorInfo :: AdaptorInfo -> Word16
- Graphics.XHB.Gen.Xv: name_size_EncodingInfo :: EncodingInfo -> CARD16
+ Graphics.XHB.Gen.Xv: name_size_EncodingInfo :: EncodingInfo -> Word16
- Graphics.XHB.Gen.Xv: num_adaptors_QueryAdaptorsReply :: QueryAdaptorsReply -> CARD16
+ Graphics.XHB.Gen.Xv: num_adaptors_QueryAdaptorsReply :: QueryAdaptorsReply -> Word16
- Graphics.XHB.Gen.Xv: num_attributes_QueryPortAttributesReply :: QueryPortAttributesReply -> CARD32
+ Graphics.XHB.Gen.Xv: num_attributes_QueryPortAttributesReply :: QueryPortAttributesReply -> Word32
- Graphics.XHB.Gen.Xv: num_encodings_QueryEncodingsReply :: QueryEncodingsReply -> CARD16
+ Graphics.XHB.Gen.Xv: num_encodings_QueryEncodingsReply :: QueryEncodingsReply -> Word16
- Graphics.XHB.Gen.Xv: num_formats_AdaptorInfo :: AdaptorInfo -> CARD16
+ Graphics.XHB.Gen.Xv: num_formats_AdaptorInfo :: AdaptorInfo -> Word16
- Graphics.XHB.Gen.Xv: num_formats_ListImageFormatsReply :: ListImageFormatsReply -> CARD32
+ Graphics.XHB.Gen.Xv: num_formats_ListImageFormatsReply :: ListImageFormatsReply -> Word32
- Graphics.XHB.Gen.Xv: num_planes_Image :: Image -> CARD32
+ Graphics.XHB.Gen.Xv: num_planes_Image :: Image -> Word32
- Graphics.XHB.Gen.Xv: num_planes_ImageFormatInfo :: ImageFormatInfo -> CARD8
+ Graphics.XHB.Gen.Xv: num_planes_ImageFormatInfo :: ImageFormatInfo -> Word8
- Graphics.XHB.Gen.Xv: num_planes_QueryImageAttributesReply :: QueryImageAttributesReply -> CARD32
+ Graphics.XHB.Gen.Xv: num_planes_QueryImageAttributesReply :: QueryImageAttributesReply -> Word32
- Graphics.XHB.Gen.Xv: num_ports_AdaptorInfo :: AdaptorInfo -> CARD16
+ Graphics.XHB.Gen.Xv: num_ports_AdaptorInfo :: AdaptorInfo -> Word16
- Graphics.XHB.Gen.Xv: numerator_Rational :: Rational -> INT32
+ Graphics.XHB.Gen.Xv: numerator_Rational :: Rational -> Int32
- Graphics.XHB.Gen.Xv: offset_ShmPutImage :: ShmPutImage -> CARD32
+ Graphics.XHB.Gen.Xv: offset_ShmPutImage :: ShmPutImage -> Word32
- Graphics.XHB.Gen.Xv: offsets_Image :: Image -> [CARD32]
+ Graphics.XHB.Gen.Xv: offsets_Image :: Image -> [Word32]
- Graphics.XHB.Gen.Xv: offsets_QueryImageAttributesReply :: QueryImageAttributesReply -> [CARD32]
+ Graphics.XHB.Gen.Xv: offsets_QueryImageAttributesReply :: QueryImageAttributesReply -> [Word32]
- Graphics.XHB.Gen.Xv: onoff_SelectPortNotify :: SelectPortNotify -> BOOL
+ Graphics.XHB.Gen.Xv: onoff_SelectPortNotify :: SelectPortNotify -> Bool
- Graphics.XHB.Gen.Xv: onoff_SelectVideoNotify :: SelectVideoNotify -> BOOL
+ Graphics.XHB.Gen.Xv: onoff_SelectVideoNotify :: SelectVideoNotify -> Bool
- Graphics.XHB.Gen.Xv: pitches_Image :: Image -> [CARD32]
+ Graphics.XHB.Gen.Xv: pitches_Image :: Image -> [Word32]
- Graphics.XHB.Gen.Xv: pitches_QueryImageAttributesReply :: QueryImageAttributesReply -> [CARD32]
+ Graphics.XHB.Gen.Xv: pitches_QueryImageAttributesReply :: QueryImageAttributesReply -> [Word32]
- Graphics.XHB.Gen.Xv: reason_VideoNotify :: VideoNotify -> BYTE
+ Graphics.XHB.Gen.Xv: reason_VideoNotify :: VideoNotify -> Word8
- Graphics.XHB.Gen.Xv: red_mask_ImageFormatInfo :: ImageFormatInfo -> CARD32
+ Graphics.XHB.Gen.Xv: red_mask_ImageFormatInfo :: ImageFormatInfo -> Word32
- Graphics.XHB.Gen.Xv: result_GrabPortReply :: GrabPortReply -> BYTE
+ Graphics.XHB.Gen.Xv: result_GrabPortReply :: GrabPortReply -> Word8
- Graphics.XHB.Gen.Xv: selectPortNotify :: Connection -> PORT -> BOOL -> IO ()
+ Graphics.XHB.Gen.Xv: selectPortNotify :: Connection -> PORT -> Bool -> IO ()
- Graphics.XHB.Gen.Xv: selectVideoNotify :: Connection -> DRAWABLE -> BOOL -> IO ()
+ Graphics.XHB.Gen.Xv: selectVideoNotify :: Connection -> DRAWABLE -> Bool -> IO ()
- Graphics.XHB.Gen.Xv: send_event_ShmPutImage :: ShmPutImage -> CARD8
+ Graphics.XHB.Gen.Xv: send_event_ShmPutImage :: ShmPutImage -> Word8
- Graphics.XHB.Gen.Xv: size_AttributeInfo :: AttributeInfo -> CARD32
+ Graphics.XHB.Gen.Xv: size_AttributeInfo :: AttributeInfo -> Word32
- Graphics.XHB.Gen.Xv: src_h_PutImage :: PutImage -> CARD16
+ Graphics.XHB.Gen.Xv: src_h_PutImage :: PutImage -> Word16
- Graphics.XHB.Gen.Xv: src_h_ShmPutImage :: ShmPutImage -> CARD16
+ Graphics.XHB.Gen.Xv: src_h_ShmPutImage :: ShmPutImage -> Word16
- Graphics.XHB.Gen.Xv: src_w_PutImage :: PutImage -> CARD16
+ Graphics.XHB.Gen.Xv: src_w_PutImage :: PutImage -> Word16
- Graphics.XHB.Gen.Xv: src_w_ShmPutImage :: ShmPutImage -> CARD16
+ Graphics.XHB.Gen.Xv: src_w_ShmPutImage :: ShmPutImage -> Word16
- Graphics.XHB.Gen.Xv: src_x_PutImage :: PutImage -> INT16
+ Graphics.XHB.Gen.Xv: src_x_PutImage :: PutImage -> Int16
- Graphics.XHB.Gen.Xv: src_x_ShmPutImage :: ShmPutImage -> INT16
+ Graphics.XHB.Gen.Xv: src_x_ShmPutImage :: ShmPutImage -> Int16
- Graphics.XHB.Gen.Xv: src_y_PutImage :: PutImage -> INT16
+ Graphics.XHB.Gen.Xv: src_y_PutImage :: PutImage -> Int16
- Graphics.XHB.Gen.Xv: src_y_ShmPutImage :: ShmPutImage -> INT16
+ Graphics.XHB.Gen.Xv: src_y_ShmPutImage :: ShmPutImage -> Int16
- Graphics.XHB.Gen.Xv: text_size_QueryPortAttributesReply :: QueryPortAttributesReply -> CARD32
+ Graphics.XHB.Gen.Xv: text_size_QueryPortAttributesReply :: QueryPortAttributesReply -> Word32
- Graphics.XHB.Gen.Xv: type_AdaptorInfo :: AdaptorInfo -> CARD8
+ Graphics.XHB.Gen.Xv: type_AdaptorInfo :: AdaptorInfo -> Word8
- Graphics.XHB.Gen.Xv: type_ImageFormatInfo :: ImageFormatInfo -> CARD8
+ Graphics.XHB.Gen.Xv: type_ImageFormatInfo :: ImageFormatInfo -> Word8
- Graphics.XHB.Gen.Xv: u_sample_bits_ImageFormatInfo :: ImageFormatInfo -> CARD32
+ Graphics.XHB.Gen.Xv: u_sample_bits_ImageFormatInfo :: ImageFormatInfo -> Word32
- Graphics.XHB.Gen.Xv: v_sample_bits_ImageFormatInfo :: ImageFormatInfo -> CARD32
+ Graphics.XHB.Gen.Xv: v_sample_bits_ImageFormatInfo :: ImageFormatInfo -> Word32
- Graphics.XHB.Gen.Xv: value_GetPortAttributeReply :: GetPortAttributeReply -> INT32
+ Graphics.XHB.Gen.Xv: value_GetPortAttributeReply :: GetPortAttributeReply -> Int32
- Graphics.XHB.Gen.Xv: value_PortNotify :: PortNotify -> INT32
+ Graphics.XHB.Gen.Xv: value_PortNotify :: PortNotify -> Int32
- Graphics.XHB.Gen.Xv: value_SetPortAttribute :: SetPortAttribute -> INT32
+ Graphics.XHB.Gen.Xv: value_SetPortAttribute :: SetPortAttribute -> Int32
- Graphics.XHB.Gen.Xv: vcomp_order_ImageFormatInfo :: ImageFormatInfo -> [CARD8]
+ Graphics.XHB.Gen.Xv: vcomp_order_ImageFormatInfo :: ImageFormatInfo -> [Word8]
- Graphics.XHB.Gen.Xv: vhorz_u_period_ImageFormatInfo :: ImageFormatInfo -> CARD32
+ Graphics.XHB.Gen.Xv: vhorz_u_period_ImageFormatInfo :: ImageFormatInfo -> Word32
- Graphics.XHB.Gen.Xv: vhorz_v_period_ImageFormatInfo :: ImageFormatInfo -> CARD32
+ Graphics.XHB.Gen.Xv: vhorz_v_period_ImageFormatInfo :: ImageFormatInfo -> Word32
- Graphics.XHB.Gen.Xv: vhorz_y_period_ImageFormatInfo :: ImageFormatInfo -> CARD32
+ Graphics.XHB.Gen.Xv: vhorz_y_period_ImageFormatInfo :: ImageFormatInfo -> Word32
- Graphics.XHB.Gen.Xv: vid_h_GetStill :: GetStill -> CARD16
+ Graphics.XHB.Gen.Xv: vid_h_GetStill :: GetStill -> Word16
- Graphics.XHB.Gen.Xv: vid_h_GetVideo :: GetVideo -> CARD16
+ Graphics.XHB.Gen.Xv: vid_h_GetVideo :: GetVideo -> Word16
- Graphics.XHB.Gen.Xv: vid_h_PutStill :: PutStill -> CARD16
+ Graphics.XHB.Gen.Xv: vid_h_PutStill :: PutStill -> Word16
- Graphics.XHB.Gen.Xv: vid_h_PutVideo :: PutVideo -> CARD16
+ Graphics.XHB.Gen.Xv: vid_h_PutVideo :: PutVideo -> Word16
- Graphics.XHB.Gen.Xv: vid_h_QueryBestSize :: QueryBestSize -> CARD16
+ Graphics.XHB.Gen.Xv: vid_h_QueryBestSize :: QueryBestSize -> Word16
- Graphics.XHB.Gen.Xv: vid_w_GetStill :: GetStill -> CARD16
+ Graphics.XHB.Gen.Xv: vid_w_GetStill :: GetStill -> Word16
- Graphics.XHB.Gen.Xv: vid_w_GetVideo :: GetVideo -> CARD16
+ Graphics.XHB.Gen.Xv: vid_w_GetVideo :: GetVideo -> Word16
- Graphics.XHB.Gen.Xv: vid_w_PutStill :: PutStill -> CARD16
+ Graphics.XHB.Gen.Xv: vid_w_PutStill :: PutStill -> Word16
- Graphics.XHB.Gen.Xv: vid_w_PutVideo :: PutVideo -> CARD16
+ Graphics.XHB.Gen.Xv: vid_w_PutVideo :: PutVideo -> Word16
- Graphics.XHB.Gen.Xv: vid_w_QueryBestSize :: QueryBestSize -> CARD16
+ Graphics.XHB.Gen.Xv: vid_w_QueryBestSize :: QueryBestSize -> Word16
- Graphics.XHB.Gen.Xv: vid_x_GetStill :: GetStill -> INT16
+ Graphics.XHB.Gen.Xv: vid_x_GetStill :: GetStill -> Int16
- Graphics.XHB.Gen.Xv: vid_x_GetVideo :: GetVideo -> INT16
+ Graphics.XHB.Gen.Xv: vid_x_GetVideo :: GetVideo -> Int16
- Graphics.XHB.Gen.Xv: vid_x_PutStill :: PutStill -> INT16
+ Graphics.XHB.Gen.Xv: vid_x_PutStill :: PutStill -> Int16
- Graphics.XHB.Gen.Xv: vid_x_PutVideo :: PutVideo -> INT16
+ Graphics.XHB.Gen.Xv: vid_x_PutVideo :: PutVideo -> Int16
- Graphics.XHB.Gen.Xv: vid_y_GetStill :: GetStill -> INT16
+ Graphics.XHB.Gen.Xv: vid_y_GetStill :: GetStill -> Int16
- Graphics.XHB.Gen.Xv: vid_y_GetVideo :: GetVideo -> INT16
+ Graphics.XHB.Gen.Xv: vid_y_GetVideo :: GetVideo -> Int16
- Graphics.XHB.Gen.Xv: vid_y_PutStill :: PutStill -> INT16
+ Graphics.XHB.Gen.Xv: vid_y_PutStill :: PutStill -> Int16
- Graphics.XHB.Gen.Xv: vid_y_PutVideo :: PutVideo -> INT16
+ Graphics.XHB.Gen.Xv: vid_y_PutVideo :: PutVideo -> Int16
- Graphics.XHB.Gen.Xv: vscanline_order_ImageFormatInfo :: ImageFormatInfo -> CARD8
+ Graphics.XHB.Gen.Xv: vscanline_order_ImageFormatInfo :: ImageFormatInfo -> Word8
- Graphics.XHB.Gen.Xv: vvert_u_period_ImageFormatInfo :: ImageFormatInfo -> CARD32
+ Graphics.XHB.Gen.Xv: vvert_u_period_ImageFormatInfo :: ImageFormatInfo -> Word32
- Graphics.XHB.Gen.Xv: vvert_v_period_ImageFormatInfo :: ImageFormatInfo -> CARD32
+ Graphics.XHB.Gen.Xv: vvert_v_period_ImageFormatInfo :: ImageFormatInfo -> Word32
- Graphics.XHB.Gen.Xv: vvert_y_period_ImageFormatInfo :: ImageFormatInfo -> CARD32
+ Graphics.XHB.Gen.Xv: vvert_y_period_ImageFormatInfo :: ImageFormatInfo -> Word32
- Graphics.XHB.Gen.Xv: width_EncodingInfo :: EncodingInfo -> CARD16
+ Graphics.XHB.Gen.Xv: width_EncodingInfo :: EncodingInfo -> Word16
- Graphics.XHB.Gen.Xv: width_Image :: Image -> CARD16
+ Graphics.XHB.Gen.Xv: width_Image :: Image -> Word16
- Graphics.XHB.Gen.Xv: width_PutImage :: PutImage -> CARD16
+ Graphics.XHB.Gen.Xv: width_PutImage :: PutImage -> Word16
- Graphics.XHB.Gen.Xv: width_QueryImageAttributes :: QueryImageAttributes -> CARD16
+ Graphics.XHB.Gen.Xv: width_QueryImageAttributes :: QueryImageAttributes -> Word16
- Graphics.XHB.Gen.Xv: width_QueryImageAttributesReply :: QueryImageAttributesReply -> CARD16
+ Graphics.XHB.Gen.Xv: width_QueryImageAttributesReply :: QueryImageAttributesReply -> Word16
- Graphics.XHB.Gen.Xv: width_ShmPutImage :: ShmPutImage -> CARD16
+ Graphics.XHB.Gen.Xv: width_ShmPutImage :: ShmPutImage -> Word16
- Graphics.XHB.Gen.Xv: y_sample_bits_ImageFormatInfo :: ImageFormatInfo -> CARD32
+ Graphics.XHB.Gen.Xv: y_sample_bits_ImageFormatInfo :: ImageFormatInfo -> Word32
- Graphics.XHB.Gen.XvMC: MkCreateContext :: CONTEXT -> PORT -> SURFACE -> CARD16 -> CARD16 -> CARD32 -> CreateContext
+ Graphics.XHB.Gen.XvMC: MkCreateContext :: CONTEXT -> PORT -> SURFACE -> Word16 -> Word16 -> Word32 -> CreateContext
- Graphics.XHB.Gen.XvMC: MkCreateContextReply :: CARD16 -> CARD16 -> CARD32 -> [CARD32] -> CreateContextReply
+ Graphics.XHB.Gen.XvMC: MkCreateContextReply :: Word16 -> Word16 -> Word32 -> [Word32] -> CreateContextReply
- Graphics.XHB.Gen.XvMC: MkCreateSubpicture :: SUBPICTURE -> CONTEXT -> CARD32 -> CARD16 -> CARD16 -> CreateSubpicture
+ Graphics.XHB.Gen.XvMC: MkCreateSubpicture :: SUBPICTURE -> CONTEXT -> Word32 -> Word16 -> Word16 -> CreateSubpicture
- Graphics.XHB.Gen.XvMC: MkCreateSubpictureReply :: CARD16 -> CARD16 -> CARD16 -> CARD16 -> [CARD8] -> [CARD32] -> CreateSubpictureReply
+ Graphics.XHB.Gen.XvMC: MkCreateSubpictureReply :: Word16 -> Word16 -> Word16 -> Word16 -> [Word8] -> [Word32] -> CreateSubpictureReply
- Graphics.XHB.Gen.XvMC: MkCreateSurfaceReply :: [CARD32] -> CreateSurfaceReply
+ Graphics.XHB.Gen.XvMC: MkCreateSurfaceReply :: [Word32] -> CreateSurfaceReply
- Graphics.XHB.Gen.XvMC: MkListSubpictureTypesReply :: CARD32 -> [ImageFormatInfo] -> ListSubpictureTypesReply
+ Graphics.XHB.Gen.XvMC: MkListSubpictureTypesReply :: Word32 -> [ImageFormatInfo] -> ListSubpictureTypesReply
- Graphics.XHB.Gen.XvMC: MkListSurfaceTypesReply :: CARD32 -> [SurfaceInfo] -> ListSurfaceTypesReply
+ Graphics.XHB.Gen.XvMC: MkListSurfaceTypesReply :: Word32 -> [SurfaceInfo] -> ListSurfaceTypesReply
- Graphics.XHB.Gen.XvMC: MkQueryVersionReply :: CARD32 -> CARD32 -> QueryVersionReply
+ Graphics.XHB.Gen.XvMC: MkQueryVersionReply :: Word32 -> Word32 -> QueryVersionReply
- Graphics.XHB.Gen.XvMC: MkSurfaceInfo :: SURFACE -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD16 -> CARD32 -> CARD32 -> SurfaceInfo
+ Graphics.XHB.Gen.XvMC: MkSurfaceInfo :: SURFACE -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word16 -> Word32 -> Word32 -> SurfaceInfo
- Graphics.XHB.Gen.XvMC: chroma_format_SurfaceInfo :: SurfaceInfo -> CARD16
+ Graphics.XHB.Gen.XvMC: chroma_format_SurfaceInfo :: SurfaceInfo -> Word16
- Graphics.XHB.Gen.XvMC: component_order_CreateSubpictureReply :: CreateSubpictureReply -> [CARD8]
+ Graphics.XHB.Gen.XvMC: component_order_CreateSubpictureReply :: CreateSubpictureReply -> [Word8]
- Graphics.XHB.Gen.XvMC: createSurface :: Connection -> SURFACE -> CONTEXT -> IO (Receipt CreateSurfaceReply)
+ Graphics.XHB.Gen.XvMC: createSurface :: Connection -> SURFACE -> CONTEXT -> IO (Receipt [Word32])
- Graphics.XHB.Gen.XvMC: entry_bytes_CreateSubpictureReply :: CreateSubpictureReply -> CARD16
+ Graphics.XHB.Gen.XvMC: entry_bytes_CreateSubpictureReply :: CreateSubpictureReply -> Word16
- Graphics.XHB.Gen.XvMC: flags_CreateContext :: CreateContext -> CARD32
+ Graphics.XHB.Gen.XvMC: flags_CreateContext :: CreateContext -> Word32
- Graphics.XHB.Gen.XvMC: flags_SurfaceInfo :: SurfaceInfo -> CARD32
+ Graphics.XHB.Gen.XvMC: flags_SurfaceInfo :: SurfaceInfo -> Word32
- Graphics.XHB.Gen.XvMC: flags_return_CreateContextReply :: CreateContextReply -> CARD32
+ Graphics.XHB.Gen.XvMC: flags_return_CreateContextReply :: CreateContextReply -> Word32
- Graphics.XHB.Gen.XvMC: height_CreateContext :: CreateContext -> CARD16
+ Graphics.XHB.Gen.XvMC: height_CreateContext :: CreateContext -> Word16
- Graphics.XHB.Gen.XvMC: height_CreateSubpicture :: CreateSubpicture -> CARD16
+ Graphics.XHB.Gen.XvMC: height_CreateSubpicture :: CreateSubpicture -> Word16
- Graphics.XHB.Gen.XvMC: height_actual_CreateContextReply :: CreateContextReply -> CARD16
+ Graphics.XHB.Gen.XvMC: height_actual_CreateContextReply :: CreateContextReply -> Word16
- Graphics.XHB.Gen.XvMC: height_actual_CreateSubpictureReply :: CreateSubpictureReply -> CARD16
+ Graphics.XHB.Gen.XvMC: height_actual_CreateSubpictureReply :: CreateSubpictureReply -> Word16
- Graphics.XHB.Gen.XvMC: major_QueryVersionReply :: QueryVersionReply -> CARD32
+ Graphics.XHB.Gen.XvMC: major_QueryVersionReply :: QueryVersionReply -> Word32
- Graphics.XHB.Gen.XvMC: max_height_SurfaceInfo :: SurfaceInfo -> CARD16
+ Graphics.XHB.Gen.XvMC: max_height_SurfaceInfo :: SurfaceInfo -> Word16
- Graphics.XHB.Gen.XvMC: max_width_SurfaceInfo :: SurfaceInfo -> CARD16
+ Graphics.XHB.Gen.XvMC: max_width_SurfaceInfo :: SurfaceInfo -> Word16
- Graphics.XHB.Gen.XvMC: mc_type_SurfaceInfo :: SurfaceInfo -> CARD32
+ Graphics.XHB.Gen.XvMC: mc_type_SurfaceInfo :: SurfaceInfo -> Word32
- Graphics.XHB.Gen.XvMC: minor_QueryVersionReply :: QueryVersionReply -> CARD32
+ Graphics.XHB.Gen.XvMC: minor_QueryVersionReply :: QueryVersionReply -> Word32
- Graphics.XHB.Gen.XvMC: num_ListSubpictureTypesReply :: ListSubpictureTypesReply -> CARD32
+ Graphics.XHB.Gen.XvMC: num_ListSubpictureTypesReply :: ListSubpictureTypesReply -> Word32
- Graphics.XHB.Gen.XvMC: num_ListSurfaceTypesReply :: ListSurfaceTypesReply -> CARD32
+ Graphics.XHB.Gen.XvMC: num_ListSurfaceTypesReply :: ListSurfaceTypesReply -> Word32
- Graphics.XHB.Gen.XvMC: num_palette_entries_CreateSubpictureReply :: CreateSubpictureReply -> CARD16
+ Graphics.XHB.Gen.XvMC: num_palette_entries_CreateSubpictureReply :: CreateSubpictureReply -> Word16
- Graphics.XHB.Gen.XvMC: pad0_SurfaceInfo :: SurfaceInfo -> CARD16
+ Graphics.XHB.Gen.XvMC: pad0_SurfaceInfo :: SurfaceInfo -> Word16
- Graphics.XHB.Gen.XvMC: priv_data_CreateContextReply :: CreateContextReply -> [CARD32]
+ Graphics.XHB.Gen.XvMC: priv_data_CreateContextReply :: CreateContextReply -> [Word32]
- Graphics.XHB.Gen.XvMC: priv_data_CreateSubpictureReply :: CreateSubpictureReply -> [CARD32]
+ Graphics.XHB.Gen.XvMC: priv_data_CreateSubpictureReply :: CreateSubpictureReply -> [Word32]
- Graphics.XHB.Gen.XvMC: priv_data_CreateSurfaceReply :: CreateSurfaceReply -> [CARD32]
+ Graphics.XHB.Gen.XvMC: priv_data_CreateSurfaceReply :: CreateSurfaceReply -> [Word32]
- Graphics.XHB.Gen.XvMC: subpicture_max_height_SurfaceInfo :: SurfaceInfo -> CARD16
+ Graphics.XHB.Gen.XvMC: subpicture_max_height_SurfaceInfo :: SurfaceInfo -> Word16
- Graphics.XHB.Gen.XvMC: subpicture_max_width_SurfaceInfo :: SurfaceInfo -> CARD16
+ Graphics.XHB.Gen.XvMC: subpicture_max_width_SurfaceInfo :: SurfaceInfo -> Word16
- Graphics.XHB.Gen.XvMC: width_CreateContext :: CreateContext -> CARD16
+ Graphics.XHB.Gen.XvMC: width_CreateContext :: CreateContext -> Word16
- Graphics.XHB.Gen.XvMC: width_CreateSubpicture :: CreateSubpicture -> CARD16
+ Graphics.XHB.Gen.XvMC: width_CreateSubpicture :: CreateSubpicture -> Word16
- Graphics.XHB.Gen.XvMC: width_actual_CreateContextReply :: CreateContextReply -> CARD16
+ Graphics.XHB.Gen.XvMC: width_actual_CreateContextReply :: CreateContextReply -> Word16
- Graphics.XHB.Gen.XvMC: width_actual_CreateSubpictureReply :: CreateSubpictureReply -> CARD16
+ Graphics.XHB.Gen.XvMC: width_actual_CreateSubpictureReply :: CreateSubpictureReply -> Word16
- Graphics.XHB.Gen.XvMC: xvimage_id_CreateSubpicture :: CreateSubpicture -> CARD32
+ Graphics.XHB.Gen.XvMC: xvimage_id_CreateSubpicture :: CreateSubpicture -> Word32

Files

Graphics/XHB.hs view
@@ -21,6 +21,7 @@     , module Graphics.XHB.Gen.Xproto     , Xid     , XidLike(..)+    , xidNone     , SimpleEnum(..)     , BitEnum(..)     , fromMask@@ -38,14 +39,6 @@     , Event(..)     , SomeEvent     , UnknownEvent(..)-    , CARD8-    , CARD16-    , CARD32-    , INT8-    , INT16-    , INT32-    , BOOL-    , BYTE      ) where  import Graphics.XHB.Connection
Graphics/XHB/Connection.hs view
@@ -156,8 +156,8 @@  -- reverse-lookup infrastructure for extensions.  Not pretty or -- maybe not even fast. But it is straight-forward.-queryExtMap :: (QueryExtensionReply -> CARD8)-            -> ReadLoop -> CARD8 -> IO (Maybe (ExtensionId, CARD8))+queryExtMap :: (QueryExtensionReply -> Word8)+            -> ReadLoop -> Word8 -> IO (Maybe (ExtensionId, Word8)) queryExtMap f r code = do   ext_map <- atomically . readTVar $ read_extensions r   return $ findFromCode ext_map@@ -171,13 +171,13 @@          where num = f extInfo  -- | Returns the extension id and the base event code-extensionIdFromEventCode :: ReadLoop -> CARD8-                         -> IO (Maybe (ExtensionId, CARD8))+extensionIdFromEventCode :: ReadLoop -> Word8+                         -> IO (Maybe (ExtensionId, Word8)) extensionIdFromEventCode = queryExtMap first_event_QueryExtensionReply  -- | Returns the extension id and the base error code-extensionIdFromErrorCode :: ReadLoop -> CARD8-                         -> IO (Maybe (ExtensionId, CARD8))+extensionIdFromErrorCode :: ReadLoop -> Word8+                         -> IO (Maybe (ExtensionId, Word8)) extensionIdFromErrorCode = queryExtMap first_error_QueryExtensionReply  @@ -243,10 +243,7 @@   atomically $ do     nextPend <- readTChan $ read_reps rl     if (pended_sequence nextPend) == (grep_sequence genRep)-     then case pended_reply nextPend of-            WrappedReply replyHole -> -                let reply = flip runGet bytes $ deserializeInReadLoop rl-                in putReceipt replyHole $ Right reply+     then putReceipt (pended_reply nextPend) $ Right bytes      else unGetTChan (read_reps rl) nextPend  @@ -262,8 +259,7 @@   atomically $ do     nextPend <- readTChan $ read_reps rl     if (pended_sequence nextPend) == (grep_sequence genRep)-     then case pended_reply nextPend of-            WrappedReply replyHole -> putReceipt replyHole (Left err)+     then putReceipt (pended_reply nextPend) $ Left err       else do        unGetTChan (read_reps rl) nextPend        writeTChan (read_error_queue rl) err
Graphics/XHB/Connection/Extension.hs view
@@ -70,4 +70,4 @@ _extensionOpCode = major_opcode_QueryExtensionReply  _extensionPresent :: QueryExtensionReply -> Bool-_extensionPresent = (/= 0) . present_QueryExtensionReply+_extensionPresent = present_QueryExtensionReply
Graphics/XHB/Connection/Internal.hs view
@@ -44,14 +44,14 @@    return () -sendRequestWithReply :: Deserialize a => Connection -> ByteString -> Receipt a -> IO ()+sendRequestWithReply :: Connection -> ByteString -> RawReceipt -> IO () sendRequestWithReply c bytes r = withConnectionHandle c $ \h -> do    BS.hPut h bytes    atomically $ do     seq <- nextSequence c-    writeTChan (conn_reps c) $ PendedReply seq $ WrappedReply r+    writeTChan (conn_reps c) $ PendedReply seq r   -- Returns the next sequence ID
Graphics/XHB/Connection/Types.hs view
@@ -36,7 +36,5 @@  data PendedReply = PendedReply     {pended_sequence :: SequenceId-    ,pended_reply :: WrappedReply+    ,pended_reply :: RawReceipt     }--data WrappedReply = forall a . Deserialize a => WrappedReply (Receipt a)
Graphics/XHB/Shared.hs view
@@ -27,14 +27,6 @@ import Data.ByteString.Lazy (ByteString)  import Control.Concurrent.STM-    ( TMVar-    , STM-    , putTMVar-    , newEmptyTMVarIO-    , takeTMVar-    , putTMVar-    , atomically-    )  import System.ByteOrder @@ -50,18 +42,6 @@ byteOrderToNum LittleEndian = fromEnum '\o154' -- l byteOrderToNum Mixed{} = error "Mixed endian platforms not supported." -type CARD8  = Word8-type CARD16 = Word16-type CARD32 = Word32--type INT32 = Int32-type INT16 = Int16-type INT8  = Int8--type BOOL = Word8--type BYTE = Word8- newtype Xid = MkXid Word32  deriving (Eq, Ord, Serialize, Deserialize) @@ -76,6 +56,9 @@     fromXid = id     toXid   = id +xidNone :: Xid+xidNone = MkXid 0+ -- Enums and ValueParams  class SimpleEnum a where@@ -139,23 +122,40 @@ -- In units of four bytes type ReplyLength = Word32 -newtype Receipt a = MkReceipt-    {unReceipt :: TMVar (Either SomeError a)}+-- The Receipt type allows the sender of the request+-- to arbitrarily munge the result before handing+-- it back to the caller+newtype Receipt a = MkReceipt (TVar (InnerReceipt a)) -newEmptyReceiptIO :: IO (Receipt a)-newEmptyReceiptIO = MkReceipt `fmap` newEmptyTMVarIO+type RawReceipt = TMVar (Either SomeError ByteString) -putReceipt :: Receipt a -> Either SomeError a -> STM ()-putReceipt = putTMVar . unReceipt+data InnerReceipt a+    = Item (Either SomeError a)+    | Result RawReceipt (ByteString -> a) +newEmptyReceipt :: (ByteString -> a) -> IO (Receipt a, RawReceipt)+newEmptyReceipt f = do+  rawReceipt <- newEmptyTMVarIO+  ref <- newTVarIO $ Result rawReceipt f+  return $ (MkReceipt ref, rawReceipt)++newDeserReceipt :: Deserialize a => IO (Receipt a, RawReceipt)+newDeserReceipt = newEmptyReceipt $ runGet deserialize++putReceipt :: RawReceipt -> Either SomeError ByteString -> STM ()+putReceipt = putTMVar+ -- | Extracts a reply from the receipt from the request. -- Blocks until the reply is available. getReply :: Receipt a -> IO (Either SomeError a)-getReply (MkReceipt r)-    = atomically $ do-        a <- takeTMVar r-        putTMVar r a-        return a+getReply (MkReceipt ref) = atomically $+    readTVar ref >>= \ircpt -> case ircpt of+       Item a -> return a+       Result rrcpt f -> do+         res <- takeTMVar rrcpt+         let ret = either Left (Right . f) res+         writeTVar ref $ Item ret+         return ret  -- Because new errors and events are introduced with each extension, -- I don't want to give the users of this library pattern-match@@ -218,6 +218,24 @@  --Instances ++instance Serialize Bool where+    serialize = serialize `fmap` boolToWord+    size = size . boolToWord++instance Deserialize Bool where+    deserialize = wordToBool `fmap` deserialize++boolToWord :: Bool -> Word8+wordToBool :: Word8 -> Bool++boolToWord True = 1+boolToWord False = 0++wordToBool 0 = False+wordToBool _ = True++ -- Words instance Serialize Word8 where     serialize = putWord8@@ -369,5 +387,5 @@ putSkip 0 = return () putSkip n = replicateM_ n $ putWord8 0 -isCard32 :: CARD32 -> a+isCard32 :: Word32 -> a isCard32 = undefined
patched/Graphics/XHB/Gen/BigRequests.hs view
@@ -7,6 +7,9 @@ import Graphics.XHB.Connection.Types import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import Data.Binary.Put (runPut) import Graphics.XHB.Shared hiding (Event(..), Error(..))  @@ -14,12 +17,12 @@ extension = "BIG-REQUESTS"   enable ::-         Graphics.XHB.Connection.Types.Connection ->-           IO (Receipt EnableReply)+         Graphics.XHB.Connection.Types.Connection -> IO (Receipt Word32) enable c-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet (maximum_request_length_EnableReply `fmap` deserialize))        let req = MkEnable        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt
patched/Graphics/XHB/Gen/BigRequests/Types.hs view
@@ -2,6 +2,7 @@        (deserializeError, deserializeEvent, Enable(..), EnableReply(..))        where import Data.Word+import Data.Int import Foreign.C.Types import Data.Bits import Data.Binary.Put@@ -28,11 +29,11 @@           = do putWord8 extOpCode                putWord8 0                let size__ = 4-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                putSkip (requiredPadding size__)   data EnableReply = MkEnableReply{maximum_request_length_EnableReply-                                 :: CARD32}+                                 :: Word32}                  deriving (Show, Typeable)   instance Deserialize EnableReply where
patched/Graphics/XHB/Gen/Composite.hs view
@@ -10,6 +10,9 @@ import Graphics.XHB.Connection.Types import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import Data.Binary.Put (runPut) import Graphics.XHB.Shared hiding (Event(..), Error(..)) import Graphics.XHB.Gen.Xproto.Types@@ -25,18 +28,18 @@   queryVersion ::                Graphics.XHB.Connection.Types.Connection ->-                 CARD32 -> CARD32 -> IO (Receipt QueryVersionReply)+                 Word32 -> Word32 -> IO (Receipt QueryVersionReply) queryVersion c client_major_version client_minor_version-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkQueryVersion client_major_version client_minor_version        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   redirectWindow ::                  Graphics.XHB.Connection.Types.Connection ->-                   WINDOW -> CARD8 -> IO ()+                   WINDOW -> Word8 -> IO () redirectWindow c window update   = do let req = MkRedirectWindow window update        putAction <- serializeExtensionRequest c req@@ -45,7 +48,7 @@   redirectSubwindows ::                      Graphics.XHB.Connection.Types.Connection ->-                       WINDOW -> CARD8 -> IO ()+                       WINDOW -> Word8 -> IO () redirectSubwindows c window update   = do let req = MkRedirectSubwindows window update        putAction <- serializeExtensionRequest c req@@ -54,7 +57,7 @@   unredirectWindow ::                    Graphics.XHB.Connection.Types.Connection ->-                     WINDOW -> CARD8 -> IO ()+                     WINDOW -> Word8 -> IO () unredirectWindow c window update   = do let req = MkUnredirectWindow window update        putAction <- serializeExtensionRequest c req@@ -63,7 +66,7 @@   unredirectSubwindows ::                        Graphics.XHB.Connection.Types.Connection ->-                         WINDOW -> CARD8 -> IO ()+                         WINDOW -> Word8 -> IO () unredirectSubwindows c window update   = do let req = MkUnredirectSubwindows window update        putAction <- serializeExtensionRequest c req@@ -90,13 +93,14 @@   getOverlayWindow ::                    Graphics.XHB.Connection.Types.Connection ->-                     WINDOW -> IO (Receipt GetOverlayWindowReply)+                     WINDOW -> IO (Receipt WINDOW) getOverlayWindow c window-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet (overlay_win_GetOverlayWindowReply `fmap` deserialize))        let req = MkGetOverlayWindow window        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   releaseOverlayWindow ::
patched/Graphics/XHB/Gen/Composite/Types.hs view
@@ -7,6 +7,7 @@         GetOverlayWindowReply(..), ReleaseOverlayWindow(..))        where import Data.Word+import Data.Int import Foreign.C.Types import Data.Bits import Data.Binary.Put@@ -41,8 +42,8 @@         fromValue 1 = RedirectManual   data QueryVersion = MkQueryVersion{client_major_version_QueryVersion-                                   :: CARD32,-                                   client_minor_version_QueryVersion :: CARD32}+                                   :: Word32,+                                   client_minor_version_QueryVersion :: Word32}                   deriving (Show, Typeable)   instance ExtensionRequest QueryVersion where@@ -53,14 +54,14 @@                let size__                      = 4 + size (client_major_version_QueryVersion x) +                          size (client_minor_version_QueryVersion x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (client_major_version_QueryVersion x)                serialize (client_minor_version_QueryVersion x)                putSkip (requiredPadding size__)   data QueryVersionReply = MkQueryVersionReply{major_version_QueryVersionReply-                                             :: CARD32,-                                             minor_version_QueryVersionReply :: CARD32}+                                             :: Word32,+                                             minor_version_QueryVersionReply :: Word32}                        deriving (Show, Typeable)   instance Deserialize QueryVersionReply where@@ -77,7 +78,7 @@   data RedirectWindow = MkRedirectWindow{window_RedirectWindow ::                                        WINDOW,-                                       update_RedirectWindow :: CARD8}+                                       update_RedirectWindow :: Word8}                     deriving (Show, Typeable)   instance ExtensionRequest RedirectWindow where@@ -89,7 +90,7 @@                      = 4 + size (window_RedirectWindow x) +                          size (update_RedirectWindow x)                          + 3-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (window_RedirectWindow x)                serialize (update_RedirectWindow x)                putSkip 3@@ -97,7 +98,7 @@   data RedirectSubwindows = MkRedirectSubwindows{window_RedirectSubwindows                                                :: WINDOW,-                                               update_RedirectSubwindows :: CARD8}+                                               update_RedirectSubwindows :: Word8}                         deriving (Show, Typeable)   instance ExtensionRequest RedirectSubwindows where@@ -109,7 +110,7 @@                      = 4 + size (window_RedirectSubwindows x) +                          size (update_RedirectSubwindows x)                          + 3-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (window_RedirectSubwindows x)                serialize (update_RedirectSubwindows x)                putSkip 3@@ -117,7 +118,7 @@   data UnredirectWindow = MkUnredirectWindow{window_UnredirectWindow                                            :: WINDOW,-                                           update_UnredirectWindow :: CARD8}+                                           update_UnredirectWindow :: Word8}                       deriving (Show, Typeable)   instance ExtensionRequest UnredirectWindow where@@ -129,7 +130,7 @@                      = 4 + size (window_UnredirectWindow x) +                          size (update_UnredirectWindow x)                          + 3-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (window_UnredirectWindow x)                serialize (update_UnredirectWindow x)                putSkip 3@@ -137,7 +138,7 @@   data UnredirectSubwindows = MkUnredirectSubwindows{window_UnredirectSubwindows                                                    :: WINDOW,-                                                   update_UnredirectSubwindows :: CARD8}+                                                   update_UnredirectSubwindows :: Word8}                           deriving (Show, Typeable)   instance ExtensionRequest UnredirectSubwindows where@@ -149,7 +150,7 @@                      = 4 + size (window_UnredirectSubwindows x) +                          size (update_UnredirectSubwindows x)                          + 3-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (window_UnredirectSubwindows x)                serialize (update_UnredirectSubwindows x)                putSkip 3@@ -169,7 +170,7 @@                let size__                      = 4 + size (region_CreateRegionFromBorderClip x) +                          size (window_CreateRegionFromBorderClip x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (region_CreateRegionFromBorderClip x)                serialize (window_CreateRegionFromBorderClip x)                putSkip (requiredPadding size__)@@ -187,7 +188,7 @@                let size__                      = 4 + size (window_NameWindowPixmap x) +                          size (pixmap_NameWindowPixmap x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (window_NameWindowPixmap x)                serialize (pixmap_NameWindowPixmap x)                putSkip (requiredPadding size__)@@ -202,7 +203,7 @@           = do putWord8 extOpCode                putWord8 7                let size__ = 4 + size (window_GetOverlayWindow x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (window_GetOverlayWindow x)                putSkip (requiredPadding size__)  @@ -231,6 +232,6 @@           = do putWord8 extOpCode                putWord8 8                let size__ = 4 + size (window_ReleaseOverlayWindow x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (window_ReleaseOverlayWindow x)                putSkip (requiredPadding size__)
patched/Graphics/XHB/Gen/DPMS.hs view
@@ -8,6 +8,9 @@ import Graphics.XHB.Connection.Types import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import Data.Binary.Put (runPut) import Graphics.XHB.Shared hiding (Event(..), Error(..))  @@ -16,35 +19,35 @@   getVersion ::              Graphics.XHB.Connection.Types.Connection ->-               CARD16 -> CARD16 -> IO (Receipt GetVersionReply)+               Word16 -> Word16 -> IO (Receipt GetVersionReply) getVersion c client_major_version client_minor_version-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetVersion client_major_version client_minor_version        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   capable ::-          Graphics.XHB.Connection.Types.Connection ->-            IO (Receipt CapableReply)+          Graphics.XHB.Connection.Types.Connection -> IO (Receipt Bool) capable c-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet (capable_CapableReply `fmap` deserialize))        let req = MkCapable        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getTimeouts ::               Graphics.XHB.Connection.Types.Connection ->                 IO (Receipt GetTimeoutsReply) getTimeouts c-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetTimeouts        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   setTimeouts ::@@ -55,7 +58,7 @@        sendRequest c chunk   forceLevel ::-             Graphics.XHB.Connection.Types.Connection -> CARD16 -> IO ()+             Graphics.XHB.Connection.Types.Connection -> Word16 -> IO () forceLevel c power_level   = do let req = MkForceLevel power_level        putAction <- serializeExtensionRequest c req@@ -65,9 +68,9 @@ info ::        Graphics.XHB.Connection.Types.Connection -> IO (Receipt InfoReply) info c-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkInfo        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt
patched/Graphics/XHB/Gen/DPMS/Types.hs view
@@ -5,6 +5,7 @@         ForceLevel(..), Info(..), InfoReply(..))        where import Data.Word+import Data.Int import Foreign.C.Types import Data.Bits import Data.Binary.Put@@ -23,8 +24,8 @@ deserializeEvent _ = Nothing   data GetVersion = MkGetVersion{client_major_version_GetVersion ::-                               CARD16,-                               client_minor_version_GetVersion :: CARD16}+                               Word16,+                               client_minor_version_GetVersion :: Word16}                 deriving (Show, Typeable)   instance ExtensionRequest GetVersion where@@ -35,14 +36,14 @@                let size__                      = 4 + size (client_major_version_GetVersion x) +                          size (client_minor_version_GetVersion x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (client_major_version_GetVersion x)                serialize (client_minor_version_GetVersion x)                putSkip (requiredPadding size__)   data GetVersionReply = MkGetVersionReply{server_major_version_GetVersionReply-                                         :: CARD16,-                                         server_minor_version_GetVersionReply :: CARD16}+                                         :: Word16,+                                         server_minor_version_GetVersionReply :: Word16}                      deriving (Show, Typeable)   instance Deserialize GetVersionReply where@@ -66,10 +67,10 @@           = do putWord8 extOpCode                putWord8 1                let size__ = 4-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                putSkip (requiredPadding size__)  -data CapableReply = MkCapableReply{capable_CapableReply :: BOOL}+data CapableReply = MkCapableReply{capable_CapableReply :: Bool}                   deriving (Show, Typeable)   instance Deserialize CapableReply where@@ -92,13 +93,13 @@           = do putWord8 extOpCode                putWord8 2                let size__ = 4-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                putSkip (requiredPadding size__)   data GetTimeoutsReply = MkGetTimeoutsReply{standby_timeout_GetTimeoutsReply-                                           :: CARD16,-                                           suspend_timeout_GetTimeoutsReply :: CARD16,-                                           off_timeout_GetTimeoutsReply :: CARD16}+                                           :: Word16,+                                           suspend_timeout_GetTimeoutsReply :: Word16,+                                           off_timeout_GetTimeoutsReply :: Word16}                       deriving (Show, Typeable)   instance Deserialize GetTimeoutsReply where@@ -116,9 +117,9 @@                  (MkGetTimeoutsReply standby_timeout suspend_timeout off_timeout)   data SetTimeouts = MkSetTimeouts{standby_timeout_SetTimeouts ::-                                 CARD16,-                                 suspend_timeout_SetTimeouts :: CARD16,-                                 off_timeout_SetTimeouts :: CARD16}+                                 Word16,+                                 suspend_timeout_SetTimeouts :: Word16,+                                 off_timeout_SetTimeouts :: Word16}                  deriving (Show, Typeable)   instance ExtensionRequest SetTimeouts where@@ -130,13 +131,13 @@                      = 4 + size (standby_timeout_SetTimeouts x) +                          size (suspend_timeout_SetTimeouts x)                          + size (off_timeout_SetTimeouts x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (standby_timeout_SetTimeouts x)                serialize (suspend_timeout_SetTimeouts x)                serialize (off_timeout_SetTimeouts x)                putSkip (requiredPadding size__)  -data ForceLevel = MkForceLevel{power_level_ForceLevel :: CARD16}+data ForceLevel = MkForceLevel{power_level_ForceLevel :: Word16}                 deriving (Show, Typeable)   instance ExtensionRequest ForceLevel where@@ -145,7 +146,7 @@           = do putWord8 extOpCode                putWord8 6                let size__ = 4 + size (power_level_ForceLevel x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (power_level_ForceLevel x)                putSkip (requiredPadding size__)  @@ -158,11 +159,11 @@           = do putWord8 extOpCode                putWord8 7                let size__ = 4-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                putSkip (requiredPadding size__)  -data InfoReply = MkInfoReply{power_level_InfoReply :: CARD16,-                             state_InfoReply :: BOOL}+data InfoReply = MkInfoReply{power_level_InfoReply :: Word16,+                             state_InfoReply :: Bool}                deriving (Show, Typeable)   instance Deserialize InfoReply where
patched/Graphics/XHB/Gen/Damage.hs view
@@ -9,6 +9,9 @@ import Graphics.XHB.Connection.Types import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import Data.Binary.Put (runPut) import Graphics.XHB.Shared hiding (Event(..), Error(..)) import Graphics.XHB.Gen.Xproto.Types@@ -24,13 +27,13 @@   queryVersion ::                Graphics.XHB.Connection.Types.Connection ->-                 CARD32 -> CARD32 -> IO (Receipt QueryVersionReply)+                 Word32 -> Word32 -> IO (Receipt QueryVersionReply) queryVersion c client_major_version client_minor_version-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkQueryVersion client_major_version client_minor_version        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   create ::
patched/Graphics/XHB/Gen/Damage/Types.hs view
@@ -4,6 +4,7 @@         Subtract(..), Add(..), Notify(..))        where import Data.Word+import Data.Int import Foreign.C.Types import Data.Bits import Data.Binary.Put@@ -49,8 +50,8 @@         fromValue 3 = ReportLevelNonEmpty   data QueryVersion = MkQueryVersion{client_major_version_QueryVersion-                                   :: CARD32,-                                   client_minor_version_QueryVersion :: CARD32}+                                   :: Word32,+                                   client_minor_version_QueryVersion :: Word32}                   deriving (Show, Typeable)   instance ExtensionRequest QueryVersion where@@ -61,14 +62,14 @@                let size__                      = 4 + size (client_major_version_QueryVersion x) +                          size (client_minor_version_QueryVersion x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (client_major_version_QueryVersion x)                serialize (client_minor_version_QueryVersion x)                putSkip (requiredPadding size__)   data QueryVersionReply = MkQueryVersionReply{major_version_QueryVersionReply-                                             :: CARD32,-                                             minor_version_QueryVersionReply :: CARD32}+                                             :: Word32,+                                             minor_version_QueryVersionReply :: Word32}                        deriving (Show, Typeable)   instance Deserialize QueryVersionReply where@@ -84,7 +85,7 @@                return (MkQueryVersionReply major_version minor_version)   data Create = MkCreate{damage_Create :: DAMAGE,-                       drawable_Create :: DRAWABLE, level_Create :: CARD8}+                       drawable_Create :: DRAWABLE, level_Create :: Word8}             deriving (Show, Typeable)   instance ExtensionRequest Create where@@ -96,7 +97,7 @@                      = 4 + size (damage_Create x) + size (drawable_Create x) +                          size (level_Create x)                          + 3-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (damage_Create x)                serialize (drawable_Create x)                serialize (level_Create x)@@ -112,7 +113,7 @@           = do putWord8 extOpCode                putWord8 2                let size__ = 4 + size (damage_Destroy x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (damage_Destroy x)                putSkip (requiredPadding size__)  @@ -128,7 +129,7 @@                let size__                      = 4 + size (damage_Subtract x) + size (repair_Subtract x) +                          size (parts_Subtract x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (damage_Subtract x)                serialize (repair_Subtract x)                serialize (parts_Subtract x)@@ -143,12 +144,12 @@           = do putWord8 extOpCode                putWord8 4                let size__ = 4 + size (drawable_Add x) + size (region_Add x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (drawable_Add x)                serialize (region_Add x)                putSkip (requiredPadding size__)  -data Notify = MkNotify{level_Notify :: CARD8,+data Notify = MkNotify{level_Notify :: Word8,                        drawable_Notify :: DRAWABLE, damage_Notify :: DAMAGE,                        timestamp_Notify :: TIMESTAMP, area_Notify :: RECTANGLE,                        geometry_Notify :: RECTANGLE}
patched/Graphics/XHB/Gen/Glx.hs view
@@ -32,6 +32,9 @@ import Graphics.XHB.Connection.Types import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import Data.Binary.Put (runPut) import Graphics.XHB.Shared hiding (Event(..), Error(..)) import Graphics.XHB.Gen.Xproto.Types@@ -45,7 +48,7 @@   render ::          Graphics.XHB.Connection.Types.Connection ->-           CONTEXT_TAG -> [BYTE] -> IO ()+           CONTEXT_TAG -> [Word8] -> IO () render c context_tag data_   = do let req = MkRender context_tag data_        putAction <- serializeExtensionRequest c req@@ -77,34 +80,36 @@   makeCurrent ::               Graphics.XHB.Connection.Types.Connection ->-                MakeCurrent -> IO (Receipt MakeCurrentReply)+                MakeCurrent -> IO (Receipt CONTEXT_TAG) makeCurrent c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet (context_tag_MakeCurrentReply `fmap` deserialize))        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   isDirect ::            Graphics.XHB.Connection.Types.Connection ->-             Graphics.XHB.Gen.Glx.Types.CONTEXT -> IO (Receipt IsDirectReply)+             Graphics.XHB.Gen.Glx.Types.CONTEXT -> IO (Receipt Bool) isDirect c context-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet (is_direct_IsDirectReply `fmap` deserialize))        let req = MkIsDirect context        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   queryVersion ::                Graphics.XHB.Connection.Types.Connection ->-                 CARD32 -> CARD32 -> IO (Receipt QueryVersionReply)+                 Word32 -> Word32 -> IO (Receipt QueryVersionReply) queryVersion c major_version minor_version-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkQueryVersion major_version minor_version        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   waitGL ::@@ -156,13 +161,13 @@   getVisualConfigs ::                    Graphics.XHB.Connection.Types.Connection ->-                     CARD32 -> IO (Receipt GetVisualConfigsReply)+                     Word32 -> IO (Receipt GetVisualConfigsReply) getVisualConfigs c screen-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetVisualConfigs screen        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   destroyGLXPixmap ::@@ -185,32 +190,33 @@                          Graphics.XHB.Connection.Types.Connection ->                            VendorPrivateWithReply -> IO (Receipt VendorPrivateWithReplyReply) vendorPrivateWithReply c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   queryExtensionsString ::                         Graphics.XHB.Connection.Types.Connection ->-                          CARD32 -> IO (Receipt QueryExtensionsStringReply)+                          Word32 -> IO (Receipt Word32) queryExtensionsString c screen-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet (n_QueryExtensionsStringReply `fmap` deserialize))        let req = MkQueryExtensionsString screen        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   queryServerString ::                     Graphics.XHB.Connection.Types.Connection ->-                      CARD32 -> CARD32 -> IO (Receipt QueryServerStringReply)+                      Word32 -> Word32 -> IO (Receipt QueryServerStringReply) queryServerString c screen name-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkQueryServerString screen name        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   clientInfo ::@@ -222,13 +228,13 @@   getFBConfigs ::                Graphics.XHB.Connection.Types.Connection ->-                 CARD32 -> IO (Receipt GetFBConfigsReply)+                 Word32 -> IO (Receipt GetFBConfigsReply) getFBConfigs c screen-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetFBConfigs screen        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   createPixmap ::@@ -260,21 +266,22 @@                  Graphics.XHB.Gen.Glx.Types.CONTEXT ->                    IO (Receipt QueryContextReply) queryContext c context-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkQueryContext context        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   makeContextCurrent ::                      Graphics.XHB.Connection.Types.Connection ->-                       MakeContextCurrent -> IO (Receipt MakeContextCurrentReply)+                       MakeContextCurrent -> IO (Receipt CONTEXT_TAG) makeContextCurrent c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet (context_tag_MakeContextCurrentReply `fmap` deserialize))        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   createPbuffer ::@@ -297,11 +304,11 @@                           Graphics.XHB.Gen.Glx.Types.DRAWABLE ->                             IO (Receipt GetDrawableAttributesReply) getDrawableAttributes c drawable-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetDrawableAttributes drawable        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   changeDrawableAttributes ::@@ -352,13 +359,14 @@   genLists ::            Graphics.XHB.Connection.Types.Connection ->-             CONTEXT_TAG -> INT32 -> IO (Receipt GenListsReply)+             CONTEXT_TAG -> Int32 -> IO (Receipt Word32) genLists c context_tag range-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet (ret_val_GenListsReply `fmap` deserialize))        let req = MkGenLists context_tag range        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   feedbackBuffer ::@@ -370,7 +378,7 @@   selectBuffer ::                Graphics.XHB.Connection.Types.Connection ->-                 CONTEXT_TAG -> INT32 -> IO ()+                 CONTEXT_TAG -> Int32 -> IO () selectBuffer c context_tag size   = do let req = MkSelectBuffer context_tag size        putAction <- serializeExtensionRequest c req@@ -379,24 +387,24 @@   renderMode ::              Graphics.XHB.Connection.Types.Connection ->-               CONTEXT_TAG -> CARD32 -> IO (Receipt RenderModeReply)+               CONTEXT_TAG -> Word32 -> IO (Receipt RenderModeReply) renderMode c context_tag mode-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkRenderMode context_tag mode        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   finish ::          Graphics.XHB.Connection.Types.Connection ->            CONTEXT_TAG -> IO (Receipt FinishReply) finish c context_tag-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkFinish context_tag        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   pixelStoref ::@@ -415,314 +423,319 @@   readPixels ::              Graphics.XHB.Connection.Types.Connection ->-               ReadPixels -> IO (Receipt ReadPixelsReply)+               ReadPixels -> IO (Receipt [Word8]) readPixels c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet (data_ReadPixelsReply `fmap` deserialize))        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getBooleanv ::               Graphics.XHB.Connection.Types.Connection ->-                CONTEXT_TAG -> INT32 -> IO (Receipt GetBooleanvReply)+                CONTEXT_TAG -> Int32 -> IO (Receipt GetBooleanvReply) getBooleanv c context_tag pname-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetBooleanv context_tag pname        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getClipPlane ::                Graphics.XHB.Connection.Types.Connection ->-                 CONTEXT_TAG -> INT32 -> IO (Receipt GetClipPlaneReply)+                 CONTEXT_TAG -> Int32 -> IO (Receipt [FLOAT64]) getClipPlane c context_tag plane-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet (data_GetClipPlaneReply `fmap` deserialize))        let req = MkGetClipPlane context_tag plane        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getDoublev ::              Graphics.XHB.Connection.Types.Connection ->-               CONTEXT_TAG -> CARD32 -> IO (Receipt GetDoublevReply)+               CONTEXT_TAG -> Word32 -> IO (Receipt GetDoublevReply) getDoublev c context_tag pname-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetDoublev context_tag pname        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getError ::            Graphics.XHB.Connection.Types.Connection ->-             CONTEXT_TAG -> IO (Receipt GetErrorReply)+             CONTEXT_TAG -> IO (Receipt Int32) getError c context_tag-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet (error_GetErrorReply `fmap` deserialize))        let req = MkGetError context_tag        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getFloatv ::             Graphics.XHB.Connection.Types.Connection ->-              CONTEXT_TAG -> CARD32 -> IO (Receipt GetFloatvReply)+              CONTEXT_TAG -> Word32 -> IO (Receipt GetFloatvReply) getFloatv c context_tag pname-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetFloatv context_tag pname        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getIntegerv ::               Graphics.XHB.Connection.Types.Connection ->-                CONTEXT_TAG -> CARD32 -> IO (Receipt GetIntegervReply)+                CONTEXT_TAG -> Word32 -> IO (Receipt GetIntegervReply) getIntegerv c context_tag pname-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetIntegerv context_tag pname        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getLightfv ::              Graphics.XHB.Connection.Types.Connection ->                GetLightfv -> IO (Receipt GetLightfvReply) getLightfv c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getLightiv ::              Graphics.XHB.Connection.Types.Connection ->                GetLightiv -> IO (Receipt GetLightivReply) getLightiv c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getMapdv ::            Graphics.XHB.Connection.Types.Connection ->              GetMapdv -> IO (Receipt GetMapdvReply) getMapdv c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getMapfv ::            Graphics.XHB.Connection.Types.Connection ->              GetMapfv -> IO (Receipt GetMapfvReply) getMapfv c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getMapiv ::            Graphics.XHB.Connection.Types.Connection ->              GetMapiv -> IO (Receipt GetMapivReply) getMapiv c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getMaterialfv ::                 Graphics.XHB.Connection.Types.Connection ->                   GetMaterialfv -> IO (Receipt GetMaterialfvReply) getMaterialfv c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getMaterialiv ::                 Graphics.XHB.Connection.Types.Connection ->                   GetMaterialiv -> IO (Receipt GetMaterialivReply) getMaterialiv c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getPixelMapfv ::                 Graphics.XHB.Connection.Types.Connection ->-                  CONTEXT_TAG -> CARD32 -> IO (Receipt GetPixelMapfvReply)+                  CONTEXT_TAG -> Word32 -> IO (Receipt GetPixelMapfvReply) getPixelMapfv c context_tag map-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetPixelMapfv context_tag map        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getPixelMapuiv ::                  Graphics.XHB.Connection.Types.Connection ->-                   CONTEXT_TAG -> CARD32 -> IO (Receipt GetPixelMapuivReply)+                   CONTEXT_TAG -> Word32 -> IO (Receipt GetPixelMapuivReply) getPixelMapuiv c context_tag map-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetPixelMapuiv context_tag map        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getPixelMapusv ::                  Graphics.XHB.Connection.Types.Connection ->-                   CONTEXT_TAG -> CARD32 -> IO (Receipt GetPixelMapusvReply)+                   CONTEXT_TAG -> Word32 -> IO (Receipt GetPixelMapusvReply) getPixelMapusv c context_tag map-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetPixelMapusv context_tag map        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getPolygonStipple ::                     Graphics.XHB.Connection.Types.Connection ->-                      CONTEXT_TAG -> BOOL -> IO (Receipt GetPolygonStippleReply)+                      CONTEXT_TAG -> Bool -> IO (Receipt [Word8]) getPolygonStipple c context_tag lsb_first-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet (data_GetPolygonStippleReply `fmap` deserialize))        let req = MkGetPolygonStipple context_tag lsb_first        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getString ::             Graphics.XHB.Connection.Types.Connection ->-              CONTEXT_TAG -> CARD32 -> IO (Receipt GetStringReply)+              CONTEXT_TAG -> Word32 -> IO (Receipt GetStringReply) getString c context_tag name-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetString context_tag name        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getTexEnvfv ::               Graphics.XHB.Connection.Types.Connection ->                 GetTexEnvfv -> IO (Receipt GetTexEnvfvReply) getTexEnvfv c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getTexEnviv ::               Graphics.XHB.Connection.Types.Connection ->                 GetTexEnviv -> IO (Receipt GetTexEnvivReply) getTexEnviv c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getTexGendv ::               Graphics.XHB.Connection.Types.Connection ->                 GetTexGendv -> IO (Receipt GetTexGendvReply) getTexGendv c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getTexGenfv ::               Graphics.XHB.Connection.Types.Connection ->                 GetTexGenfv -> IO (Receipt GetTexGenfvReply) getTexGenfv c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getTexGeniv ::               Graphics.XHB.Connection.Types.Connection ->                 GetTexGeniv -> IO (Receipt GetTexGenivReply) getTexGeniv c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getTexImage ::               Graphics.XHB.Connection.Types.Connection ->                 GetTexImage -> IO (Receipt GetTexImageReply) getTexImage c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getTexParameterfv ::                     Graphics.XHB.Connection.Types.Connection ->                       GetTexParameterfv -> IO (Receipt GetTexParameterfvReply) getTexParameterfv c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getTexParameteriv ::                     Graphics.XHB.Connection.Types.Connection ->                       GetTexParameteriv -> IO (Receipt GetTexParameterivReply) getTexParameteriv c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getTexLevelParameterfv ::                          Graphics.XHB.Connection.Types.Connection ->                            GetTexLevelParameterfv -> IO (Receipt GetTexLevelParameterfvReply) getTexLevelParameterfv c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getTexLevelParameteriv ::                          Graphics.XHB.Connection.Types.Connection ->                            GetTexLevelParameteriv -> IO (Receipt GetTexLevelParameterivReply) getTexLevelParameteriv c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   isList ::          Graphics.XHB.Connection.Types.Connection ->-           CONTEXT_TAG -> CARD32 -> IO (Receipt IsListReply)+           CONTEXT_TAG -> Word32 -> IO (Receipt BOOL32) isList c context_tag list-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet (ret_val_IsListReply `fmap` deserialize))        let req = MkIsList context_tag list        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   flush ::@@ -737,10 +750,10 @@                       Graphics.XHB.Connection.Types.Connection ->                         AreTexturesResident -> IO (Receipt AreTexturesResidentReply) areTexturesResident c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   deleteTextures ::@@ -752,34 +765,36 @@   genTextures ::               Graphics.XHB.Connection.Types.Connection ->-                CONTEXT_TAG -> INT32 -> IO (Receipt GenTexturesReply)+                CONTEXT_TAG -> Int32 -> IO (Receipt [Word32]) genTextures c context_tag n-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet (data_GenTexturesReply `fmap` deserialize))        let req = MkGenTextures context_tag n        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   isTexture ::             Graphics.XHB.Connection.Types.Connection ->-              CONTEXT_TAG -> CARD32 -> IO (Receipt IsTextureReply)+              CONTEXT_TAG -> Word32 -> IO (Receipt BOOL32) isTexture c context_tag texture-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet (ret_val_IsTextureReply `fmap` deserialize))        let req = MkIsTexture context_tag texture        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getColorTable ::                 Graphics.XHB.Connection.Types.Connection ->                   GetColorTable -> IO (Receipt GetColorTableReply) getColorTable c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getColorTableParameterfv ::@@ -787,10 +802,10 @@                              GetColorTableParameterfv ->                                IO (Receipt GetColorTableParameterfvReply) getColorTableParameterfv c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getColorTableParameteriv ::@@ -798,20 +813,20 @@                              GetColorTableParameteriv ->                                IO (Receipt GetColorTableParameterivReply) getColorTableParameteriv c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getConvolutionFilter ::                        Graphics.XHB.Connection.Types.Connection ->                          GetConvolutionFilter -> IO (Receipt GetConvolutionFilterReply) getConvolutionFilter c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getConvolutionParameterfv ::@@ -819,10 +834,10 @@                               GetConvolutionParameterfv ->                                 IO (Receipt GetConvolutionParameterfvReply) getConvolutionParameterfv c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getConvolutionParameteriv ::@@ -830,30 +845,30 @@                               GetConvolutionParameteriv ->                                 IO (Receipt GetConvolutionParameterivReply) getConvolutionParameteriv c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getSeparableFilter ::                      Graphics.XHB.Connection.Types.Connection ->                        GetSeparableFilter -> IO (Receipt GetSeparableFilterReply) getSeparableFilter c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getHistogram ::                Graphics.XHB.Connection.Types.Connection ->                  GetHistogram -> IO (Receipt GetHistogramReply) getHistogram c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getHistogramParameterfv ::@@ -861,10 +876,10 @@                             GetHistogramParameterfv ->                               IO (Receipt GetHistogramParameterfvReply) getHistogramParameterfv c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getHistogramParameteriv ::@@ -872,40 +887,41 @@                             GetHistogramParameteriv ->                               IO (Receipt GetHistogramParameterivReply) getHistogramParameteriv c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getMinmax ::             Graphics.XHB.Connection.Types.Connection ->-              GetMinmax -> IO (Receipt GetMinmaxReply)+              GetMinmax -> IO (Receipt [Word8]) getMinmax c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet (data_GetMinmaxReply `fmap` deserialize))        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getMinmaxParameterfv ::                        Graphics.XHB.Connection.Types.Connection ->                          GetMinmaxParameterfv -> IO (Receipt GetMinmaxParameterfvReply) getMinmaxParameterfv c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getMinmaxParameteriv ::                        Graphics.XHB.Connection.Types.Connection ->                          GetMinmaxParameteriv -> IO (Receipt GetMinmaxParameterivReply) getMinmaxParameteriv c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getCompressedTexImageARB ::@@ -913,10 +929,10 @@                              GetCompressedTexImageARB ->                                IO (Receipt GetCompressedTexImageARBReply) getCompressedTexImageARB c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   deleteQueriesARB ::@@ -929,52 +945,54 @@   genQueriesARB ::                 Graphics.XHB.Connection.Types.Connection ->-                  CONTEXT_TAG -> INT32 -> IO (Receipt GenQueriesARBReply)+                  CONTEXT_TAG -> Int32 -> IO (Receipt [Word32]) genQueriesARB c context_tag n-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet (data_GenQueriesARBReply `fmap` deserialize))        let req = MkGenQueriesARB context_tag n        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   isQueryARB ::              Graphics.XHB.Connection.Types.Connection ->-               CONTEXT_TAG -> CARD32 -> IO (Receipt IsQueryARBReply)+               CONTEXT_TAG -> Word32 -> IO (Receipt BOOL32) isQueryARB c context_tag id-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet (ret_val_IsQueryARBReply `fmap` deserialize))        let req = MkIsQueryARB context_tag id        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getQueryivARB ::                 Graphics.XHB.Connection.Types.Connection ->                   GetQueryivARB -> IO (Receipt GetQueryivARBReply) getQueryivARB c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getQueryObjectivARB ::                       Graphics.XHB.Connection.Types.Connection ->                         GetQueryObjectivARB -> IO (Receipt GetQueryObjectivARBReply) getQueryObjectivARB c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getQueryObjectuivARB ::                        Graphics.XHB.Connection.Types.Connection ->                          GetQueryObjectuivARB -> IO (Receipt GetQueryObjectuivARBReply) getQueryObjectuivARB c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt
patched/Graphics/XHB/Gen/Glx/Types.hs view
@@ -70,6 +70,7 @@         GetQueryObjectuivARB(..), GetQueryObjectuivARBReply(..))        where import Data.Word+import Data.Int import Foreign.C.Types import Data.Bits import Data.Binary.Put@@ -143,12 +144,12 @@   type FLOAT64 = CDouble  -type BOOL32 = CARD32+type BOOL32 = Word32  -type CONTEXT_TAG = CARD32+type CONTEXT_TAG = Word32  -data Generic = MkGeneric{bad_value_Generic :: CARD32,-                         minor_opcode_Generic :: CARD16, major_opcode_Generic :: CARD8}+data Generic = MkGeneric{bad_value_Generic :: Word32,+                         minor_opcode_Generic :: Word16, major_opcode_Generic :: Word8}              deriving (Show, Typeable)   instance Graphics.XHB.Shared.Error Generic@@ -162,9 +163,9 @@                skip 21                return (MkGeneric bad_value minor_opcode major_opcode)  -data BadContext = MkBadContext{bad_value_BadContext :: CARD32,-                               minor_opcode_BadContext :: CARD16,-                               major_opcode_BadContext :: CARD8}+data BadContext = MkBadContext{bad_value_BadContext :: Word32,+                               minor_opcode_BadContext :: Word16,+                               major_opcode_BadContext :: Word8}                 deriving (Show, Typeable)   instance Graphics.XHB.Shared.Error BadContext@@ -179,9 +180,9 @@                return (MkBadContext bad_value minor_opcode major_opcode)   data BadContextState = MkBadContextState{bad_value_BadContextState-                                         :: CARD32,-                                         minor_opcode_BadContextState :: CARD16,-                                         major_opcode_BadContextState :: CARD8}+                                         :: Word32,+                                         minor_opcode_BadContextState :: Word16,+                                         major_opcode_BadContextState :: Word8}                      deriving (Show, Typeable)   instance Graphics.XHB.Shared.Error BadContextState@@ -195,9 +196,9 @@                skip 21                return (MkBadContextState bad_value minor_opcode major_opcode)  -data BadDrawable = MkBadDrawable{bad_value_BadDrawable :: CARD32,-                                 minor_opcode_BadDrawable :: CARD16,-                                 major_opcode_BadDrawable :: CARD8}+data BadDrawable = MkBadDrawable{bad_value_BadDrawable :: Word32,+                                 minor_opcode_BadDrawable :: Word16,+                                 major_opcode_BadDrawable :: Word8}                  deriving (Show, Typeable)   instance Graphics.XHB.Shared.Error BadDrawable@@ -211,8 +212,8 @@                skip 21                return (MkBadDrawable bad_value minor_opcode major_opcode)  -data BadPixmap = MkBadPixmap{bad_value_BadPixmap :: CARD32,-                             minor_opcode_BadPixmap :: CARD16, major_opcode_BadPixmap :: CARD8}+data BadPixmap = MkBadPixmap{bad_value_BadPixmap :: Word32,+                             minor_opcode_BadPixmap :: Word16, major_opcode_BadPixmap :: Word8}                deriving (Show, Typeable)   instance Graphics.XHB.Shared.Error BadPixmap@@ -227,9 +228,9 @@                return (MkBadPixmap bad_value minor_opcode major_opcode)   data BadContextTag = MkBadContextTag{bad_value_BadContextTag ::-                                     CARD32,-                                     minor_opcode_BadContextTag :: CARD16,-                                     major_opcode_BadContextTag :: CARD8}+                                     Word32,+                                     minor_opcode_BadContextTag :: Word16,+                                     major_opcode_BadContextTag :: Word8}                    deriving (Show, Typeable)   instance Graphics.XHB.Shared.Error BadContextTag@@ -244,9 +245,9 @@                return (MkBadContextTag bad_value minor_opcode major_opcode)   data BadCurrentWindow = MkBadCurrentWindow{bad_value_BadCurrentWindow-                                           :: CARD32,-                                           minor_opcode_BadCurrentWindow :: CARD16,-                                           major_opcode_BadCurrentWindow :: CARD8}+                                           :: Word32,+                                           minor_opcode_BadCurrentWindow :: Word16,+                                           major_opcode_BadCurrentWindow :: Word8}                       deriving (Show, Typeable)   instance Graphics.XHB.Shared.Error BadCurrentWindow@@ -261,9 +262,9 @@                return (MkBadCurrentWindow bad_value minor_opcode major_opcode)   data BadRenderRequest = MkBadRenderRequest{bad_value_BadRenderRequest-                                           :: CARD32,-                                           minor_opcode_BadRenderRequest :: CARD16,-                                           major_opcode_BadRenderRequest :: CARD8}+                                           :: Word32,+                                           minor_opcode_BadRenderRequest :: Word16,+                                           major_opcode_BadRenderRequest :: Word8}                       deriving (Show, Typeable)   instance Graphics.XHB.Shared.Error BadRenderRequest@@ -278,9 +279,9 @@                return (MkBadRenderRequest bad_value minor_opcode major_opcode)   data BadLargeRequest = MkBadLargeRequest{bad_value_BadLargeRequest-                                         :: CARD32,-                                         minor_opcode_BadLargeRequest :: CARD16,-                                         major_opcode_BadLargeRequest :: CARD8}+                                         :: Word32,+                                         minor_opcode_BadLargeRequest :: Word16,+                                         major_opcode_BadLargeRequest :: Word8}                      deriving (Show, Typeable)   instance Graphics.XHB.Shared.Error BadLargeRequest@@ -295,11 +296,11 @@                return (MkBadLargeRequest bad_value minor_opcode major_opcode)   data UnsupportedPrivateRequest = MkUnsupportedPrivateRequest{bad_value_UnsupportedPrivateRequest-                                                             :: CARD32,+                                                             :: Word32,                                                              minor_opcode_UnsupportedPrivateRequest-                                                             :: CARD16,+                                                             :: Word16,                                                              major_opcode_UnsupportedPrivateRequest-                                                             :: CARD8}+                                                             :: Word8}                                deriving (Show, Typeable)   instance Graphics.XHB.Shared.Error UnsupportedPrivateRequest@@ -314,9 +315,9 @@                return                  (MkUnsupportedPrivateRequest bad_value minor_opcode major_opcode)  -data BadFBConfig = MkBadFBConfig{bad_value_BadFBConfig :: CARD32,-                                 minor_opcode_BadFBConfig :: CARD16,-                                 major_opcode_BadFBConfig :: CARD8}+data BadFBConfig = MkBadFBConfig{bad_value_BadFBConfig :: Word32,+                                 minor_opcode_BadFBConfig :: Word16,+                                 major_opcode_BadFBConfig :: Word8}                  deriving (Show, Typeable)   instance Graphics.XHB.Shared.Error BadFBConfig@@ -330,9 +331,9 @@                skip 21                return (MkBadFBConfig bad_value minor_opcode major_opcode)  -data BadPbuffer = MkBadPbuffer{bad_value_BadPbuffer :: CARD32,-                               minor_opcode_BadPbuffer :: CARD16,-                               major_opcode_BadPbuffer :: CARD8}+data BadPbuffer = MkBadPbuffer{bad_value_BadPbuffer :: Word32,+                               minor_opcode_BadPbuffer :: Word16,+                               major_opcode_BadPbuffer :: Word8}                 deriving (Show, Typeable)   instance Graphics.XHB.Shared.Error BadPbuffer@@ -347,9 +348,9 @@                return (MkBadPbuffer bad_value minor_opcode major_opcode)   data BadCurrentDrawable = MkBadCurrentDrawable{bad_value_BadCurrentDrawable-                                               :: CARD32,-                                               minor_opcode_BadCurrentDrawable :: CARD16,-                                               major_opcode_BadCurrentDrawable :: CARD8}+                                               :: Word32,+                                               minor_opcode_BadCurrentDrawable :: Word16,+                                               major_opcode_BadCurrentDrawable :: Word8}                         deriving (Show, Typeable)   instance Graphics.XHB.Shared.Error BadCurrentDrawable@@ -363,8 +364,8 @@                skip 21                return (MkBadCurrentDrawable bad_value minor_opcode major_opcode)  -data BadWindow = MkBadWindow{bad_value_BadWindow :: CARD32,-                             minor_opcode_BadWindow :: CARD16, major_opcode_BadWindow :: CARD8}+data BadWindow = MkBadWindow{bad_value_BadWindow :: Word32,+                             minor_opcode_BadWindow :: Word16, major_opcode_BadWindow :: Word8}                deriving (Show, Typeable)   instance Graphics.XHB.Shared.Error BadWindow@@ -379,16 +380,16 @@                return (MkBadWindow bad_value minor_opcode major_opcode)   data PbufferClobber = MkPbufferClobber{event_type_PbufferClobber ::-                                       CARD16,-                                       draw_type_PbufferClobber :: CARD16,+                                       Word16,+                                       draw_type_PbufferClobber :: Word16,                                        drawable_PbufferClobber ::                                        Graphics.XHB.Gen.Glx.Types.DRAWABLE,-                                       b_mask_PbufferClobber :: CARD32,-                                       aux_buffer_PbufferClobber :: CARD16,-                                       x_PbufferClobber :: CARD16, y_PbufferClobber :: CARD16,-                                       width_PbufferClobber :: CARD16,-                                       height_PbufferClobber :: CARD16,-                                       count_PbufferClobber :: CARD16}+                                       b_mask_PbufferClobber :: Word32,+                                       aux_buffer_PbufferClobber :: Word16,+                                       x_PbufferClobber :: Word16, y_PbufferClobber :: Word16,+                                       width_PbufferClobber :: Word16,+                                       height_PbufferClobber :: Word16,+                                       count_PbufferClobber :: Word16}                     deriving (Show, Typeable)   instance Graphics.XHB.Shared.Event PbufferClobber@@ -435,7 +436,7 @@         fromValue 32794 = PBCDTPbuffer   data Render = MkRender{context_tag_Render :: CONTEXT_TAG,-                       data_Render :: [BYTE]}+                       data_Render :: [Word8]}             deriving (Show, Typeable)   instance ExtensionRequest Render where@@ -445,16 +446,16 @@                putWord8 1                let size__                      = 4 + size (context_tag_Render x) + sum (map size (data_Render x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_Render x)                serializeList (data_Render x)                putSkip (requiredPadding size__)   data RenderLarge = MkRenderLarge{context_tag_RenderLarge ::                                  CONTEXT_TAG,-                                 request_num_RenderLarge :: CARD16,-                                 request_total_RenderLarge :: CARD16,-                                 data_len_RenderLarge :: CARD32, data_RenderLarge :: [BYTE]}+                                 request_num_RenderLarge :: Word16,+                                 request_total_RenderLarge :: Word16,+                                 data_len_RenderLarge :: Word32, data_RenderLarge :: [Word8]}                  deriving (Show, Typeable)   instance ExtensionRequest RenderLarge where@@ -468,7 +469,7 @@                          + size (request_total_RenderLarge x)                          + size (data_len_RenderLarge x)                          + sum (map size (data_RenderLarge x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_RenderLarge x)                serialize (request_num_RenderLarge x)                serialize (request_total_RenderLarge x)@@ -479,9 +480,9 @@ data CreateContext = MkCreateContext{context_CreateContext ::                                      Graphics.XHB.Gen.Glx.Types.CONTEXT,                                      visual_CreateContext :: VISUALID,-                                     screen_CreateContext :: CARD32,+                                     screen_CreateContext :: Word32,                                      share_list_CreateContext :: Graphics.XHB.Gen.Glx.Types.CONTEXT,-                                     is_direct_CreateContext :: BOOL}+                                     is_direct_CreateContext :: Bool}                    deriving (Show, Typeable)   instance ExtensionRequest CreateContext where@@ -496,7 +497,7 @@                          + size (share_list_CreateContext x)                          + size (is_direct_CreateContext x)                          + 3-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_CreateContext x)                serialize (visual_CreateContext x)                serialize (screen_CreateContext x)@@ -515,7 +516,7 @@           = do putWord8 extOpCode                putWord8 4                let size__ = 4 + size (context_DestroyContext x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_DestroyContext x)                putSkip (requiredPadding size__)  @@ -533,7 +534,7 @@                let size__                      = 4 + size (drawable_MakeCurrent x) + size (context_MakeCurrent x)                          + size (old_context_tag_MakeCurrent x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (drawable_MakeCurrent x)                serialize (context_MakeCurrent x)                serialize (old_context_tag_MakeCurrent x)@@ -564,12 +565,12 @@           = do putWord8 extOpCode                putWord8 6                let size__ = 4 + size (context_IsDirect x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_IsDirect x)                putSkip (requiredPadding size__)   data IsDirectReply = MkIsDirectReply{is_direct_IsDirectReply ::-                                     BOOL}+                                     Bool}                    deriving (Show, Typeable)   instance Deserialize IsDirectReply where@@ -584,8 +585,8 @@                return (MkIsDirectReply is_direct)   data QueryVersion = MkQueryVersion{major_version_QueryVersion ::-                                   CARD32,-                                   minor_version_QueryVersion :: CARD32}+                                   Word32,+                                   minor_version_QueryVersion :: Word32}                   deriving (Show, Typeable)   instance ExtensionRequest QueryVersion where@@ -596,14 +597,14 @@                let size__                      = 4 + size (major_version_QueryVersion x) +                          size (minor_version_QueryVersion x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (major_version_QueryVersion x)                serialize (minor_version_QueryVersion x)                putSkip (requiredPadding size__)   data QueryVersionReply = MkQueryVersionReply{major_version_QueryVersionReply-                                             :: CARD32,-                                             minor_version_QueryVersionReply :: CARD32}+                                             :: Word32,+                                             minor_version_QueryVersionReply :: Word32}                        deriving (Show, Typeable)   instance Deserialize QueryVersionReply where@@ -627,7 +628,7 @@           = do putWord8 extOpCode                putWord8 8                let size__ = 4 + size (context_tag_WaitGL x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_WaitGL x)                putSkip (requiredPadding size__)  @@ -640,14 +641,14 @@           = do putWord8 extOpCode                putWord8 9                let size__ = 4 + size (context_tag_WaitX x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_WaitX x)                putSkip (requiredPadding size__)   data CopyContext = MkCopyContext{src_CopyContext ::                                  Graphics.XHB.Gen.Glx.Types.CONTEXT,                                  dest_CopyContext :: Graphics.XHB.Gen.Glx.Types.CONTEXT,-                                 mask_CopyContext :: CARD32,+                                 mask_CopyContext :: Word32,                                  src_context_tag_CopyContext :: CONTEXT_TAG}                  deriving (Show, Typeable)  @@ -660,7 +661,7 @@                      = 4 + size (src_CopyContext x) + size (dest_CopyContext x) +                          size (mask_CopyContext x)                          + size (src_context_tag_CopyContext x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (src_CopyContext x)                serialize (dest_CopyContext x)                serialize (mask_CopyContext x)@@ -743,14 +744,14 @@                let size__                      = 4 + size (context_tag_SwapBuffers x) +                          size (drawable_SwapBuffers x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_SwapBuffers x)                serialize (drawable_SwapBuffers x)                putSkip (requiredPadding size__)   data UseXFont = MkUseXFont{context_tag_UseXFont :: CONTEXT_TAG,-                           font_UseXFont :: FONT, first_UseXFont :: CARD32,-                           count_UseXFont :: CARD32, list_base_UseXFont :: CARD32}+                           font_UseXFont :: FONT, first_UseXFont :: Word32,+                           count_UseXFont :: Word32, list_base_UseXFont :: Word32}               deriving (Show, Typeable)   instance ExtensionRequest UseXFont where@@ -763,7 +764,7 @@                          size (first_UseXFont x)                          + size (count_UseXFont x)                          + size (list_base_UseXFont x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_UseXFont x)                serialize (font_UseXFont x)                serialize (first_UseXFont x)@@ -772,7 +773,7 @@                putSkip (requiredPadding size__)   data CreateGLXPixmap = MkCreateGLXPixmap{screen_CreateGLXPixmap ::-                                         CARD32,+                                         Word32,                                          visual_CreateGLXPixmap :: VISUALID,                                          pixmap_CreateGLXPixmap ::                                          Graphics.XHB.Gen.Xproto.Types.PIXMAP,@@ -790,7 +791,7 @@                          size (visual_CreateGLXPixmap x)                          + size (pixmap_CreateGLXPixmap x)                          + size (glx_pixmap_CreateGLXPixmap x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (screen_CreateGLXPixmap x)                serialize (visual_CreateGLXPixmap x)                serialize (pixmap_CreateGLXPixmap x)@@ -798,7 +799,7 @@                putSkip (requiredPadding size__)   data GetVisualConfigs = MkGetVisualConfigs{screen_GetVisualConfigs-                                           :: CARD32}+                                           :: Word32}                       deriving (Show, Typeable)   instance ExtensionRequest GetVisualConfigs where@@ -807,15 +808,15 @@           = do putWord8 extOpCode                putWord8 14                let size__ = 4 + size (screen_GetVisualConfigs x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (screen_GetVisualConfigs x)                putSkip (requiredPadding size__)   data GetVisualConfigsReply = MkGetVisualConfigsReply{num_visuals_GetVisualConfigsReply-                                                     :: CARD32,-                                                     num_properties_GetVisualConfigsReply :: CARD32,+                                                     :: Word32,+                                                     num_properties_GetVisualConfigsReply :: Word32,                                                      property_list_GetVisualConfigsReply ::-                                                     [CARD32]}+                                                     [Word32]}                            deriving (Show, Typeable)   instance Deserialize GetVisualConfigsReply where@@ -842,14 +843,14 @@           = do putWord8 extOpCode                putWord8 15                let size__ = 4 + size (glx_pixmap_DestroyGLXPixmap x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (glx_pixmap_DestroyGLXPixmap x)                putSkip (requiredPadding size__)   data VendorPrivate = MkVendorPrivate{vendor_code_VendorPrivate ::-                                     CARD32,+                                     Word32,                                      context_tag_VendorPrivate :: CONTEXT_TAG,-                                     data_VendorPrivate :: [BYTE]}+                                     data_VendorPrivate :: [Word8]}                    deriving (Show, Typeable)   instance ExtensionRequest VendorPrivate where@@ -861,17 +862,17 @@                      = 4 + size (vendor_code_VendorPrivate x) +                          size (context_tag_VendorPrivate x)                          + sum (map size (data_VendorPrivate x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (vendor_code_VendorPrivate x)                serialize (context_tag_VendorPrivate x)                serializeList (data_VendorPrivate x)                putSkip (requiredPadding size__)   data VendorPrivateWithReply = MkVendorPrivateWithReply{vendor_code_VendorPrivateWithReply-                                                       :: CARD32,+                                                       :: Word32,                                                        context_tag_VendorPrivateWithReply ::                                                        CONTEXT_TAG,-                                                       data_VendorPrivateWithReply :: [BYTE]}+                                                       data_VendorPrivateWithReply :: [Word8]}                             deriving (Show, Typeable)   instance ExtensionRequest VendorPrivateWithReply where@@ -883,18 +884,18 @@                      = 4 + size (vendor_code_VendorPrivateWithReply x) +                          size (context_tag_VendorPrivateWithReply x)                          + sum (map size (data_VendorPrivateWithReply x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (vendor_code_VendorPrivateWithReply x)                serialize (context_tag_VendorPrivateWithReply x)                serializeList (data_VendorPrivateWithReply x)                putSkip (requiredPadding size__)   data VendorPrivateWithReplyReply = MkVendorPrivateWithReplyReply{retval_VendorPrivateWithReplyReply-                                                                 :: CARD32,+                                                                 :: Word32,                                                                  data1_VendorPrivateWithReplyReply-                                                                 :: [BYTE],+                                                                 :: [Word8],                                                                  data2_VendorPrivateWithReplyReply-                                                                 :: [BYTE]}+                                                                 :: [Word8]}                                  deriving (Show, Typeable)   instance Deserialize VendorPrivateWithReplyReply where@@ -910,7 +911,7 @@                return (MkVendorPrivateWithReplyReply retval data1 data2)   data QueryExtensionsString = MkQueryExtensionsString{screen_QueryExtensionsString-                                                     :: CARD32}+                                                     :: Word32}                            deriving (Show, Typeable)   instance ExtensionRequest QueryExtensionsString where@@ -919,12 +920,12 @@           = do putWord8 extOpCode                putWord8 18                let size__ = 4 + size (screen_QueryExtensionsString x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (screen_QueryExtensionsString x)                putSkip (requiredPadding size__)   data QueryExtensionsStringReply = MkQueryExtensionsStringReply{n_QueryExtensionsStringReply-                                                               :: CARD32}+                                                               :: Word32}                                 deriving (Show, Typeable)   instance Deserialize QueryExtensionsStringReply where@@ -940,8 +941,8 @@                return (MkQueryExtensionsStringReply n)   data QueryServerString = MkQueryServerString{screen_QueryServerString-                                             :: CARD32,-                                             name_QueryServerString :: CARD32}+                                             :: Word32,+                                             name_QueryServerString :: Word32}                        deriving (Show, Typeable)   instance ExtensionRequest QueryServerString where@@ -952,13 +953,13 @@                let size__                      = 4 + size (screen_QueryServerString x) +                          size (name_QueryServerString x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (screen_QueryServerString x)                serialize (name_QueryServerString x)                putSkip (requiredPadding size__)   data QueryServerStringReply = MkQueryServerStringReply{str_len_QueryServerStringReply-                                                       :: CARD32,+                                                       :: Word32,                                                        string_QueryServerStringReply :: [CChar]}                             deriving (Show, Typeable)  @@ -975,8 +976,8 @@                let _ = isCard32 length                return (MkQueryServerStringReply str_len string)  -data ClientInfo = MkClientInfo{major_version_ClientInfo :: CARD32,-                               minor_version_ClientInfo :: CARD32, str_len_ClientInfo :: CARD32,+data ClientInfo = MkClientInfo{major_version_ClientInfo :: Word32,+                               minor_version_ClientInfo :: Word32, str_len_ClientInfo :: Word32,                                string_ClientInfo :: [CChar]}                 deriving (Show, Typeable)  @@ -990,14 +991,14 @@                          size (minor_version_ClientInfo x)                          + size (str_len_ClientInfo x)                          + sum (map size (string_ClientInfo x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (major_version_ClientInfo x)                serialize (minor_version_ClientInfo x)                serialize (str_len_ClientInfo x)                serializeList (string_ClientInfo x)                putSkip (requiredPadding size__)  -data GetFBConfigs = MkGetFBConfigs{screen_GetFBConfigs :: CARD32}+data GetFBConfigs = MkGetFBConfigs{screen_GetFBConfigs :: Word32}                   deriving (Show, Typeable)   instance ExtensionRequest GetFBConfigs where@@ -1006,14 +1007,14 @@           = do putWord8 extOpCode                putWord8 21                let size__ = 4 + size (screen_GetFBConfigs x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (screen_GetFBConfigs x)                putSkip (requiredPadding size__)   data GetFBConfigsReply = MkGetFBConfigsReply{num_FB_configs_GetFBConfigsReply-                                             :: CARD32,-                                             num_properties_GetFBConfigsReply :: CARD32,-                                             property_list_GetFBConfigsReply :: [CARD32]}+                                             :: Word32,+                                             num_properties_GetFBConfigsReply :: Word32,+                                             property_list_GetFBConfigsReply :: [Word32]}                        deriving (Show, Typeable)   instance Deserialize GetFBConfigsReply where@@ -1030,12 +1031,12 @@                return                  (MkGetFBConfigsReply num_FB_configs num_properties property_list)  -data CreatePixmap = MkCreatePixmap{screen_CreatePixmap :: CARD32,-                                   fbconfig_CreatePixmap :: CARD32,+data CreatePixmap = MkCreatePixmap{screen_CreatePixmap :: Word32,+                                   fbconfig_CreatePixmap :: Word32,                                    pixmap_CreatePixmap :: Graphics.XHB.Gen.Xproto.Types.PIXMAP,                                    glx_pixmap_CreatePixmap :: Graphics.XHB.Gen.Glx.Types.PIXMAP,-                                   num_attribs_CreatePixmap :: CARD32,-                                   attribs_CreatePixmap :: [CARD32]}+                                   num_attribs_CreatePixmap :: Word32,+                                   attribs_CreatePixmap :: [Word32]}                   deriving (Show, Typeable)   instance ExtensionRequest CreatePixmap where@@ -1049,7 +1050,7 @@                          + size (glx_pixmap_CreatePixmap x)                          + size (num_attribs_CreatePixmap x)                          + sum (map size (attribs_CreatePixmap x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (screen_CreatePixmap x)                serialize (fbconfig_CreatePixmap x)                serialize (pixmap_CreatePixmap x)@@ -1068,19 +1069,19 @@           = do putWord8 extOpCode                putWord8 23                let size__ = 4 + size (glx_pixmap_DestroyPixmap x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (glx_pixmap_DestroyPixmap x)                putSkip (requiredPadding size__)   data CreateNewContext = MkCreateNewContext{context_CreateNewContext                                            :: Graphics.XHB.Gen.Glx.Types.CONTEXT,-                                           fbconfig_CreateNewContext :: CARD32,-                                           screen_CreateNewContext :: CARD32,-                                           render_type_CreateNewContext :: CARD32,-                                           share_list_CreateNewContext :: CARD32,-                                           is_direct_CreateNewContext :: BOOL,-                                           reserved1_CreateNewContext :: CARD8,-                                           reserved2_CreateNewContext :: CARD16}+                                           fbconfig_CreateNewContext :: Word32,+                                           screen_CreateNewContext :: Word32,+                                           render_type_CreateNewContext :: Word32,+                                           share_list_CreateNewContext :: Word32,+                                           is_direct_CreateNewContext :: Bool,+                                           reserved1_CreateNewContext :: Word8,+                                           reserved2_CreateNewContext :: Word16}                       deriving (Show, Typeable)   instance ExtensionRequest CreateNewContext where@@ -1097,7 +1098,7 @@                          + size (is_direct_CreateNewContext x)                          + size (reserved1_CreateNewContext x)                          + size (reserved2_CreateNewContext x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_CreateNewContext x)                serialize (fbconfig_CreateNewContext x)                serialize (screen_CreateNewContext x)@@ -1118,13 +1119,13 @@           = do putWord8 extOpCode                putWord8 25                let size__ = 4 + size (context_QueryContext x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_QueryContext x)                putSkip (requiredPadding size__)   data QueryContextReply = MkQueryContextReply{num_attribs_QueryContextReply-                                             :: CARD32,-                                             attribs_QueryContextReply :: [CARD32]}+                                             :: Word32,+                                             attribs_QueryContextReply :: [Word32]}                        deriving (Show, Typeable)   instance Deserialize QueryContextReply where@@ -1160,7 +1161,7 @@                          size (drawable_MakeContextCurrent x)                          + size (read_drawable_MakeContextCurrent x)                          + size (context_MakeContextCurrent x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (old_context_tag_MakeContextCurrent x)                serialize (drawable_MakeContextCurrent x)                serialize (read_drawable_MakeContextCurrent x)@@ -1183,11 +1184,11 @@                return (MkMakeContextCurrentReply context_tag)   data CreatePbuffer = MkCreatePbuffer{screen_CreatePbuffer ::-                                     CARD32,+                                     Word32,                                      fbconfig_CreatePbuffer :: FBCONFIG,                                      pbuffer_CreatePbuffer :: PBUFFER,-                                     num_attribs_CreatePbuffer :: CARD32,-                                     attribs_CreatePbuffer :: [CARD32]}+                                     num_attribs_CreatePbuffer :: Word32,+                                     attribs_CreatePbuffer :: [Word32]}                    deriving (Show, Typeable)   instance ExtensionRequest CreatePbuffer where@@ -1201,7 +1202,7 @@                          + size (pbuffer_CreatePbuffer x)                          + size (num_attribs_CreatePbuffer x)                          + sum (map size (attribs_CreatePbuffer x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (screen_CreatePbuffer x)                serialize (fbconfig_CreatePbuffer x)                serialize (pbuffer_CreatePbuffer x)@@ -1219,7 +1220,7 @@           = do putWord8 extOpCode                putWord8 28                let size__ = 4 + size (pbuffer_DestroyPbuffer x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (pbuffer_DestroyPbuffer x)                putSkip (requiredPadding size__)  @@ -1233,14 +1234,14 @@           = do putWord8 extOpCode                putWord8 29                let size__ = 4 + size (drawable_GetDrawableAttributes x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (drawable_GetDrawableAttributes x)                putSkip (requiredPadding size__)   data GetDrawableAttributesReply = MkGetDrawableAttributesReply{num_attribs_GetDrawableAttributesReply-                                                               :: CARD32,+                                                               :: Word32,                                                                attribs_GetDrawableAttributesReply ::-                                                               [CARD32]}+                                                               [Word32]}                                 deriving (Show, Typeable)   instance Deserialize GetDrawableAttributesReply where@@ -1259,9 +1260,9 @@ data ChangeDrawableAttributes = MkChangeDrawableAttributes{drawable_ChangeDrawableAttributes                                                            :: Graphics.XHB.Gen.Glx.Types.DRAWABLE,                                                            num_attribs_ChangeDrawableAttributes ::-                                                           CARD32,+                                                           Word32,                                                            attribs_ChangeDrawableAttributes ::-                                                           [CARD32]}+                                                           [Word32]}                               deriving (Show, Typeable)   instance ExtensionRequest ChangeDrawableAttributes where@@ -1273,18 +1274,18 @@                      = 4 + size (drawable_ChangeDrawableAttributes x) +                          size (num_attribs_ChangeDrawableAttributes x)                          + sum (map size (attribs_ChangeDrawableAttributes x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (drawable_ChangeDrawableAttributes x)                serialize (num_attribs_ChangeDrawableAttributes x)                serializeList (attribs_ChangeDrawableAttributes x)                putSkip (requiredPadding size__)  -data CreateWindow = MkCreateWindow{screen_CreateWindow :: CARD32,+data CreateWindow = MkCreateWindow{screen_CreateWindow :: Word32,                                    fbconfig_CreateWindow :: FBCONFIG,                                    window_CreateWindow :: Graphics.XHB.Gen.Xproto.Types.WINDOW,                                    glx_window_CreateWindow :: Graphics.XHB.Gen.Glx.Types.WINDOW,-                                   num_attribs_CreateWindow :: CARD32,-                                   attribs_CreateWindow :: [CARD32]}+                                   num_attribs_CreateWindow :: Word32,+                                   attribs_CreateWindow :: [Word32]}                   deriving (Show, Typeable)   instance ExtensionRequest CreateWindow where@@ -1298,7 +1299,7 @@                          + size (glx_window_CreateWindow x)                          + size (num_attribs_CreateWindow x)                          + sum (map size (attribs_CreateWindow x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (screen_CreateWindow x)                serialize (fbconfig_CreateWindow x)                serialize (window_CreateWindow x)@@ -1317,12 +1318,12 @@           = do putWord8 extOpCode                putWord8 32                let size__ = 4 + size (glxwindow_DeleteWindow x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (glxwindow_DeleteWindow x)                putSkip (requiredPadding size__)   data NewList = MkNewList{context_tag_NewList :: CONTEXT_TAG,-                         list_NewList :: CARD32, mode_NewList :: CARD32}+                         list_NewList :: Word32, mode_NewList :: Word32}              deriving (Show, Typeable)   instance ExtensionRequest NewList where@@ -1333,7 +1334,7 @@                let size__                      = 4 + size (context_tag_NewList x) + size (list_NewList x) +                          size (mode_NewList x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_NewList x)                serialize (list_NewList x)                serialize (mode_NewList x)@@ -1348,13 +1349,13 @@           = do putWord8 extOpCode                putWord8 102                let size__ = 4 + size (context_tag_EndList x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_EndList x)                putSkip (requiredPadding size__)   data DeleteLists = MkDeleteLists{context_tag_DeleteLists ::                                  CONTEXT_TAG,-                                 list_DeleteLists :: CARD32, range_DeleteLists :: INT32}+                                 list_DeleteLists :: Word32, range_DeleteLists :: Int32}                  deriving (Show, Typeable)   instance ExtensionRequest DeleteLists where@@ -1365,14 +1366,14 @@                let size__                      = 4 + size (context_tag_DeleteLists x) + size (list_DeleteLists x)                          + size (range_DeleteLists x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_DeleteLists x)                serialize (list_DeleteLists x)                serialize (range_DeleteLists x)                putSkip (requiredPadding size__)   data GenLists = MkGenLists{context_tag_GenLists :: CONTEXT_TAG,-                           range_GenLists :: INT32}+                           range_GenLists :: Int32}               deriving (Show, Typeable)   instance ExtensionRequest GenLists where@@ -1382,13 +1383,13 @@                putWord8 104                let size__                      = 4 + size (context_tag_GenLists x) + size (range_GenLists x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_GenLists x)                serialize (range_GenLists x)                putSkip (requiredPadding size__)   data GenListsReply = MkGenListsReply{ret_val_GenListsReply ::-                                     CARD32}+                                     Word32}                    deriving (Show, Typeable)   instance Deserialize GenListsReply where@@ -1403,7 +1404,7 @@   data FeedbackBuffer = MkFeedbackBuffer{context_tag_FeedbackBuffer                                        :: CONTEXT_TAG,-                                       size_FeedbackBuffer :: INT32, type_FeedbackBuffer :: INT32}+                                       size_FeedbackBuffer :: Int32, type_FeedbackBuffer :: Int32}                     deriving (Show, Typeable)   instance ExtensionRequest FeedbackBuffer where@@ -1415,7 +1416,7 @@                      = 4 + size (context_tag_FeedbackBuffer x) +                          size (size_FeedbackBuffer x)                          + size (type_FeedbackBuffer x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_FeedbackBuffer x)                serialize (size_FeedbackBuffer x)                serialize (type_FeedbackBuffer x)@@ -1423,7 +1424,7 @@   data SelectBuffer = MkSelectBuffer{context_tag_SelectBuffer ::                                    CONTEXT_TAG,-                                   size_SelectBuffer :: INT32}+                                   size_SelectBuffer :: Int32}                   deriving (Show, Typeable)   instance ExtensionRequest SelectBuffer where@@ -1434,14 +1435,14 @@                let size__                      = 4 + size (context_tag_SelectBuffer x) +                          size (size_SelectBuffer x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_SelectBuffer x)                serialize (size_SelectBuffer x)                putSkip (requiredPadding size__)   data RenderMode = MkRenderMode{context_tag_RenderMode ::                                CONTEXT_TAG,-                               mode_RenderMode :: CARD32}+                               mode_RenderMode :: Word32}                 deriving (Show, Typeable)   instance ExtensionRequest RenderMode where@@ -1451,16 +1452,16 @@                putWord8 107                let size__                      = 4 + size (context_tag_RenderMode x) + size (mode_RenderMode x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_RenderMode x)                serialize (mode_RenderMode x)                putSkip (requiredPadding size__)   data RenderModeReply = MkRenderModeReply{ret_val_RenderModeReply ::-                                         CARD32,-                                         n_RenderModeReply :: CARD32,-                                         new_mode_RenderModeReply :: CARD32,-                                         data_RenderModeReply :: [CARD32]}+                                         Word32,+                                         n_RenderModeReply :: Word32,+                                         new_mode_RenderModeReply :: Word32,+                                         data_RenderModeReply :: [Word32]}                      deriving (Show, Typeable)   instance Deserialize RenderModeReply where@@ -1498,7 +1499,7 @@           = do putWord8 extOpCode                putWord8 108                let size__ = 4 + size (context_tag_Finish x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_Finish x)                putSkip (requiredPadding size__)  @@ -1516,7 +1517,7 @@   data PixelStoref = MkPixelStoref{context_tag_PixelStoref ::                                  CONTEXT_TAG,-                                 pname_PixelStoref :: CARD32, datum_PixelStoref :: FLOAT32}+                                 pname_PixelStoref :: Word32, datum_PixelStoref :: FLOAT32}                  deriving (Show, Typeable)   instance ExtensionRequest PixelStoref where@@ -1527,7 +1528,7 @@                let size__                      = 4 + size (context_tag_PixelStoref x) + size (pname_PixelStoref x)                          + size (datum_PixelStoref x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_PixelStoref x)                serialize (pname_PixelStoref x)                serialize (datum_PixelStoref x)@@ -1535,7 +1536,7 @@   data PixelStorei = MkPixelStorei{context_tag_PixelStorei ::                                  CONTEXT_TAG,-                                 pname_PixelStorei :: CARD32, datum_PixelStorei :: INT32}+                                 pname_PixelStorei :: Word32, datum_PixelStorei :: Int32}                  deriving (Show, Typeable)   instance ExtensionRequest PixelStorei where@@ -1546,7 +1547,7 @@                let size__                      = 4 + size (context_tag_PixelStorei x) + size (pname_PixelStorei x)                          + size (datum_PixelStorei x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_PixelStorei x)                serialize (pname_PixelStorei x)                serialize (datum_PixelStorei x)@@ -1554,10 +1555,10 @@   data ReadPixels = MkReadPixels{context_tag_ReadPixels ::                                CONTEXT_TAG,-                               x_ReadPixels :: INT32, y_ReadPixels :: INT32,-                               width_ReadPixels :: INT32, height_ReadPixels :: INT32,-                               format_ReadPixels :: CARD32, type_ReadPixels :: CARD32,-                               swap_bytes_ReadPixels :: BOOL, lsb_first_ReadPixels :: BOOL}+                               x_ReadPixels :: Int32, y_ReadPixels :: Int32,+                               width_ReadPixels :: Int32, height_ReadPixels :: Int32,+                               format_ReadPixels :: Word32, type_ReadPixels :: Word32,+                               swap_bytes_ReadPixels :: Bool, lsb_first_ReadPixels :: Bool}                 deriving (Show, Typeable)   instance ExtensionRequest ReadPixels where@@ -1574,7 +1575,7 @@                          + size (type_ReadPixels x)                          + size (swap_bytes_ReadPixels x)                          + size (lsb_first_ReadPixels x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_ReadPixels x)                serialize (x_ReadPixels x)                serialize (y_ReadPixels x)@@ -1587,7 +1588,7 @@                putSkip (requiredPadding size__)   data ReadPixelsReply = MkReadPixelsReply{data_ReadPixelsReply ::-                                         [BYTE]}+                                         [Word8]}                      deriving (Show, Typeable)   instance Deserialize ReadPixelsReply where@@ -1603,7 +1604,7 @@   data GetBooleanv = MkGetBooleanv{context_tag_GetBooleanv ::                                  CONTEXT_TAG,-                                 pname_GetBooleanv :: INT32}+                                 pname_GetBooleanv :: Int32}                  deriving (Show, Typeable)   instance ExtensionRequest GetBooleanv where@@ -1613,15 +1614,15 @@                putWord8 112                let size__                      = 4 + size (context_tag_GetBooleanv x) + size (pname_GetBooleanv x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_GetBooleanv x)                serialize (pname_GetBooleanv x)                putSkip (requiredPadding size__)   data GetBooleanvReply = MkGetBooleanvReply{n_GetBooleanvReply ::-                                           CARD32,-                                           datum_GetBooleanvReply :: BOOL,-                                           data_GetBooleanvReply :: [BOOL]}+                                           Word32,+                                           datum_GetBooleanvReply :: Bool,+                                           data_GetBooleanvReply :: [Bool]}                       deriving (Show, Typeable)   instance Deserialize GetBooleanvReply where@@ -1640,7 +1641,7 @@   data GetClipPlane = MkGetClipPlane{context_tag_GetClipPlane ::                                    CONTEXT_TAG,-                                   plane_GetClipPlane :: INT32}+                                   plane_GetClipPlane :: Int32}                   deriving (Show, Typeable)   instance ExtensionRequest GetClipPlane where@@ -1651,7 +1652,7 @@                let size__                      = 4 + size (context_tag_GetClipPlane x) +                          size (plane_GetClipPlane x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_GetClipPlane x)                serialize (plane_GetClipPlane x)                putSkip (requiredPadding size__)@@ -1674,7 +1675,7 @@   data GetDoublev = MkGetDoublev{context_tag_GetDoublev ::                                CONTEXT_TAG,-                               pname_GetDoublev :: CARD32}+                               pname_GetDoublev :: Word32}                 deriving (Show, Typeable)   instance ExtensionRequest GetDoublev where@@ -1684,13 +1685,13 @@                putWord8 114                let size__                      = 4 + size (context_tag_GetDoublev x) + size (pname_GetDoublev x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_GetDoublev x)                serialize (pname_GetDoublev x)                putSkip (requiredPadding size__)   data GetDoublevReply = MkGetDoublevReply{n_GetDoublevReply ::-                                         CARD32,+                                         Word32,                                          datum_GetDoublevReply :: FLOAT64,                                          data_GetDoublevReply :: [FLOAT64]}                      deriving (Show, Typeable)@@ -1718,11 +1719,11 @@           = do putWord8 extOpCode                putWord8 115                let size__ = 4 + size (context_tag_GetError x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_GetError x)                putSkip (requiredPadding size__)  -data GetErrorReply = MkGetErrorReply{error_GetErrorReply :: INT32}+data GetErrorReply = MkGetErrorReply{error_GetErrorReply :: Int32}                    deriving (Show, Typeable)   instance Deserialize GetErrorReply where@@ -1736,7 +1737,7 @@                return (MkGetErrorReply error)   data GetFloatv = MkGetFloatv{context_tag_GetFloatv :: CONTEXT_TAG,-                             pname_GetFloatv :: CARD32}+                             pname_GetFloatv :: Word32}                deriving (Show, Typeable)   instance ExtensionRequest GetFloatv where@@ -1746,12 +1747,12 @@                putWord8 116                let size__                      = 4 + size (context_tag_GetFloatv x) + size (pname_GetFloatv x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_GetFloatv x)                serialize (pname_GetFloatv x)                putSkip (requiredPadding size__)  -data GetFloatvReply = MkGetFloatvReply{n_GetFloatvReply :: CARD32,+data GetFloatvReply = MkGetFloatvReply{n_GetFloatvReply :: Word32,                                        datum_GetFloatvReply :: FLOAT32,                                        data_GetFloatvReply :: [FLOAT32]}                     deriving (Show, Typeable)@@ -1772,7 +1773,7 @@   data GetIntegerv = MkGetIntegerv{context_tag_GetIntegerv ::                                  CONTEXT_TAG,-                                 pname_GetIntegerv :: CARD32}+                                 pname_GetIntegerv :: Word32}                  deriving (Show, Typeable)   instance ExtensionRequest GetIntegerv where@@ -1782,15 +1783,15 @@                putWord8 117                let size__                      = 4 + size (context_tag_GetIntegerv x) + size (pname_GetIntegerv x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_GetIntegerv x)                serialize (pname_GetIntegerv x)                putSkip (requiredPadding size__)   data GetIntegervReply = MkGetIntegervReply{n_GetIntegervReply ::-                                           CARD32,-                                           datum_GetIntegervReply :: INT32,-                                           data_GetIntegervReply :: [INT32]}+                                           Word32,+                                           datum_GetIntegervReply :: Int32,+                                           data_GetIntegervReply :: [Int32]}                       deriving (Show, Typeable)   instance Deserialize GetIntegervReply where@@ -1809,7 +1810,7 @@   data GetLightfv = MkGetLightfv{context_tag_GetLightfv ::                                CONTEXT_TAG,-                               light_GetLightfv :: CARD32, pname_GetLightfv :: CARD32}+                               light_GetLightfv :: Word32, pname_GetLightfv :: Word32}                 deriving (Show, Typeable)   instance ExtensionRequest GetLightfv where@@ -1820,14 +1821,14 @@                let size__                      = 4 + size (context_tag_GetLightfv x) + size (light_GetLightfv x) +                          size (pname_GetLightfv x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_GetLightfv x)                serialize (light_GetLightfv x)                serialize (pname_GetLightfv x)                putSkip (requiredPadding size__)   data GetLightfvReply = MkGetLightfvReply{n_GetLightfvReply ::-                                         CARD32,+                                         Word32,                                          datum_GetLightfvReply :: FLOAT32,                                          data_GetLightfvReply :: [FLOAT32]}                      deriving (Show, Typeable)@@ -1848,7 +1849,7 @@   data GetLightiv = MkGetLightiv{context_tag_GetLightiv ::                                CONTEXT_TAG,-                               light_GetLightiv :: CARD32, pname_GetLightiv :: CARD32}+                               light_GetLightiv :: Word32, pname_GetLightiv :: Word32}                 deriving (Show, Typeable)   instance ExtensionRequest GetLightiv where@@ -1859,16 +1860,16 @@                let size__                      = 4 + size (context_tag_GetLightiv x) + size (light_GetLightiv x) +                          size (pname_GetLightiv x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_GetLightiv x)                serialize (light_GetLightiv x)                serialize (pname_GetLightiv x)                putSkip (requiredPadding size__)   data GetLightivReply = MkGetLightivReply{n_GetLightivReply ::-                                         CARD32,-                                         datum_GetLightivReply :: INT32,-                                         data_GetLightivReply :: [INT32]}+                                         Word32,+                                         datum_GetLightivReply :: Int32,+                                         data_GetLightivReply :: [Int32]}                      deriving (Show, Typeable)   instance Deserialize GetLightivReply where@@ -1886,7 +1887,7 @@                return (MkGetLightivReply n datum data_)   data GetMapdv = MkGetMapdv{context_tag_GetMapdv :: CONTEXT_TAG,-                           target_GetMapdv :: CARD32, query_GetMapdv :: CARD32}+                           target_GetMapdv :: Word32, query_GetMapdv :: Word32}               deriving (Show, Typeable)   instance ExtensionRequest GetMapdv where@@ -1897,13 +1898,13 @@                let size__                      = 4 + size (context_tag_GetMapdv x) + size (target_GetMapdv x) +                          size (query_GetMapdv x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_GetMapdv x)                serialize (target_GetMapdv x)                serialize (query_GetMapdv x)                putSkip (requiredPadding size__)  -data GetMapdvReply = MkGetMapdvReply{n_GetMapdvReply :: CARD32,+data GetMapdvReply = MkGetMapdvReply{n_GetMapdvReply :: Word32,                                      datum_GetMapdvReply :: FLOAT64,                                      data_GetMapdvReply :: [FLOAT64]}                    deriving (Show, Typeable)@@ -1923,7 +1924,7 @@                return (MkGetMapdvReply n datum data_)   data GetMapfv = MkGetMapfv{context_tag_GetMapfv :: CONTEXT_TAG,-                           target_GetMapfv :: CARD32, query_GetMapfv :: CARD32}+                           target_GetMapfv :: Word32, query_GetMapfv :: Word32}               deriving (Show, Typeable)   instance ExtensionRequest GetMapfv where@@ -1934,13 +1935,13 @@                let size__                      = 4 + size (context_tag_GetMapfv x) + size (target_GetMapfv x) +                          size (query_GetMapfv x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_GetMapfv x)                serialize (target_GetMapfv x)                serialize (query_GetMapfv x)                putSkip (requiredPadding size__)  -data GetMapfvReply = MkGetMapfvReply{n_GetMapfvReply :: CARD32,+data GetMapfvReply = MkGetMapfvReply{n_GetMapfvReply :: Word32,                                      datum_GetMapfvReply :: FLOAT32,                                      data_GetMapfvReply :: [FLOAT32]}                    deriving (Show, Typeable)@@ -1960,7 +1961,7 @@                return (MkGetMapfvReply n datum data_)   data GetMapiv = MkGetMapiv{context_tag_GetMapiv :: CONTEXT_TAG,-                           target_GetMapiv :: CARD32, query_GetMapiv :: CARD32}+                           target_GetMapiv :: Word32, query_GetMapiv :: Word32}               deriving (Show, Typeable)   instance ExtensionRequest GetMapiv where@@ -1971,14 +1972,14 @@                let size__                      = 4 + size (context_tag_GetMapiv x) + size (target_GetMapiv x) +                          size (query_GetMapiv x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_GetMapiv x)                serialize (target_GetMapiv x)                serialize (query_GetMapiv x)                putSkip (requiredPadding size__)  -data GetMapivReply = MkGetMapivReply{n_GetMapivReply :: CARD32,-                                     datum_GetMapivReply :: INT32, data_GetMapivReply :: [INT32]}+data GetMapivReply = MkGetMapivReply{n_GetMapivReply :: Word32,+                                     datum_GetMapivReply :: Int32, data_GetMapivReply :: [Int32]}                    deriving (Show, Typeable)   instance Deserialize GetMapivReply where@@ -1997,7 +1998,7 @@   data GetMaterialfv = MkGetMaterialfv{context_tag_GetMaterialfv ::                                      CONTEXT_TAG,-                                     face_GetMaterialfv :: CARD32, pname_GetMaterialfv :: CARD32}+                                     face_GetMaterialfv :: Word32, pname_GetMaterialfv :: Word32}                    deriving (Show, Typeable)   instance ExtensionRequest GetMaterialfv where@@ -2009,14 +2010,14 @@                      = 4 + size (context_tag_GetMaterialfv x) +                          size (face_GetMaterialfv x)                          + size (pname_GetMaterialfv x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_GetMaterialfv x)                serialize (face_GetMaterialfv x)                serialize (pname_GetMaterialfv x)                putSkip (requiredPadding size__)   data GetMaterialfvReply = MkGetMaterialfvReply{n_GetMaterialfvReply-                                               :: CARD32,+                                               :: Word32,                                                datum_GetMaterialfvReply :: FLOAT32,                                                data_GetMaterialfvReply :: [FLOAT32]}                         deriving (Show, Typeable)@@ -2037,7 +2038,7 @@   data GetMaterialiv = MkGetMaterialiv{context_tag_GetMaterialiv ::                                      CONTEXT_TAG,-                                     face_GetMaterialiv :: CARD32, pname_GetMaterialiv :: CARD32}+                                     face_GetMaterialiv :: Word32, pname_GetMaterialiv :: Word32}                    deriving (Show, Typeable)   instance ExtensionRequest GetMaterialiv where@@ -2049,16 +2050,16 @@                      = 4 + size (context_tag_GetMaterialiv x) +                          size (face_GetMaterialiv x)                          + size (pname_GetMaterialiv x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_GetMaterialiv x)                serialize (face_GetMaterialiv x)                serialize (pname_GetMaterialiv x)                putSkip (requiredPadding size__)   data GetMaterialivReply = MkGetMaterialivReply{n_GetMaterialivReply-                                               :: CARD32,-                                               datum_GetMaterialivReply :: INT32,-                                               data_GetMaterialivReply :: [INT32]}+                                               :: Word32,+                                               datum_GetMaterialivReply :: Int32,+                                               data_GetMaterialivReply :: [Int32]}                         deriving (Show, Typeable)   instance Deserialize GetMaterialivReply where@@ -2077,7 +2078,7 @@   data GetPixelMapfv = MkGetPixelMapfv{context_tag_GetPixelMapfv ::                                      CONTEXT_TAG,-                                     map_GetPixelMapfv :: CARD32}+                                     map_GetPixelMapfv :: Word32}                    deriving (Show, Typeable)   instance ExtensionRequest GetPixelMapfv where@@ -2088,13 +2089,13 @@                let size__                      = 4 + size (context_tag_GetPixelMapfv x) +                          size (map_GetPixelMapfv x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_GetPixelMapfv x)                serialize (map_GetPixelMapfv x)                putSkip (requiredPadding size__)   data GetPixelMapfvReply = MkGetPixelMapfvReply{n_GetPixelMapfvReply-                                               :: CARD32,+                                               :: Word32,                                                datum_GetPixelMapfvReply :: FLOAT32,                                                data_GetPixelMapfvReply :: [FLOAT32]}                         deriving (Show, Typeable)@@ -2115,7 +2116,7 @@   data GetPixelMapuiv = MkGetPixelMapuiv{context_tag_GetPixelMapuiv                                        :: CONTEXT_TAG,-                                       map_GetPixelMapuiv :: CARD32}+                                       map_GetPixelMapuiv :: Word32}                     deriving (Show, Typeable)   instance ExtensionRequest GetPixelMapuiv where@@ -2126,15 +2127,15 @@                let size__                      = 4 + size (context_tag_GetPixelMapuiv x) +                          size (map_GetPixelMapuiv x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_GetPixelMapuiv x)                serialize (map_GetPixelMapuiv x)                putSkip (requiredPadding size__)   data GetPixelMapuivReply = MkGetPixelMapuivReply{n_GetPixelMapuivReply-                                                 :: CARD32,-                                                 datum_GetPixelMapuivReply :: CARD32,-                                                 data_GetPixelMapuivReply :: [CARD32]}+                                                 :: Word32,+                                                 datum_GetPixelMapuivReply :: Word32,+                                                 data_GetPixelMapuivReply :: [Word32]}                          deriving (Show, Typeable)   instance Deserialize GetPixelMapuivReply where@@ -2153,7 +2154,7 @@   data GetPixelMapusv = MkGetPixelMapusv{context_tag_GetPixelMapusv                                        :: CONTEXT_TAG,-                                       map_GetPixelMapusv :: CARD32}+                                       map_GetPixelMapusv :: Word32}                     deriving (Show, Typeable)   instance ExtensionRequest GetPixelMapusv where@@ -2164,15 +2165,15 @@                let size__                      = 4 + size (context_tag_GetPixelMapusv x) +                          size (map_GetPixelMapusv x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_GetPixelMapusv x)                serialize (map_GetPixelMapusv x)                putSkip (requiredPadding size__)   data GetPixelMapusvReply = MkGetPixelMapusvReply{n_GetPixelMapusvReply-                                                 :: CARD32,-                                                 datum_GetPixelMapusvReply :: CARD16,-                                                 data_GetPixelMapusvReply :: [CARD16]}+                                                 :: Word32,+                                                 datum_GetPixelMapusvReply :: Word16,+                                                 data_GetPixelMapusvReply :: [Word16]}                          deriving (Show, Typeable)   instance Deserialize GetPixelMapusvReply where@@ -2191,7 +2192,7 @@   data GetPolygonStipple = MkGetPolygonStipple{context_tag_GetPolygonStipple                                              :: CONTEXT_TAG,-                                             lsb_first_GetPolygonStipple :: BOOL}+                                             lsb_first_GetPolygonStipple :: Bool}                        deriving (Show, Typeable)   instance ExtensionRequest GetPolygonStipple where@@ -2202,13 +2203,13 @@                let size__                      = 4 + size (context_tag_GetPolygonStipple x) +                          size (lsb_first_GetPolygonStipple x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_GetPolygonStipple x)                serialize (lsb_first_GetPolygonStipple x)                putSkip (requiredPadding size__)   data GetPolygonStippleReply = MkGetPolygonStippleReply{data_GetPolygonStippleReply-                                                       :: [BYTE]}+                                                       :: [Word8]}                             deriving (Show, Typeable)   instance Deserialize GetPolygonStippleReply where@@ -2223,7 +2224,7 @@                return (MkGetPolygonStippleReply data_)   data GetString = MkGetString{context_tag_GetString :: CONTEXT_TAG,-                             name_GetString :: CARD32}+                             name_GetString :: Word32}                deriving (Show, Typeable)   instance ExtensionRequest GetString where@@ -2233,12 +2234,12 @@                putWord8 129                let size__                      = 4 + size (context_tag_GetString x) + size (name_GetString x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_GetString x)                serialize (name_GetString x)                putSkip (requiredPadding size__)  -data GetStringReply = MkGetStringReply{n_GetStringReply :: CARD32,+data GetStringReply = MkGetStringReply{n_GetStringReply :: Word32,                                        string_GetStringReply :: [CChar]}                     deriving (Show, Typeable)  @@ -2257,7 +2258,7 @@   data GetTexEnvfv = MkGetTexEnvfv{context_tag_GetTexEnvfv ::                                  CONTEXT_TAG,-                                 target_GetTexEnvfv :: CARD32, pname_GetTexEnvfv :: CARD32}+                                 target_GetTexEnvfv :: Word32, pname_GetTexEnvfv :: Word32}                  deriving (Show, Typeable)   instance ExtensionRequest GetTexEnvfv where@@ -2269,14 +2270,14 @@                      = 4 + size (context_tag_GetTexEnvfv x) +                          size (target_GetTexEnvfv x)                          + size (pname_GetTexEnvfv x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_GetTexEnvfv x)                serialize (target_GetTexEnvfv x)                serialize (pname_GetTexEnvfv x)                putSkip (requiredPadding size__)   data GetTexEnvfvReply = MkGetTexEnvfvReply{n_GetTexEnvfvReply ::-                                           CARD32,+                                           Word32,                                            datum_GetTexEnvfvReply :: FLOAT32,                                            data_GetTexEnvfvReply :: [FLOAT32]}                       deriving (Show, Typeable)@@ -2297,7 +2298,7 @@   data GetTexEnviv = MkGetTexEnviv{context_tag_GetTexEnviv ::                                  CONTEXT_TAG,-                                 target_GetTexEnviv :: CARD32, pname_GetTexEnviv :: CARD32}+                                 target_GetTexEnviv :: Word32, pname_GetTexEnviv :: Word32}                  deriving (Show, Typeable)   instance ExtensionRequest GetTexEnviv where@@ -2309,16 +2310,16 @@                      = 4 + size (context_tag_GetTexEnviv x) +                          size (target_GetTexEnviv x)                          + size (pname_GetTexEnviv x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_GetTexEnviv x)                serialize (target_GetTexEnviv x)                serialize (pname_GetTexEnviv x)                putSkip (requiredPadding size__)   data GetTexEnvivReply = MkGetTexEnvivReply{n_GetTexEnvivReply ::-                                           CARD32,-                                           datum_GetTexEnvivReply :: INT32,-                                           data_GetTexEnvivReply :: [INT32]}+                                           Word32,+                                           datum_GetTexEnvivReply :: Int32,+                                           data_GetTexEnvivReply :: [Int32]}                       deriving (Show, Typeable)   instance Deserialize GetTexEnvivReply where@@ -2337,7 +2338,7 @@   data GetTexGendv = MkGetTexGendv{context_tag_GetTexGendv ::                                  CONTEXT_TAG,-                                 coord_GetTexGendv :: CARD32, pname_GetTexGendv :: CARD32}+                                 coord_GetTexGendv :: Word32, pname_GetTexGendv :: Word32}                  deriving (Show, Typeable)   instance ExtensionRequest GetTexGendv where@@ -2348,14 +2349,14 @@                let size__                      = 4 + size (context_tag_GetTexGendv x) + size (coord_GetTexGendv x)                          + size (pname_GetTexGendv x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_GetTexGendv x)                serialize (coord_GetTexGendv x)                serialize (pname_GetTexGendv x)                putSkip (requiredPadding size__)   data GetTexGendvReply = MkGetTexGendvReply{n_GetTexGendvReply ::-                                           CARD32,+                                           Word32,                                            datum_GetTexGendvReply :: FLOAT64,                                            data_GetTexGendvReply :: [FLOAT64]}                       deriving (Show, Typeable)@@ -2376,7 +2377,7 @@   data GetTexGenfv = MkGetTexGenfv{context_tag_GetTexGenfv ::                                  CONTEXT_TAG,-                                 coord_GetTexGenfv :: CARD32, pname_GetTexGenfv :: CARD32}+                                 coord_GetTexGenfv :: Word32, pname_GetTexGenfv :: Word32}                  deriving (Show, Typeable)   instance ExtensionRequest GetTexGenfv where@@ -2387,14 +2388,14 @@                let size__                      = 4 + size (context_tag_GetTexGenfv x) + size (coord_GetTexGenfv x)                          + size (pname_GetTexGenfv x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_GetTexGenfv x)                serialize (coord_GetTexGenfv x)                serialize (pname_GetTexGenfv x)                putSkip (requiredPadding size__)   data GetTexGenfvReply = MkGetTexGenfvReply{n_GetTexGenfvReply ::-                                           CARD32,+                                           Word32,                                            datum_GetTexGenfvReply :: FLOAT32,                                            data_GetTexGenfvReply :: [FLOAT32]}                       deriving (Show, Typeable)@@ -2415,7 +2416,7 @@   data GetTexGeniv = MkGetTexGeniv{context_tag_GetTexGeniv ::                                  CONTEXT_TAG,-                                 coord_GetTexGeniv :: CARD32, pname_GetTexGeniv :: CARD32}+                                 coord_GetTexGeniv :: Word32, pname_GetTexGeniv :: Word32}                  deriving (Show, Typeable)   instance ExtensionRequest GetTexGeniv where@@ -2426,16 +2427,16 @@                let size__                      = 4 + size (context_tag_GetTexGeniv x) + size (coord_GetTexGeniv x)                          + size (pname_GetTexGeniv x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_GetTexGeniv x)                serialize (coord_GetTexGeniv x)                serialize (pname_GetTexGeniv x)                putSkip (requiredPadding size__)   data GetTexGenivReply = MkGetTexGenivReply{n_GetTexGenivReply ::-                                           CARD32,-                                           datum_GetTexGenivReply :: INT32,-                                           data_GetTexGenivReply :: [INT32]}+                                           Word32,+                                           datum_GetTexGenivReply :: Int32,+                                           data_GetTexGenivReply :: [Int32]}                       deriving (Show, Typeable)   instance Deserialize GetTexGenivReply where@@ -2454,9 +2455,9 @@   data GetTexImage = MkGetTexImage{context_tag_GetTexImage ::                                  CONTEXT_TAG,-                                 target_GetTexImage :: CARD32, level_GetTexImage :: INT32,-                                 format_GetTexImage :: CARD32, type_GetTexImage :: CARD32,-                                 swap_bytes_GetTexImage :: BOOL}+                                 target_GetTexImage :: Word32, level_GetTexImage :: Int32,+                                 format_GetTexImage :: Word32, type_GetTexImage :: Word32,+                                 swap_bytes_GetTexImage :: Bool}                  deriving (Show, Typeable)   instance ExtensionRequest GetTexImage where@@ -2471,7 +2472,7 @@                          + size (format_GetTexImage x)                          + size (type_GetTexImage x)                          + size (swap_bytes_GetTexImage x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_GetTexImage x)                serialize (target_GetTexImage x)                serialize (level_GetTexImage x)@@ -2481,10 +2482,10 @@                putSkip (requiredPadding size__)   data GetTexImageReply = MkGetTexImageReply{width_GetTexImageReply-                                           :: INT32,-                                           height_GetTexImageReply :: INT32,-                                           depth_GetTexImageReply :: INT32,-                                           data_GetTexImageReply :: [BYTE]}+                                           :: Int32,+                                           height_GetTexImageReply :: Int32,+                                           depth_GetTexImageReply :: Int32,+                                           data_GetTexImageReply :: [Word8]}                       deriving (Show, Typeable)   instance Deserialize GetTexImageReply where@@ -2504,8 +2505,8 @@   data GetTexParameterfv = MkGetTexParameterfv{context_tag_GetTexParameterfv                                              :: CONTEXT_TAG,-                                             target_GetTexParameterfv :: CARD32,-                                             pname_GetTexParameterfv :: CARD32}+                                             target_GetTexParameterfv :: Word32,+                                             pname_GetTexParameterfv :: Word32}                        deriving (Show, Typeable)   instance ExtensionRequest GetTexParameterfv where@@ -2517,14 +2518,14 @@                      = 4 + size (context_tag_GetTexParameterfv x) +                          size (target_GetTexParameterfv x)                          + size (pname_GetTexParameterfv x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_GetTexParameterfv x)                serialize (target_GetTexParameterfv x)                serialize (pname_GetTexParameterfv x)                putSkip (requiredPadding size__)   data GetTexParameterfvReply = MkGetTexParameterfvReply{n_GetTexParameterfvReply-                                                       :: CARD32,+                                                       :: Word32,                                                        datum_GetTexParameterfvReply :: FLOAT32,                                                        data_GetTexParameterfvReply :: [FLOAT32]}                             deriving (Show, Typeable)@@ -2545,8 +2546,8 @@   data GetTexParameteriv = MkGetTexParameteriv{context_tag_GetTexParameteriv                                              :: CONTEXT_TAG,-                                             target_GetTexParameteriv :: CARD32,-                                             pname_GetTexParameteriv :: CARD32}+                                             target_GetTexParameteriv :: Word32,+                                             pname_GetTexParameteriv :: Word32}                        deriving (Show, Typeable)   instance ExtensionRequest GetTexParameteriv where@@ -2558,16 +2559,16 @@                      = 4 + size (context_tag_GetTexParameteriv x) +                          size (target_GetTexParameteriv x)                          + size (pname_GetTexParameteriv x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_GetTexParameteriv x)                serialize (target_GetTexParameteriv x)                serialize (pname_GetTexParameteriv x)                putSkip (requiredPadding size__)   data GetTexParameterivReply = MkGetTexParameterivReply{n_GetTexParameterivReply-                                                       :: CARD32,-                                                       datum_GetTexParameterivReply :: INT32,-                                                       data_GetTexParameterivReply :: [INT32]}+                                                       :: Word32,+                                                       datum_GetTexParameterivReply :: Int32,+                                                       data_GetTexParameterivReply :: [Int32]}                             deriving (Show, Typeable)   instance Deserialize GetTexParameterivReply where@@ -2586,9 +2587,9 @@   data GetTexLevelParameterfv = MkGetTexLevelParameterfv{context_tag_GetTexLevelParameterfv                                                        :: CONTEXT_TAG,-                                                       target_GetTexLevelParameterfv :: CARD32,-                                                       level_GetTexLevelParameterfv :: INT32,-                                                       pname_GetTexLevelParameterfv :: CARD32}+                                                       target_GetTexLevelParameterfv :: Word32,+                                                       level_GetTexLevelParameterfv :: Int32,+                                                       pname_GetTexLevelParameterfv :: Word32}                             deriving (Show, Typeable)   instance ExtensionRequest GetTexLevelParameterfv where@@ -2601,7 +2602,7 @@                          size (target_GetTexLevelParameterfv x)                          + size (level_GetTexLevelParameterfv x)                          + size (pname_GetTexLevelParameterfv x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_GetTexLevelParameterfv x)                serialize (target_GetTexLevelParameterfv x)                serialize (level_GetTexLevelParameterfv x)@@ -2609,7 +2610,7 @@                putSkip (requiredPadding size__)   data GetTexLevelParameterfvReply = MkGetTexLevelParameterfvReply{n_GetTexLevelParameterfvReply-                                                                 :: CARD32,+                                                                 :: Word32,                                                                  datum_GetTexLevelParameterfvReply                                                                  :: FLOAT32,                                                                  data_GetTexLevelParameterfvReply ::@@ -2632,9 +2633,9 @@   data GetTexLevelParameteriv = MkGetTexLevelParameteriv{context_tag_GetTexLevelParameteriv                                                        :: CONTEXT_TAG,-                                                       target_GetTexLevelParameteriv :: CARD32,-                                                       level_GetTexLevelParameteriv :: INT32,-                                                       pname_GetTexLevelParameteriv :: CARD32}+                                                       target_GetTexLevelParameteriv :: Word32,+                                                       level_GetTexLevelParameteriv :: Int32,+                                                       pname_GetTexLevelParameteriv :: Word32}                             deriving (Show, Typeable)   instance ExtensionRequest GetTexLevelParameteriv where@@ -2647,7 +2648,7 @@                          size (target_GetTexLevelParameteriv x)                          + size (level_GetTexLevelParameteriv x)                          + size (pname_GetTexLevelParameteriv x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_GetTexLevelParameteriv x)                serialize (target_GetTexLevelParameteriv x)                serialize (level_GetTexLevelParameteriv x)@@ -2655,11 +2656,11 @@                putSkip (requiredPadding size__)   data GetTexLevelParameterivReply = MkGetTexLevelParameterivReply{n_GetTexLevelParameterivReply-                                                                 :: CARD32,+                                                                 :: Word32,                                                                  datum_GetTexLevelParameterivReply-                                                                 :: INT32,+                                                                 :: Int32,                                                                  data_GetTexLevelParameterivReply ::-                                                                 [INT32]}+                                                                 [Int32]}                                  deriving (Show, Typeable)   instance Deserialize GetTexLevelParameterivReply where@@ -2677,7 +2678,7 @@                return (MkGetTexLevelParameterivReply n datum data_)   data IsList = MkIsList{context_tag_IsList :: CONTEXT_TAG,-                       list_IsList :: CARD32}+                       list_IsList :: Word32}             deriving (Show, Typeable)   instance ExtensionRequest IsList where@@ -2686,7 +2687,7 @@           = do putWord8 extOpCode                putWord8 141                let size__ = 4 + size (context_tag_IsList x) + size (list_IsList x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_IsList x)                serialize (list_IsList x)                putSkip (requiredPadding size__)@@ -2713,14 +2714,14 @@           = do putWord8 extOpCode                putWord8 142                let size__ = 4 + size (context_tag_Flush x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_Flush x)                putSkip (requiredPadding size__)   data AreTexturesResident = MkAreTexturesResident{context_tag_AreTexturesResident                                                  :: CONTEXT_TAG,-                                                 n_AreTexturesResident :: INT32,-                                                 textures_AreTexturesResident :: [CARD32]}+                                                 n_AreTexturesResident :: Int32,+                                                 textures_AreTexturesResident :: [Word32]}                          deriving (Show, Typeable)   instance ExtensionRequest AreTexturesResident where@@ -2732,7 +2733,7 @@                      = 4 + size (context_tag_AreTexturesResident x) +                          size (n_AreTexturesResident x)                          + sum (map size (textures_AreTexturesResident x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_AreTexturesResident x)                serialize (n_AreTexturesResident x)                serializeList (textures_AreTexturesResident x)@@ -2740,7 +2741,7 @@   data AreTexturesResidentReply = MkAreTexturesResidentReply{ret_val_AreTexturesResidentReply                                                            :: BOOL32,-                                                           data_AreTexturesResidentReply :: [BOOL]}+                                                           data_AreTexturesResidentReply :: [Bool]}                               deriving (Show, Typeable)   instance Deserialize AreTexturesResidentReply where@@ -2757,8 +2758,8 @@   data DeleteTextures = MkDeleteTextures{context_tag_DeleteTextures                                        :: CONTEXT_TAG,-                                       n_DeleteTextures :: INT32,-                                       textures_DeleteTextures :: [CARD32]}+                                       n_DeleteTextures :: Int32,+                                       textures_DeleteTextures :: [Word32]}                     deriving (Show, Typeable)   instance ExtensionRequest DeleteTextures where@@ -2770,7 +2771,7 @@                      = 4 + size (context_tag_DeleteTextures x) +                          size (n_DeleteTextures x)                          + sum (map size (textures_DeleteTextures x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_DeleteTextures x)                serialize (n_DeleteTextures x)                serializeList (textures_DeleteTextures x)@@ -2778,7 +2779,7 @@   data GenTextures = MkGenTextures{context_tag_GenTextures ::                                  CONTEXT_TAG,-                                 n_GenTextures :: INT32}+                                 n_GenTextures :: Int32}                  deriving (Show, Typeable)   instance ExtensionRequest GenTextures where@@ -2788,13 +2789,13 @@                putWord8 145                let size__                      = 4 + size (context_tag_GenTextures x) + size (n_GenTextures x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_GenTextures x)                serialize (n_GenTextures x)                putSkip (requiredPadding size__)   data GenTexturesReply = MkGenTexturesReply{data_GenTexturesReply ::-                                           [CARD32]}+                                           [Word32]}                       deriving (Show, Typeable)   instance Deserialize GenTexturesReply where@@ -2809,7 +2810,7 @@                return (MkGenTexturesReply data_)   data IsTexture = MkIsTexture{context_tag_IsTexture :: CONTEXT_TAG,-                             texture_IsTexture :: CARD32}+                             texture_IsTexture :: Word32}                deriving (Show, Typeable)   instance ExtensionRequest IsTexture where@@ -2819,7 +2820,7 @@                putWord8 146                let size__                      = 4 + size (context_tag_IsTexture x) + size (texture_IsTexture x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_IsTexture x)                serialize (texture_IsTexture x)                putSkip (requiredPadding size__)@@ -2840,8 +2841,8 @@   data GetColorTable = MkGetColorTable{context_tag_GetColorTable ::                                      CONTEXT_TAG,-                                     target_GetColorTable :: CARD32, format_GetColorTable :: CARD32,-                                     type_GetColorTable :: CARD32, swap_bytes_GetColorTable :: BOOL}+                                     target_GetColorTable :: Word32, format_GetColorTable :: Word32,+                                     type_GetColorTable :: Word32, swap_bytes_GetColorTable :: Bool}                    deriving (Show, Typeable)   instance ExtensionRequest GetColorTable where@@ -2855,7 +2856,7 @@                          + size (format_GetColorTable x)                          + size (type_GetColorTable x)                          + size (swap_bytes_GetColorTable x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_GetColorTable x)                serialize (target_GetColorTable x)                serialize (format_GetColorTable x)@@ -2864,8 +2865,8 @@                putSkip (requiredPadding size__)   data GetColorTableReply = MkGetColorTableReply{width_GetColorTableReply-                                               :: INT32,-                                               data_GetColorTableReply :: [BYTE]}+                                               :: Int32,+                                               data_GetColorTableReply :: [Word8]}                         deriving (Show, Typeable)   instance Deserialize GetColorTableReply where@@ -2884,8 +2885,8 @@ data GetColorTableParameterfv = MkGetColorTableParameterfv{context_tag_GetColorTableParameterfv                                                            :: CONTEXT_TAG,                                                            target_GetColorTableParameterfv ::-                                                           CARD32,-                                                           pname_GetColorTableParameterfv :: CARD32}+                                                           Word32,+                                                           pname_GetColorTableParameterfv :: Word32}                               deriving (Show, Typeable)   instance ExtensionRequest GetColorTableParameterfv where@@ -2897,14 +2898,14 @@                      = 4 + size (context_tag_GetColorTableParameterfv x) +                          size (target_GetColorTableParameterfv x)                          + size (pname_GetColorTableParameterfv x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_GetColorTableParameterfv x)                serialize (target_GetColorTableParameterfv x)                serialize (pname_GetColorTableParameterfv x)                putSkip (requiredPadding size__)   data GetColorTableParameterfvReply = MkGetColorTableParameterfvReply{n_GetColorTableParameterfvReply-                                                                     :: CARD32,+                                                                     :: Word32,                                                                      datum_GetColorTableParameterfvReply                                                                      :: FLOAT32,                                                                      data_GetColorTableParameterfvReply@@ -2928,8 +2929,8 @@ data GetColorTableParameteriv = MkGetColorTableParameteriv{context_tag_GetColorTableParameteriv                                                            :: CONTEXT_TAG,                                                            target_GetColorTableParameteriv ::-                                                           CARD32,-                                                           pname_GetColorTableParameteriv :: CARD32}+                                                           Word32,+                                                           pname_GetColorTableParameteriv :: Word32}                               deriving (Show, Typeable)   instance ExtensionRequest GetColorTableParameteriv where@@ -2941,18 +2942,18 @@                      = 4 + size (context_tag_GetColorTableParameteriv x) +                          size (target_GetColorTableParameteriv x)                          + size (pname_GetColorTableParameteriv x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_GetColorTableParameteriv x)                serialize (target_GetColorTableParameteriv x)                serialize (pname_GetColorTableParameteriv x)                putSkip (requiredPadding size__)   data GetColorTableParameterivReply = MkGetColorTableParameterivReply{n_GetColorTableParameterivReply-                                                                     :: CARD32,+                                                                     :: Word32,                                                                      datum_GetColorTableParameterivReply-                                                                     :: INT32,+                                                                     :: Int32,                                                                      data_GetColorTableParameterivReply-                                                                     :: [INT32]}+                                                                     :: [Int32]}                                    deriving (Show, Typeable)   instance Deserialize GetColorTableParameterivReply where@@ -2971,10 +2972,10 @@   data GetConvolutionFilter = MkGetConvolutionFilter{context_tag_GetConvolutionFilter                                                    :: CONTEXT_TAG,-                                                   target_GetConvolutionFilter :: CARD32,-                                                   format_GetConvolutionFilter :: CARD32,-                                                   type_GetConvolutionFilter :: CARD32,-                                                   swap_bytes_GetConvolutionFilter :: BOOL}+                                                   target_GetConvolutionFilter :: Word32,+                                                   format_GetConvolutionFilter :: Word32,+                                                   type_GetConvolutionFilter :: Word32,+                                                   swap_bytes_GetConvolutionFilter :: Bool}                           deriving (Show, Typeable)   instance ExtensionRequest GetConvolutionFilter where@@ -2988,7 +2989,7 @@                          + size (format_GetConvolutionFilter x)                          + size (type_GetConvolutionFilter x)                          + size (swap_bytes_GetConvolutionFilter x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_GetConvolutionFilter x)                serialize (target_GetConvolutionFilter x)                serialize (format_GetConvolutionFilter x)@@ -2997,11 +2998,11 @@                putSkip (requiredPadding size__)   data GetConvolutionFilterReply = MkGetConvolutionFilterReply{width_GetConvolutionFilterReply-                                                             :: INT32,+                                                             :: Int32,                                                              height_GetConvolutionFilterReply ::-                                                             INT32,+                                                             Int32,                                                              data_GetConvolutionFilterReply ::-                                                             [BYTE]}+                                                             [Word8]}                                deriving (Show, Typeable)   instance Deserialize GetConvolutionFilterReply where@@ -3021,9 +3022,9 @@ data GetConvolutionParameterfv = MkGetConvolutionParameterfv{context_tag_GetConvolutionParameterfv                                                              :: CONTEXT_TAG,                                                              target_GetConvolutionParameterfv ::-                                                             CARD32,+                                                             Word32,                                                              pname_GetConvolutionParameterfv ::-                                                             CARD32}+                                                             Word32}                                deriving (Show, Typeable)   instance ExtensionRequest GetConvolutionParameterfv where@@ -3035,14 +3036,14 @@                      = 4 + size (context_tag_GetConvolutionParameterfv x) +                          size (target_GetConvolutionParameterfv x)                          + size (pname_GetConvolutionParameterfv x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_GetConvolutionParameterfv x)                serialize (target_GetConvolutionParameterfv x)                serialize (pname_GetConvolutionParameterfv x)                putSkip (requiredPadding size__)   data GetConvolutionParameterfvReply = MkGetConvolutionParameterfvReply{n_GetConvolutionParameterfvReply-                                                                       :: CARD32,+                                                                       :: Word32,                                                                        datum_GetConvolutionParameterfvReply                                                                        :: FLOAT32,                                                                        data_GetConvolutionParameterfvReply@@ -3066,9 +3067,9 @@ data GetConvolutionParameteriv = MkGetConvolutionParameteriv{context_tag_GetConvolutionParameteriv                                                              :: CONTEXT_TAG,                                                              target_GetConvolutionParameteriv ::-                                                             CARD32,+                                                             Word32,                                                              pname_GetConvolutionParameteriv ::-                                                             CARD32}+                                                             Word32}                                deriving (Show, Typeable)   instance ExtensionRequest GetConvolutionParameteriv where@@ -3080,18 +3081,18 @@                      = 4 + size (context_tag_GetConvolutionParameteriv x) +                          size (target_GetConvolutionParameteriv x)                          + size (pname_GetConvolutionParameteriv x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_GetConvolutionParameteriv x)                serialize (target_GetConvolutionParameteriv x)                serialize (pname_GetConvolutionParameteriv x)                putSkip (requiredPadding size__)   data GetConvolutionParameterivReply = MkGetConvolutionParameterivReply{n_GetConvolutionParameterivReply-                                                                       :: CARD32,+                                                                       :: Word32,                                                                        datum_GetConvolutionParameterivReply-                                                                       :: INT32,+                                                                       :: Int32,                                                                        data_GetConvolutionParameterivReply-                                                                       :: [INT32]}+                                                                       :: [Int32]}                                     deriving (Show, Typeable)   instance Deserialize GetConvolutionParameterivReply where@@ -3110,10 +3111,10 @@   data GetSeparableFilter = MkGetSeparableFilter{context_tag_GetSeparableFilter                                                :: CONTEXT_TAG,-                                               target_GetSeparableFilter :: CARD32,-                                               format_GetSeparableFilter :: CARD32,-                                               type_GetSeparableFilter :: CARD32,-                                               swap_bytes_GetSeparableFilter :: BOOL}+                                               target_GetSeparableFilter :: Word32,+                                               format_GetSeparableFilter :: Word32,+                                               type_GetSeparableFilter :: Word32,+                                               swap_bytes_GetSeparableFilter :: Bool}                         deriving (Show, Typeable)   instance ExtensionRequest GetSeparableFilter where@@ -3127,7 +3128,7 @@                          + size (format_GetSeparableFilter x)                          + size (type_GetSeparableFilter x)                          + size (swap_bytes_GetSeparableFilter x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_GetSeparableFilter x)                serialize (target_GetSeparableFilter x)                serialize (format_GetSeparableFilter x)@@ -3136,10 +3137,10 @@                putSkip (requiredPadding size__)   data GetSeparableFilterReply = MkGetSeparableFilterReply{row_w_GetSeparableFilterReply-                                                         :: INT32,-                                                         col_h_GetSeparableFilterReply :: INT32,+                                                         :: Int32,+                                                         col_h_GetSeparableFilterReply :: Int32,                                                          rows_and_cols_GetSeparableFilterReply ::-                                                         [BYTE]}+                                                         [Word8]}                              deriving (Show, Typeable)   instance Deserialize GetSeparableFilterReply where@@ -3159,9 +3160,9 @@   data GetHistogram = MkGetHistogram{context_tag_GetHistogram ::                                    CONTEXT_TAG,-                                   target_GetHistogram :: CARD32, format_GetHistogram :: CARD32,-                                   type_GetHistogram :: CARD32, swap_bytes_GetHistogram :: BOOL,-                                   reset_GetHistogram :: BOOL}+                                   target_GetHistogram :: Word32, format_GetHistogram :: Word32,+                                   type_GetHistogram :: Word32, swap_bytes_GetHistogram :: Bool,+                                   reset_GetHistogram :: Bool}                   deriving (Show, Typeable)   instance ExtensionRequest GetHistogram where@@ -3176,7 +3177,7 @@                          + size (type_GetHistogram x)                          + size (swap_bytes_GetHistogram x)                          + size (reset_GetHistogram x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_GetHistogram x)                serialize (target_GetHistogram x)                serialize (format_GetHistogram x)@@ -3186,8 +3187,8 @@                putSkip (requiredPadding size__)   data GetHistogramReply = MkGetHistogramReply{width_GetHistogramReply-                                             :: INT32,-                                             data_GetHistogramReply :: [BYTE]}+                                             :: Int32,+                                             data_GetHistogramReply :: [Word8]}                        deriving (Show, Typeable)   instance Deserialize GetHistogramReply where@@ -3205,8 +3206,8 @@   data GetHistogramParameterfv = MkGetHistogramParameterfv{context_tag_GetHistogramParameterfv                                                          :: CONTEXT_TAG,-                                                         target_GetHistogramParameterfv :: CARD32,-                                                         pname_GetHistogramParameterfv :: CARD32}+                                                         target_GetHistogramParameterfv :: Word32,+                                                         pname_GetHistogramParameterfv :: Word32}                              deriving (Show, Typeable)   instance ExtensionRequest GetHistogramParameterfv where@@ -3218,14 +3219,14 @@                      = 4 + size (context_tag_GetHistogramParameterfv x) +                          size (target_GetHistogramParameterfv x)                          + size (pname_GetHistogramParameterfv x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_GetHistogramParameterfv x)                serialize (target_GetHistogramParameterfv x)                serialize (pname_GetHistogramParameterfv x)                putSkip (requiredPadding size__)   data GetHistogramParameterfvReply = MkGetHistogramParameterfvReply{n_GetHistogramParameterfvReply-                                                                   :: CARD32,+                                                                   :: Word32,                                                                    datum_GetHistogramParameterfvReply                                                                    :: FLOAT32,                                                                    data_GetHistogramParameterfvReply@@ -3248,8 +3249,8 @@   data GetHistogramParameteriv = MkGetHistogramParameteriv{context_tag_GetHistogramParameteriv                                                          :: CONTEXT_TAG,-                                                         target_GetHistogramParameteriv :: CARD32,-                                                         pname_GetHistogramParameteriv :: CARD32}+                                                         target_GetHistogramParameteriv :: Word32,+                                                         pname_GetHistogramParameteriv :: Word32}                              deriving (Show, Typeable)   instance ExtensionRequest GetHistogramParameteriv where@@ -3261,18 +3262,18 @@                      = 4 + size (context_tag_GetHistogramParameteriv x) +                          size (target_GetHistogramParameteriv x)                          + size (pname_GetHistogramParameteriv x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_GetHistogramParameteriv x)                serialize (target_GetHistogramParameteriv x)                serialize (pname_GetHistogramParameteriv x)                putSkip (requiredPadding size__)   data GetHistogramParameterivReply = MkGetHistogramParameterivReply{n_GetHistogramParameterivReply-                                                                   :: CARD32,+                                                                   :: Word32,                                                                    datum_GetHistogramParameterivReply-                                                                   :: INT32,+                                                                   :: Int32,                                                                    data_GetHistogramParameterivReply-                                                                   :: [INT32]}+                                                                   :: [Int32]}                                   deriving (Show, Typeable)   instance Deserialize GetHistogramParameterivReply where@@ -3290,9 +3291,9 @@                return (MkGetHistogramParameterivReply n datum data_)   data GetMinmax = MkGetMinmax{context_tag_GetMinmax :: CONTEXT_TAG,-                             target_GetMinmax :: CARD32, format_GetMinmax :: CARD32,-                             type_GetMinmax :: CARD32, swap_bytes_GetMinmax :: BOOL,-                             reset_GetMinmax :: BOOL}+                             target_GetMinmax :: Word32, format_GetMinmax :: Word32,+                             type_GetMinmax :: Word32, swap_bytes_GetMinmax :: Bool,+                             reset_GetMinmax :: Bool}                deriving (Show, Typeable)   instance ExtensionRequest GetMinmax where@@ -3306,7 +3307,7 @@                          + size (type_GetMinmax x)                          + size (swap_bytes_GetMinmax x)                          + size (reset_GetMinmax x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_GetMinmax x)                serialize (target_GetMinmax x)                serialize (format_GetMinmax x)@@ -3316,7 +3317,7 @@                putSkip (requiredPadding size__)   data GetMinmaxReply = MkGetMinmaxReply{data_GetMinmaxReply ::-                                       [BYTE]}+                                       [Word8]}                     deriving (Show, Typeable)   instance Deserialize GetMinmaxReply where@@ -3332,8 +3333,8 @@   data GetMinmaxParameterfv = MkGetMinmaxParameterfv{context_tag_GetMinmaxParameterfv                                                    :: CONTEXT_TAG,-                                                   target_GetMinmaxParameterfv :: CARD32,-                                                   pname_GetMinmaxParameterfv :: CARD32}+                                                   target_GetMinmaxParameterfv :: Word32,+                                                   pname_GetMinmaxParameterfv :: Word32}                           deriving (Show, Typeable)   instance ExtensionRequest GetMinmaxParameterfv where@@ -3345,14 +3346,14 @@                      = 4 + size (context_tag_GetMinmaxParameterfv x) +                          size (target_GetMinmaxParameterfv x)                          + size (pname_GetMinmaxParameterfv x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_GetMinmaxParameterfv x)                serialize (target_GetMinmaxParameterfv x)                serialize (pname_GetMinmaxParameterfv x)                putSkip (requiredPadding size__)   data GetMinmaxParameterfvReply = MkGetMinmaxParameterfvReply{n_GetMinmaxParameterfvReply-                                                             :: CARD32,+                                                             :: Word32,                                                              datum_GetMinmaxParameterfvReply ::                                                              FLOAT32,                                                              data_GetMinmaxParameterfvReply ::@@ -3375,8 +3376,8 @@   data GetMinmaxParameteriv = MkGetMinmaxParameteriv{context_tag_GetMinmaxParameteriv                                                    :: CONTEXT_TAG,-                                                   target_GetMinmaxParameteriv :: CARD32,-                                                   pname_GetMinmaxParameteriv :: CARD32}+                                                   target_GetMinmaxParameteriv :: Word32,+                                                   pname_GetMinmaxParameteriv :: Word32}                           deriving (Show, Typeable)   instance ExtensionRequest GetMinmaxParameteriv where@@ -3388,18 +3389,18 @@                      = 4 + size (context_tag_GetMinmaxParameteriv x) +                          size (target_GetMinmaxParameteriv x)                          + size (pname_GetMinmaxParameteriv x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_GetMinmaxParameteriv x)                serialize (target_GetMinmaxParameteriv x)                serialize (pname_GetMinmaxParameteriv x)                putSkip (requiredPadding size__)   data GetMinmaxParameterivReply = MkGetMinmaxParameterivReply{n_GetMinmaxParameterivReply-                                                             :: CARD32,+                                                             :: Word32,                                                              datum_GetMinmaxParameterivReply ::-                                                             INT32,+                                                             Int32,                                                              data_GetMinmaxParameterivReply ::-                                                             [INT32]}+                                                             [Int32]}                                deriving (Show, Typeable)   instance Deserialize GetMinmaxParameterivReply where@@ -3419,8 +3420,8 @@ data GetCompressedTexImageARB = MkGetCompressedTexImageARB{context_tag_GetCompressedTexImageARB                                                            :: CONTEXT_TAG,                                                            target_GetCompressedTexImageARB ::-                                                           CARD32,-                                                           level_GetCompressedTexImageARB :: INT32}+                                                           Word32,+                                                           level_GetCompressedTexImageARB :: Int32}                               deriving (Show, Typeable)   instance ExtensionRequest GetCompressedTexImageARB where@@ -3432,16 +3433,16 @@                      = 4 + size (context_tag_GetCompressedTexImageARB x) +                          size (target_GetCompressedTexImageARB x)                          + size (level_GetCompressedTexImageARB x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_GetCompressedTexImageARB x)                serialize (target_GetCompressedTexImageARB x)                serialize (level_GetCompressedTexImageARB x)                putSkip (requiredPadding size__)   data GetCompressedTexImageARBReply = MkGetCompressedTexImageARBReply{size_GetCompressedTexImageARBReply-                                                                     :: INT32,+                                                                     :: Int32,                                                                      data_GetCompressedTexImageARBReply-                                                                     :: [BYTE]}+                                                                     :: [Word8]}                                    deriving (Show, Typeable)   instance Deserialize GetCompressedTexImageARBReply where@@ -3459,8 +3460,8 @@   data DeleteQueriesARB = MkDeleteQueriesARB{context_tag_DeleteQueriesARB                                            :: CONTEXT_TAG,-                                           n_DeleteQueriesARB :: INT32,-                                           ids_DeleteQueriesARB :: [CARD32]}+                                           n_DeleteQueriesARB :: Int32,+                                           ids_DeleteQueriesARB :: [Word32]}                       deriving (Show, Typeable)   instance ExtensionRequest DeleteQueriesARB where@@ -3472,7 +3473,7 @@                      = 4 + size (context_tag_DeleteQueriesARB x) +                          size (n_DeleteQueriesARB x)                          + sum (map size (ids_DeleteQueriesARB x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_DeleteQueriesARB x)                serialize (n_DeleteQueriesARB x)                serializeList (ids_DeleteQueriesARB x)@@ -3480,7 +3481,7 @@   data GenQueriesARB = MkGenQueriesARB{context_tag_GenQueriesARB ::                                      CONTEXT_TAG,-                                     n_GenQueriesARB :: INT32}+                                     n_GenQueriesARB :: Int32}                    deriving (Show, Typeable)   instance ExtensionRequest GenQueriesARB where@@ -3490,13 +3491,13 @@                putWord8 162                let size__                      = 4 + size (context_tag_GenQueriesARB x) + size (n_GenQueriesARB x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_GenQueriesARB x)                serialize (n_GenQueriesARB x)                putSkip (requiredPadding size__)   data GenQueriesARBReply = MkGenQueriesARBReply{data_GenQueriesARBReply-                                               :: [CARD32]}+                                               :: [Word32]}                         deriving (Show, Typeable)   instance Deserialize GenQueriesARBReply where@@ -3512,7 +3513,7 @@   data IsQueryARB = MkIsQueryARB{context_tag_IsQueryARB ::                                CONTEXT_TAG,-                               id_IsQueryARB :: CARD32}+                               id_IsQueryARB :: Word32}                 deriving (Show, Typeable)   instance ExtensionRequest IsQueryARB where@@ -3522,7 +3523,7 @@                putWord8 163                let size__                      = 4 + size (context_tag_IsQueryARB x) + size (id_IsQueryARB x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_IsQueryARB x)                serialize (id_IsQueryARB x)                putSkip (requiredPadding size__)@@ -3543,7 +3544,7 @@   data GetQueryivARB = MkGetQueryivARB{context_tag_GetQueryivARB ::                                      CONTEXT_TAG,-                                     target_GetQueryivARB :: CARD32, pname_GetQueryivARB :: CARD32}+                                     target_GetQueryivARB :: Word32, pname_GetQueryivARB :: Word32}                    deriving (Show, Typeable)   instance ExtensionRequest GetQueryivARB where@@ -3555,16 +3556,16 @@                      = 4 + size (context_tag_GetQueryivARB x) +                          size (target_GetQueryivARB x)                          + size (pname_GetQueryivARB x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_GetQueryivARB x)                serialize (target_GetQueryivARB x)                serialize (pname_GetQueryivARB x)                putSkip (requiredPadding size__)   data GetQueryivARBReply = MkGetQueryivARBReply{n_GetQueryivARBReply-                                               :: CARD32,-                                               datum_GetQueryivARBReply :: INT32,-                                               data_GetQueryivARBReply :: [INT32]}+                                               :: Word32,+                                               datum_GetQueryivARBReply :: Int32,+                                               data_GetQueryivARBReply :: [Int32]}                         deriving (Show, Typeable)   instance Deserialize GetQueryivARBReply where@@ -3583,8 +3584,8 @@   data GetQueryObjectivARB = MkGetQueryObjectivARB{context_tag_GetQueryObjectivARB                                                  :: CONTEXT_TAG,-                                                 id_GetQueryObjectivARB :: CARD32,-                                                 pname_GetQueryObjectivARB :: CARD32}+                                                 id_GetQueryObjectivARB :: Word32,+                                                 pname_GetQueryObjectivARB :: Word32}                          deriving (Show, Typeable)   instance ExtensionRequest GetQueryObjectivARB where@@ -3596,16 +3597,16 @@                      = 4 + size (context_tag_GetQueryObjectivARB x) +                          size (id_GetQueryObjectivARB x)                          + size (pname_GetQueryObjectivARB x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_GetQueryObjectivARB x)                serialize (id_GetQueryObjectivARB x)                serialize (pname_GetQueryObjectivARB x)                putSkip (requiredPadding size__)   data GetQueryObjectivARBReply = MkGetQueryObjectivARBReply{n_GetQueryObjectivARBReply-                                                           :: CARD32,-                                                           datum_GetQueryObjectivARBReply :: INT32,-                                                           data_GetQueryObjectivARBReply :: [INT32]}+                                                           :: Word32,+                                                           datum_GetQueryObjectivARBReply :: Int32,+                                                           data_GetQueryObjectivARBReply :: [Int32]}                               deriving (Show, Typeable)   instance Deserialize GetQueryObjectivARBReply where@@ -3624,8 +3625,8 @@   data GetQueryObjectuivARB = MkGetQueryObjectuivARB{context_tag_GetQueryObjectuivARB                                                    :: CONTEXT_TAG,-                                                   id_GetQueryObjectuivARB :: CARD32,-                                                   pname_GetQueryObjectuivARB :: CARD32}+                                                   id_GetQueryObjectuivARB :: Word32,+                                                   pname_GetQueryObjectuivARB :: Word32}                           deriving (Show, Typeable)   instance ExtensionRequest GetQueryObjectuivARB where@@ -3637,18 +3638,18 @@                      = 4 + size (context_tag_GetQueryObjectuivARB x) +                          size (id_GetQueryObjectuivARB x)                          + size (pname_GetQueryObjectuivARB x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_tag_GetQueryObjectuivARB x)                serialize (id_GetQueryObjectuivARB x)                serialize (pname_GetQueryObjectuivARB x)                putSkip (requiredPadding size__)   data GetQueryObjectuivARBReply = MkGetQueryObjectuivARBReply{n_GetQueryObjectuivARBReply-                                                             :: CARD32,+                                                             :: Word32,                                                              datum_GetQueryObjectuivARBReply ::-                                                             CARD32,+                                                             Word32,                                                              data_GetQueryObjectuivARBReply ::-                                                             [CARD32]}+                                                             [Word32]}                                deriving (Show, Typeable)   instance Deserialize GetQueryObjectuivARBReply where
patched/Graphics/XHB/Gen/Input.hs view
@@ -19,6 +19,9 @@ import Graphics.XHB.Connection.Types import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import Data.Binary.Put (runPut) import Graphics.XHB.Shared hiding (Event(..), Error(..)) import Graphics.XHB.Gen.Xproto.Types@@ -31,39 +34,39 @@   getExtensionVersion ::                       Graphics.XHB.Connection.Types.Connection ->-                        CARD16 -> [CChar] -> IO (Receipt GetExtensionVersionReply)+                        Word16 -> [CChar] -> IO (Receipt GetExtensionVersionReply) getExtensionVersion c name_len name-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetExtensionVersion name_len name        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   listInputDevices ::                    Graphics.XHB.Connection.Types.Connection ->                      IO (Receipt ListInputDevicesReply) listInputDevices c-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkListInputDevices        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   openDevice ::              Graphics.XHB.Connection.Types.Connection ->-               CARD8 -> IO (Receipt OpenDeviceReply)+               Word8 -> IO (Receipt OpenDeviceReply) openDevice c device_id-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkOpenDevice device_id        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   closeDevice ::-              Graphics.XHB.Connection.Types.Connection -> CARD8 -> IO ()+              Graphics.XHB.Connection.Types.Connection -> Word8 -> IO () closeDevice c device_id   = do let req = MkCloseDevice device_id        putAction <- serializeExtensionRequest c req@@ -72,13 +75,14 @@   setDeviceMode ::                 Graphics.XHB.Connection.Types.Connection ->-                  CARD8 -> CARD8 -> IO (Receipt SetDeviceModeReply)+                  Word8 -> Word8 -> IO (Receipt Word8) setDeviceMode c device_id mode-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet (status_SetDeviceModeReply `fmap` deserialize))        let req = MkSetDeviceMode device_id mode        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   selectExtensionEvent ::@@ -93,11 +97,11 @@                              Graphics.XHB.Connection.Types.Connection ->                                WINDOW -> IO (Receipt GetSelectedExtensionEventsReply) getSelectedExtensionEvents c window-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetSelectedExtensionEvents window        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   changeDeviceDontPropagateList ::@@ -112,57 +116,60 @@                              Graphics.XHB.Connection.Types.Connection ->                                WINDOW -> IO (Receipt GetDeviceDontPropagateListReply) getDeviceDontPropagateList c window-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetDeviceDontPropagateList window        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getDeviceMotionEvents ::                         Graphics.XHB.Connection.Types.Connection ->                           GetDeviceMotionEvents -> IO (Receipt GetDeviceMotionEventsReply) getDeviceMotionEvents c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   changeKeyboardDevice ::                        Graphics.XHB.Connection.Types.Connection ->-                         CARD8 -> IO (Receipt ChangeKeyboardDeviceReply)+                         Word8 -> IO (Receipt Word8) changeKeyboardDevice c device_id-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet (status_ChangeKeyboardDeviceReply `fmap` deserialize))        let req = MkChangeKeyboardDevice device_id        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   changePointerDevice ::                       Graphics.XHB.Connection.Types.Connection ->-                        ChangePointerDevice -> IO (Receipt ChangePointerDeviceReply)+                        ChangePointerDevice -> IO (Receipt Word8) changePointerDevice c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet (status_ChangePointerDeviceReply `fmap` deserialize))        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   grabDevice ::              Graphics.XHB.Connection.Types.Connection ->-               GrabDevice -> IO (Receipt GrabDeviceReply)+               GrabDevice -> IO (Receipt Word8) grabDevice c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet (status_GrabDeviceReply `fmap` deserialize))        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   ungrabDevice ::                Graphics.XHB.Connection.Types.Connection ->-                 TIMESTAMP -> CARD8 -> IO ()+                 TIMESTAMP -> Word8 -> IO () ungrabDevice c time device_id   = do let req = MkUngrabDevice time device_id        putAction <- serializeExtensionRequest c req@@ -210,13 +217,13 @@   getDeviceFocus ::                  Graphics.XHB.Connection.Types.Connection ->-                   CARD8 -> IO (Receipt GetDeviceFocusReply)+                   Word8 -> IO (Receipt GetDeviceFocusReply) getDeviceFocus c device_id-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetDeviceFocus device_id        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   setDeviceFocus ::@@ -228,23 +235,24 @@   getFeedbackControl ::                      Graphics.XHB.Connection.Types.Connection ->-                       CARD8 -> IO (Receipt GetFeedbackControlReply)+                       Word8 -> IO (Receipt Word16) getFeedbackControl c device_id-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet (num_feedback_GetFeedbackControlReply `fmap` deserialize))        let req = MkGetFeedbackControl device_id        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getDeviceKeyMapping ::                       Graphics.XHB.Connection.Types.Connection ->                         GetDeviceKeyMapping -> IO (Receipt GetDeviceKeyMappingReply) getDeviceKeyMapping c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   changeDeviceKeyMapping ::@@ -257,56 +265,58 @@   getDeviceModifierMapping ::                            Graphics.XHB.Connection.Types.Connection ->-                             CARD8 -> IO (Receipt GetDeviceModifierMappingReply)+                             Word8 -> IO (Receipt GetDeviceModifierMappingReply) getDeviceModifierMapping c device_id-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetDeviceModifierMapping device_id        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   setDeviceModifierMapping ::                            Graphics.XHB.Connection.Types.Connection ->-                             SetDeviceModifierMapping ->-                               IO (Receipt SetDeviceModifierMappingReply)+                             SetDeviceModifierMapping -> IO (Receipt Word8) setDeviceModifierMapping c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet (status_SetDeviceModifierMappingReply `fmap` deserialize))        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getDeviceButtonMapping ::                          Graphics.XHB.Connection.Types.Connection ->-                           CARD8 -> IO (Receipt GetDeviceButtonMappingReply)+                           Word8 -> IO (Receipt GetDeviceButtonMappingReply) getDeviceButtonMapping c device_id-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetDeviceButtonMapping device_id        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   setDeviceButtonMapping ::                          Graphics.XHB.Connection.Types.Connection ->-                           SetDeviceButtonMapping -> IO (Receipt SetDeviceButtonMappingReply)+                           SetDeviceButtonMapping -> IO (Receipt Word8) setDeviceButtonMapping c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet (status_SetDeviceButtonMappingReply `fmap` deserialize))        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   queryDeviceState ::                    Graphics.XHB.Connection.Types.Connection ->-                     CARD8 -> IO (Receipt QueryDeviceStateReply)+                     Word8 -> IO (Receipt Word8) queryDeviceState c device_id-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet (num_classes_QueryDeviceStateReply `fmap` deserialize))        let req = MkQueryDeviceState device_id        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   sendExtensionEvent ::@@ -326,21 +336,23 @@   setDeviceValuators ::                      Graphics.XHB.Connection.Types.Connection ->-                       SetDeviceValuators -> IO (Receipt SetDeviceValuatorsReply)+                       SetDeviceValuators -> IO (Receipt Word8) setDeviceValuators c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet (status_SetDeviceValuatorsReply `fmap` deserialize))        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getDeviceControl ::                    Graphics.XHB.Connection.Types.Connection ->-                     CARD16 -> CARD8 -> IO (Receipt GetDeviceControlReply)+                     Word16 -> Word8 -> IO (Receipt Word8) getDeviceControl c control_id device_id-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet (status_GetDeviceControlReply `fmap` deserialize))        let req = MkGetDeviceControl control_id device_id        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt
patched/Graphics/XHB/Gen/Input/Types.hs view
@@ -48,6 +48,7 @@         DevicePresenceNotify(..))        where import Data.Word+import Data.Int import Foreign.C.Types import Data.Bits import Data.Binary.Put@@ -102,9 +103,9 @@   = return (liftM toEvent (deserialize :: Get DevicePresenceNotify)) deserializeEvent _ = Nothing  -type KeyCode = CARD8+type KeyCode = Word8  -type EventClass = CARD32+type EventClass = Word32   data ValuatorMode = ValuatorModeRelative                   | ValuatorModeAbsolute@@ -125,7 +126,7 @@         fromValue 1 = PropagateModeDeleteFromList   data GetExtensionVersion = MkGetExtensionVersion{name_len_GetExtensionVersion-                                                 :: CARD16,+                                                 :: Word16,                                                  name_GetExtensionVersion :: [CChar]}                          deriving (Show, Typeable)  @@ -137,18 +138,18 @@                let size__                      = 4 + size (name_len_GetExtensionVersion x) + 2 +                          sum (map size (name_GetExtensionVersion x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (name_len_GetExtensionVersion x)                putSkip 2                serializeList (name_GetExtensionVersion x)                putSkip (requiredPadding size__)   data GetExtensionVersionReply = MkGetExtensionVersionReply{server_major_GetExtensionVersionReply-                                                           :: CARD16,+                                                           :: Word16,                                                            server_minor_GetExtensionVersionReply ::-                                                           CARD16,+                                                           Word16,                                                            present_GetExtensionVersionReply ::-                                                           CARD8}+                                                           Word8}                               deriving (Show, Typeable)   instance Deserialize GetExtensionVersionReply where@@ -166,8 +167,8 @@                  (MkGetExtensionVersionReply server_major server_minor present)   data DeviceInfo = MkDeviceInfo{device_type_DeviceInfo :: ATOM,-                               device_id_DeviceInfo :: CARD8, num_class_info_DeviceInfo :: CARD8,-                               device_use_DeviceInfo :: CARD8}+                               device_id_DeviceInfo :: Word8, num_class_info_DeviceInfo :: Word8,+                               device_use_DeviceInfo :: Word8}                 deriving (Show, Typeable)   instance Serialize DeviceInfo where@@ -202,11 +203,11 @@           = do putWord8 extOpCode                putWord8 2                let size__ = 4-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                putSkip (requiredPadding size__)   data ListInputDevicesReply = MkListInputDevicesReply{devices_len_ListInputDevicesReply-                                                     :: CARD8,+                                                     :: Word8,                                                      devices_ListInputDevicesReply :: [DeviceInfo]}                            deriving (Show, Typeable)  @@ -240,8 +241,8 @@         fromValue 3 = DeviceUseIsXExtensionKeyboard         fromValue 4 = DeviceUseIsXExtensionPointer  -data InputInfo = MkInputInfo{class_id_InputInfo :: CARD8,-                             len_InputInfo :: CARD8}+data InputInfo = MkInputInfo{class_id_InputInfo :: Word8,+                             len_InputInfo :: Word8}                deriving (Show, Typeable)   instance Serialize InputInfo where@@ -256,9 +257,9 @@                len <- deserialize                return (MkInputInfo class_id len)  -data KeyInfo = MkKeyInfo{class_id_KeyInfo :: CARD8,-                         len_KeyInfo :: CARD8, min_keycode_KeyInfo :: KeyCode,-                         max_keycode_KeyInfo :: KeyCode, num_keys_KeyInfo :: CARD16}+data KeyInfo = MkKeyInfo{class_id_KeyInfo :: Word8,+                         len_KeyInfo :: Word8, min_keycode_KeyInfo :: KeyCode,+                         max_keycode_KeyInfo :: KeyCode, num_keys_KeyInfo :: Word16}              deriving (Show, Typeable)   instance Serialize KeyInfo where@@ -286,8 +287,8 @@                skip 2                return (MkKeyInfo class_id len min_keycode max_keycode num_keys)  -data ButtonInfo = MkButtonInfo{class_id_ButtonInfo :: CARD8,-                               len_ButtonInfo :: CARD8, num_buttons_ButtonInfo :: CARD16}+data ButtonInfo = MkButtonInfo{class_id_ButtonInfo :: Word8,+                               len_ButtonInfo :: Word8, num_buttons_ButtonInfo :: Word16}                 deriving (Show, Typeable)   instance Serialize ButtonInfo where@@ -306,8 +307,8 @@                num_buttons <- deserialize                return (MkButtonInfo class_id len num_buttons)  -data AxisInfo = MkAxisInfo{resolution_AxisInfo :: CARD32,-                           minimum_AxisInfo :: CARD32, maximum_AxisInfo :: CARD32}+data AxisInfo = MkAxisInfo{resolution_AxisInfo :: Word32,+                           minimum_AxisInfo :: Word32, maximum_AxisInfo :: Word32}               deriving (Show, Typeable)   instance Serialize AxisInfo where@@ -326,9 +327,9 @@                maximum <- deserialize                return (MkAxisInfo resolution minimum maximum)  -data ValuatorInfo = MkValuatorInfo{class_id_ValuatorInfo :: CARD8,-                                   len_ValuatorInfo :: CARD8, axes_len_ValuatorInfo :: CARD8,-                                   mode_ValuatorInfo :: CARD8, motion_size_ValuatorInfo :: CARD32,+data ValuatorInfo = MkValuatorInfo{class_id_ValuatorInfo :: Word8,+                                   len_ValuatorInfo :: Word8, axes_len_ValuatorInfo :: Word8,+                                   mode_ValuatorInfo :: Word8, motion_size_ValuatorInfo :: Word32,                                    axes_ValuatorInfo :: [AxisInfo]}                   deriving (Show, Typeable)  @@ -358,8 +359,8 @@                return (MkValuatorInfo class_id len axes_len mode motion_size axes)   data InputClassInfo = MkInputClassInfo{class_id_InputClassInfo ::-                                       CARD8,-                                       event_type_base_InputClassInfo :: CARD8}+                                       Word8,+                                       event_type_base_InputClassInfo :: Word8}                     deriving (Show, Typeable)   instance Serialize InputClassInfo where@@ -376,7 +377,7 @@                event_type_base <- deserialize                return (MkInputClassInfo class_id event_type_base)  -data OpenDevice = MkOpenDevice{device_id_OpenDevice :: CARD8}+data OpenDevice = MkOpenDevice{device_id_OpenDevice :: Word8}                 deriving (Show, Typeable)   instance ExtensionRequest OpenDevice where@@ -385,13 +386,13 @@           = do putWord8 extOpCode                putWord8 3                let size__ = 4 + size (device_id_OpenDevice x) + 3-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (device_id_OpenDevice x)                putSkip 3                putSkip (requiredPadding size__)   data OpenDeviceReply = MkOpenDeviceReply{num_classes_OpenDeviceReply-                                         :: CARD8,+                                         :: Word8,                                          class_info_OpenDeviceReply :: [InputClassInfo]}                      deriving (Show, Typeable)  @@ -431,7 +432,7 @@         fromValue 5 = InputClassFocus         fromValue 6 = InputClassOther  -data CloseDevice = MkCloseDevice{device_id_CloseDevice :: CARD8}+data CloseDevice = MkCloseDevice{device_id_CloseDevice :: Word8}                  deriving (Show, Typeable)   instance ExtensionRequest CloseDevice where@@ -440,14 +441,14 @@           = do putWord8 extOpCode                putWord8 4                let size__ = 4 + size (device_id_CloseDevice x) + 3-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (device_id_CloseDevice x)                putSkip 3                putSkip (requiredPadding size__)   data SetDeviceMode = MkSetDeviceMode{device_id_SetDeviceMode ::-                                     CARD8,-                                     mode_SetDeviceMode :: CARD8}+                                     Word8,+                                     mode_SetDeviceMode :: Word8}                    deriving (Show, Typeable)   instance ExtensionRequest SetDeviceMode where@@ -459,14 +460,14 @@                      = 4 + size (device_id_SetDeviceMode x) +                          size (mode_SetDeviceMode x)                          + 2-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (device_id_SetDeviceMode x)                serialize (mode_SetDeviceMode x)                putSkip 2                putSkip (requiredPadding size__)   data SetDeviceModeReply = MkSetDeviceModeReply{status_SetDeviceModeReply-                                               :: CARD8}+                                               :: Word8}                         deriving (Show, Typeable)   instance Deserialize SetDeviceModeReply where@@ -482,7 +483,7 @@   data SelectExtensionEvent = MkSelectExtensionEvent{window_SelectExtensionEvent                                                    :: WINDOW,-                                                   num_classes_SelectExtensionEvent :: CARD16,+                                                   num_classes_SelectExtensionEvent :: Word16,                                                    classes_SelectExtensionEvent :: [EventClass]}                           deriving (Show, Typeable)  @@ -496,7 +497,7 @@                          size (num_classes_SelectExtensionEvent x)                          + 2                          + sum (map size (classes_SelectExtensionEvent x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (window_SelectExtensionEvent x)                serialize (num_classes_SelectExtensionEvent x)                putSkip 2@@ -513,14 +514,14 @@           = do putWord8 extOpCode                putWord8 7                let size__ = 4 + size (window_GetSelectedExtensionEvents x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (window_GetSelectedExtensionEvents x)                putSkip (requiredPadding size__)   data GetSelectedExtensionEventsReply = MkGetSelectedExtensionEventsReply{num_this_classes_GetSelectedExtensionEventsReply-                                                                         :: CARD16,+                                                                         :: Word16,                                                                          num_all_classes_GetSelectedExtensionEventsReply-                                                                         :: CARD16,+                                                                         :: Word16,                                                                          this_classes_GetSelectedExtensionEventsReply                                                                          :: [EventClass],                                                                          all_classes_GetSelectedExtensionEventsReply@@ -547,9 +548,9 @@ data ChangeDeviceDontPropagateList = MkChangeDeviceDontPropagateList{window_ChangeDeviceDontPropagateList                                                                      :: WINDOW,                                                                      num_classes_ChangeDeviceDontPropagateList-                                                                     :: CARD16,+                                                                     :: Word16,                                                                      mode_ChangeDeviceDontPropagateList-                                                                     :: CARD8,+                                                                     :: Word8,                                                                      classes_ChangeDeviceDontPropagateList                                                                      :: [EventClass]}                                    deriving (Show, Typeable)@@ -565,7 +566,7 @@                          + size (mode_ChangeDeviceDontPropagateList x)                          + 1                          + sum (map size (classes_ChangeDeviceDontPropagateList x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (window_ChangeDeviceDontPropagateList x)                serialize (num_classes_ChangeDeviceDontPropagateList x)                serialize (mode_ChangeDeviceDontPropagateList x)@@ -583,12 +584,12 @@           = do putWord8 extOpCode                putWord8 9                let size__ = 4 + size (window_GetDeviceDontPropagateList x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (window_GetDeviceDontPropagateList x)                putSkip (requiredPadding size__)   data GetDeviceDontPropagateListReply = MkGetDeviceDontPropagateListReply{num_classes_GetDeviceDontPropagateListReply-                                                                         :: CARD16,+                                                                         :: Word16,                                                                          classes_GetDeviceDontPropagateListReply                                                                          :: [EventClass]}                                      deriving (Show, Typeable)@@ -608,7 +609,7 @@ data GetDeviceMotionEvents = MkGetDeviceMotionEvents{start_GetDeviceMotionEvents                                                      :: TIMESTAMP,                                                      stop_GetDeviceMotionEvents :: TIMESTAMP,-                                                     device_id_GetDeviceMotionEvents :: CARD8}+                                                     device_id_GetDeviceMotionEvents :: Word8}                            deriving (Show, Typeable)   instance ExtensionRequest GetDeviceMotionEvents where@@ -620,18 +621,18 @@                      = 4 + size (start_GetDeviceMotionEvents x) +                          size (stop_GetDeviceMotionEvents x)                          + size (device_id_GetDeviceMotionEvents x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (start_GetDeviceMotionEvents x)                serialize (stop_GetDeviceMotionEvents x)                serialize (device_id_GetDeviceMotionEvents x)                putSkip (requiredPadding size__)   data GetDeviceMotionEventsReply = MkGetDeviceMotionEventsReply{num_coords_GetDeviceMotionEventsReply-                                                               :: CARD32,+                                                               :: Word32,                                                                num_axes_GetDeviceMotionEventsReply-                                                               :: CARD8,+                                                               :: Word8,                                                                device_mode_GetDeviceMotionEventsReply-                                                               :: CARD8}+                                                               :: Word8}                                 deriving (Show, Typeable)   instance Deserialize GetDeviceMotionEventsReply where@@ -662,7 +663,7 @@                return (MkDeviceTimeCoord time)   data ChangeKeyboardDevice = MkChangeKeyboardDevice{device_id_ChangeKeyboardDevice-                                                   :: CARD8}+                                                   :: Word8}                           deriving (Show, Typeable)   instance ExtensionRequest ChangeKeyboardDevice where@@ -671,13 +672,13 @@           = do putWord8 extOpCode                putWord8 11                let size__ = 4 + size (device_id_ChangeKeyboardDevice x) + 3-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (device_id_ChangeKeyboardDevice x)                putSkip 3                putSkip (requiredPadding size__)   data ChangeKeyboardDeviceReply = MkChangeKeyboardDeviceReply{status_ChangeKeyboardDeviceReply-                                                             :: CARD8}+                                                             :: Word8}                                deriving (Show, Typeable)   instance Deserialize ChangeKeyboardDeviceReply where@@ -692,9 +693,9 @@                return (MkChangeKeyboardDeviceReply status)   data ChangePointerDevice = MkChangePointerDevice{x_axis_ChangePointerDevice-                                                 :: CARD8,-                                                 y_axis_ChangePointerDevice :: CARD8,-                                                 device_id_ChangePointerDevice :: CARD8}+                                                 :: Word8,+                                                 y_axis_ChangePointerDevice :: Word8,+                                                 device_id_ChangePointerDevice :: Word8}                          deriving (Show, Typeable)   instance ExtensionRequest ChangePointerDevice where@@ -707,7 +708,7 @@                          size (y_axis_ChangePointerDevice x)                          + size (device_id_ChangePointerDevice x)                          + 1-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (x_axis_ChangePointerDevice x)                serialize (y_axis_ChangePointerDevice x)                serialize (device_id_ChangePointerDevice x)@@ -715,7 +716,7 @@                putSkip (requiredPadding size__)   data ChangePointerDeviceReply = MkChangePointerDeviceReply{status_ChangePointerDeviceReply-                                                           :: CARD8}+                                                           :: Word8}                               deriving (Show, Typeable)   instance Deserialize ChangePointerDeviceReply where@@ -730,10 +731,10 @@                return (MkChangePointerDeviceReply status)   data GrabDevice = MkGrabDevice{grab_window_GrabDevice :: WINDOW,-                               time_GrabDevice :: TIMESTAMP, num_classes_GrabDevice :: CARD16,-                               this_device_mode_GrabDevice :: CARD8,-                               other_device_mode_GrabDevice :: CARD8,-                               owner_events_GrabDevice :: BOOL, device_id_GrabDevice :: CARD8,+                               time_GrabDevice :: TIMESTAMP, num_classes_GrabDevice :: Word16,+                               this_device_mode_GrabDevice :: Word8,+                               other_device_mode_GrabDevice :: Word8,+                               owner_events_GrabDevice :: Bool, device_id_GrabDevice :: Word8,                                classes_GrabDevice :: [EventClass]}                 deriving (Show, Typeable)  @@ -751,7 +752,7 @@                          + size (device_id_GrabDevice x)                          + 2                          + sum (map size (classes_GrabDevice x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (grab_window_GrabDevice x)                serialize (time_GrabDevice x)                serialize (num_classes_GrabDevice x)@@ -764,7 +765,7 @@                putSkip (requiredPadding size__)   data GrabDeviceReply = MkGrabDeviceReply{status_GrabDeviceReply ::-                                         CARD8}+                                         Word8}                      deriving (Show, Typeable)   instance Deserialize GrabDeviceReply where@@ -779,7 +780,7 @@                return (MkGrabDeviceReply status)   data UngrabDevice = MkUngrabDevice{time_UngrabDevice :: TIMESTAMP,-                                   device_id_UngrabDevice :: CARD8}+                                   device_id_UngrabDevice :: Word8}                   deriving (Show, Typeable)   instance ExtensionRequest UngrabDevice where@@ -789,21 +790,21 @@                putWord8 14                let size__                      = 4 + size (time_UngrabDevice x) + size (device_id_UngrabDevice x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (time_UngrabDevice x)                serialize (device_id_UngrabDevice x)                putSkip (requiredPadding size__)   data GrabDeviceKey = MkGrabDeviceKey{grab_window_GrabDeviceKey ::                                      WINDOW,-                                     num_classes_GrabDeviceKey :: CARD16,-                                     modifiers_GrabDeviceKey :: CARD16,-                                     modifier_device_GrabDeviceKey :: CARD8,-                                     grabbed_device_GrabDeviceKey :: CARD8,-                                     key_GrabDeviceKey :: CARD8,-                                     this_device_mode_GrabDeviceKey :: CARD8,-                                     other_device_mode_GrabDeviceKey :: CARD8,-                                     owner_events_GrabDeviceKey :: BOOL,+                                     num_classes_GrabDeviceKey :: Word16,+                                     modifiers_GrabDeviceKey :: Word16,+                                     modifier_device_GrabDeviceKey :: Word8,+                                     grabbed_device_GrabDeviceKey :: Word8,+                                     key_GrabDeviceKey :: Word8,+                                     this_device_mode_GrabDeviceKey :: Word8,+                                     other_device_mode_GrabDeviceKey :: Word8,+                                     owner_events_GrabDeviceKey :: Bool,                                      classes_GrabDeviceKey :: [EventClass]}                    deriving (Show, Typeable)  @@ -824,7 +825,7 @@                          + size (owner_events_GrabDeviceKey x)                          + 2                          + sum (map size (classes_GrabDeviceKey x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (grab_window_GrabDeviceKey x)                serialize (num_classes_GrabDeviceKey x)                serialize (modifiers_GrabDeviceKey x)@@ -840,10 +841,10 @@   data UngrabDeviceKey = MkUngrabDeviceKey{grabWindow_UngrabDeviceKey                                          :: WINDOW,-                                         modifiers_UngrabDeviceKey :: CARD16,-                                         modifier_device_UngrabDeviceKey :: CARD8,-                                         key_UngrabDeviceKey :: CARD8,-                                         grabbed_device_UngrabDeviceKey :: CARD8}+                                         modifiers_UngrabDeviceKey :: Word16,+                                         modifier_device_UngrabDeviceKey :: Word8,+                                         key_UngrabDeviceKey :: Word8,+                                         grabbed_device_UngrabDeviceKey :: Word8}                      deriving (Show, Typeable)   instance ExtensionRequest UngrabDeviceKey where@@ -857,7 +858,7 @@                          + size (modifier_device_UngrabDeviceKey x)                          + size (key_UngrabDeviceKey x)                          + size (grabbed_device_UngrabDeviceKey x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (grabWindow_UngrabDeviceKey x)                serialize (modifiers_UngrabDeviceKey x)                serialize (modifier_device_UngrabDeviceKey x)@@ -867,14 +868,14 @@   data GrabDeviceButton = MkGrabDeviceButton{grab_window_GrabDeviceButton                                            :: WINDOW,-                                           grabbed_device_GrabDeviceButton :: CARD8,-                                           modifier_device_GrabDeviceButton :: CARD8,-                                           num_classes_GrabDeviceButton :: CARD16,-                                           modifiers_GrabDeviceButton :: CARD16,-                                           this_device_mode_GrabDeviceButton :: CARD8,-                                           other_device_mode_GrabDeviceButton :: CARD8,-                                           button_GrabDeviceButton :: CARD8,-                                           owner_events_GrabDeviceButton :: CARD8,+                                           grabbed_device_GrabDeviceButton :: Word8,+                                           modifier_device_GrabDeviceButton :: Word8,+                                           num_classes_GrabDeviceButton :: Word16,+                                           modifiers_GrabDeviceButton :: Word16,+                                           this_device_mode_GrabDeviceButton :: Word8,+                                           other_device_mode_GrabDeviceButton :: Word8,+                                           button_GrabDeviceButton :: Word8,+                                           owner_events_GrabDeviceButton :: Word8,                                            classes_GrabDeviceButton :: [EventClass]}                       deriving (Show, Typeable)  @@ -895,7 +896,7 @@                          + size (owner_events_GrabDeviceButton x)                          + 2                          + sum (map size (classes_GrabDeviceButton x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (grab_window_GrabDeviceButton x)                serialize (grabbed_device_GrabDeviceButton x)                serialize (modifier_device_GrabDeviceButton x)@@ -911,10 +912,10 @@   data UngrabDeviceButton = MkUngrabDeviceButton{grab_window_UngrabDeviceButton                                                :: WINDOW,-                                               modifiers_UngrabDeviceButton :: CARD16,-                                               modifier_device_UngrabDeviceButton :: CARD8,-                                               button_UngrabDeviceButton :: CARD8,-                                               grabbed_device_UngrabDeviceButton :: CARD8}+                                               modifiers_UngrabDeviceButton :: Word16,+                                               modifier_device_UngrabDeviceButton :: Word8,+                                               button_UngrabDeviceButton :: Word8,+                                               grabbed_device_UngrabDeviceButton :: Word8}                         deriving (Show, Typeable)   instance ExtensionRequest UngrabDeviceButton where@@ -928,7 +929,7 @@                          + size (modifier_device_UngrabDeviceButton x)                          + size (button_UngrabDeviceButton x)                          + size (grabbed_device_UngrabDeviceButton x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (grab_window_UngrabDeviceButton x)                serialize (modifiers_UngrabDeviceButton x)                serialize (modifier_device_UngrabDeviceButton x)@@ -938,8 +939,8 @@   data AllowDeviceEvents = MkAllowDeviceEvents{time_AllowDeviceEvents                                              :: TIMESTAMP,-                                             mode_AllowDeviceEvents :: CARD8,-                                             device_id_AllowDeviceEvents :: CARD8}+                                             mode_AllowDeviceEvents :: Word8,+                                             device_id_AllowDeviceEvents :: Word8}                        deriving (Show, Typeable)   instance ExtensionRequest AllowDeviceEvents where@@ -951,14 +952,14 @@                      = 4 + size (time_AllowDeviceEvents x) +                          size (mode_AllowDeviceEvents x)                          + size (device_id_AllowDeviceEvents x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (time_AllowDeviceEvents x)                serialize (mode_AllowDeviceEvents x)                serialize (device_id_AllowDeviceEvents x)                putSkip (requiredPadding size__)   data GetDeviceFocus = MkGetDeviceFocus{device_id_GetDeviceFocus ::-                                       CARD8}+                                       Word8}                     deriving (Show, Typeable)   instance ExtensionRequest GetDeviceFocus where@@ -967,7 +968,7 @@           = do putWord8 extOpCode                putWord8 20                let size__ = 4 + size (device_id_GetDeviceFocus x) + 3-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (device_id_GetDeviceFocus x)                putSkip 3                putSkip (requiredPadding size__)@@ -975,7 +976,7 @@ data GetDeviceFocusReply = MkGetDeviceFocusReply{focus_GetDeviceFocusReply                                                  :: WINDOW,                                                  time_GetDeviceFocusReply :: TIMESTAMP,-                                                 revert_to_GetDeviceFocusReply :: CARD8}+                                                 revert_to_GetDeviceFocusReply :: Word8}                          deriving (Show, Typeable)   instance Deserialize GetDeviceFocusReply where@@ -994,8 +995,8 @@ data SetDeviceFocus = MkSetDeviceFocus{focus_SetDeviceFocus ::                                        WINDOW,                                        time_SetDeviceFocus :: TIMESTAMP,-                                       revert_to_SetDeviceFocus :: CARD8,-                                       device_id_SetDeviceFocus :: CARD8}+                                       revert_to_SetDeviceFocus :: Word8,+                                       device_id_SetDeviceFocus :: Word8}                     deriving (Show, Typeable)   instance ExtensionRequest SetDeviceFocus where@@ -1007,7 +1008,7 @@                      = 4 + size (focus_SetDeviceFocus x) + size (time_SetDeviceFocus x)                          + size (revert_to_SetDeviceFocus x)                          + size (device_id_SetDeviceFocus x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (focus_SetDeviceFocus x)                serialize (time_SetDeviceFocus x)                serialize (revert_to_SetDeviceFocus x)@@ -1015,7 +1016,7 @@                putSkip (requiredPadding size__)   data GetFeedbackControl = MkGetFeedbackControl{device_id_GetFeedbackControl-                                               :: CARD8}+                                               :: Word8}                         deriving (Show, Typeable)   instance ExtensionRequest GetFeedbackControl where@@ -1024,13 +1025,13 @@           = do putWord8 extOpCode                putWord8 22                let size__ = 4 + size (device_id_GetFeedbackControl x) + 3-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (device_id_GetFeedbackControl x)                putSkip 3                putSkip (requiredPadding size__)   data GetFeedbackControlReply = MkGetFeedbackControlReply{num_feedback_GetFeedbackControlReply-                                                         :: CARD16}+                                                         :: Word16}                              deriving (Show, Typeable)   instance Deserialize GetFeedbackControlReply where@@ -1045,8 +1046,8 @@                return (MkGetFeedbackControlReply num_feedback)   data FeedbackState = MkFeedbackState{class_id_FeedbackState ::-                                     CARD8,-                                     id_FeedbackState :: CARD8, len_FeedbackState :: CARD16}+                                     Word8,+                                     id_FeedbackState :: Word8, len_FeedbackState :: Word16}                    deriving (Show, Typeable)   instance Serialize FeedbackState where@@ -1066,17 +1067,17 @@                return (MkFeedbackState class_id id len)   data KbdFeedbackState = MkKbdFeedbackState{class_id_KbdFeedbackState-                                           :: CARD8,-                                           id_KbdFeedbackState :: CARD8,-                                           len_KbdFeedbackState :: CARD16,-                                           pitch_KbdFeedbackState :: CARD16,-                                           duration_KbdFeedbackState :: CARD16,-                                           led_mask_KbdFeedbackState :: CARD32,-                                           led_values_KbdFeedbackState :: CARD32,-                                           global_auto_repeat_KbdFeedbackState :: BOOL,-                                           click_KbdFeedbackState :: CARD8,-                                           percent_KbdFeedbackState :: CARD8,-                                           auto_repeats_KbdFeedbackState :: [CARD8]}+                                           :: Word8,+                                           id_KbdFeedbackState :: Word8,+                                           len_KbdFeedbackState :: Word16,+                                           pitch_KbdFeedbackState :: Word16,+                                           duration_KbdFeedbackState :: Word16,+                                           led_mask_KbdFeedbackState :: Word32,+                                           led_values_KbdFeedbackState :: Word32,+                                           global_auto_repeat_KbdFeedbackState :: Bool,+                                           click_KbdFeedbackState :: Word8,+                                           percent_KbdFeedbackState :: Word8,+                                           auto_repeats_KbdFeedbackState :: [Word8]}                       deriving (Show, Typeable)   instance Serialize KbdFeedbackState where@@ -1129,12 +1130,12 @@                     auto_repeats)   data PtrFeedbackState = MkPtrFeedbackState{class_id_PtrFeedbackState-                                           :: CARD8,-                                           id_PtrFeedbackState :: CARD8,-                                           len_PtrFeedbackState :: CARD16,-                                           accel_num_PtrFeedbackState :: CARD16,-                                           accel_denom_PtrFeedbackState :: CARD16,-                                           threshold_PtrFeedbackState :: CARD16}+                                           :: Word8,+                                           id_PtrFeedbackState :: Word8,+                                           len_PtrFeedbackState :: Word16,+                                           accel_num_PtrFeedbackState :: Word16,+                                           accel_denom_PtrFeedbackState :: Word16,+                                           threshold_PtrFeedbackState :: Word16}                       deriving (Show, Typeable)   instance Serialize PtrFeedbackState where@@ -1168,12 +1169,12 @@                     threshold)   data IntegerFeedbackState = MkIntegerFeedbackState{class_id_IntegerFeedbackState-                                                   :: CARD8,-                                                   id_IntegerFeedbackState :: CARD8,-                                                   len_IntegerFeedbackState :: CARD16,-                                                   resolution_IntegerFeedbackState :: CARD32,-                                                   min_value_IntegerFeedbackState :: INT32,-                                                   max_value_IntegerFeedbackState :: INT32}+                                                   :: Word8,+                                                   id_IntegerFeedbackState :: Word8,+                                                   len_IntegerFeedbackState :: Word16,+                                                   resolution_IntegerFeedbackState :: Word32,+                                                   min_value_IntegerFeedbackState :: Int32,+                                                   max_value_IntegerFeedbackState :: Int32}                           deriving (Show, Typeable)   instance Serialize IntegerFeedbackState where@@ -1205,11 +1206,11 @@                     max_value)   data StringFeedbackState = MkStringFeedbackState{class_id_StringFeedbackState-                                                 :: CARD8,-                                                 id_StringFeedbackState :: CARD8,-                                                 len_StringFeedbackState :: CARD16,-                                                 max_symbols_StringFeedbackState :: CARD16,-                                                 num_keysyms_StringFeedbackState :: CARD16,+                                                 :: Word8,+                                                 id_StringFeedbackState :: Word8,+                                                 len_StringFeedbackState :: Word16,+                                                 max_symbols_StringFeedbackState :: Word16,+                                                 num_keysyms_StringFeedbackState :: Word16,                                                  keysyms_StringFeedbackState :: [KEYSYM]}                          deriving (Show, Typeable)  @@ -1242,12 +1243,12 @@                     keysyms)   data BellFeedbackState = MkBellFeedbackState{class_id_BellFeedbackState-                                             :: CARD8,-                                             id_BellFeedbackState :: CARD8,-                                             len_BellFeedbackState :: CARD16,-                                             percent_BellFeedbackState :: CARD8,-                                             pitch_BellFeedbackState :: CARD16,-                                             duration_BellFeedbackState :: CARD16}+                                             :: Word8,+                                             id_BellFeedbackState :: Word8,+                                             len_BellFeedbackState :: Word16,+                                             percent_BellFeedbackState :: Word8,+                                             pitch_BellFeedbackState :: Word16,+                                             duration_BellFeedbackState :: Word16}                        deriving (Show, Typeable)   instance Serialize BellFeedbackState where@@ -1280,11 +1281,11 @@                return (MkBellFeedbackState class_id id len percent pitch duration)   data LedFeedbackState = MkLedFeedbackState{class_id_LedFeedbackState-                                           :: CARD8,-                                           id_LedFeedbackState :: CARD8,-                                           len_LedFeedbackState :: CARD16,-                                           led_mask_LedFeedbackState :: CARD32,-                                           led_values_LedFeedbackState :: CARD32}+                                           :: Word8,+                                           id_LedFeedbackState :: Word8,+                                           len_LedFeedbackState :: Word16,+                                           led_mask_LedFeedbackState :: Word32,+                                           led_values_LedFeedbackState :: Word32}                       deriving (Show, Typeable)   instance Serialize LedFeedbackState where@@ -1309,8 +1310,8 @@                led_values <- deserialize                return (MkLedFeedbackState class_id id len led_mask led_values)  -data FeedbackCtl = MkFeedbackCtl{class_id_FeedbackCtl :: CARD8,-                                 id_FeedbackCtl :: CARD8, len_FeedbackCtl :: CARD16}+data FeedbackCtl = MkFeedbackCtl{class_id_FeedbackCtl :: Word8,+                                 id_FeedbackCtl :: Word8, len_FeedbackCtl :: Word16}                  deriving (Show, Typeable)   instance Serialize FeedbackCtl where@@ -1330,16 +1331,16 @@                return (MkFeedbackCtl class_id id len)   data KbdFeedbackCtl = MkKbdFeedbackCtl{class_id_KbdFeedbackCtl ::-                                       CARD8,-                                       id_KbdFeedbackCtl :: CARD8, len_KbdFeedbackCtl :: CARD16,+                                       Word8,+                                       id_KbdFeedbackCtl :: Word8, len_KbdFeedbackCtl :: Word16,                                        key_KbdFeedbackCtl :: KeyCode,-                                       auto_repeat_mode_KbdFeedbackCtl :: CARD8,-                                       key_click_percent_KbdFeedbackCtl :: INT8,-                                       bell_percent_KbdFeedbackCtl :: INT8,-                                       bell_pitch_KbdFeedbackCtl :: INT16,-                                       bell_duration_KbdFeedbackCtl :: INT16,-                                       led_mask_KbdFeedbackCtl :: CARD32,-                                       led_values_KbdFeedbackCtl :: CARD32}+                                       auto_repeat_mode_KbdFeedbackCtl :: Word8,+                                       key_click_percent_KbdFeedbackCtl :: Int8,+                                       bell_percent_KbdFeedbackCtl :: Int8,+                                       bell_pitch_KbdFeedbackCtl :: Int16,+                                       bell_duration_KbdFeedbackCtl :: Int16,+                                       led_mask_KbdFeedbackCtl :: Word32,+                                       led_values_KbdFeedbackCtl :: Word32}                     deriving (Show, Typeable)   instance Serialize KbdFeedbackCtl where@@ -1390,10 +1391,10 @@                     led_values)   data PtrFeedbackCtl = MkPtrFeedbackCtl{class_id_PtrFeedbackCtl ::-                                       CARD8,-                                       id_PtrFeedbackCtl :: CARD8, len_PtrFeedbackCtl :: CARD16,-                                       num_PtrFeedbackCtl :: INT16, denom_PtrFeedbackCtl :: INT16,-                                       threshold_PtrFeedbackCtl :: INT16}+                                       Word8,+                                       id_PtrFeedbackCtl :: Word8, len_PtrFeedbackCtl :: Word16,+                                       num_PtrFeedbackCtl :: Int16, denom_PtrFeedbackCtl :: Int16,+                                       threshold_PtrFeedbackCtl :: Int16}                     deriving (Show, Typeable)   instance Serialize PtrFeedbackCtl where@@ -1425,10 +1426,10 @@                return (MkPtrFeedbackCtl class_id id len num denom threshold)   data IntegerFeedbackCtl = MkIntegerFeedbackCtl{class_id_IntegerFeedbackCtl-                                               :: CARD8,-                                               id_IntegerFeedbackCtl :: CARD8,-                                               len_IntegerFeedbackCtl :: CARD16,-                                               int_to_display_IntegerFeedbackCtl :: INT32}+                                               :: Word8,+                                               id_IntegerFeedbackCtl :: Word8,+                                               len_IntegerFeedbackCtl :: Word16,+                                               int_to_display_IntegerFeedbackCtl :: Int32}                         deriving (Show, Typeable)   instance Serialize IntegerFeedbackCtl where@@ -1452,10 +1453,10 @@                return (MkIntegerFeedbackCtl class_id id len int_to_display)   data StringFeedbackCtl = MkStringFeedbackCtl{class_id_StringFeedbackCtl-                                             :: CARD8,-                                             id_StringFeedbackCtl :: CARD8,-                                             len_StringFeedbackCtl :: CARD16,-                                             num_keysyms_StringFeedbackCtl :: CARD16,+                                             :: Word8,+                                             id_StringFeedbackCtl :: Word8,+                                             len_StringFeedbackCtl :: Word16,+                                             num_keysyms_StringFeedbackCtl :: Word16,                                              keysyms_StringFeedbackCtl :: [KEYSYM]}                        deriving (Show, Typeable)  @@ -1486,11 +1487,11 @@                return (MkStringFeedbackCtl class_id id len num_keysyms keysyms)   data BellFeedbackCtl = MkBellFeedbackCtl{class_id_BellFeedbackCtl-                                         :: CARD8,-                                         id_BellFeedbackCtl :: CARD8, len_BellFeedbackCtl :: CARD16,-                                         percent_BellFeedbackCtl :: INT8,-                                         pitch_BellFeedbackCtl :: INT16,-                                         duration_BellFeedbackCtl :: INT16}+                                         :: Word8,+                                         id_BellFeedbackCtl :: Word8, len_BellFeedbackCtl :: Word16,+                                         percent_BellFeedbackCtl :: Int8,+                                         pitch_BellFeedbackCtl :: Int16,+                                         duration_BellFeedbackCtl :: Int16}                      deriving (Show, Typeable)   instance Serialize BellFeedbackCtl where@@ -1522,10 +1523,10 @@                return (MkBellFeedbackCtl class_id id len percent pitch duration)   data LedFeedbackCtl = MkLedFeedbackCtl{class_id_LedFeedbackCtl ::-                                       CARD8,-                                       id_LedFeedbackCtl :: CARD8, len_LedFeedbackCtl :: CARD16,-                                       led_mask_LedFeedbackCtl :: CARD32,-                                       led_values_LedFeedbackCtl :: CARD32}+                                       Word8,+                                       id_LedFeedbackCtl :: Word8, len_LedFeedbackCtl :: Word16,+                                       led_mask_LedFeedbackCtl :: Word32,+                                       led_values_LedFeedbackCtl :: Word32}                     deriving (Show, Typeable)   instance Serialize LedFeedbackCtl where@@ -1551,9 +1552,9 @@                return (MkLedFeedbackCtl class_id id len led_mask led_values)   data GetDeviceKeyMapping = MkGetDeviceKeyMapping{device_id_GetDeviceKeyMapping-                                                 :: CARD8,+                                                 :: Word8,                                                  first_keycode_GetDeviceKeyMapping :: KeyCode,-                                                 count_GetDeviceKeyMapping :: CARD8}+                                                 count_GetDeviceKeyMapping :: Word8}                          deriving (Show, Typeable)   instance ExtensionRequest GetDeviceKeyMapping where@@ -1565,14 +1566,14 @@                      = 4 + size (device_id_GetDeviceKeyMapping x) +                          size (first_keycode_GetDeviceKeyMapping x)                          + size (count_GetDeviceKeyMapping x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (device_id_GetDeviceKeyMapping x)                serialize (first_keycode_GetDeviceKeyMapping x)                serialize (count_GetDeviceKeyMapping x)                putSkip (requiredPadding size__)   data GetDeviceKeyMappingReply = MkGetDeviceKeyMappingReply{keysyms_per_keycode_GetDeviceKeyMappingReply-                                                           :: CARD8,+                                                           :: Word8,                                                            keysyms_GetDeviceKeyMappingReply ::                                                            [KEYSYM]}                               deriving (Show, Typeable)@@ -1590,13 +1591,13 @@                return (MkGetDeviceKeyMappingReply keysyms_per_keycode keysyms)   data ChangeDeviceKeyMapping = MkChangeDeviceKeyMapping{device_id_ChangeDeviceKeyMapping-                                                       :: CARD8,+                                                       :: Word8,                                                        first_keycode_ChangeDeviceKeyMapping ::                                                        KeyCode,                                                        keysyms_per_keycode_ChangeDeviceKeyMapping ::-                                                       CARD8,+                                                       Word8,                                                        keycode_count_ChangeDeviceKeyMapping ::-                                                       CARD8,+                                                       Word8,                                                        keysyms_ChangeDeviceKeyMapping :: [KEYSYM]}                             deriving (Show, Typeable)  @@ -1611,7 +1612,7 @@                          + size (keysyms_per_keycode_ChangeDeviceKeyMapping x)                          + size (keycode_count_ChangeDeviceKeyMapping x)                          + sum (map size (keysyms_ChangeDeviceKeyMapping x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (device_id_ChangeDeviceKeyMapping x)                serialize (first_keycode_ChangeDeviceKeyMapping x)                serialize (keysyms_per_keycode_ChangeDeviceKeyMapping x)@@ -1620,7 +1621,7 @@                putSkip (requiredPadding size__)   data GetDeviceModifierMapping = MkGetDeviceModifierMapping{device_id_GetDeviceModifierMapping-                                                           :: CARD8}+                                                           :: Word8}                               deriving (Show, Typeable)   instance ExtensionRequest GetDeviceModifierMapping where@@ -1629,15 +1630,15 @@           = do putWord8 extOpCode                putWord8 26                let size__ = 4 + size (device_id_GetDeviceModifierMapping x) + 3-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (device_id_GetDeviceModifierMapping x)                putSkip 3                putSkip (requiredPadding size__)   data GetDeviceModifierMappingReply = MkGetDeviceModifierMappingReply{keycodes_per_modifier_GetDeviceModifierMappingReply-                                                                     :: CARD8,+                                                                     :: Word8,                                                                      keymaps_GetDeviceModifierMappingReply-                                                                     :: [CARD8]}+                                                                     :: [Word8]}                                    deriving (Show, Typeable)   instance Deserialize GetDeviceModifierMappingReply where@@ -1655,11 +1656,11 @@                  (MkGetDeviceModifierMappingReply keycodes_per_modifier keymaps)   data SetDeviceModifierMapping = MkSetDeviceModifierMapping{device_id_SetDeviceModifierMapping-                                                           :: CARD8,+                                                           :: Word8,                                                            keycodes_per_modifier_SetDeviceModifierMapping-                                                           :: CARD8,+                                                           :: Word8,                                                            keymaps_SetDeviceModifierMapping ::-                                                           [CARD8]}+                                                           [Word8]}                               deriving (Show, Typeable)   instance ExtensionRequest SetDeviceModifierMapping where@@ -1672,7 +1673,7 @@                          size (keycodes_per_modifier_SetDeviceModifierMapping x)                          + 1                          + sum (map size (keymaps_SetDeviceModifierMapping x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (device_id_SetDeviceModifierMapping x)                serialize (keycodes_per_modifier_SetDeviceModifierMapping x)                putSkip 1@@ -1680,7 +1681,7 @@                putSkip (requiredPadding size__)   data SetDeviceModifierMappingReply = MkSetDeviceModifierMappingReply{status_SetDeviceModifierMappingReply-                                                                     :: CARD8}+                                                                     :: Word8}                                    deriving (Show, Typeable)   instance Deserialize SetDeviceModifierMappingReply where@@ -1695,7 +1696,7 @@                return (MkSetDeviceModifierMappingReply status)   data GetDeviceButtonMapping = MkGetDeviceButtonMapping{device_id_GetDeviceButtonMapping-                                                       :: CARD8}+                                                       :: Word8}                             deriving (Show, Typeable)   instance ExtensionRequest GetDeviceButtonMapping where@@ -1704,15 +1705,15 @@           = do putWord8 extOpCode                putWord8 28                let size__ = 4 + size (device_id_GetDeviceButtonMapping x) + 3-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (device_id_GetDeviceButtonMapping x)                putSkip 3                putSkip (requiredPadding size__)   data GetDeviceButtonMappingReply = MkGetDeviceButtonMappingReply{map_size_GetDeviceButtonMappingReply-                                                                 :: CARD8,+                                                                 :: Word8,                                                                  map_GetDeviceButtonMappingReply ::-                                                                 [CARD8]}+                                                                 [Word8]}                                  deriving (Show, Typeable)   instance Deserialize GetDeviceButtonMappingReply where@@ -1728,9 +1729,9 @@                return (MkGetDeviceButtonMappingReply map_size map)   data SetDeviceButtonMapping = MkSetDeviceButtonMapping{device_id_SetDeviceButtonMapping-                                                       :: CARD8,-                                                       map_size_SetDeviceButtonMapping :: CARD8,-                                                       map_SetDeviceButtonMapping :: [CARD8]}+                                                       :: Word8,+                                                       map_size_SetDeviceButtonMapping :: Word8,+                                                       map_SetDeviceButtonMapping :: [Word8]}                             deriving (Show, Typeable)   instance ExtensionRequest SetDeviceButtonMapping where@@ -1743,7 +1744,7 @@                          size (map_size_SetDeviceButtonMapping x)                          + 2                          + sum (map size (map_SetDeviceButtonMapping x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (device_id_SetDeviceButtonMapping x)                serialize (map_size_SetDeviceButtonMapping x)                putSkip 2@@ -1751,7 +1752,7 @@                putSkip (requiredPadding size__)   data SetDeviceButtonMappingReply = MkSetDeviceButtonMappingReply{status_SetDeviceButtonMappingReply-                                                                 :: CARD8}+                                                                 :: Word8}                                  deriving (Show, Typeable)   instance Deserialize SetDeviceButtonMappingReply where@@ -1766,7 +1767,7 @@                return (MkSetDeviceButtonMappingReply status)   data QueryDeviceState = MkQueryDeviceState{device_id_QueryDeviceState-                                           :: CARD8}+                                           :: Word8}                       deriving (Show, Typeable)   instance ExtensionRequest QueryDeviceState where@@ -1775,13 +1776,13 @@           = do putWord8 extOpCode                putWord8 30                let size__ = 4 + size (device_id_QueryDeviceState x) + 3-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (device_id_QueryDeviceState x)                putSkip 3                putSkip (requiredPadding size__)   data QueryDeviceStateReply = MkQueryDeviceStateReply{num_classes_QueryDeviceStateReply-                                                     :: CARD8}+                                                     :: Word8}                            deriving (Show, Typeable)   instance Deserialize QueryDeviceStateReply where@@ -1795,8 +1796,8 @@                let _ = isCard32 length                return (MkQueryDeviceStateReply num_classes)  -data InputState = MkInputState{class_id_InputState :: CARD8,-                               len_InputState :: CARD8, num_items_InputState :: CARD8}+data InputState = MkInputState{class_id_InputState :: Word8,+                               len_InputState :: Word8, num_items_InputState :: Word8}                 deriving (Show, Typeable)   instance Serialize InputState where@@ -1815,9 +1816,9 @@                num_items <- deserialize                return (MkInputState class_id len num_items)  -data KeyState = MkKeyState{class_id_KeyState :: CARD8,-                           len_KeyState :: CARD8, num_keys_KeyState :: CARD8,-                           keys_KeyState :: [CARD8]}+data KeyState = MkKeyState{class_id_KeyState :: Word8,+                           len_KeyState :: Word8, num_keys_KeyState :: Word8,+                           keys_KeyState :: [Word8]}               deriving (Show, Typeable)   instance Serialize KeyState where@@ -1842,9 +1843,9 @@                keys <- deserializeList (fromIntegral 32)                return (MkKeyState class_id len num_keys keys)  -data ButtonState = MkButtonState{class_id_ButtonState :: CARD8,-                                 len_ButtonState :: CARD8, num_buttons_ButtonState :: CARD8,-                                 buttons_ButtonState :: [CARD8]}+data ButtonState = MkButtonState{class_id_ButtonState :: Word8,+                                 len_ButtonState :: Word8, num_buttons_ButtonState :: Word8,+                                 buttons_ButtonState :: [Word8]}                  deriving (Show, Typeable)   instance Serialize ButtonState where@@ -1870,11 +1871,11 @@                return (MkButtonState class_id len num_buttons buttons)   data ValuatorState = MkValuatorState{class_id_ValuatorState ::-                                     CARD8,-                                     len_ValuatorState :: CARD8,-                                     num_valuators_ValuatorState :: CARD8,-                                     mode_ValuatorState :: CARD8,-                                     valuators_ValuatorState :: [CARD32]}+                                     Word8,+                                     len_ValuatorState :: Word8,+                                     num_valuators_ValuatorState :: Word8,+                                     mode_ValuatorState :: Word8,+                                     valuators_ValuatorState :: [Word32]}                    deriving (Show, Typeable)   instance Serialize ValuatorState where@@ -1901,10 +1902,10 @@   data SendExtensionEvent = MkSendExtensionEvent{destination_SendExtensionEvent                                                :: WINDOW,-                                               device_id_SendExtensionEvent :: CARD8,-                                               propagate_SendExtensionEvent :: BOOL,-                                               num_classes_SendExtensionEvent :: CARD16,-                                               num_events_SendExtensionEvent :: CARD8,+                                               device_id_SendExtensionEvent :: Word8,+                                               propagate_SendExtensionEvent :: Bool,+                                               num_classes_SendExtensionEvent :: Word16,+                                               num_events_SendExtensionEvent :: Word8,                                                events_SendExtensionEvent :: [CChar],                                                classes_SendExtensionEvent :: [EventClass]}                         deriving (Show, Typeable)@@ -1923,7 +1924,7 @@                          + 3                          + sum (map size (events_SendExtensionEvent x))                          + sum (map size (classes_SendExtensionEvent x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (destination_SendExtensionEvent x)                serialize (device_id_SendExtensionEvent x)                serialize (propagate_SendExtensionEvent x)@@ -1934,9 +1935,9 @@                serializeList (classes_SendExtensionEvent x)                putSkip (requiredPadding size__)  -data DeviceBell = MkDeviceBell{device_id_DeviceBell :: CARD8,-                               feedback_id_DeviceBell :: CARD8,-                               feedback_class_DeviceBell :: CARD8, percent_DeviceBell :: INT8}+data DeviceBell = MkDeviceBell{device_id_DeviceBell :: Word8,+                               feedback_id_DeviceBell :: Word8,+                               feedback_class_DeviceBell :: Word8, percent_DeviceBell :: Int8}                 deriving (Show, Typeable)   instance ExtensionRequest DeviceBell where@@ -1949,7 +1950,7 @@                          size (feedback_id_DeviceBell x)                          + size (feedback_class_DeviceBell x)                          + size (percent_DeviceBell x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (device_id_DeviceBell x)                serialize (feedback_id_DeviceBell x)                serialize (feedback_class_DeviceBell x)@@ -1957,10 +1958,10 @@                putSkip (requiredPadding size__)   data SetDeviceValuators = MkSetDeviceValuators{device_id_SetDeviceValuators-                                               :: CARD8,-                                               first_valuator_SetDeviceValuators :: CARD8,-                                               num_valuators_SetDeviceValuators :: CARD8,-                                               valuators_SetDeviceValuators :: [INT32]}+                                               :: Word8,+                                               first_valuator_SetDeviceValuators :: Word8,+                                               num_valuators_SetDeviceValuators :: Word8,+                                               valuators_SetDeviceValuators :: [Int32]}                         deriving (Show, Typeable)   instance ExtensionRequest SetDeviceValuators where@@ -1974,7 +1975,7 @@                          + size (num_valuators_SetDeviceValuators x)                          + 1                          + sum (map size (valuators_SetDeviceValuators x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (device_id_SetDeviceValuators x)                serialize (first_valuator_SetDeviceValuators x)                serialize (num_valuators_SetDeviceValuators x)@@ -1983,7 +1984,7 @@                putSkip (requiredPadding size__)   data SetDeviceValuatorsReply = MkSetDeviceValuatorsReply{status_SetDeviceValuatorsReply-                                                         :: CARD8}+                                                         :: Word8}                              deriving (Show, Typeable)   instance Deserialize SetDeviceValuatorsReply where@@ -1998,8 +1999,8 @@                return (MkSetDeviceValuatorsReply status)   data GetDeviceControl = MkGetDeviceControl{control_id_GetDeviceControl-                                           :: CARD16,-                                           device_id_GetDeviceControl :: CARD8}+                                           :: Word16,+                                           device_id_GetDeviceControl :: Word8}                       deriving (Show, Typeable)   instance ExtensionRequest GetDeviceControl where@@ -2011,14 +2012,14 @@                      = 4 + size (control_id_GetDeviceControl x) +                          size (device_id_GetDeviceControl x)                          + 1-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (control_id_GetDeviceControl x)                serialize (device_id_GetDeviceControl x)                putSkip 1                putSkip (requiredPadding size__)   data GetDeviceControlReply = MkGetDeviceControlReply{status_GetDeviceControlReply-                                                     :: CARD8}+                                                     :: Word8}                            deriving (Show, Typeable)   instance Deserialize GetDeviceControlReply where@@ -2032,8 +2033,8 @@                let _ = isCard32 length                return (MkGetDeviceControlReply status)  -data DeviceState = MkDeviceState{control_id_DeviceState :: CARD16,-                                 len_DeviceState :: CARD16}+data DeviceState = MkDeviceState{control_id_DeviceState :: Word16,+                                 len_DeviceState :: Word16}                  deriving (Show, Typeable)   instance Serialize DeviceState where@@ -2049,15 +2050,15 @@                return (MkDeviceState control_id len)   data DeviceResolutionState = MkDeviceResolutionState{control_id_DeviceResolutionState-                                                     :: CARD16,-                                                     len_DeviceResolutionState :: CARD16,-                                                     num_valuators_DeviceResolutionState :: CARD32,+                                                     :: Word16,+                                                     len_DeviceResolutionState :: Word16,+                                                     num_valuators_DeviceResolutionState :: Word32,                                                      resolution_values_DeviceResolutionState ::-                                                     [CARD32],+                                                     [Word32],                                                      resolution_min_DeviceResolutionState ::-                                                     [CARD32],+                                                     [Word32],                                                      resolution_max_DeviceResolutionState ::-                                                     [CARD32]}+                                                     [Word32]}                            deriving (Show, Typeable)   instance Serialize DeviceResolutionState where@@ -2091,16 +2092,16 @@                     resolution_max)   data DeviceAbsCalibState = MkDeviceAbsCalibState{control_id_DeviceAbsCalibState-                                                 :: CARD16,-                                                 len_DeviceAbsCalibState :: CARD16,-                                                 min_x_DeviceAbsCalibState :: INT32,-                                                 max_x_DeviceAbsCalibState :: INT32,-                                                 min_y_DeviceAbsCalibState :: INT32,-                                                 max_y_DeviceAbsCalibState :: INT32,-                                                 flip_x_DeviceAbsCalibState :: CARD32,-                                                 flip_y_DeviceAbsCalibState :: CARD32,-                                                 rotation_DeviceAbsCalibState :: CARD32,-                                                 button_threshold_DeviceAbsCalibState :: CARD32}+                                                 :: Word16,+                                                 len_DeviceAbsCalibState :: Word16,+                                                 min_x_DeviceAbsCalibState :: Int32,+                                                 max_x_DeviceAbsCalibState :: Int32,+                                                 min_y_DeviceAbsCalibState :: Int32,+                                                 max_y_DeviceAbsCalibState :: Int32,+                                                 flip_x_DeviceAbsCalibState :: Word32,+                                                 flip_y_DeviceAbsCalibState :: Word32,+                                                 rotation_DeviceAbsCalibState :: Word32,+                                                 button_threshold_DeviceAbsCalibState :: Word32}                          deriving (Show, Typeable)   instance Serialize DeviceAbsCalibState where@@ -2147,14 +2148,14 @@                     button_threshold)   data DeviceAbsAreaState = MkDeviceAbsAreaState{control_id_DeviceAbsAreaState-                                               :: CARD16,-                                               len_DeviceAbsAreaState :: CARD16,-                                               offset_x_DeviceAbsAreaState :: CARD32,-                                               offset_y_DeviceAbsAreaState :: CARD32,-                                               width_DeviceAbsAreaState :: CARD32,-                                               height_DeviceAbsAreaState :: CARD32,-                                               screen_DeviceAbsAreaState :: CARD32,-                                               following_DeviceAbsAreaState :: CARD32}+                                               :: Word16,+                                               len_DeviceAbsAreaState :: Word16,+                                               offset_x_DeviceAbsAreaState :: Word32,+                                               offset_y_DeviceAbsAreaState :: Word32,+                                               width_DeviceAbsAreaState :: Word32,+                                               height_DeviceAbsAreaState :: Word32,+                                               screen_DeviceAbsAreaState :: Word32,+                                               following_DeviceAbsAreaState :: Word32}                         deriving (Show, Typeable)   instance Serialize DeviceAbsAreaState where@@ -2193,10 +2194,10 @@                     following)   data DeviceCoreState = MkDeviceCoreState{control_id_DeviceCoreState-                                         :: CARD16,-                                         len_DeviceCoreState :: CARD16,-                                         status_DeviceCoreState :: CARD8,-                                         iscore_DeviceCoreState :: CARD8}+                                         :: Word16,+                                         len_DeviceCoreState :: Word16,+                                         status_DeviceCoreState :: Word8,+                                         iscore_DeviceCoreState :: Word8}                      deriving (Show, Typeable)   instance Serialize DeviceCoreState where@@ -2223,9 +2224,9 @@                return (MkDeviceCoreState control_id len status iscore)   data DeviceEnableState = MkDeviceEnableState{control_id_DeviceEnableState-                                             :: CARD16,-                                             len_DeviceEnableState :: CARD16,-                                             enable_DeviceEnableState :: CARD8}+                                             :: Word16,+                                             len_DeviceEnableState :: Word16,+                                             enable_DeviceEnableState :: Word8}                        deriving (Show, Typeable)   instance Serialize DeviceEnableState where@@ -2248,8 +2249,8 @@                skip 3                return (MkDeviceEnableState control_id len enable)  -data DeviceCtl = MkDeviceCtl{control_id_DeviceCtl :: CARD16,-                             len_DeviceCtl :: CARD16}+data DeviceCtl = MkDeviceCtl{control_id_DeviceCtl :: Word16,+                             len_DeviceCtl :: Word16}                deriving (Show, Typeable)   instance Serialize DeviceCtl where@@ -2265,11 +2266,11 @@                return (MkDeviceCtl control_id len)   data DeviceResolutionCtl = MkDeviceResolutionCtl{control_id_DeviceResolutionCtl-                                                 :: CARD16,-                                                 len_DeviceResolutionCtl :: CARD16,-                                                 first_valuator_DeviceResolutionCtl :: CARD8,-                                                 num_valuators_DeviceResolutionCtl :: CARD8,-                                                 resolution_values_DeviceResolutionCtl :: [CARD32]}+                                                 :: Word16,+                                                 len_DeviceResolutionCtl :: Word16,+                                                 first_valuator_DeviceResolutionCtl :: Word8,+                                                 num_valuators_DeviceResolutionCtl :: Word8,+                                                 resolution_values_DeviceResolutionCtl :: [Word32]}                          deriving (Show, Typeable)   instance Serialize DeviceResolutionCtl where@@ -2298,16 +2299,16 @@                     resolution_values)   data DeviceAbsCalibCtl = MkDeviceAbsCalibCtl{control_id_DeviceAbsCalibCtl-                                             :: CARD16,-                                             len_DeviceAbsCalibCtl :: CARD16,-                                             min_x_DeviceAbsCalibCtl :: INT32,-                                             max_x_DeviceAbsCalibCtl :: INT32,-                                             min_y_DeviceAbsCalibCtl :: INT32,-                                             max_y_DeviceAbsCalibCtl :: INT32,-                                             flip_x_DeviceAbsCalibCtl :: CARD32,-                                             flip_y_DeviceAbsCalibCtl :: CARD32,-                                             rotation_DeviceAbsCalibCtl :: CARD32,-                                             button_threshold_DeviceAbsCalibCtl :: CARD32}+                                             :: Word16,+                                             len_DeviceAbsCalibCtl :: Word16,+                                             min_x_DeviceAbsCalibCtl :: Int32,+                                             max_x_DeviceAbsCalibCtl :: Int32,+                                             min_y_DeviceAbsCalibCtl :: Int32,+                                             max_y_DeviceAbsCalibCtl :: Int32,+                                             flip_x_DeviceAbsCalibCtl :: Word32,+                                             flip_y_DeviceAbsCalibCtl :: Word32,+                                             rotation_DeviceAbsCalibCtl :: Word32,+                                             button_threshold_DeviceAbsCalibCtl :: Word32}                        deriving (Show, Typeable)   instance Serialize DeviceAbsCalibCtl where@@ -2353,14 +2354,14 @@                     button_threshold)   data DeviceAbsAreaCtrl = MkDeviceAbsAreaCtrl{control_id_DeviceAbsAreaCtrl-                                             :: CARD16,-                                             len_DeviceAbsAreaCtrl :: CARD16,-                                             offset_x_DeviceAbsAreaCtrl :: CARD32,-                                             offset_y_DeviceAbsAreaCtrl :: CARD32,-                                             width_DeviceAbsAreaCtrl :: INT32,-                                             height_DeviceAbsAreaCtrl :: INT32,-                                             screen_DeviceAbsAreaCtrl :: INT32,-                                             following_DeviceAbsAreaCtrl :: CARD32}+                                             :: Word16,+                                             len_DeviceAbsAreaCtrl :: Word16,+                                             offset_x_DeviceAbsAreaCtrl :: Word32,+                                             offset_y_DeviceAbsAreaCtrl :: Word32,+                                             width_DeviceAbsAreaCtrl :: Int32,+                                             height_DeviceAbsAreaCtrl :: Int32,+                                             screen_DeviceAbsAreaCtrl :: Int32,+                                             following_DeviceAbsAreaCtrl :: Word32}                        deriving (Show, Typeable)   instance Serialize DeviceAbsAreaCtrl where@@ -2399,8 +2400,8 @@                     following)   data DeviceCoreCtrl = MkDeviceCoreCtrl{control_id_DeviceCoreCtrl ::-                                       CARD16,-                                       len_DeviceCoreCtrl :: CARD16, status_DeviceCoreCtrl :: CARD8}+                                       Word16,+                                       len_DeviceCoreCtrl :: Word16, status_DeviceCoreCtrl :: Word8}                     deriving (Show, Typeable)   instance Serialize DeviceCoreCtrl where@@ -2423,9 +2424,9 @@                return (MkDeviceCoreCtrl control_id len status)   data DeviceEnableCtrl = MkDeviceEnableCtrl{control_id_DeviceEnableCtrl-                                           :: CARD16,-                                           len_DeviceEnableCtrl :: CARD16,-                                           enable_DeviceEnableCtrl :: CARD8}+                                           :: Word16,+                                           len_DeviceEnableCtrl :: Word16,+                                           enable_DeviceEnableCtrl :: Word8}                       deriving (Show, Typeable)   instance Serialize DeviceEnableCtrl where@@ -2449,11 +2450,11 @@                return (MkDeviceEnableCtrl control_id len enable)   data DeviceValuator = MkDeviceValuator{device_id_DeviceValuator ::-                                       CARD8,-                                       device_state_DeviceValuator :: CARD16,-                                       num_valuators_DeviceValuator :: CARD8,-                                       first_valuator_DeviceValuator :: CARD8,-                                       valuators_DeviceValuator :: [INT32]}+                                       Word8,+                                       device_state_DeviceValuator :: Word16,+                                       num_valuators_DeviceValuator :: Word8,+                                       first_valuator_DeviceValuator :: Word8,+                                       valuators_DeviceValuator :: [Int32]}                     deriving (Show, Typeable)   instance Graphics.XHB.Shared.Event DeviceValuator@@ -2473,18 +2474,18 @@                     valuators)   data DeviceKeyPress = MkDeviceKeyPress{detail_DeviceKeyPress ::-                                       BYTE,+                                       Word8,                                        time_DeviceKeyPress :: TIMESTAMP,                                        root_DeviceKeyPress :: WINDOW,                                        event_DeviceKeyPress :: WINDOW,                                        child_DeviceKeyPress :: WINDOW,-                                       root_x_DeviceKeyPress :: INT16,-                                       root_y_DeviceKeyPress :: INT16,-                                       event_x_DeviceKeyPress :: INT16,-                                       event_y_DeviceKeyPress :: INT16,-                                       state_DeviceKeyPress :: CARD16,-                                       same_screen_DeviceKeyPress :: BOOL,-                                       device_id_DeviceKeyPress :: CARD8}+                                       root_x_DeviceKeyPress :: Int16,+                                       root_y_DeviceKeyPress :: Int16,+                                       event_x_DeviceKeyPress :: Int16,+                                       event_y_DeviceKeyPress :: Int16,+                                       state_DeviceKeyPress :: Word16,+                                       same_screen_DeviceKeyPress :: Bool,+                                       device_id_DeviceKeyPress :: Word8}                     deriving (Show, Typeable)   instance Graphics.XHB.Shared.Event DeviceKeyPress@@ -2514,18 +2515,18 @@                     device_id)   data DeviceKeyRelease = MkDeviceKeyRelease{detail_DeviceKeyRelease-                                           :: BYTE,+                                           :: Word8,                                            time_DeviceKeyRelease :: TIMESTAMP,                                            root_DeviceKeyRelease :: WINDOW,                                            event_DeviceKeyRelease :: WINDOW,                                            child_DeviceKeyRelease :: WINDOW,-                                           root_x_DeviceKeyRelease :: INT16,-                                           root_y_DeviceKeyRelease :: INT16,-                                           event_x_DeviceKeyRelease :: INT16,-                                           event_y_DeviceKeyRelease :: INT16,-                                           state_DeviceKeyRelease :: CARD16,-                                           same_screen_DeviceKeyRelease :: BOOL,-                                           device_id_DeviceKeyRelease :: CARD8}+                                           root_x_DeviceKeyRelease :: Int16,+                                           root_y_DeviceKeyRelease :: Int16,+                                           event_x_DeviceKeyRelease :: Int16,+                                           event_y_DeviceKeyRelease :: Int16,+                                           state_DeviceKeyRelease :: Word16,+                                           same_screen_DeviceKeyRelease :: Bool,+                                           device_id_DeviceKeyRelease :: Word8}                       deriving (Show, Typeable)   instance Graphics.XHB.Shared.Event DeviceKeyRelease@@ -2555,18 +2556,18 @@                     device_id)   data DeviceButtonPress = MkDeviceButtonPress{detail_DeviceButtonPress-                                             :: BYTE,+                                             :: Word8,                                              time_DeviceButtonPress :: TIMESTAMP,                                              root_DeviceButtonPress :: WINDOW,                                              event_DeviceButtonPress :: WINDOW,                                              child_DeviceButtonPress :: WINDOW,-                                             root_x_DeviceButtonPress :: INT16,-                                             root_y_DeviceButtonPress :: INT16,-                                             event_x_DeviceButtonPress :: INT16,-                                             event_y_DeviceButtonPress :: INT16,-                                             state_DeviceButtonPress :: CARD16,-                                             same_screen_DeviceButtonPress :: BOOL,-                                             device_id_DeviceButtonPress :: CARD8}+                                             root_x_DeviceButtonPress :: Int16,+                                             root_y_DeviceButtonPress :: Int16,+                                             event_x_DeviceButtonPress :: Int16,+                                             event_y_DeviceButtonPress :: Int16,+                                             state_DeviceButtonPress :: Word16,+                                             same_screen_DeviceButtonPress :: Bool,+                                             device_id_DeviceButtonPress :: Word8}                        deriving (Show, Typeable)   instance Graphics.XHB.Shared.Event DeviceButtonPress@@ -2596,18 +2597,18 @@                     device_id)   data DeviceButtonRelease = MkDeviceButtonRelease{detail_DeviceButtonRelease-                                                 :: BYTE,+                                                 :: Word8,                                                  time_DeviceButtonRelease :: TIMESTAMP,                                                  root_DeviceButtonRelease :: WINDOW,                                                  event_DeviceButtonRelease :: WINDOW,                                                  child_DeviceButtonRelease :: WINDOW,-                                                 root_x_DeviceButtonRelease :: INT16,-                                                 root_y_DeviceButtonRelease :: INT16,-                                                 event_x_DeviceButtonRelease :: INT16,-                                                 event_y_DeviceButtonRelease :: INT16,-                                                 state_DeviceButtonRelease :: CARD16,-                                                 same_screen_DeviceButtonRelease :: BOOL,-                                                 device_id_DeviceButtonRelease :: CARD8}+                                                 root_x_DeviceButtonRelease :: Int16,+                                                 root_y_DeviceButtonRelease :: Int16,+                                                 event_x_DeviceButtonRelease :: Int16,+                                                 event_y_DeviceButtonRelease :: Int16,+                                                 state_DeviceButtonRelease :: Word16,+                                                 same_screen_DeviceButtonRelease :: Bool,+                                                 device_id_DeviceButtonRelease :: Word8}                          deriving (Show, Typeable)   instance Graphics.XHB.Shared.Event DeviceButtonRelease@@ -2637,18 +2638,18 @@                     device_id)   data DeviceMotionNotify = MkDeviceMotionNotify{detail_DeviceMotionNotify-                                               :: BYTE,+                                               :: Word8,                                                time_DeviceMotionNotify :: TIMESTAMP,                                                root_DeviceMotionNotify :: WINDOW,                                                event_DeviceMotionNotify :: WINDOW,                                                child_DeviceMotionNotify :: WINDOW,-                                               root_x_DeviceMotionNotify :: INT16,-                                               root_y_DeviceMotionNotify :: INT16,-                                               event_x_DeviceMotionNotify :: INT16,-                                               event_y_DeviceMotionNotify :: INT16,-                                               state_DeviceMotionNotify :: CARD16,-                                               same_screen_DeviceMotionNotify :: BOOL,-                                               device_id_DeviceMotionNotify :: CARD8}+                                               root_x_DeviceMotionNotify :: Int16,+                                               root_y_DeviceMotionNotify :: Int16,+                                               event_x_DeviceMotionNotify :: Int16,+                                               event_y_DeviceMotionNotify :: Int16,+                                               state_DeviceMotionNotify :: Word16,+                                               same_screen_DeviceMotionNotify :: Bool,+                                               device_id_DeviceMotionNotify :: Word8}                         deriving (Show, Typeable)   instance Graphics.XHB.Shared.Event DeviceMotionNotify@@ -2677,13 +2678,13 @@                     same_screen                     device_id)  -data ProximityIn = MkProximityIn{detail_ProximityIn :: BYTE,+data ProximityIn = MkProximityIn{detail_ProximityIn :: Word8,                                  time_ProximityIn :: TIMESTAMP, root_ProximityIn :: WINDOW,                                  event_ProximityIn :: WINDOW, child_ProximityIn :: WINDOW,-                                 root_x_ProximityIn :: INT16, root_y_ProximityIn :: INT16,-                                 event_x_ProximityIn :: INT16, event_y_ProximityIn :: INT16,-                                 state_ProximityIn :: CARD16, same_screen_ProximityIn :: BOOL,-                                 device_id_ProximityIn :: CARD8}+                                 root_x_ProximityIn :: Int16, root_y_ProximityIn :: Int16,+                                 event_x_ProximityIn :: Int16, event_y_ProximityIn :: Int16,+                                 state_ProximityIn :: Word16, same_screen_ProximityIn :: Bool,+                                 device_id_ProximityIn :: Word8}                  deriving (Show, Typeable)   instance Graphics.XHB.Shared.Event ProximityIn@@ -2711,13 +2712,13 @@                     same_screen                     device_id)  -data ProximityOut = MkProximityOut{detail_ProximityOut :: BYTE,+data ProximityOut = MkProximityOut{detail_ProximityOut :: Word8,                                    time_ProximityOut :: TIMESTAMP, root_ProximityOut :: WINDOW,                                    event_ProximityOut :: WINDOW, child_ProximityOut :: WINDOW,-                                   root_x_ProximityOut :: INT16, root_y_ProximityOut :: INT16,-                                   event_x_ProximityOut :: INT16, event_y_ProximityOut :: INT16,-                                   state_ProximityOut :: CARD16, same_screen_ProximityOut :: BOOL,-                                   device_id_ProximityOut :: CARD8}+                                   root_x_ProximityOut :: Int16, root_y_ProximityOut :: Int16,+                                   event_x_ProximityOut :: Int16, event_y_ProximityOut :: Int16,+                                   state_ProximityOut :: Word16, same_screen_ProximityOut :: Bool,+                                   device_id_ProximityOut :: Word8}                   deriving (Show, Typeable)   instance Graphics.XHB.Shared.Event ProximityOut@@ -2745,9 +2746,9 @@                     same_screen                     device_id)  -data FocusIn = MkFocusIn{detail_FocusIn :: BYTE,+data FocusIn = MkFocusIn{detail_FocusIn :: Word8,                          time_FocusIn :: TIMESTAMP, window_FocusIn :: WINDOW,-                         mode_FocusIn :: BYTE, device_id_FocusIn :: CARD8}+                         mode_FocusIn :: Word8, device_id_FocusIn :: Word8}              deriving (Show, Typeable)   instance Graphics.XHB.Shared.Event FocusIn@@ -2764,13 +2765,13 @@                skip 18                return (MkFocusIn detail time window mode device_id)  -data FocusOut = MkFocusOut{detail_FocusOut :: BYTE,+data FocusOut = MkFocusOut{detail_FocusOut :: Word8,                            time_FocusOut :: TIMESTAMP, root_FocusOut :: WINDOW,                            event_FocusOut :: WINDOW, child_FocusOut :: WINDOW,-                           root_x_FocusOut :: INT16, root_y_FocusOut :: INT16,-                           event_x_FocusOut :: INT16, event_y_FocusOut :: INT16,-                           state_FocusOut :: CARD16, same_screen_FocusOut :: BOOL,-                           device_id_FocusOut :: CARD8}+                           root_x_FocusOut :: Int16, root_y_FocusOut :: Int16,+                           event_x_FocusOut :: Int16, event_y_FocusOut :: Int16,+                           state_FocusOut :: Word16, same_screen_FocusOut :: Bool,+                           device_id_FocusOut :: Word8}               deriving (Show, Typeable)   instance Graphics.XHB.Shared.Event FocusOut@@ -2799,15 +2800,15 @@                     device_id)   data DeviceStateNotify = MkDeviceStateNotify{device_id_DeviceStateNotify-                                             :: BYTE,+                                             :: Word8,                                              time_DeviceStateNotify :: TIMESTAMP,-                                             num_keys_DeviceStateNotify :: CARD8,-                                             num_buttons_DeviceStateNotify :: CARD8,-                                             num_valuators_DeviceStateNotify :: CARD8,-                                             classes_reported_DeviceStateNotify :: CARD8,-                                             buttons_DeviceStateNotify :: [CARD8],-                                             keys_DeviceStateNotify :: [CARD8],-                                             valuators_DeviceStateNotify :: [CARD32]}+                                             num_keys_DeviceStateNotify :: Word8,+                                             num_buttons_DeviceStateNotify :: Word8,+                                             num_valuators_DeviceStateNotify :: Word8,+                                             classes_reported_DeviceStateNotify :: Word8,+                                             buttons_DeviceStateNotify :: [Word8],+                                             keys_DeviceStateNotify :: [Word8],+                                             valuators_DeviceStateNotify :: [Word32]}                        deriving (Show, Typeable)   instance Graphics.XHB.Shared.Event DeviceStateNotify@@ -2834,10 +2835,10 @@                     valuators)   data DeviceMappingNotify = MkDeviceMappingNotify{device_id_DeviceMappingNotify-                                                 :: BYTE,-                                                 request_DeviceMappingNotify :: CARD8,+                                                 :: Word8,+                                                 request_DeviceMappingNotify :: Word8,                                                  first_keycode_DeviceMappingNotify :: KeyCode,-                                                 count_DeviceMappingNotify :: CARD8,+                                                 count_DeviceMappingNotify :: Word8,                                                  time_DeviceMappingNotify :: TIMESTAMP}                          deriving (Show, Typeable)  @@ -2858,9 +2859,9 @@                  (MkDeviceMappingNotify device_id request first_keycode count time)   data ChangeDeviceNotify = MkChangeDeviceNotify{device_id_ChangeDeviceNotify-                                               :: BYTE,+                                               :: Word8,                                                time_ChangeDeviceNotify :: TIMESTAMP,-                                               request_ChangeDeviceNotify :: CARD8}+                                               request_ChangeDeviceNotify :: Word8}                         deriving (Show, Typeable)   instance Graphics.XHB.Shared.Event ChangeDeviceNotify@@ -2876,8 +2877,8 @@                return (MkChangeDeviceNotify device_id time request)   data DeviceKeyStateNotify = MkDeviceKeyStateNotify{device_id_DeviceKeyStateNotify-                                                   :: BYTE,-                                                   keys_DeviceKeyStateNotify :: [CARD8]}+                                                   :: Word8,+                                                   keys_DeviceKeyStateNotify :: [Word8]}                           deriving (Show, Typeable)   instance Graphics.XHB.Shared.Event DeviceKeyStateNotify@@ -2891,8 +2892,8 @@                return (MkDeviceKeyStateNotify device_id keys)   data DeviceButtonStateNotify = MkDeviceButtonStateNotify{device_id_DeviceButtonStateNotify-                                                         :: BYTE,-                                                         buttons_DeviceButtonStateNotify :: [CARD8]}+                                                         :: Word8,+                                                         buttons_DeviceButtonStateNotify :: [Word8]}                              deriving (Show, Typeable)   instance Graphics.XHB.Shared.Event DeviceButtonStateNotify@@ -2907,9 +2908,9 @@   data DevicePresenceNotify = MkDevicePresenceNotify{time_DevicePresenceNotify                                                    :: TIMESTAMP,-                                                   devchange_DevicePresenceNotify :: BYTE,-                                                   device_id_DevicePresenceNotify :: BYTE,-                                                   control_DevicePresenceNotify :: CARD16}+                                                   devchange_DevicePresenceNotify :: Word8,+                                                   device_id_DevicePresenceNotify :: Word8,+                                                   control_DevicePresenceNotify :: Word16}                           deriving (Show, Typeable)   instance Graphics.XHB.Shared.Event DevicePresenceNotify
patched/Graphics/XHB/Gen/RandR.hs view
@@ -14,6 +14,9 @@ import Graphics.XHB.Connection.Types import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import Data.Binary.Put (runPut) import Graphics.XHB.Shared hiding (Event(..), Error(..)) import Graphics.XHB.Gen.Xproto.Types@@ -25,28 +28,28 @@   queryVersion ::                Graphics.XHB.Connection.Types.Connection ->-                 CARD32 -> CARD32 -> IO (Receipt QueryVersionReply)+                 Word32 -> Word32 -> IO (Receipt QueryVersionReply) queryVersion c major_version minor_version-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkQueryVersion major_version minor_version        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   setScreenConfig ::                   Graphics.XHB.Connection.Types.Connection ->                     SetScreenConfig -> IO (Receipt SetScreenConfigReply) setScreenConfig c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   selectInput ::               Graphics.XHB.Connection.Types.Connection ->-                WINDOW -> CARD16 -> IO ()+                WINDOW -> Word16 -> IO () selectInput c window enable   = do let req = MkSelectInput window enable        putAction <- serializeExtensionRequest c req@@ -57,22 +60,22 @@                 Graphics.XHB.Connection.Types.Connection ->                   WINDOW -> IO (Receipt GetScreenInfoReply) getScreenInfo c window-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetScreenInfo window        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getScreenSizeRange ::                      Graphics.XHB.Connection.Types.Connection ->                        WINDOW -> IO (Receipt GetScreenSizeRangeReply) getScreenSizeRange c window-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetScreenSizeRange window        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   setScreenSize ::@@ -86,44 +89,44 @@                      Graphics.XHB.Connection.Types.Connection ->                        WINDOW -> IO (Receipt GetScreenResourcesReply) getScreenResources c window-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetScreenResources window        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getOutputInfo ::                 Graphics.XHB.Connection.Types.Connection ->                   OUTPUT -> TIMESTAMP -> IO (Receipt GetOutputInfoReply) getOutputInfo c output config_timestamp-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetOutputInfo output config_timestamp        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   listOutputProperties ::                        Graphics.XHB.Connection.Types.Connection ->                          OUTPUT -> IO (Receipt ListOutputPropertiesReply) listOutputProperties c output-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkListOutputProperties output        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   queryOutputProperty ::                       Graphics.XHB.Connection.Types.Connection ->                         OUTPUT -> ATOM -> IO (Receipt QueryOutputPropertyReply) queryOutputProperty c output property-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkQueryOutputProperty output property        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   configureOutputProperty ::@@ -154,20 +157,21 @@                     Graphics.XHB.Connection.Types.Connection ->                       GetOutputProperty -> IO (Receipt GetOutputPropertyReply) getOutputProperty c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   createMode ::              Graphics.XHB.Connection.Types.Connection ->-               CreateMode -> IO (Receipt CreateModeReply)+               CreateMode -> IO (Receipt MODE) createMode c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet (mode_CreateModeReply `fmap` deserialize))        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   destroyMode ::@@ -198,43 +202,44 @@               Graphics.XHB.Connection.Types.Connection ->                 CRTC -> TIMESTAMP -> IO (Receipt GetCrtcInfoReply) getCrtcInfo c crtc config_timestamp-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetCrtcInfo crtc config_timestamp        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   setCrtcConfig ::                 Graphics.XHB.Connection.Types.Connection ->                   SetCrtcConfig -> IO (Receipt SetCrtcConfigReply) setCrtcConfig c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getCrtcGammaSize ::                    Graphics.XHB.Connection.Types.Connection ->-                     CRTC -> IO (Receipt GetCrtcGammaSizeReply)+                     CRTC -> IO (Receipt Word16) getCrtcGammaSize c crtc-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet (size_GetCrtcGammaSizeReply `fmap` deserialize))        let req = MkGetCrtcGammaSize crtc        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getCrtcGamma ::                Graphics.XHB.Connection.Types.Connection ->                  CRTC -> IO (Receipt GetCrtcGammaReply) getCrtcGamma c crtc-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetCrtcGamma crtc        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   setCrtcGamma ::
patched/Graphics/XHB/Gen/RandR/Types.hs view
@@ -21,6 +21,7 @@         Notify(..),NotifyData(..))        where import Data.Word+import Data.Int import Foreign.C.Types import Data.Bits import Data.Binary.Put@@ -75,9 +76,9 @@         fromBit 4 = RotationReflect_X         fromBit 5 = RotationReflect_Y  -data ScreenSize = MkScreenSize{width_ScreenSize :: CARD16,-                               height_ScreenSize :: CARD16, mwidth_ScreenSize :: CARD16,-                               mheight_ScreenSize :: CARD16}+data ScreenSize = MkScreenSize{width_ScreenSize :: Word16,+                               height_ScreenSize :: Word16, mwidth_ScreenSize :: Word16,+                               mheight_ScreenSize :: Word16}                 deriving (Show, Typeable)   instance Serialize ScreenSize where@@ -99,8 +100,8 @@                mheight <- deserialize                return (MkScreenSize width height mwidth mheight)  -data RefreshRates = MkRefreshRates{nRates_RefreshRates :: CARD16,-                                   rates_RefreshRates :: [CARD16]}+data RefreshRates = MkRefreshRates{nRates_RefreshRates :: Word16,+                                   rates_RefreshRates :: [Word16]}                   deriving (Show, Typeable)   instance Serialize RefreshRates where@@ -118,8 +119,8 @@                return (MkRefreshRates nRates rates)   data QueryVersion = MkQueryVersion{major_version_QueryVersion ::-                                   CARD32,-                                   minor_version_QueryVersion :: CARD32}+                                   Word32,+                                   minor_version_QueryVersion :: Word32}                   deriving (Show, Typeable)   instance ExtensionRequest QueryVersion where@@ -130,14 +131,14 @@                let size__                      = 4 + size (major_version_QueryVersion x) +                          size (minor_version_QueryVersion x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (major_version_QueryVersion x)                serialize (minor_version_QueryVersion x)                putSkip (requiredPadding size__)   data QueryVersionReply = MkQueryVersionReply{major_version_QueryVersionReply-                                             :: CARD32,-                                             minor_version_QueryVersionReply :: CARD32}+                                             :: Word32,+                                             minor_version_QueryVersionReply :: Word32}                        deriving (Show, Typeable)   instance Deserialize QueryVersionReply where@@ -156,9 +157,9 @@                                          WINDOW,                                          timestamp_SetScreenConfig :: TIMESTAMP,                                          config_timestamp_SetScreenConfig :: TIMESTAMP,-                                         sizeID_SetScreenConfig :: CARD16,-                                         rotation_SetScreenConfig :: CARD16,-                                         rate_SetScreenConfig :: CARD16}+                                         sizeID_SetScreenConfig :: Word16,+                                         rotation_SetScreenConfig :: Word16,+                                         rate_SetScreenConfig :: Word16}                      deriving (Show, Typeable)   instance ExtensionRequest SetScreenConfig where@@ -174,7 +175,7 @@                          + size (rotation_SetScreenConfig x)                          + size (rate_SetScreenConfig x)                          + 2-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (window_SetScreenConfig x)                serialize (timestamp_SetScreenConfig x)                serialize (config_timestamp_SetScreenConfig x)@@ -185,12 +186,12 @@                putSkip (requiredPadding size__)   data SetScreenConfigReply = MkSetScreenConfigReply{status_SetScreenConfigReply-                                                   :: CARD8,+                                                   :: Word8,                                                    new_timestamp_SetScreenConfigReply :: TIMESTAMP,                                                    config_timestamp_SetScreenConfigReply ::                                                    TIMESTAMP,                                                    root_SetScreenConfigReply :: WINDOW,-                                                   subpixel_order_SetScreenConfigReply :: CARD16}+                                                   subpixel_order_SetScreenConfigReply :: Word16}                           deriving (Show, Typeable)   instance Deserialize SetScreenConfigReply where@@ -225,7 +226,7 @@         fromValue 3 = SetConfigFailed   data SelectInput = MkSelectInput{window_SelectInput :: WINDOW,-                                 enable_SelectInput :: CARD16}+                                 enable_SelectInput :: Word16}                  deriving (Show, Typeable)   instance ExtensionRequest SelectInput where@@ -235,7 +236,7 @@                putWord8 4                let size__                      = 4 + size (window_SelectInput x) + size (enable_SelectInput x) + 2-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (window_SelectInput x)                serialize (enable_SelectInput x)                putSkip 2@@ -251,20 +252,20 @@           = do putWord8 extOpCode                putWord8 5                let size__ = 4 + size (window_GetScreenInfo x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (window_GetScreenInfo x)                putSkip (requiredPadding size__)   data GetScreenInfoReply = MkGetScreenInfoReply{rotations_GetScreenInfoReply-                                               :: CARD8,+                                               :: Word8,                                                root_GetScreenInfoReply :: WINDOW,                                                timestamp_GetScreenInfoReply :: TIMESTAMP,                                                config_timestamp_GetScreenInfoReply :: TIMESTAMP,-                                               nSizes_GetScreenInfoReply :: CARD16,-                                               sizeID_GetScreenInfoReply :: CARD16,-                                               rotation_GetScreenInfoReply :: CARD16,-                                               rate_GetScreenInfoReply :: CARD16,-                                               nInfo_GetScreenInfoReply :: CARD16,+                                               nSizes_GetScreenInfoReply :: Word16,+                                               sizeID_GetScreenInfoReply :: Word16,+                                               rotation_GetScreenInfoReply :: Word16,+                                               rate_GetScreenInfoReply :: Word16,+                                               nInfo_GetScreenInfoReply :: Word16,                                                sizes_GetScreenInfoReply :: [ScreenSize],                                                rates_GetScreenInfoReply :: [RefreshRates]}                         deriving (Show, Typeable)@@ -308,18 +309,18 @@           = do putWord8 extOpCode                putWord8 6                let size__ = 4 + size (window_GetScreenSizeRange x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (window_GetScreenSizeRange x)                putSkip (requiredPadding size__)   data GetScreenSizeRangeReply = MkGetScreenSizeRangeReply{min_width_GetScreenSizeRangeReply-                                                         :: CARD16,+                                                         :: Word16,                                                          min_height_GetScreenSizeRangeReply ::-                                                         CARD16,+                                                         Word16,                                                          max_width_GetScreenSizeRangeReply ::-                                                         CARD16,+                                                         Word16,                                                          max_height_GetScreenSizeRangeReply ::-                                                         CARD16}+                                                         Word16}                              deriving (Show, Typeable)   instance Deserialize GetScreenSizeRangeReply where@@ -340,9 +341,9 @@   data SetScreenSize = MkSetScreenSize{window_SetScreenSize ::                                      WINDOW,-                                     width_SetScreenSize :: CARD16, height_SetScreenSize :: CARD16,-                                     mm_width_SetScreenSize :: CARD32,-                                     mm_height_SetScreenSize :: CARD32}+                                     width_SetScreenSize :: Word16, height_SetScreenSize :: Word16,+                                     mm_width_SetScreenSize :: Word32,+                                     mm_height_SetScreenSize :: Word32}                    deriving (Show, Typeable)   instance ExtensionRequest SetScreenSize where@@ -355,7 +356,7 @@                          + size (height_SetScreenSize x)                          + size (mm_width_SetScreenSize x)                          + size (mm_height_SetScreenSize x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (window_SetScreenSize x)                serialize (width_SetScreenSize x)                serialize (height_SetScreenSize x)@@ -408,13 +409,13 @@         fromBit 12 = ModeFlagDoubleClock         fromBit 13 = ModeFlagHalveClock  -data ModeInfo = MkModeInfo{id_ModeInfo :: CARD32,-                           width_ModeInfo :: CARD16, height_ModeInfo :: CARD16,-                           dot_clock_ModeInfo :: CARD32, hsync_start_ModeInfo :: CARD16,-                           hsync_end_ModeInfo :: CARD16, htotal_ModeInfo :: CARD16,-                           hskew_ModeInfo :: CARD16, vsync_start_ModeInfo :: CARD16,-                           vsync_end_ModeInfo :: CARD16, vtotal_ModeInfo :: CARD16,-                           name_len_ModeInfo :: CARD16, mode_flags_ModeInfo :: CARD32}+data ModeInfo = MkModeInfo{id_ModeInfo :: Word32,+                           width_ModeInfo :: Word16, height_ModeInfo :: Word16,+                           dot_clock_ModeInfo :: Word32, hsync_start_ModeInfo :: Word16,+                           hsync_end_ModeInfo :: Word16, htotal_ModeInfo :: Word16,+                           hskew_ModeInfo :: Word16, vsync_start_ModeInfo :: Word16,+                           vsync_end_ModeInfo :: Word16, vtotal_ModeInfo :: Word16,+                           name_len_ModeInfo :: Word16, mode_flags_ModeInfo :: Word32}               deriving (Show, Typeable)   instance Serialize ModeInfo where@@ -480,7 +481,7 @@           = do putWord8 extOpCode                putWord8 8                let size__ = 4 + size (window_GetScreenResources x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (window_GetScreenResources x)                putSkip (requiredPadding size__)  @@ -489,19 +490,19 @@                                                          config_timestamp_GetScreenResourcesReply ::                                                          TIMESTAMP,                                                          num_crtcs_GetScreenResourcesReply ::-                                                         CARD16,+                                                         Word16,                                                          num_outputs_GetScreenResourcesReply ::-                                                         CARD16,+                                                         Word16,                                                          num_modes_GetScreenResourcesReply ::-                                                         CARD16,+                                                         Word16,                                                          names_len_GetScreenResourcesReply ::-                                                         CARD16,+                                                         Word16,                                                          crtcs_GetScreenResourcesReply :: [CRTC],                                                          outputs_GetScreenResourcesReply ::                                                          [OUTPUT],                                                          modes_GetScreenResourcesReply ::                                                          [ModeInfo],-                                                         names_GetScreenResourcesReply :: [BYTE]}+                                                         names_GetScreenResourcesReply :: [Word8]}                              deriving (Show, Typeable)   instance Deserialize GetScreenResourcesReply where@@ -557,28 +558,28 @@                let size__                      = 4 + size (output_GetOutputInfo x) +                          size (config_timestamp_GetOutputInfo x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (output_GetOutputInfo x)                serialize (config_timestamp_GetOutputInfo x)                putSkip (requiredPadding size__)   data GetOutputInfoReply = MkGetOutputInfoReply{status_GetOutputInfoReply-                                               :: CARD8,+                                               :: Word8,                                                timestamp_GetOutputInfoReply :: TIMESTAMP,                                                crtc_GetOutputInfoReply :: CRTC,-                                               mm_width_GetOutputInfoReply :: CARD32,-                                               mm_height_GetOutputInfoReply :: CARD32,-                                               connection_GetOutputInfoReply :: CARD8,-                                               subpixel_order_GetOutputInfoReply :: CARD8,-                                               num_crtcs_GetOutputInfoReply :: CARD16,-                                               num_modes_GetOutputInfoReply :: CARD16,-                                               num_preferred_GetOutputInfoReply :: CARD16,-                                               num_clones_GetOutputInfoReply :: CARD16,-                                               name_len_GetOutputInfoReply :: CARD16,+                                               mm_width_GetOutputInfoReply :: Word32,+                                               mm_height_GetOutputInfoReply :: Word32,+                                               connection_GetOutputInfoReply :: Word8,+                                               subpixel_order_GetOutputInfoReply :: Word8,+                                               num_crtcs_GetOutputInfoReply :: Word16,+                                               num_modes_GetOutputInfoReply :: Word16,+                                               num_preferred_GetOutputInfoReply :: Word16,+                                               num_clones_GetOutputInfoReply :: Word16,+                                               name_len_GetOutputInfoReply :: Word16,                                                crtcs_GetOutputInfoReply :: [CRTC],                                                modes_GetOutputInfoReply :: [MODE],                                                clones_GetOutputInfoReply :: [OUTPUT],-                                               name_GetOutputInfoReply :: [BYTE]}+                                               name_GetOutputInfoReply :: [Word8]}                         deriving (Show, Typeable)   instance Deserialize GetOutputInfoReply where@@ -627,12 +628,12 @@           = do putWord8 extOpCode                putWord8 10                let size__ = 4 + size (output_ListOutputProperties x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (output_ListOutputProperties x)                putSkip (requiredPadding size__)   data ListOutputPropertiesReply = MkListOutputPropertiesReply{num_atoms_ListOutputPropertiesReply-                                                             :: CARD16,+                                                             :: Word16,                                                              atoms_ListOutputPropertiesReply ::                                                              [ATOM]}                                deriving (Show, Typeable)@@ -662,18 +663,18 @@                let size__                      = 4 + size (output_QueryOutputProperty x) +                          size (property_QueryOutputProperty x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (output_QueryOutputProperty x)                serialize (property_QueryOutputProperty x)                putSkip (requiredPadding size__)   data QueryOutputPropertyReply = MkQueryOutputPropertyReply{pending_QueryOutputPropertyReply-                                                           :: BOOL,-                                                           range_QueryOutputPropertyReply :: BOOL,+                                                           :: Bool,+                                                           range_QueryOutputPropertyReply :: Bool,                                                            immutable_QueryOutputPropertyReply ::-                                                           BOOL,+                                                           Bool,                                                            validValues_QueryOutputPropertyReply ::-                                                           [INT32]}+                                                           [Int32]}                               deriving (Show, Typeable)   instance Deserialize QueryOutputPropertyReply where@@ -694,9 +695,9 @@ data ConfigureOutputProperty = MkConfigureOutputProperty{output_ConfigureOutputProperty                                                          :: OUTPUT,                                                          property_ConfigureOutputProperty :: ATOM,-                                                         pending_ConfigureOutputProperty :: BOOL,-                                                         range_ConfigureOutputProperty :: BOOL,-                                                         values_ConfigureOutputProperty :: [INT32]}+                                                         pending_ConfigureOutputProperty :: Bool,+                                                         range_ConfigureOutputProperty :: Bool,+                                                         values_ConfigureOutputProperty :: [Int32]}                              deriving (Show, Typeable)   instance ExtensionRequest ConfigureOutputProperty where@@ -711,7 +712,7 @@                          + size (range_ConfigureOutputProperty x)                          + 2                          + sum (map size (values_ConfigureOutputProperty x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (output_ConfigureOutputProperty x)                serialize (property_ConfigureOutputProperty x)                serialize (pending_ConfigureOutputProperty x)@@ -724,9 +725,9 @@                                                    :: OUTPUT,                                                    property_ChangeOutputProperty :: ATOM,                                                    type_ChangeOutputProperty :: ATOM,-                                                   format_ChangeOutputProperty :: CARD8,-                                                   mode_ChangeOutputProperty :: CARD8,-                                                   num_units_ChangeOutputProperty :: CARD32,+                                                   format_ChangeOutputProperty :: Word8,+                                                   mode_ChangeOutputProperty :: Word8,+                                                   num_units_ChangeOutputProperty :: Word32,                                                    data_ChangeOutputProperty :: [Word8]}                           deriving (Show, Typeable)  @@ -744,7 +745,7 @@                          + 2                          + size (num_units_ChangeOutputProperty x)                          + sum (map size (data_ChangeOutputProperty x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (output_ChangeOutputProperty x)                serialize (property_ChangeOutputProperty x)                serialize (type_ChangeOutputProperty x)@@ -768,7 +769,7 @@                let size__                      = 4 + size (output_DeleteOutputProperty x) +                          size (property_DeleteOutputProperty x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (output_DeleteOutputProperty x)                serialize (property_DeleteOutputProperty x)                putSkip (requiredPadding size__)@@ -777,10 +778,10 @@                                              :: OUTPUT,                                              property_GetOutputProperty :: ATOM,                                              type_GetOutputProperty :: ATOM,-                                             long_offset_GetOutputProperty :: CARD32,-                                             long_length_GetOutputProperty :: CARD32,-                                             delete_GetOutputProperty :: BOOL,-                                             pending_GetOutputProperty :: BOOL}+                                             long_offset_GetOutputProperty :: Word32,+                                             long_length_GetOutputProperty :: Word32,+                                             delete_GetOutputProperty :: Bool,+                                             pending_GetOutputProperty :: Bool}                        deriving (Show, Typeable)   instance ExtensionRequest GetOutputProperty where@@ -797,7 +798,7 @@                          + size (delete_GetOutputProperty x)                          + size (pending_GetOutputProperty x)                          + 2-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (output_GetOutputProperty x)                serialize (property_GetOutputProperty x)                serialize (type_GetOutputProperty x)@@ -809,11 +810,11 @@                putSkip (requiredPadding size__)   data GetOutputPropertyReply = MkGetOutputPropertyReply{format_GetOutputPropertyReply-                                                       :: CARD8,+                                                       :: Word8,                                                        type_GetOutputPropertyReply :: ATOM,-                                                       bytes_after_GetOutputPropertyReply :: CARD32,-                                                       num_items_GetOutputPropertyReply :: CARD32,-                                                       data_GetOutputPropertyReply :: [BYTE]}+                                                       bytes_after_GetOutputPropertyReply :: Word32,+                                                       num_items_GetOutputPropertyReply :: Word32,+                                                       data_GetOutputPropertyReply :: [Word8]}                             deriving (Show, Typeable)   instance Deserialize GetOutputPropertyReply where@@ -845,7 +846,7 @@                let size__                      = 4 + size (window_CreateMode x) + size (mode_info_CreateMode x) +                          sum (map size (name_CreateMode x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (window_CreateMode x)                serialize (mode_info_CreateMode x)                serializeList (name_CreateMode x)@@ -875,7 +876,7 @@           = do putWord8 extOpCode                putWord8 17                let size__ = 4 + size (mode_DestroyMode x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (mode_DestroyMode x)                putSkip (requiredPadding size__)  @@ -891,7 +892,7 @@                putWord8 18                let size__                      = 4 + size (output_AddOutputMode x) + size (mode_AddOutputMode x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (output_AddOutputMode x)                serialize (mode_AddOutputMode x)                putSkip (requiredPadding size__)@@ -909,7 +910,7 @@                let size__                      = 4 + size (output_DeleteOutputMode x) +                          size (mode_DeleteOutputMode x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (output_DeleteOutputMode x)                serialize (mode_DeleteOutputMode x)                putSkip (requiredPadding size__)@@ -926,22 +927,22 @@                let size__                      = 4 + size (crtc_GetCrtcInfo x) +                          size (config_timestamp_GetCrtcInfo x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (crtc_GetCrtcInfo x)                serialize (config_timestamp_GetCrtcInfo x)                putSkip (requiredPadding size__)   data GetCrtcInfoReply = MkGetCrtcInfoReply{status_GetCrtcInfoReply-                                           :: CARD8,+                                           :: Word8,                                            timestamp_GetCrtcInfoReply :: TIMESTAMP,-                                           x_GetCrtcInfoReply :: INT16, y_GetCrtcInfoReply :: INT16,-                                           width_GetCrtcInfoReply :: CARD16,-                                           height_GetCrtcInfoReply :: CARD16,+                                           x_GetCrtcInfoReply :: Int16, y_GetCrtcInfoReply :: Int16,+                                           width_GetCrtcInfoReply :: Word16,+                                           height_GetCrtcInfoReply :: Word16,                                            mode_GetCrtcInfoReply :: MODE,-                                           rotation_GetCrtcInfoReply :: CARD16,-                                           rotations_GetCrtcInfoReply :: CARD16,-                                           num_outputs_GetCrtcInfoReply :: CARD16,-                                           num_possible_outputs_GetCrtcInfoReply :: CARD16,+                                           rotation_GetCrtcInfoReply :: Word16,+                                           rotations_GetCrtcInfoReply :: Word16,+                                           num_outputs_GetCrtcInfoReply :: Word16,+                                           num_possible_outputs_GetCrtcInfoReply :: Word16,                                            outputs_GetCrtcInfoReply :: [OUTPUT],                                            possible_GetCrtcInfoReply :: [OUTPUT]}                       deriving (Show, Typeable)@@ -976,8 +977,8 @@ data SetCrtcConfig = MkSetCrtcConfig{crtc_SetCrtcConfig :: CRTC,                                      timestamp_SetCrtcConfig :: TIMESTAMP,                                      config_timestamp_SetCrtcConfig :: TIMESTAMP,-                                     x_SetCrtcConfig :: INT16, y_SetCrtcConfig :: INT16,-                                     mode_SetCrtcConfig :: MODE, rotation_SetCrtcConfig :: CARD16,+                                     x_SetCrtcConfig :: Int16, y_SetCrtcConfig :: Int16,+                                     mode_SetCrtcConfig :: MODE, rotation_SetCrtcConfig :: Word16,                                      outputs_SetCrtcConfig :: [OUTPUT]}                    deriving (Show, Typeable)  @@ -996,7 +997,7 @@                          + size (rotation_SetCrtcConfig x)                          + 2                          + sum (map size (outputs_SetCrtcConfig x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (crtc_SetCrtcConfig x)                serialize (timestamp_SetCrtcConfig x)                serialize (config_timestamp_SetCrtcConfig x)@@ -1009,7 +1010,7 @@                putSkip (requiredPadding size__)   data SetCrtcConfigReply = MkSetCrtcConfigReply{status_SetCrtcConfigReply-                                               :: CARD8,+                                               :: Word8,                                                timestamp_SetCrtcConfigReply :: TIMESTAMP}                         deriving (Show, Typeable)  @@ -1034,12 +1035,12 @@           = do putWord8 extOpCode                putWord8 22                let size__ = 4 + size (crtc_GetCrtcGammaSize x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (crtc_GetCrtcGammaSize x)                putSkip (requiredPadding size__)   data GetCrtcGammaSizeReply = MkGetCrtcGammaSizeReply{size_GetCrtcGammaSizeReply-                                                     :: CARD16}+                                                     :: Word16}                            deriving (Show, Typeable)   instance Deserialize GetCrtcGammaSizeReply where@@ -1062,15 +1063,15 @@           = do putWord8 extOpCode                putWord8 23                let size__ = 4 + size (crtc_GetCrtcGamma x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (crtc_GetCrtcGamma x)                putSkip (requiredPadding size__)   data GetCrtcGammaReply = MkGetCrtcGammaReply{size_GetCrtcGammaReply-                                             :: CARD16,-                                             red_GetCrtcGammaReply :: [CARD16],-                                             green_GetCrtcGammaReply :: [CARD16],-                                             blue_GetCrtcGammaReply :: [CARD16]}+                                             :: Word16,+                                             red_GetCrtcGammaReply :: [Word16],+                                             green_GetCrtcGammaReply :: [Word16],+                                             blue_GetCrtcGammaReply :: [Word16]}                        deriving (Show, Typeable)   instance Deserialize GetCrtcGammaReply where@@ -1088,8 +1089,8 @@                return (MkGetCrtcGammaReply size red green blue)   data SetCrtcGamma = MkSetCrtcGamma{crtc_SetCrtcGamma :: CRTC,-                                   size_SetCrtcGamma :: CARD16, red_SetCrtcGamma :: [CARD16],-                                   green_SetCrtcGamma :: [CARD16], blue_SetCrtcGamma :: [CARD16]}+                                   size_SetCrtcGamma :: Word16, red_SetCrtcGamma :: [Word16],+                                   green_SetCrtcGamma :: [Word16], blue_SetCrtcGamma :: [Word16]}                   deriving (Show, Typeable)   instance ExtensionRequest SetCrtcGamma where@@ -1102,7 +1103,7 @@                          sum (map size (red_SetCrtcGamma x))                          + sum (map size (green_SetCrtcGamma x))                          + sum (map size (blue_SetCrtcGamma x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (crtc_SetCrtcGamma x)                serialize (size_SetCrtcGamma x)                putSkip 2@@ -1127,17 +1128,17 @@         fromBit 3 = NotifyMaskOutputProperty   data ScreenChangeNotify = MkScreenChangeNotify{rotation_ScreenChangeNotify-                                               :: CARD8,+                                               :: Word8,                                                timestamp_ScreenChangeNotify :: TIMESTAMP,                                                config_timestamp_ScreenChangeNotify :: TIMESTAMP,                                                root_ScreenChangeNotify :: WINDOW,                                                request_window_ScreenChangeNotify :: WINDOW,-                                               sizeID_ScreenChangeNotify :: CARD16,-                                               subpixel_order_ScreenChangeNotify :: CARD16,-                                               width_ScreenChangeNotify :: CARD16,-                                               height_ScreenChangeNotify :: CARD16,-                                               mwidth_ScreenChangeNotify :: CARD16,-                                               mheight_ScreenChangeNotify :: CARD16}+                                               sizeID_ScreenChangeNotify :: Word16,+                                               subpixel_order_ScreenChangeNotify :: Word16,+                                               width_ScreenChangeNotify :: Word16,+                                               height_ScreenChangeNotify :: Word16,+                                               mwidth_ScreenChangeNotify :: Word16,+                                               mheight_ScreenChangeNotify :: Word16}                         deriving (Show, Typeable)   instance Graphics.XHB.Shared.Event ScreenChangeNotify@@ -1181,9 +1182,9 @@   data CrtcChange = MkCrtcChange{timestamp_CrtcChange :: TIMESTAMP,                                window_CrtcChange :: WINDOW, crtc_CrtcChange :: CRTC,-                               mode_CrtcChange :: MODE, rotation_CrtcChange :: CARD16,-                               x_CrtcChange :: INT16, y_CrtcChange :: INT16,-                               width_CrtcChange :: CARD16, height_CrtcChange :: CARD16}+                               mode_CrtcChange :: MODE, rotation_CrtcChange :: Word16,+                               x_CrtcChange :: Int16, y_CrtcChange :: Int16,+                               width_CrtcChange :: Word16, height_CrtcChange :: Word16}                 deriving (Show, Typeable)   instance Serialize CrtcChange where@@ -1229,9 +1230,9 @@                                    config_timestamp_OutputChange :: TIMESTAMP,                                    window_OutputChange :: WINDOW, output_OutputChange :: OUTPUT,                                    crtc_OutputChange :: CRTC, mode_OutputChange :: MODE,-                                   rotation_OutputChange :: CARD16,-                                   connection_OutputChange :: CARD8,-                                   subpixel_order_OutputChange :: CARD8}+                                   rotation_OutputChange :: Word16,+                                   connection_OutputChange :: Word8,+                                   subpixel_order_OutputChange :: Word8}                   deriving (Show, Typeable)   instance Serialize OutputChange where@@ -1277,7 +1278,7 @@                                        WINDOW,                                        output_OutputProperty :: OUTPUT, atom_OutputProperty :: ATOM,                                        timestamp_OutputProperty :: TIMESTAMP,-                                       status_OutputProperty :: CARD8}+                                       status_OutputProperty :: Word8}                     deriving (Show, Typeable)   instance Serialize OutputProperty where@@ -1304,7 +1305,8 @@                status <- deserialize                skip 11                return (MkOutputProperty window output atom timestamp status)- ++ data NotifyData = NotifyDataCrtcChange CrtcChange                 | NotifyDataOutputChange OutputChange                 | NotifyDataOutputProperty OutputProperty@@ -1324,12 +1326,13 @@ deserializeNotifyData NotifyOutputChange = NotifyDataOutputChange `liftM` deserialize deserializeNotifyData NotifyOutputProperty = NotifyDataOutputProperty `liftM` deserialize -subCodeToNotifyEnum :: CARD8 -> NotifyEnum+subCodeToNotifyEnum :: Word8 -> NotifyEnum subCodeToNotifyEnum 0 = NotifyCrtcChange subCodeToNotifyEnum 1 = NotifyOutputChange subCodeToNotifyEnum 2 = NotifyOutputProperty -data Notify = MkNotify{subCode_Notify :: CARD8,++data Notify = MkNotify{subCode_Notify :: Word8,                        u_Notify :: NotifyData}             deriving (Show, Typeable)  
patched/Graphics/XHB/Gen/Record.hs view
@@ -9,6 +9,9 @@ import Graphics.XHB.Connection.Types import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import Data.Binary.Put (runPut) import Graphics.XHB.Shared hiding (Event(..), Error(..))  @@ -17,13 +20,13 @@   queryVersion ::                Graphics.XHB.Connection.Types.Connection ->-                 CARD16 -> CARD16 -> IO (Receipt QueryVersionReply)+                 Word16 -> Word16 -> IO (Receipt QueryVersionReply) queryVersion c major_version minor_version-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkQueryVersion major_version minor_version        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   createContext ::@@ -54,11 +57,11 @@                Graphics.XHB.Gen.Record.Types.CONTEXT ->                  IO (Receipt GetContextReply) getContext c context-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetContext context        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   enableContext ::@@ -66,11 +69,11 @@                   Graphics.XHB.Gen.Record.Types.CONTEXT ->                     IO (Receipt EnableContextReply) enableContext c context-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkEnableContext context        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   disableContext ::
patched/Graphics/XHB/Gen/Record/Types.hs view
@@ -8,6 +8,7 @@         DisableContext(..), FreeContext(..))        where import Data.Word+import Data.Int import Foreign.C.Types import Data.Bits import Data.Binary.Put@@ -30,7 +31,7 @@ newtype CONTEXT = MkCONTEXT Xid                   deriving (Eq, Ord, Show, Serialize, Deserialize, XidLike)  -data Range8 = MkRange8{first_Range8 :: CARD8, last_Range8 :: CARD8}+data Range8 = MkRange8{first_Range8 :: Word8, last_Range8 :: Word8}             deriving (Show, Typeable)   instance Serialize Range8 where@@ -45,8 +46,8 @@                last <- deserialize                return (MkRange8 first last)  -data Range16 = MkRange16{first_Range16 :: CARD16,-                         last_Range16 :: CARD16}+data Range16 = MkRange16{first_Range16 :: Word16,+                         last_Range16 :: Word16}              deriving (Show, Typeable)   instance Serialize Range16 where@@ -81,7 +82,7 @@                      core_replies_Range :: Range8, ext_requests_Range :: ExtRange,                      ext_replies_Range :: ExtRange, delivered_events_Range :: Range8,                      device_events_Range :: Range8, errors_Range :: Range8,-                     client_started_Range :: BOOL, client_died_Range :: BOOL}+                     client_started_Range :: Bool, client_died_Range :: Bool}            deriving (Show, Typeable)   instance Serialize Range where@@ -124,7 +125,7 @@                     client_started                     client_died)  -type ElementHeader = CARD8+type ElementHeader = Word8   data HType = HTypeFromServerTime            | HTypeFromClientTime@@ -138,7 +139,7 @@         fromBit 1 = HTypeFromClientTime         fromBit 2 = HTypeFromClientSequence  -type ClientSpec = CARD32+type ClientSpec = Word32   data CS = CSCurrentClients         | CSFutureClients@@ -154,7 +155,7 @@   data ClientInfo = MkClientInfo{client_resource_ClientInfo ::                                ClientSpec,-                               num_ranges_ClientInfo :: CARD32, ranges_ClientInfo :: [Range]}+                               num_ranges_ClientInfo :: Word32, ranges_ClientInfo :: [Range]}                 deriving (Show, Typeable)   instance Serialize ClientInfo where@@ -174,7 +175,7 @@                ranges <- deserializeList (fromIntegral num_ranges)                return (MkClientInfo client_resource num_ranges ranges)  -data BadContext = MkBadContext{invalid_record_BadContext :: CARD32}+data BadContext = MkBadContext{invalid_record_BadContext :: Word32}                 deriving (Show, Typeable)   instance Graphics.XHB.Shared.Error BadContext@@ -186,8 +187,8 @@                return (MkBadContext invalid_record)   data QueryVersion = MkQueryVersion{major_version_QueryVersion ::-                                   CARD16,-                                   minor_version_QueryVersion :: CARD16}+                                   Word16,+                                   minor_version_QueryVersion :: Word16}                   deriving (Show, Typeable)   instance ExtensionRequest QueryVersion where@@ -198,14 +199,14 @@                let size__                      = 4 + size (major_version_QueryVersion x) +                          size (minor_version_QueryVersion x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (major_version_QueryVersion x)                serialize (minor_version_QueryVersion x)                putSkip (requiredPadding size__)   data QueryVersionReply = MkQueryVersionReply{major_version_QueryVersionReply-                                             :: CARD16,-                                             minor_version_QueryVersionReply :: CARD16}+                                             :: Word16,+                                             minor_version_QueryVersionReply :: Word16}                        deriving (Show, Typeable)   instance Deserialize QueryVersionReply where@@ -222,8 +223,8 @@ data CreateContext = MkCreateContext{context_CreateContext ::                                      Graphics.XHB.Gen.Record.Types.CONTEXT,                                      element_header_CreateContext :: ElementHeader,-                                     num_client_specs_CreateContext :: CARD32,-                                     num_ranges_CreateContext :: CARD32,+                                     num_client_specs_CreateContext :: Word32,+                                     num_ranges_CreateContext :: Word32,                                      client_specs_CreateContext :: [ClientSpec],                                      ranges_CreateContext :: [Range]}                    deriving (Show, Typeable)@@ -241,7 +242,7 @@                          + size (num_ranges_CreateContext x)                          + sum (map size (client_specs_CreateContext x))                          + sum (map size (ranges_CreateContext x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_CreateContext x)                serialize (element_header_CreateContext x)                putSkip 3@@ -254,8 +255,8 @@ data RegisterClients = MkRegisterClients{context_RegisterClients ::                                          Graphics.XHB.Gen.Record.Types.CONTEXT,                                          element_header_RegisterClients :: ElementHeader,-                                         num_client_specs_RegisterClients :: CARD32,-                                         num_ranges_RegisterClients :: CARD32,+                                         num_client_specs_RegisterClients :: Word32,+                                         num_ranges_RegisterClients :: Word32,                                          client_specs_RegisterClients :: [ClientSpec],                                          ranges_RegisterClients :: [Range]}                      deriving (Show, Typeable)@@ -273,7 +274,7 @@                          + size (num_ranges_RegisterClients x)                          + sum (map size (client_specs_RegisterClients x))                          + sum (map size (ranges_RegisterClients x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_RegisterClients x)                serialize (element_header_RegisterClients x)                putSkip 3@@ -285,7 +286,7 @@   data UnregisterClients = MkUnregisterClients{context_UnregisterClients                                              :: Graphics.XHB.Gen.Record.Types.CONTEXT,-                                             num_client_specs_UnregisterClients :: CARD32,+                                             num_client_specs_UnregisterClients :: Word32,                                              client_specs_UnregisterClients :: [ClientSpec]}                        deriving (Show, Typeable)  @@ -298,7 +299,7 @@                      = 4 + size (context_UnregisterClients x) +                          size (num_client_specs_UnregisterClients x)                          + sum (map size (client_specs_UnregisterClients x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_UnregisterClients x)                serialize (num_client_specs_UnregisterClients x)                serializeList (client_specs_UnregisterClients x)@@ -314,14 +315,14 @@           = do putWord8 extOpCode                putWord8 4                let size__ = 4 + size (context_GetContext x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_GetContext x)                putSkip (requiredPadding size__)   data GetContextReply = MkGetContextReply{enabled_GetContextReply ::-                                         BOOL,+                                         Bool,                                          element_header_GetContextReply :: ElementHeader,-                                         num_intercepted_clients_GetContextReply :: CARD32,+                                         num_intercepted_clients_GetContextReply :: Word32,                                          intercepted_clients_GetContextReply :: [ClientInfo]}                      deriving (Show, Typeable)  @@ -352,18 +353,18 @@           = do putWord8 extOpCode                putWord8 5                let size__ = 4 + size (context_EnableContext x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_EnableContext x)                putSkip (requiredPadding size__)   data EnableContextReply = MkEnableContextReply{category_EnableContextReply-                                               :: CARD8,+                                               :: Word8,                                                element_header_EnableContextReply :: ElementHeader,-                                               client_swapped_EnableContextReply :: BOOL,-                                               xid_base_EnableContextReply :: CARD32,-                                               server_time_EnableContextReply :: CARD32,-                                               rec_sequence_num_EnableContextReply :: CARD32,-                                               data_EnableContextReply :: [BYTE]}+                                               client_swapped_EnableContextReply :: Bool,+                                               xid_base_EnableContextReply :: Word32,+                                               server_time_EnableContextReply :: Word32,+                                               rec_sequence_num_EnableContextReply :: Word32,+                                               data_EnableContextReply :: [Word8]}                         deriving (Show, Typeable)   instance Deserialize EnableContextReply where@@ -398,7 +399,7 @@           = do putWord8 extOpCode                putWord8 6                let size__ = 4 + size (context_DisableContext x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_DisableContext x)                putSkip (requiredPadding size__)  @@ -412,6 +413,6 @@           = do putWord8 extOpCode                putWord8 7                let size__ = 4 + size (context_FreeContext x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_FreeContext x)                putSkip (requiredPadding size__)
patched/Graphics/XHB/Gen/Render.hs view
@@ -15,6 +15,9 @@ import Graphics.XHB.Connection.Types import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import Data.Binary.Put (runPut) import Graphics.XHB.Shared hiding (Event(..), Error(..)) import Graphics.XHB.Gen.Xproto.Types@@ -26,35 +29,35 @@   queryVersion ::                Graphics.XHB.Connection.Types.Connection ->-                 CARD32 -> CARD32 -> IO (Receipt QueryVersionReply)+                 Word32 -> Word32 -> IO (Receipt QueryVersionReply) queryVersion c client_major_version client_minor_version-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkQueryVersion client_major_version client_minor_version        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   queryPictFormats ::                    Graphics.XHB.Connection.Types.Connection ->                      IO (Receipt QueryPictFormatsReply) queryPictFormats c-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkQueryPictFormats        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   queryPictIndexValues ::                        Graphics.XHB.Connection.Types.Connection ->                          PICTFORMAT -> IO (Receipt QueryPictIndexValuesReply) queryPictIndexValues c format-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkQueryPictIndexValues format        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   createPicture ::@@ -66,7 +69,7 @@   changePicture ::                 Graphics.XHB.Connection.Types.Connection ->-                  PICTURE -> ValueParam CARD32 -> IO ()+                  PICTURE -> ValueParam Word32 -> IO () changePicture c picture value   = do let req = MkChangePicture picture value        putAction <- serializeExtensionRequest c req@@ -217,11 +220,11 @@                Graphics.XHB.Connection.Types.Connection ->                  DRAWABLE -> IO (Receipt QueryFiltersReply) queryFilters c drawable-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkQueryFilters drawable        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   setPictureFilter ::
patched/Graphics/XHB/Gen/Render/Types.hs view
@@ -21,6 +21,7 @@         CreateConicalGradient(..))        where import Data.Word+import Data.Int import Foreign.C.Types import Data.Bits import Data.Binary.Put@@ -263,7 +264,7 @@         fromValue 2 = RepeatPad         fromValue 3 = RepeatReflect  -type GLYPH = CARD32+type GLYPH = Word32   newtype GLYPHSET = MkGLYPHSET Xid                    deriving (Eq, Ord, Show, Serialize, Deserialize, XidLike)@@ -274,17 +275,17 @@ newtype PICTFORMAT = MkPICTFORMAT Xid                      deriving (Eq, Ord, Show, Serialize, Deserialize, XidLike)  -type FIXED = INT32+type FIXED = Int32   data DIRECTFORMAT = MkDIRECTFORMAT{red_shift_DIRECTFORMAT ::-                                   CARD16,-                                   red_mask_DIRECTFORMAT :: CARD16,-                                   green_shift_DIRECTFORMAT :: CARD16,-                                   green_mask_DIRECTFORMAT :: CARD16,-                                   blue_shift_DIRECTFORMAT :: CARD16,-                                   blue_mask_DIRECTFORMAT :: CARD16,-                                   alpha_shift_DIRECTFORMAT :: CARD16,-                                   alpha_mask_DIRECTFORMAT :: CARD16}+                                   Word16,+                                   red_mask_DIRECTFORMAT :: Word16,+                                   green_shift_DIRECTFORMAT :: Word16,+                                   green_mask_DIRECTFORMAT :: Word16,+                                   blue_shift_DIRECTFORMAT :: Word16,+                                   blue_mask_DIRECTFORMAT :: Word16,+                                   alpha_shift_DIRECTFORMAT :: Word16,+                                   alpha_mask_DIRECTFORMAT :: Word16}                   deriving (Show, Typeable)   instance Serialize DIRECTFORMAT where@@ -324,7 +325,7 @@                     alpha_mask)   data PICTFORMINFO = MkPICTFORMINFO{id_PICTFORMINFO :: PICTFORMAT,-                                   type_PICTFORMINFO :: CARD8, depth_PICTFORMINFO :: CARD8,+                                   type_PICTFORMINFO :: Word8, depth_PICTFORMINFO :: Word8,                                    direct_PICTFORMINFO :: DIRECTFORMAT,                                    colormap_PICTFORMINFO :: COLORMAP}                   deriving (Show, Typeable)@@ -370,8 +371,8 @@                format <- deserialize                return (MkPICTVISUAL visual format)  -data PICTDEPTH = MkPICTDEPTH{depth_PICTDEPTH :: CARD8,-                             num_visuals_PICTDEPTH :: CARD16, visuals_PICTDEPTH :: [PICTVISUAL]}+data PICTDEPTH = MkPICTDEPTH{depth_PICTDEPTH :: Word8,+                             num_visuals_PICTDEPTH :: Word16, visuals_PICTDEPTH :: [PICTVISUAL]}                deriving (Show, Typeable)   instance Serialize PICTDEPTH where@@ -394,7 +395,7 @@                visuals <- deserializeList (fromIntegral num_visuals)                return (MkPICTDEPTH depth num_visuals visuals)  -data PICTSCREEN = MkPICTSCREEN{num_depths_PICTSCREEN :: CARD32,+data PICTSCREEN = MkPICTSCREEN{num_depths_PICTSCREEN :: Word32,                                fallback_PICTSCREEN :: PICTFORMAT,                                depths_PICTSCREEN :: [PICTDEPTH]}                 deriving (Show, Typeable)@@ -415,9 +416,9 @@                depths <- deserializeList (fromIntegral num_depths)                return (MkPICTSCREEN num_depths fallback depths)  -data INDEXVALUE = MkINDEXVALUE{pixel_INDEXVALUE :: CARD32,-                               red_INDEXVALUE :: CARD16, green_INDEXVALUE :: CARD16,-                               blue_INDEXVALUE :: CARD16, alpha_INDEXVALUE :: CARD16}+data INDEXVALUE = MkINDEXVALUE{pixel_INDEXVALUE :: Word32,+                               red_INDEXVALUE :: Word16, green_INDEXVALUE :: Word16,+                               blue_INDEXVALUE :: Word16, alpha_INDEXVALUE :: Word16}                 deriving (Show, Typeable)   instance Serialize INDEXVALUE where@@ -442,8 +443,8 @@                alpha <- deserialize                return (MkINDEXVALUE pixel red green blue alpha)  -data COLOR = MkCOLOR{red_COLOR :: CARD16, green_COLOR :: CARD16,-                     blue_COLOR :: CARD16, alpha_COLOR :: CARD16}+data COLOR = MkCOLOR{red_COLOR :: Word16, green_COLOR :: Word16,+                     blue_COLOR :: Word16, alpha_COLOR :: Word16}            deriving (Show, Typeable)   instance Serialize COLOR where@@ -540,10 +541,10 @@                right <- deserialize                return (MkTRAPEZOID top bottom left right)  -data GLYPHINFO = MkGLYPHINFO{width_GLYPHINFO :: CARD16,-                             height_GLYPHINFO :: CARD16, x_GLYPHINFO :: INT16,-                             y_GLYPHINFO :: INT16, x_off_GLYPHINFO :: INT16,-                             y_off_GLYPHINFO :: INT16}+data GLYPHINFO = MkGLYPHINFO{width_GLYPHINFO :: Word16,+                             height_GLYPHINFO :: Word16, x_GLYPHINFO :: Int16,+                             y_GLYPHINFO :: Int16, x_off_GLYPHINFO :: Int16,+                             y_off_GLYPHINFO :: Int16}                deriving (Show, Typeable)   instance Serialize GLYPHINFO where@@ -572,8 +573,8 @@                return (MkGLYPHINFO width height x y x_off y_off)   data QueryVersion = MkQueryVersion{client_major_version_QueryVersion-                                   :: CARD32,-                                   client_minor_version_QueryVersion :: CARD32}+                                   :: Word32,+                                   client_minor_version_QueryVersion :: Word32}                   deriving (Show, Typeable)   instance ExtensionRequest QueryVersion where@@ -584,14 +585,14 @@                let size__                      = 4 + size (client_major_version_QueryVersion x) +                          size (client_minor_version_QueryVersion x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (client_major_version_QueryVersion x)                serialize (client_minor_version_QueryVersion x)                putSkip (requiredPadding size__)   data QueryVersionReply = MkQueryVersionReply{major_version_QueryVersionReply-                                             :: CARD32,-                                             minor_version_QueryVersionReply :: CARD32}+                                             :: Word32,+                                             minor_version_QueryVersionReply :: Word32}                        deriving (Show, Typeable)   instance Deserialize QueryVersionReply where@@ -615,19 +616,19 @@           = do putWord8 extOpCode                putWord8 1                let size__ = 4-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                putSkip (requiredPadding size__)   data QueryPictFormatsReply = MkQueryPictFormatsReply{num_formats_QueryPictFormatsReply-                                                     :: CARD32,-                                                     num_screens_QueryPictFormatsReply :: CARD32,-                                                     num_depths_QueryPictFormatsReply :: CARD32,-                                                     num_visuals_QueryPictFormatsReply :: CARD32,-                                                     num_subpixel_QueryPictFormatsReply :: CARD32,+                                                     :: Word32,+                                                     num_screens_QueryPictFormatsReply :: Word32,+                                                     num_depths_QueryPictFormatsReply :: Word32,+                                                     num_visuals_QueryPictFormatsReply :: Word32,+                                                     num_subpixel_QueryPictFormatsReply :: Word32,                                                      formats_QueryPictFormatsReply ::                                                      [PICTFORMINFO],                                                      screens_QueryPictFormatsReply :: [PICTSCREEN],-                                                     subpixels_QueryPictFormatsReply :: [CARD32]}+                                                     subpixels_QueryPictFormatsReply :: [Word32]}                            deriving (Show, Typeable)   instance Deserialize QueryPictFormatsReply where@@ -664,12 +665,12 @@           = do putWord8 extOpCode                putWord8 2                let size__ = 4 + size (format_QueryPictIndexValues x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (format_QueryPictIndexValues x)                putSkip (requiredPadding size__)   data QueryPictIndexValuesReply = MkQueryPictIndexValuesReply{num_values_QueryPictIndexValuesReply-                                                             :: CARD32,+                                                             :: Word32,                                                              values_QueryPictIndexValuesReply ::                                                              [INDEXVALUE]}                                deriving (Show, Typeable)@@ -689,7 +690,7 @@ data CreatePicture = MkCreatePicture{pid_CreatePicture :: PICTURE,                                      drawable_CreatePicture :: DRAWABLE,                                      format_CreatePicture :: PICTFORMAT,-                                     value_CreatePicture :: ValueParam CARD32}+                                     value_CreatePicture :: ValueParam Word32}                    deriving (Show, Typeable)   instance ExtensionRequest CreatePicture where@@ -701,7 +702,7 @@                      = 4 + size (pid_CreatePicture x) + size (drawable_CreatePicture x)                          + size (format_CreatePicture x)                          + size (value_CreatePicture x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (pid_CreatePicture x)                serialize (drawable_CreatePicture x)                serialize (format_CreatePicture x)@@ -710,7 +711,7 @@   data ChangePicture = MkChangePicture{picture_ChangePicture ::                                      PICTURE,-                                     value_ChangePicture :: ValueParam CARD32}+                                     value_ChangePicture :: ValueParam Word32}                    deriving (Show, Typeable)   instance ExtensionRequest ChangePicture where@@ -720,7 +721,7 @@                putWord8 5                let size__                      = 4 + size (picture_ChangePicture x) + size (value_ChangePicture x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (picture_ChangePicture x)                serialize (value_ChangePicture x)                putSkip (requiredPadding size__)@@ -728,9 +729,9 @@ data SetPictureClipRectangles = MkSetPictureClipRectangles{picture_SetPictureClipRectangles                                                            :: PICTURE,                                                            clip_x_origin_SetPictureClipRectangles ::-                                                           INT16,+                                                           Int16,                                                            clip_y_origin_SetPictureClipRectangles ::-                                                           INT16,+                                                           Int16,                                                            rectangles_SetPictureClipRectangles ::                                                            [RECTANGLE]}                               deriving (Show, Typeable)@@ -745,7 +746,7 @@                          size (clip_x_origin_SetPictureClipRectangles x)                          + size (clip_y_origin_SetPictureClipRectangles x)                          + sum (map size (rectangles_SetPictureClipRectangles x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (picture_SetPictureClipRectangles x)                serialize (clip_x_origin_SetPictureClipRectangles x)                serialize (clip_y_origin_SetPictureClipRectangles x)@@ -761,17 +762,17 @@           = do putWord8 extOpCode                putWord8 7                let size__ = 4 + size (picture_FreePicture x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (picture_FreePicture x)                putSkip (requiredPadding size__)  -data Composite = MkComposite{op_Composite :: CARD8,+data Composite = MkComposite{op_Composite :: Word8,                              src_Composite :: PICTURE, mask_Composite :: PICTURE,-                             dst_Composite :: PICTURE, src_x_Composite :: INT16,-                             src_y_Composite :: INT16, mask_x_Composite :: INT16,-                             mask_y_Composite :: INT16, dst_x_Composite :: INT16,-                             dst_y_Composite :: INT16, width_Composite :: CARD16,-                             height_Composite :: CARD16}+                             dst_Composite :: PICTURE, src_x_Composite :: Int16,+                             src_y_Composite :: Int16, mask_x_Composite :: Int16,+                             mask_y_Composite :: Int16, dst_x_Composite :: Int16,+                             dst_y_Composite :: Int16, width_Composite :: Word16,+                             height_Composite :: Word16}                deriving (Show, Typeable)   instance ExtensionRequest Composite where@@ -791,7 +792,7 @@                          + size (dst_y_Composite x)                          + size (width_Composite x)                          + size (height_Composite x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (op_Composite x)                putSkip 3                serialize (src_Composite x)@@ -807,10 +808,10 @@                serialize (height_Composite x)                putSkip (requiredPadding size__)  -data Trapezoids = MkTrapezoids{op_Trapezoids :: CARD8,+data Trapezoids = MkTrapezoids{op_Trapezoids :: Word8,                                src_Trapezoids :: PICTURE, dst_Trapezoids :: PICTURE,-                               mask_format_Trapezoids :: PICTFORMAT, src_x_Trapezoids :: INT16,-                               src_y_Trapezoids :: INT16, traps_Trapezoids :: [TRAPEZOID]}+                               mask_format_Trapezoids :: PICTFORMAT, src_x_Trapezoids :: Int16,+                               src_y_Trapezoids :: Int16, traps_Trapezoids :: [TRAPEZOID]}                 deriving (Show, Typeable)   instance ExtensionRequest Trapezoids where@@ -825,7 +826,7 @@                          + size (src_x_Trapezoids x)                          + size (src_y_Trapezoids x)                          + sum (map size (traps_Trapezoids x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (op_Trapezoids x)                putSkip 3                serialize (src_Trapezoids x)@@ -836,10 +837,10 @@                serializeList (traps_Trapezoids x)                putSkip (requiredPadding size__)  -data Triangles = MkTriangles{op_Triangles :: CARD8,+data Triangles = MkTriangles{op_Triangles :: Word8,                              src_Triangles :: PICTURE, dst_Triangles :: PICTURE,-                             mask_format_Triangles :: PICTFORMAT, src_x_Triangles :: INT16,-                             src_y_Triangles :: INT16, triangles_Triangles :: [TRIANGLE]}+                             mask_format_Triangles :: PICTFORMAT, src_x_Triangles :: Int16,+                             src_y_Triangles :: Int16, triangles_Triangles :: [TRIANGLE]}                deriving (Show, Typeable)   instance ExtensionRequest Triangles where@@ -854,7 +855,7 @@                          + size (src_x_Triangles x)                          + size (src_y_Triangles x)                          + sum (map size (triangles_Triangles x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (op_Triangles x)                putSkip 3                serialize (src_Triangles x)@@ -865,10 +866,10 @@                serializeList (triangles_Triangles x)                putSkip (requiredPadding size__)  -data TriStrip = MkTriStrip{op_TriStrip :: CARD8,+data TriStrip = MkTriStrip{op_TriStrip :: Word8,                            src_TriStrip :: PICTURE, dst_TriStrip :: PICTURE,-                           mask_format_TriStrip :: PICTFORMAT, src_x_TriStrip :: INT16,-                           src_y_TriStrip :: INT16, points_TriStrip :: [POINTFIX]}+                           mask_format_TriStrip :: PICTFORMAT, src_x_TriStrip :: Int16,+                           src_y_TriStrip :: Int16, points_TriStrip :: [POINTFIX]}               deriving (Show, Typeable)   instance ExtensionRequest TriStrip where@@ -883,7 +884,7 @@                          + size (src_x_TriStrip x)                          + size (src_y_TriStrip x)                          + sum (map size (points_TriStrip x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (op_TriStrip x)                putSkip 3                serialize (src_TriStrip x)@@ -894,9 +895,9 @@                serializeList (points_TriStrip x)                putSkip (requiredPadding size__)  -data TriFan = MkTriFan{op_TriFan :: CARD8, src_TriFan :: PICTURE,+data TriFan = MkTriFan{op_TriFan :: Word8, src_TriFan :: PICTURE,                        dst_TriFan :: PICTURE, mask_format_TriFan :: PICTFORMAT,-                       src_x_TriFan :: INT16, src_y_TriFan :: INT16,+                       src_x_TriFan :: Int16, src_y_TriFan :: Int16,                        points_TriFan :: [POINTFIX]}             deriving (Show, Typeable)  @@ -912,7 +913,7 @@                          + size (src_x_TriFan x)                          + size (src_y_TriFan x)                          + sum (map size (points_TriFan x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (op_TriFan x)                putSkip 3                serialize (src_TriFan x)@@ -935,7 +936,7 @@                putWord8 17                let size__                      = 4 + size (gsid_CreateGlyphSet x) + size (format_CreateGlyphSet x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (gsid_CreateGlyphSet x)                serialize (format_CreateGlyphSet x)                putSkip (requiredPadding size__)@@ -953,7 +954,7 @@                let size__                      = 4 + size (gsid_ReferenceGlyphSet x) +                          size (existing_ReferenceGlyphSet x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (gsid_ReferenceGlyphSet x)                serialize (existing_ReferenceGlyphSet x)                putSkip (requiredPadding size__)@@ -968,13 +969,13 @@           = do putWord8 extOpCode                putWord8 19                let size__ = 4 + size (glyphset_FreeGlyphSet x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (glyphset_FreeGlyphSet x)                putSkip (requiredPadding size__)   data AddGlyphs = MkAddGlyphs{glyphset_AddGlyphs :: GLYPHSET,-                             glyphs_len_AddGlyphs :: CARD32, glyphids_AddGlyphs :: [CARD32],-                             glyphs_AddGlyphs :: [GLYPHINFO], data_AddGlyphs :: [BYTE]}+                             glyphs_len_AddGlyphs :: Word32, glyphids_AddGlyphs :: [Word32],+                             glyphs_AddGlyphs :: [GLYPHINFO], data_AddGlyphs :: [Word8]}                deriving (Show, Typeable)   instance ExtensionRequest AddGlyphs where@@ -987,7 +988,7 @@                          sum (map size (glyphids_AddGlyphs x))                          + sum (map size (glyphs_AddGlyphs x))                          + sum (map size (data_AddGlyphs x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (glyphset_AddGlyphs x)                serialize (glyphs_len_AddGlyphs x)                serializeList (glyphids_AddGlyphs x)@@ -1007,20 +1008,20 @@                let size__                      = 4 + size (glyphset_FreeGlyphs x) +                          sum (map size (glyphs_FreeGlyphs x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (glyphset_FreeGlyphs x)                serializeList (glyphs_FreeGlyphs x)                putSkip (requiredPadding size__)   data CompositeGlyphs8 = MkCompositeGlyphs8{op_CompositeGlyphs8 ::-                                           CARD8,+                                           Word8,                                            src_CompositeGlyphs8 :: PICTURE,                                            dst_CompositeGlyphs8 :: PICTURE,                                            mask_format_CompositeGlyphs8 :: PICTFORMAT,                                            glyphset_CompositeGlyphs8 :: GLYPHSET,-                                           src_x_CompositeGlyphs8 :: INT16,-                                           src_y_CompositeGlyphs8 :: INT16,-                                           glyphcmds_CompositeGlyphs8 :: [BYTE]}+                                           src_x_CompositeGlyphs8 :: Int16,+                                           src_y_CompositeGlyphs8 :: Int16,+                                           glyphcmds_CompositeGlyphs8 :: [Word8]}                       deriving (Show, Typeable)   instance ExtensionRequest CompositeGlyphs8 where@@ -1037,7 +1038,7 @@                          + size (src_x_CompositeGlyphs8 x)                          + size (src_y_CompositeGlyphs8 x)                          + sum (map size (glyphcmds_CompositeGlyphs8 x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (op_CompositeGlyphs8 x)                putSkip 3                serialize (src_CompositeGlyphs8 x)@@ -1050,14 +1051,14 @@                putSkip (requiredPadding size__)   data CompositeGlyphs16 = MkCompositeGlyphs16{op_CompositeGlyphs16-                                             :: CARD8,+                                             :: Word8,                                              src_CompositeGlyphs16 :: PICTURE,                                              dst_CompositeGlyphs16 :: PICTURE,                                              mask_format_CompositeGlyphs16 :: PICTFORMAT,                                              glyphset_CompositeGlyphs16 :: GLYPHSET,-                                             src_x_CompositeGlyphs16 :: INT16,-                                             src_y_CompositeGlyphs16 :: INT16,-                                             glyphcmds_CompositeGlyphs16 :: [BYTE]}+                                             src_x_CompositeGlyphs16 :: Int16,+                                             src_y_CompositeGlyphs16 :: Int16,+                                             glyphcmds_CompositeGlyphs16 :: [Word8]}                        deriving (Show, Typeable)   instance ExtensionRequest CompositeGlyphs16 where@@ -1074,7 +1075,7 @@                          + size (src_x_CompositeGlyphs16 x)                          + size (src_y_CompositeGlyphs16 x)                          + sum (map size (glyphcmds_CompositeGlyphs16 x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (op_CompositeGlyphs16 x)                putSkip 3                serialize (src_CompositeGlyphs16 x)@@ -1087,14 +1088,14 @@                putSkip (requiredPadding size__)   data CompositeGlyphs32 = MkCompositeGlyphs32{op_CompositeGlyphs32-                                             :: CARD8,+                                             :: Word8,                                              src_CompositeGlyphs32 :: PICTURE,                                              dst_CompositeGlyphs32 :: PICTURE,                                              mask_format_CompositeGlyphs32 :: PICTFORMAT,                                              glyphset_CompositeGlyphs32 :: GLYPHSET,-                                             src_x_CompositeGlyphs32 :: INT16,-                                             src_y_CompositeGlyphs32 :: INT16,-                                             glyphcmds_CompositeGlyphs32 :: [BYTE]}+                                             src_x_CompositeGlyphs32 :: Int16,+                                             src_y_CompositeGlyphs32 :: Int16,+                                             glyphcmds_CompositeGlyphs32 :: [Word8]}                        deriving (Show, Typeable)   instance ExtensionRequest CompositeGlyphs32 where@@ -1111,7 +1112,7 @@                          + size (src_x_CompositeGlyphs32 x)                          + size (src_y_CompositeGlyphs32 x)                          + sum (map size (glyphcmds_CompositeGlyphs32 x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (op_CompositeGlyphs32 x)                putSkip 3                serialize (src_CompositeGlyphs32 x)@@ -1123,7 +1124,7 @@                serializeList (glyphcmds_CompositeGlyphs32 x)                putSkip (requiredPadding size__)  -data FillRectangles = MkFillRectangles{op_FillRectangles :: CARD8,+data FillRectangles = MkFillRectangles{op_FillRectangles :: Word8,                                        dst_FillRectangles :: PICTURE, color_FillRectangles :: COLOR,                                        rects_FillRectangles :: [RECTANGLE]}                     deriving (Show, Typeable)@@ -1137,7 +1138,7 @@                      = 4 + size (op_FillRectangles x) + 3 + size (dst_FillRectangles x)                          + size (color_FillRectangles x)                          + sum (map size (rects_FillRectangles x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (op_FillRectangles x)                putSkip 3                serialize (dst_FillRectangles x)@@ -1146,8 +1147,8 @@                putSkip (requiredPadding size__)   data CreateCursor = MkCreateCursor{cid_CreateCursor :: CURSOR,-                                   source_CreateCursor :: PICTURE, x_CreateCursor :: CARD16,-                                   y_CreateCursor :: CARD16}+                                   source_CreateCursor :: PICTURE, x_CreateCursor :: Word16,+                                   y_CreateCursor :: Word16}                   deriving (Show, Typeable)   instance ExtensionRequest CreateCursor where@@ -1159,7 +1160,7 @@                      = 4 + size (cid_CreateCursor x) + size (source_CreateCursor x) +                          size (x_CreateCursor x)                          + size (y_CreateCursor x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (cid_CreateCursor x)                serialize (source_CreateCursor x)                serialize (x_CreateCursor x)@@ -1224,7 +1225,7 @@                let size__                      = 4 + size (picture_SetPictureTransform x) +                          size (transform_SetPictureTransform x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (picture_SetPictureTransform x)                serialize (transform_SetPictureTransform x)                putSkip (requiredPadding size__)@@ -1239,14 +1240,14 @@           = do putWord8 extOpCode                putWord8 29                let size__ = 4 + size (drawable_QueryFilters x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (drawable_QueryFilters x)                putSkip (requiredPadding size__)   data QueryFiltersReply = MkQueryFiltersReply{num_aliases_QueryFiltersReply-                                             :: CARD32,-                                             num_filters_QueryFiltersReply :: CARD32,-                                             aliases_QueryFiltersReply :: [CARD16],+                                             :: Word32,+                                             num_filters_QueryFiltersReply :: Word32,+                                             aliases_QueryFiltersReply :: [Word16],                                              filters_QueryFiltersReply :: [STR]}                        deriving (Show, Typeable)  @@ -1267,7 +1268,7 @@   data SetPictureFilter = MkSetPictureFilter{picture_SetPictureFilter                                            :: PICTURE,-                                           filter_len_SetPictureFilter :: CARD16,+                                           filter_len_SetPictureFilter :: Word16,                                            filter_SetPictureFilter :: [CChar],                                            values_SetPictureFilter :: [FIXED]}                       deriving (Show, Typeable)@@ -1283,7 +1284,7 @@                          + 2                          + sum (map size (filter_SetPictureFilter x))                          + sum (map size (values_SetPictureFilter x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (picture_SetPictureFilter x)                serialize (filter_len_SetPictureFilter x)                putSkip 2@@ -1293,7 +1294,7 @@   data ANIMCURSORELT = MkANIMCURSORELT{cursor_ANIMCURSORELT ::                                      CURSOR,-                                     delay_ANIMCURSORELT :: CARD32}+                                     delay_ANIMCURSORELT :: Word32}                    deriving (Show, Typeable)   instance Serialize ANIMCURSORELT where@@ -1322,7 +1323,7 @@                let size__                      = 4 + size (cid_CreateAnimCursor x) +                          sum (map size (cursors_CreateAnimCursor x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (cid_CreateAnimCursor x)                serializeList (cursors_CreateAnimCursor x)                putSkip (requiredPadding size__)@@ -1362,7 +1363,7 @@                return (MkTRAP top bot)   data AddTraps = MkAddTraps{picture_AddTraps :: PICTURE,-                           x_off_AddTraps :: INT16, y_off_AddTraps :: INT16,+                           x_off_AddTraps :: Int16, y_off_AddTraps :: Int16,                            traps_AddTraps :: [TRAP]}               deriving (Show, Typeable)  @@ -1375,7 +1376,7 @@                      = 4 + size (picture_AddTraps x) + size (x_off_AddTraps x) +                          size (y_off_AddTraps x)                          + sum (map size (traps_AddTraps x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (picture_AddTraps x)                serialize (x_off_AddTraps x)                serialize (y_off_AddTraps x)@@ -1395,7 +1396,7 @@                let size__                      = 4 + size (picture_CreateSolidFill x) +                          size (color_CreateSolidFill x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (picture_CreateSolidFill x)                serialize (color_CreateSolidFill x)                putSkip (requiredPadding size__)@@ -1404,7 +1405,7 @@                                                    :: PICTURE,                                                    p1_CreateLinearGradient :: POINTFIX,                                                    p2_CreateLinearGradient :: POINTFIX,-                                                   num_stops_CreateLinearGradient :: CARD32,+                                                   num_stops_CreateLinearGradient :: Word32,                                                    stops_CreateLinearGradient :: [FIXED],                                                    colors_CreateLinearGradient :: [COLOR]}                           deriving (Show, Typeable)@@ -1421,7 +1422,7 @@                          + size (num_stops_CreateLinearGradient x)                          + sum (map size (stops_CreateLinearGradient x))                          + sum (map size (colors_CreateLinearGradient x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (picture_CreateLinearGradient x)                serialize (p1_CreateLinearGradient x)                serialize (p2_CreateLinearGradient x)@@ -1436,7 +1437,7 @@                                                    outer_CreateRadialGradient :: POINTFIX,                                                    inner_radius_CreateRadialGradient :: FIXED,                                                    outer_radius_CreateRadialGradient :: FIXED,-                                                   num_stops_CreateRadialGradient :: CARD32,+                                                   num_stops_CreateRadialGradient :: Word32,                                                    stops_CreateRadialGradient :: [FIXED],                                                    colors_CreateRadialGradient :: [COLOR]}                           deriving (Show, Typeable)@@ -1455,7 +1456,7 @@                          + size (num_stops_CreateRadialGradient x)                          + sum (map size (stops_CreateRadialGradient x))                          + sum (map size (colors_CreateRadialGradient x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (picture_CreateRadialGradient x)                serialize (inner_CreateRadialGradient x)                serialize (outer_CreateRadialGradient x)@@ -1470,7 +1471,7 @@                                                      :: PICTURE,                                                      center_CreateConicalGradient :: POINTFIX,                                                      angle_CreateConicalGradient :: FIXED,-                                                     num_stops_CreateConicalGradient :: CARD32,+                                                     num_stops_CreateConicalGradient :: Word32,                                                      stops_CreateConicalGradient :: [FIXED],                                                      colors_CreateConicalGradient :: [COLOR]}                            deriving (Show, Typeable)@@ -1487,7 +1488,7 @@                          + size (num_stops_CreateConicalGradient x)                          + sum (map size (stops_CreateConicalGradient x))                          + sum (map size (colors_CreateConicalGradient x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (picture_CreateConicalGradient x)                serialize (center_CreateConicalGradient x)                serialize (angle_CreateConicalGradient x)
patched/Graphics/XHB/Gen/Res.hs view
@@ -8,6 +8,9 @@ import Graphics.XHB.Connection.Types import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import Data.Binary.Put (runPut) import Graphics.XHB.Shared hiding (Event(..), Error(..)) import Graphics.XHB.Gen.Xproto.Types@@ -19,44 +22,44 @@   queryVersion ::                Graphics.XHB.Connection.Types.Connection ->-                 CARD8 -> CARD8 -> IO (Receipt QueryVersionReply)+                 Word8 -> Word8 -> IO (Receipt QueryVersionReply) queryVersion c client_major client_minor-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkQueryVersion client_major client_minor        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   queryClients ::                Graphics.XHB.Connection.Types.Connection ->                  IO (Receipt QueryClientsReply) queryClients c-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkQueryClients        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   queryClientResources ::                        Graphics.XHB.Connection.Types.Connection ->-                         CARD32 -> IO (Receipt QueryClientResourcesReply)+                         Word32 -> IO (Receipt QueryClientResourcesReply) queryClientResources c xid-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkQueryClientResources xid        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   queryClientPixmapBytes ::                          Graphics.XHB.Connection.Types.Connection ->-                           CARD32 -> IO (Receipt QueryClientPixmapBytesReply)+                           Word32 -> IO (Receipt QueryClientPixmapBytesReply) queryClientPixmapBytes c xid-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkQueryClientPixmapBytes xid        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt
patched/Graphics/XHB/Gen/Res/Types.hs view
@@ -6,6 +6,7 @@         QueryClientPixmapBytesReply(..))        where import Data.Word+import Data.Int import Foreign.C.Types import Data.Bits import Data.Binary.Put@@ -26,8 +27,8 @@ deserializeEvent :: Word8 -> Maybe (Get SomeEvent) deserializeEvent _ = Nothing  -data Client = MkClient{resource_base_Client :: CARD32,-                       resource_mask_Client :: CARD32}+data Client = MkClient{resource_base_Client :: Word32,+                       resource_mask_Client :: Word32}             deriving (Show, Typeable)   instance Serialize Client where@@ -44,7 +45,7 @@                return (MkClient resource_base resource_mask)   data Type = MkType{resource_type_Type :: ATOM,-                   count_Type :: CARD32}+                   count_Type :: Word32}           deriving (Show, Typeable)   instance Serialize Type where@@ -60,8 +61,8 @@                return (MkType resource_type count)   data QueryVersion = MkQueryVersion{client_major_QueryVersion ::-                                   CARD8,-                                   client_minor_QueryVersion :: CARD8}+                                   Word8,+                                   client_minor_QueryVersion :: Word8}                   deriving (Show, Typeable)   instance ExtensionRequest QueryVersion where@@ -72,14 +73,14 @@                let size__                      = 4 + size (client_major_QueryVersion x) +                          size (client_minor_QueryVersion x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (client_major_QueryVersion x)                serialize (client_minor_QueryVersion x)                putSkip (requiredPadding size__)   data QueryVersionReply = MkQueryVersionReply{server_major_QueryVersionReply-                                             :: CARD16,-                                             server_minor_QueryVersionReply :: CARD16}+                                             :: Word16,+                                             server_minor_QueryVersionReply :: Word16}                        deriving (Show, Typeable)   instance Deserialize QueryVersionReply where@@ -102,11 +103,11 @@           = do putWord8 extOpCode                putWord8 1                let size__ = 4-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                putSkip (requiredPadding size__)   data QueryClientsReply = MkQueryClientsReply{num_clients_QueryClientsReply-                                             :: CARD32,+                                             :: Word32,                                              clients_QueryClientsReply :: [Client]}                        deriving (Show, Typeable)  @@ -123,7 +124,7 @@                return (MkQueryClientsReply num_clients clients)   data QueryClientResources = MkQueryClientResources{xid_QueryClientResources-                                                   :: CARD32}+                                                   :: Word32}                           deriving (Show, Typeable)   instance ExtensionRequest QueryClientResources where@@ -132,12 +133,12 @@           = do putWord8 extOpCode                putWord8 2                let size__ = 4 + size (xid_QueryClientResources x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (xid_QueryClientResources x)                putSkip (requiredPadding size__)   data QueryClientResourcesReply = MkQueryClientResourcesReply{num_types_QueryClientResourcesReply-                                                             :: CARD32,+                                                             :: Word32,                                                              types_QueryClientResourcesReply ::                                                              [Type]}                                deriving (Show, Typeable)@@ -155,7 +156,7 @@                return (MkQueryClientResourcesReply num_types types)   data QueryClientPixmapBytes = MkQueryClientPixmapBytes{xid_QueryClientPixmapBytes-                                                       :: CARD32}+                                                       :: Word32}                             deriving (Show, Typeable)   instance ExtensionRequest QueryClientPixmapBytes where@@ -164,14 +165,14 @@           = do putWord8 extOpCode                putWord8 3                let size__ = 4 + size (xid_QueryClientPixmapBytes x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (xid_QueryClientPixmapBytes x)                putSkip (requiredPadding size__)   data QueryClientPixmapBytesReply = MkQueryClientPixmapBytesReply{bytes_QueryClientPixmapBytesReply-                                                                 :: CARD32,+                                                                 :: Word32,                                                                  bytes_overflow_QueryClientPixmapBytesReply-                                                                 :: CARD32}+                                                                 :: Word32}                                  deriving (Show, Typeable)   instance Deserialize QueryClientPixmapBytesReply where
patched/Graphics/XHB/Gen/SELinux.hs view
@@ -16,6 +16,9 @@ import Graphics.XHB.Connection.Types import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import Data.Binary.Put (runPut) import Graphics.XHB.Shared hiding (Event(..), Error(..)) import Graphics.XHB.Gen.Xproto.Types@@ -28,18 +31,18 @@   queryVersion ::                Graphics.XHB.Connection.Types.Connection ->-                 CARD8 -> CARD8 -> IO (Receipt QueryVersionReply)+                 Word8 -> Word8 -> IO (Receipt QueryVersionReply) queryVersion c client_major client_minor-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkQueryVersion client_major client_minor        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   setDeviceCreateContext ::                          Graphics.XHB.Connection.Types.Connection ->-                           CARD32 -> [CChar] -> IO ()+                           Word32 -> [CChar] -> IO () setDeviceCreateContext c context_len context   = do let req = MkSetDeviceCreateContext context_len context        putAction <- serializeExtensionRequest c req@@ -50,11 +53,11 @@                          Graphics.XHB.Connection.Types.Connection ->                            IO (Receipt GetDeviceCreateContextReply) getDeviceCreateContext c-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetDeviceCreateContext        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   setDeviceContext ::@@ -67,18 +70,18 @@   getDeviceContext ::                    Graphics.XHB.Connection.Types.Connection ->-                     CARD32 -> IO (Receipt GetDeviceContextReply)+                     Word32 -> IO (Receipt GetDeviceContextReply) getDeviceContext c device-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetDeviceContext device        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   setWindowCreateContext ::                          Graphics.XHB.Connection.Types.Connection ->-                           CARD32 -> [CChar] -> IO ()+                           Word32 -> [CChar] -> IO () setWindowCreateContext c context_len context   = do let req = MkSetWindowCreateContext context_len context        putAction <- serializeExtensionRequest c req@@ -89,27 +92,27 @@                          Graphics.XHB.Connection.Types.Connection ->                            IO (Receipt GetWindowCreateContextReply) getWindowCreateContext c-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetWindowCreateContext        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getWindowContext ::                    Graphics.XHB.Connection.Types.Connection ->                      WINDOW -> IO (Receipt GetWindowContextReply) getWindowContext c window-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetWindowContext window        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   setPropertyCreateContext ::                            Graphics.XHB.Connection.Types.Connection ->-                             CARD32 -> [CChar] -> IO ()+                             Word32 -> [CChar] -> IO () setPropertyCreateContext c context_len context   = do let req = MkSetPropertyCreateContext context_len context        putAction <- serializeExtensionRequest c req@@ -120,16 +123,16 @@                            Graphics.XHB.Connection.Types.Connection ->                              IO (Receipt GetPropertyCreateContextReply) getPropertyCreateContext c-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetPropertyCreateContext        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   setPropertyUseContext ::                         Graphics.XHB.Connection.Types.Connection ->-                          CARD32 -> [CChar] -> IO ()+                          Word32 -> [CChar] -> IO () setPropertyUseContext c context_len context   = do let req = MkSetPropertyUseContext context_len context        putAction <- serializeExtensionRequest c req@@ -140,49 +143,49 @@                         Graphics.XHB.Connection.Types.Connection ->                           IO (Receipt GetPropertyUseContextReply) getPropertyUseContext c-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetPropertyUseContext        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getPropertyContext ::                      Graphics.XHB.Connection.Types.Connection ->                        WINDOW -> ATOM -> IO (Receipt GetPropertyContextReply) getPropertyContext c window property-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetPropertyContext window property        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getPropertyDataContext ::                          Graphics.XHB.Connection.Types.Connection ->                            WINDOW -> ATOM -> IO (Receipt GetPropertyDataContextReply) getPropertyDataContext c window property-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetPropertyDataContext window property        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   listProperties ::                  Graphics.XHB.Connection.Types.Connection ->                    WINDOW -> IO (Receipt ListPropertiesReply) listProperties c window-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkListProperties window        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   setSelectionCreateContext ::                             Graphics.XHB.Connection.Types.Connection ->-                              CARD32 -> [CChar] -> IO ()+                              Word32 -> [CChar] -> IO () setSelectionCreateContext c context_len context   = do let req = MkSetSelectionCreateContext context_len context        putAction <- serializeExtensionRequest c req@@ -193,16 +196,16 @@                             Graphics.XHB.Connection.Types.Connection ->                               IO (Receipt GetSelectionCreateContextReply) getSelectionCreateContext c-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetSelectionCreateContext        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   setSelectionUseContext ::                          Graphics.XHB.Connection.Types.Connection ->-                           CARD32 -> [CChar] -> IO ()+                           Word32 -> [CChar] -> IO () setSelectionUseContext c context_len context   = do let req = MkSetSelectionUseContext context_len context        putAction <- serializeExtensionRequest c req@@ -213,53 +216,53 @@                          Graphics.XHB.Connection.Types.Connection ->                            IO (Receipt GetSelectionUseContextReply) getSelectionUseContext c-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetSelectionUseContext        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getSelectionContext ::                       Graphics.XHB.Connection.Types.Connection ->                         ATOM -> IO (Receipt GetSelectionContextReply) getSelectionContext c selection-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetSelectionContext selection        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getSelectionDataContext ::                           Graphics.XHB.Connection.Types.Connection ->                             ATOM -> IO (Receipt GetSelectionDataContextReply) getSelectionDataContext c selection-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetSelectionDataContext selection        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   listSelections ::                  Graphics.XHB.Connection.Types.Connection ->                    IO (Receipt ListSelectionsReply) listSelections c-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkListSelections        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getClientContext ::                    Graphics.XHB.Connection.Types.Connection ->-                     CARD32 -> IO (Receipt GetClientContextReply)+                     Word32 -> IO (Receipt GetClientContextReply) getClientContext c resource-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetClientContext resource        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt
patched/Graphics/XHB/Gen/SELinux/Types.hs view
@@ -21,6 +21,7 @@         GetClientContextReply(..))        where import Data.Word+import Data.Int import Foreign.C.Types import Data.Bits import Data.Binary.Put@@ -43,8 +44,8 @@ deserializeEvent _ = Nothing   data QueryVersion = MkQueryVersion{client_major_QueryVersion ::-                                   CARD8,-                                   client_minor_QueryVersion :: CARD8}+                                   Word8,+                                   client_minor_QueryVersion :: Word8}                   deriving (Show, Typeable)   instance ExtensionRequest QueryVersion where@@ -55,14 +56,14 @@                let size__                      = 4 + size (client_major_QueryVersion x) +                          size (client_minor_QueryVersion x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (client_major_QueryVersion x)                serialize (client_minor_QueryVersion x)                putSkip (requiredPadding size__)   data QueryVersionReply = MkQueryVersionReply{server_major_QueryVersionReply-                                             :: CARD16,-                                             server_minor_QueryVersionReply :: CARD16}+                                             :: Word16,+                                             server_minor_QueryVersionReply :: Word16}                        deriving (Show, Typeable)   instance Deserialize QueryVersionReply where@@ -77,7 +78,7 @@                return (MkQueryVersionReply server_major server_minor)   data SetDeviceCreateContext = MkSetDeviceCreateContext{context_len_SetDeviceCreateContext-                                                       :: CARD32,+                                                       :: Word32,                                                        context_SetDeviceCreateContext :: [CChar]}                             deriving (Show, Typeable)  @@ -89,7 +90,7 @@                let size__                      = 4 + size (context_len_SetDeviceCreateContext x) +                          sum (map size (context_SetDeviceCreateContext x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_len_SetDeviceCreateContext x)                serializeList (context_SetDeviceCreateContext x)                putSkip (requiredPadding size__)@@ -103,11 +104,11 @@           = do putWord8 extOpCode                putWord8 2                let size__ = 4-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                putSkip (requiredPadding size__)   data GetDeviceCreateContextReply = MkGetDeviceCreateContextReply{context_len_GetDeviceCreateContextReply-                                                                 :: CARD32,+                                                                 :: Word32,                                                                  context_GetDeviceCreateContextReply                                                                  :: [CChar]}                                  deriving (Show, Typeable)@@ -125,8 +126,8 @@                return (MkGetDeviceCreateContextReply context_len context)   data SetDeviceContext = MkSetDeviceContext{device_SetDeviceContext-                                           :: CARD32,-                                           context_len_SetDeviceContext :: CARD32,+                                           :: Word32,+                                           context_len_SetDeviceContext :: Word32,                                            context_SetDeviceContext :: [CChar]}                       deriving (Show, Typeable)  @@ -139,14 +140,14 @@                      = 4 + size (device_SetDeviceContext x) +                          size (context_len_SetDeviceContext x)                          + sum (map size (context_SetDeviceContext x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (device_SetDeviceContext x)                serialize (context_len_SetDeviceContext x)                serializeList (context_SetDeviceContext x)                putSkip (requiredPadding size__)   data GetDeviceContext = MkGetDeviceContext{device_GetDeviceContext-                                           :: CARD32}+                                           :: Word32}                       deriving (Show, Typeable)   instance ExtensionRequest GetDeviceContext where@@ -155,12 +156,12 @@           = do putWord8 extOpCode                putWord8 4                let size__ = 4 + size (device_GetDeviceContext x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (device_GetDeviceContext x)                putSkip (requiredPadding size__)   data GetDeviceContextReply = MkGetDeviceContextReply{context_len_GetDeviceContextReply-                                                     :: CARD32,+                                                     :: Word32,                                                      context_GetDeviceContextReply :: [CChar]}                            deriving (Show, Typeable)  @@ -177,7 +178,7 @@                return (MkGetDeviceContextReply context_len context)   data SetWindowCreateContext = MkSetWindowCreateContext{context_len_SetWindowCreateContext-                                                       :: CARD32,+                                                       :: Word32,                                                        context_SetWindowCreateContext :: [CChar]}                             deriving (Show, Typeable)  @@ -189,7 +190,7 @@                let size__                      = 4 + size (context_len_SetWindowCreateContext x) +                          sum (map size (context_SetWindowCreateContext x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_len_SetWindowCreateContext x)                serializeList (context_SetWindowCreateContext x)                putSkip (requiredPadding size__)@@ -203,11 +204,11 @@           = do putWord8 extOpCode                putWord8 6                let size__ = 4-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                putSkip (requiredPadding size__)   data GetWindowCreateContextReply = MkGetWindowCreateContextReply{context_len_GetWindowCreateContextReply-                                                                 :: CARD32,+                                                                 :: Word32,                                                                  context_GetWindowCreateContextReply                                                                  :: [CChar]}                                  deriving (Show, Typeable)@@ -234,12 +235,12 @@           = do putWord8 extOpCode                putWord8 7                let size__ = 4 + size (window_GetWindowContext x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (window_GetWindowContext x)                putSkip (requiredPadding size__)   data GetWindowContextReply = MkGetWindowContextReply{context_len_GetWindowContextReply-                                                     :: CARD32,+                                                     :: Word32,                                                      context_GetWindowContextReply :: [CChar]}                            deriving (Show, Typeable)  @@ -256,8 +257,8 @@                return (MkGetWindowContextReply context_len context)   data ListItem = MkListItem{name_ListItem :: ATOM,-                           object_context_len_ListItem :: CARD32,-                           data_context_len_ListItem :: CARD32,+                           object_context_len_ListItem :: Word32,+                           data_context_len_ListItem :: Word32,                            object_context_ListItem :: [CChar],                            data_context_ListItem :: [CChar]}               deriving (Show, Typeable)@@ -287,7 +288,7 @@                     data_context)   data SetPropertyCreateContext = MkSetPropertyCreateContext{context_len_SetPropertyCreateContext-                                                           :: CARD32,+                                                           :: Word32,                                                            context_SetPropertyCreateContext ::                                                            [CChar]}                               deriving (Show, Typeable)@@ -300,7 +301,7 @@                let size__                      = 4 + size (context_len_SetPropertyCreateContext x) +                          sum (map size (context_SetPropertyCreateContext x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_len_SetPropertyCreateContext x)                serializeList (context_SetPropertyCreateContext x)                putSkip (requiredPadding size__)@@ -314,11 +315,11 @@           = do putWord8 extOpCode                putWord8 9                let size__ = 4-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                putSkip (requiredPadding size__)   data GetPropertyCreateContextReply = MkGetPropertyCreateContextReply{context_len_GetPropertyCreateContextReply-                                                                     :: CARD32,+                                                                     :: Word32,                                                                      context_GetPropertyCreateContextReply                                                                      :: [CChar]}                                    deriving (Show, Typeable)@@ -336,7 +337,7 @@                return (MkGetPropertyCreateContextReply context_len context)   data SetPropertyUseContext = MkSetPropertyUseContext{context_len_SetPropertyUseContext-                                                     :: CARD32,+                                                     :: Word32,                                                      context_SetPropertyUseContext :: [CChar]}                            deriving (Show, Typeable)  @@ -348,7 +349,7 @@                let size__                      = 4 + size (context_len_SetPropertyUseContext x) +                          sum (map size (context_SetPropertyUseContext x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_len_SetPropertyUseContext x)                serializeList (context_SetPropertyUseContext x)                putSkip (requiredPadding size__)@@ -362,11 +363,11 @@           = do putWord8 extOpCode                putWord8 11                let size__ = 4-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                putSkip (requiredPadding size__)   data GetPropertyUseContextReply = MkGetPropertyUseContextReply{context_len_GetPropertyUseContextReply-                                                               :: CARD32,+                                                               :: Word32,                                                                context_GetPropertyUseContextReply ::                                                                [CChar]}                                 deriving (Show, Typeable)@@ -396,13 +397,13 @@                let size__                      = 4 + size (window_GetPropertyContext x) +                          size (property_GetPropertyContext x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (window_GetPropertyContext x)                serialize (property_GetPropertyContext x)                putSkip (requiredPadding size__)   data GetPropertyContextReply = MkGetPropertyContextReply{context_len_GetPropertyContextReply-                                                         :: CARD32,+                                                         :: Word32,                                                          context_GetPropertyContextReply :: [CChar]}                              deriving (Show, Typeable)  @@ -431,13 +432,13 @@                let size__                      = 4 + size (window_GetPropertyDataContext x) +                          size (property_GetPropertyDataContext x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (window_GetPropertyDataContext x)                serialize (property_GetPropertyDataContext x)                putSkip (requiredPadding size__)   data GetPropertyDataContextReply = MkGetPropertyDataContextReply{context_len_GetPropertyDataContextReply-                                                                 :: CARD32,+                                                                 :: Word32,                                                                  context_GetPropertyDataContextReply                                                                  :: [CChar]}                                  deriving (Show, Typeable)@@ -464,12 +465,12 @@           = do putWord8 extOpCode                putWord8 14                let size__ = 4 + size (window_ListProperties x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (window_ListProperties x)                putSkip (requiredPadding size__)   data ListPropertiesReply = MkListPropertiesReply{properties_len_ListPropertiesReply-                                                 :: CARD32,+                                                 :: Word32,                                                  properties_ListPropertiesReply :: [ListItem]}                          deriving (Show, Typeable)  @@ -486,7 +487,7 @@                return (MkListPropertiesReply properties_len properties)   data SetSelectionCreateContext = MkSetSelectionCreateContext{context_len_SetSelectionCreateContext-                                                             :: CARD32,+                                                             :: Word32,                                                              context_SetSelectionCreateContext ::                                                              [CChar]}                                deriving (Show, Typeable)@@ -499,7 +500,7 @@                let size__                      = 4 + size (context_len_SetSelectionCreateContext x) +                          sum (map size (context_SetSelectionCreateContext x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_len_SetSelectionCreateContext x)                serializeList (context_SetSelectionCreateContext x)                putSkip (requiredPadding size__)@@ -513,11 +514,11 @@           = do putWord8 extOpCode                putWord8 16                let size__ = 4-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                putSkip (requiredPadding size__)   data GetSelectionCreateContextReply = MkGetSelectionCreateContextReply{context_len_GetSelectionCreateContextReply-                                                                       :: CARD32,+                                                                       :: Word32,                                                                        context_GetSelectionCreateContextReply                                                                        :: [CChar]}                                     deriving (Show, Typeable)@@ -535,7 +536,7 @@                return (MkGetSelectionCreateContextReply context_len context)   data SetSelectionUseContext = MkSetSelectionUseContext{context_len_SetSelectionUseContext-                                                       :: CARD32,+                                                       :: Word32,                                                        context_SetSelectionUseContext :: [CChar]}                             deriving (Show, Typeable)  @@ -547,7 +548,7 @@                let size__                      = 4 + size (context_len_SetSelectionUseContext x) +                          sum (map size (context_SetSelectionUseContext x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_len_SetSelectionUseContext x)                serializeList (context_SetSelectionUseContext x)                putSkip (requiredPadding size__)@@ -561,11 +562,11 @@           = do putWord8 extOpCode                putWord8 18                let size__ = 4-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                putSkip (requiredPadding size__)   data GetSelectionUseContextReply = MkGetSelectionUseContextReply{context_len_GetSelectionUseContextReply-                                                                 :: CARD32,+                                                                 :: Word32,                                                                  context_GetSelectionUseContextReply                                                                  :: [CChar]}                                  deriving (Show, Typeable)@@ -592,12 +593,12 @@           = do putWord8 extOpCode                putWord8 19                let size__ = 4 + size (selection_GetSelectionContext x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (selection_GetSelectionContext x)                putSkip (requiredPadding size__)   data GetSelectionContextReply = MkGetSelectionContextReply{context_len_GetSelectionContextReply-                                                           :: CARD32,+                                                           :: Word32,                                                            context_GetSelectionContextReply ::                                                            [CChar]}                               deriving (Show, Typeable)@@ -624,12 +625,12 @@           = do putWord8 extOpCode                putWord8 20                let size__ = 4 + size (selection_GetSelectionDataContext x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (selection_GetSelectionDataContext x)                putSkip (requiredPadding size__)   data GetSelectionDataContextReply = MkGetSelectionDataContextReply{context_len_GetSelectionDataContextReply-                                                                   :: CARD32,+                                                                   :: Word32,                                                                    context_GetSelectionDataContextReply                                                                    :: [CChar]}                                   deriving (Show, Typeable)@@ -655,11 +656,11 @@           = do putWord8 extOpCode                putWord8 21                let size__ = 4-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                putSkip (requiredPadding size__)   data ListSelectionsReply = MkListSelectionsReply{selections_len_ListSelectionsReply-                                                 :: CARD32,+                                                 :: Word32,                                                  selections_ListSelectionsReply :: [ListItem]}                          deriving (Show, Typeable)  @@ -676,7 +677,7 @@                return (MkListSelectionsReply selections_len selections)   data GetClientContext = MkGetClientContext{resource_GetClientContext-                                           :: CARD32}+                                           :: Word32}                       deriving (Show, Typeable)   instance ExtensionRequest GetClientContext where@@ -685,12 +686,12 @@           = do putWord8 extOpCode                putWord8 22                let size__ = 4 + size (resource_GetClientContext x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (resource_GetClientContext x)                putSkip (requiredPadding size__)   data GetClientContextReply = MkGetClientContextReply{context_len_GetClientContextReply-                                                     :: CARD32,+                                                     :: Word32,                                                      context_GetClientContextReply :: [CChar]}                            deriving (Show, Typeable)  
patched/Graphics/XHB/Gen/ScreenSaver.hs view
@@ -9,6 +9,9 @@ import Graphics.XHB.Connection.Types import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import Data.Binary.Put (runPut) import Graphics.XHB.Shared hiding (Event(..), Error(..)) import Graphics.XHB.Gen.Xproto.Types@@ -20,29 +23,29 @@   queryVersion ::                Graphics.XHB.Connection.Types.Connection ->-                 CARD8 -> CARD8 -> IO (Receipt QueryVersionReply)+                 Word8 -> Word8 -> IO (Receipt QueryVersionReply) queryVersion c client_major_version client_minor_version-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkQueryVersion client_major_version client_minor_version        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   queryInfo ::             Graphics.XHB.Connection.Types.Connection ->               DRAWABLE -> IO (Receipt QueryInfoReply) queryInfo c drawable-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkQueryInfo drawable        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   selectInput ::               Graphics.XHB.Connection.Types.Connection ->-                DRAWABLE -> CARD32 -> IO ()+                DRAWABLE -> Word32 -> IO () selectInput c drawable event_mask   = do let req = MkSelectInput drawable event_mask        putAction <- serializeExtensionRequest c req@@ -65,7 +68,7 @@        sendRequest c chunk   suspend ::-          Graphics.XHB.Connection.Types.Connection -> BOOL -> IO ()+          Graphics.XHB.Connection.Types.Connection -> Bool -> IO () suspend c suspend   = do let req = MkSuspend suspend        putAction <- serializeExtensionRequest c req
patched/Graphics/XHB/Gen/ScreenSaver/Types.hs view
@@ -5,6 +5,7 @@         UnsetAttributes(..), Suspend(..), Notify(..))        where import Data.Word+import Data.Int import Foreign.C.Types import Data.Bits import Data.Binary.Put@@ -64,8 +65,8 @@         fromValue 3 = StateDisabled   data QueryVersion = MkQueryVersion{client_major_version_QueryVersion-                                   :: CARD8,-                                   client_minor_version_QueryVersion :: CARD8}+                                   :: Word8,+                                   client_minor_version_QueryVersion :: Word8}                   deriving (Show, Typeable)   instance ExtensionRequest QueryVersion where@@ -77,15 +78,15 @@                      = 4 + size (client_major_version_QueryVersion x) +                          size (client_minor_version_QueryVersion x)                          + 2-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (client_major_version_QueryVersion x)                serialize (client_minor_version_QueryVersion x)                putSkip 2                putSkip (requiredPadding size__)   data QueryVersionReply = MkQueryVersionReply{server_major_version_QueryVersionReply-                                             :: CARD16,-                                             server_minor_version_QueryVersionReply :: CARD16}+                                             :: Word16,+                                             server_minor_version_QueryVersionReply :: Word16}                        deriving (Show, Typeable)   instance Deserialize QueryVersionReply where@@ -110,17 +111,17 @@           = do putWord8 extOpCode                putWord8 1                let size__ = 4 + size (drawable_QueryInfo x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (drawable_QueryInfo x)                putSkip (requiredPadding size__)   data QueryInfoReply = MkQueryInfoReply{state_QueryInfoReply ::-                                       CARD8,+                                       Word8,                                        saver_window_QueryInfoReply :: WINDOW,-                                       ms_until_server_QueryInfoReply :: CARD32,-                                       ms_since_user_input_QueryInfoReply :: CARD32,-                                       event_mask_QueryInfoReply :: CARD32,-                                       kind_QueryInfoReply :: BYTE}+                                       ms_until_server_QueryInfoReply :: Word32,+                                       ms_since_user_input_QueryInfoReply :: Word32,+                                       event_mask_QueryInfoReply :: Word32,+                                       kind_QueryInfoReply :: Word8}                     deriving (Show, Typeable)   instance Deserialize QueryInfoReply where@@ -143,7 +144,7 @@                     kind)   data SelectInput = MkSelectInput{drawable_SelectInput :: DRAWABLE,-                                 event_mask_SelectInput :: CARD32}+                                 event_mask_SelectInput :: Word32}                  deriving (Show, Typeable)   instance ExtensionRequest SelectInput where@@ -154,19 +155,19 @@                let size__                      = 4 + size (drawable_SelectInput x) +                          size (event_mask_SelectInput x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (drawable_SelectInput x)                serialize (event_mask_SelectInput x)                putSkip (requiredPadding size__)   data SetAttributes = MkSetAttributes{drawable_SetAttributes ::                                      DRAWABLE,-                                     x_SetAttributes :: INT16, y_SetAttributes :: INT16,-                                     width_SetAttributes :: CARD16, height_SetAttributes :: CARD16,-                                     border_width_SetAttributes :: CARD16,-                                     class_SetAttributes :: BYTE, depth_SetAttributes :: CARD8,+                                     x_SetAttributes :: Int16, y_SetAttributes :: Int16,+                                     width_SetAttributes :: Word16, height_SetAttributes :: Word16,+                                     border_width_SetAttributes :: Word16,+                                     class_SetAttributes :: Word8, depth_SetAttributes :: Word8,                                      visual_SetAttributes :: VISUALID,-                                     value_SetAttributes :: ValueParam CARD32}+                                     value_SetAttributes :: ValueParam Word32}                    deriving (Show, Typeable)   instance ExtensionRequest SetAttributes where@@ -184,7 +185,7 @@                          + size (depth_SetAttributes x)                          + size (visual_SetAttributes x)                          + size (value_SetAttributes x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (drawable_SetAttributes x)                serialize (x_SetAttributes x)                serialize (y_SetAttributes x)@@ -207,11 +208,11 @@           = do putWord8 extOpCode                putWord8 4                let size__ = 4 + size (drawable_UnsetAttributes x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (drawable_UnsetAttributes x)                putSkip (requiredPadding size__)  -data Suspend = MkSuspend{suspend_Suspend :: BOOL}+data Suspend = MkSuspend{suspend_Suspend :: Bool}              deriving (Show, Typeable)   instance ExtensionRequest Suspend where@@ -220,15 +221,15 @@           = do putWord8 extOpCode                putWord8 5                let size__ = 4 + size (suspend_Suspend x) + 3-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (suspend_Suspend x)                putSkip 3                putSkip (requiredPadding size__)  -data Notify = MkNotify{code_Notify :: CARD8, state_Notify :: BYTE,-                       sequence_number_Notify :: CARD16, time_Notify :: TIMESTAMP,+data Notify = MkNotify{code_Notify :: Word8, state_Notify :: Word8,+                       sequence_number_Notify :: Word16, time_Notify :: TIMESTAMP,                        root_Notify :: WINDOW, window_Notify :: WINDOW,-                       kind_Notify :: BYTE, forced_Notify :: BOOL}+                       kind_Notify :: Word8, forced_Notify :: Bool}             deriving (Show, Typeable)   instance Graphics.XHB.Shared.Event Notify
patched/Graphics/XHB/Gen/Shape.hs view
@@ -9,6 +9,9 @@ import Graphics.XHB.Connection.Types import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import Data.Binary.Put (runPut) import Graphics.XHB.Shared hiding (Event(..), Error(..)) import Graphics.XHB.Gen.Xproto.Types@@ -22,11 +25,11 @@                Graphics.XHB.Connection.Types.Connection ->                  IO (Receipt QueryVersionReply) queryVersion c-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkQueryVersion        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   rectangles ::@@ -60,15 +63,15 @@                Graphics.XHB.Connection.Types.Connection ->                  WINDOW -> IO (Receipt QueryExtentsReply) queryExtents c destination_window-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkQueryExtents destination_window        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   selectInput ::-              Graphics.XHB.Connection.Types.Connection -> WINDOW -> BOOL -> IO ()+              Graphics.XHB.Connection.Types.Connection -> WINDOW -> Bool -> IO () selectInput c destination_window enable   = do let req = MkSelectInput destination_window enable        putAction <- serializeExtensionRequest c req@@ -77,22 +80,23 @@   inputSelected ::                 Graphics.XHB.Connection.Types.Connection ->-                  WINDOW -> IO (Receipt InputSelectedReply)+                  WINDOW -> IO (Receipt Bool) inputSelected c destination_window-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet (enabled_InputSelectedReply `fmap` deserialize))        let req = MkInputSelected destination_window        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getRectangles ::                 Graphics.XHB.Connection.Types.Connection ->                   WINDOW -> KIND -> IO (Receipt GetRectanglesReply) getRectangles c window source_kind-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetRectangles window source_kind        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt
patched/Graphics/XHB/Gen/Shape/Types.hs view
@@ -7,6 +7,7 @@         GetRectanglesReply(..))        where import Data.Word+import Data.Int import Foreign.C.Types import Data.Bits import Data.Binary.Put@@ -29,9 +30,9 @@   = return (liftM toEvent (deserialize :: Get Notify)) deserializeEvent _ = Nothing  -type OP = CARD8+type OP = Word8  -type KIND = CARD8+type KIND = Word8   data SO = SOSet         | SOUnion@@ -64,10 +65,10 @@         fromValue 2 = SKInput   data Notify = MkNotify{shape_kind_Notify :: KIND,-                       affected_window_Notify :: WINDOW, extents_x_Notify :: INT16,-                       extents_y_Notify :: INT16, extents_width_Notify :: CARD16,-                       extents_height_Notify :: CARD16, server_time_Notify :: TIMESTAMP,-                       shaped_Notify :: BOOL}+                       affected_window_Notify :: WINDOW, extents_x_Notify :: Int16,+                       extents_y_Notify :: Int16, extents_width_Notify :: Word16,+                       extents_height_Notify :: Word16, server_time_Notify :: TIMESTAMP,+                       shaped_Notify :: Bool}             deriving (Show, Typeable)   instance Graphics.XHB.Shared.Event Notify@@ -101,12 +102,12 @@           = do putWord8 extOpCode                putWord8 0                let size__ = 4-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                putSkip (requiredPadding size__)   data QueryVersionReply = MkQueryVersionReply{major_version_QueryVersionReply-                                             :: CARD16,-                                             minor_version_QueryVersionReply :: CARD16}+                                             :: Word16,+                                             minor_version_QueryVersionReply :: Word16}                        deriving (Show, Typeable)   instance Deserialize QueryVersionReply where@@ -121,9 +122,9 @@                return (MkQueryVersionReply major_version minor_version)   data Rectangles = MkRectangles{operation_Rectangles :: OP,-                               destination_kind_Rectangles :: KIND, ordering_Rectangles :: BYTE,+                               destination_kind_Rectangles :: KIND, ordering_Rectangles :: Word8,                                destination_window_Rectangles :: WINDOW,-                               x_offset_Rectangles :: INT16, y_offset_Rectangles :: INT16,+                               x_offset_Rectangles :: Int16, y_offset_Rectangles :: Int16,                                rectangles_Rectangles :: [RECTANGLE]}                 deriving (Show, Typeable)  @@ -141,7 +142,7 @@                          + size (x_offset_Rectangles x)                          + size (y_offset_Rectangles x)                          + sum (map size (rectangles_Rectangles x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (operation_Rectangles x)                serialize (destination_kind_Rectangles x)                serialize (ordering_Rectangles x)@@ -154,7 +155,7 @@   data Mask = MkMask{operation_Mask :: OP,                    destination_kind_Mask :: KIND, destination_window_Mask :: WINDOW,-                   x_offset_Mask :: INT16, y_offset_Mask :: INT16,+                   x_offset_Mask :: Int16, y_offset_Mask :: Int16,                    source_bitmap_Mask :: PIXMAP}           deriving (Show, Typeable)  @@ -169,7 +170,7 @@                          + size (x_offset_Mask x)                          + size (y_offset_Mask x)                          + size (source_bitmap_Mask x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (operation_Mask x)                serialize (destination_kind_Mask x)                putSkip 2@@ -181,8 +182,8 @@   data Combine = MkCombine{operation_Combine :: OP,                          destination_kind_Combine :: KIND, source_kind_Combine :: KIND,-                         destination_window_Combine :: WINDOW, x_offset_Combine :: INT16,-                         y_offset_Combine :: INT16, source_window_Combine :: WINDOW}+                         destination_window_Combine :: WINDOW, x_offset_Combine :: Int16,+                         y_offset_Combine :: Int16, source_window_Combine :: WINDOW}              deriving (Show, Typeable)   instance ExtensionRequest Combine where@@ -199,7 +200,7 @@                          + size (x_offset_Combine x)                          + size (y_offset_Combine x)                          + size (source_window_Combine x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (operation_Combine x)                serialize (destination_kind_Combine x)                serialize (source_kind_Combine x)@@ -211,8 +212,8 @@                putSkip (requiredPadding size__)   data Offset = MkOffset{destination_kind_Offset :: KIND,-                       destination_window_Offset :: WINDOW, x_offset_Offset :: INT16,-                       y_offset_Offset :: INT16}+                       destination_window_Offset :: WINDOW, x_offset_Offset :: Int16,+                       y_offset_Offset :: Int16}             deriving (Show, Typeable)   instance ExtensionRequest Offset where@@ -225,7 +226,7 @@                          size (destination_window_Offset x)                          + size (x_offset_Offset x)                          + size (y_offset_Offset x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (destination_kind_Offset x)                putSkip 3                serialize (destination_window_Offset x)@@ -243,23 +244,23 @@           = do putWord8 extOpCode                putWord8 5                let size__ = 4 + size (destination_window_QueryExtents x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (destination_window_QueryExtents x)                putSkip (requiredPadding size__)   data QueryExtentsReply = MkQueryExtentsReply{bounding_shaped_QueryExtentsReply-                                             :: BOOL,-                                             clip_shaped_QueryExtentsReply :: BOOL,-                                             bounding_shape_extents_x_QueryExtentsReply :: INT16,-                                             bounding_shape_extents_y_QueryExtentsReply :: INT16,+                                             :: Bool,+                                             clip_shaped_QueryExtentsReply :: Bool,+                                             bounding_shape_extents_x_QueryExtentsReply :: Int16,+                                             bounding_shape_extents_y_QueryExtentsReply :: Int16,                                              bounding_shape_extents_width_QueryExtentsReply ::-                                             CARD16,+                                             Word16,                                              bounding_shape_extents_height_QueryExtentsReply ::-                                             CARD16,-                                             clip_shape_extents_x_QueryExtentsReply :: INT16,-                                             clip_shape_extents_y_QueryExtentsReply :: INT16,-                                             clip_shape_extents_width_QueryExtentsReply :: CARD16,-                                             clip_shape_extents_height_QueryExtentsReply :: CARD16}+                                             Word16,+                                             clip_shape_extents_x_QueryExtentsReply :: Int16,+                                             clip_shape_extents_y_QueryExtentsReply :: Int16,+                                             clip_shape_extents_width_QueryExtentsReply :: Word16,+                                             clip_shape_extents_height_QueryExtentsReply :: Word16}                        deriving (Show, Typeable)   instance Deserialize QueryExtentsReply where@@ -293,7 +294,7 @@   data SelectInput = MkSelectInput{destination_window_SelectInput ::                                  WINDOW,-                                 enable_SelectInput :: BOOL}+                                 enable_SelectInput :: Bool}                  deriving (Show, Typeable)   instance ExtensionRequest SelectInput where@@ -305,7 +306,7 @@                      = 4 + size (destination_window_SelectInput x) +                          size (enable_SelectInput x)                          + 3-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (destination_window_SelectInput x)                serialize (enable_SelectInput x)                putSkip 3@@ -321,12 +322,12 @@           = do putWord8 extOpCode                putWord8 7                let size__ = 4 + size (destination_window_InputSelected x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (destination_window_InputSelected x)                putSkip (requiredPadding size__)   data InputSelectedReply = MkInputSelectedReply{enabled_InputSelectedReply-                                               :: BOOL}+                                               :: Bool}                         deriving (Show, Typeable)   instance Deserialize InputSelectedReply where@@ -352,15 +353,15 @@                      = 4 + size (window_GetRectangles x) +                          size (source_kind_GetRectangles x)                          + 3-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (window_GetRectangles x)                serialize (source_kind_GetRectangles x)                putSkip 3                putSkip (requiredPadding size__)   data GetRectanglesReply = MkGetRectanglesReply{ordering_GetRectanglesReply-                                               :: BYTE,-                                               rectangles_len_GetRectanglesReply :: CARD32,+                                               :: Word8,+                                               rectangles_len_GetRectanglesReply :: Word32,                                                rectangles_GetRectanglesReply :: [RECTANGLE]}                         deriving (Show, Typeable)  
patched/Graphics/XHB/Gen/Shm.hs view
@@ -8,6 +8,9 @@ import Graphics.XHB.Connection.Types import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import Data.Binary.Put (runPut) import Graphics.XHB.Shared hiding (Event(..), Error(..)) import Graphics.XHB.Gen.Xproto.Types@@ -22,11 +25,11 @@                Graphics.XHB.Connection.Types.Connection ->                  IO (Receipt QueryVersionReply) queryVersion c-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkQueryVersion        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   attach ::@@ -54,10 +57,10 @@            Graphics.XHB.Connection.Types.Connection ->              GetImage -> IO (Receipt GetImageReply) getImage c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   createPixmap ::
patched/Graphics/XHB/Gen/Shm/Types.hs view
@@ -5,6 +5,7 @@         CreatePixmap(..))        where import Data.Word+import Data.Int import Foreign.C.Types import Data.Bits import Data.Binary.Put@@ -34,8 +35,8 @@               deriving (Eq, Ord, Show, Serialize, Deserialize, XidLike)   data Completion = MkCompletion{drawable_Completion :: DRAWABLE,-                               shmseg_Completion :: SEG, minor_event_Completion :: CARD16,-                               major_event_Completion :: BYTE, offset_Completion :: CARD32}+                               shmseg_Completion :: SEG, minor_event_Completion :: Word16,+                               major_event_Completion :: Word8, offset_Completion :: Word32}                 deriving (Show, Typeable)   instance Graphics.XHB.Shared.Event Completion@@ -54,8 +55,8 @@                return                  (MkCompletion drawable shmseg minor_event major_event offset)  -data BadSeg = MkBadSeg{bad_value_BadSeg :: CARD32,-                       minor_opcode_BadSeg :: CARD16, major_opcode_BadSeg :: CARD8}+data BadSeg = MkBadSeg{bad_value_BadSeg :: Word32,+                       minor_opcode_BadSeg :: Word16, major_opcode_BadSeg :: Word8}             deriving (Show, Typeable)   instance Graphics.XHB.Shared.Error BadSeg@@ -78,16 +79,16 @@           = do putWord8 extOpCode                putWord8 0                let size__ = 4-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                putSkip (requiredPadding size__)   data QueryVersionReply = MkQueryVersionReply{shared_pixmaps_QueryVersionReply-                                             :: BOOL,-                                             major_version_QueryVersionReply :: CARD16,-                                             minor_version_QueryVersionReply :: CARD16,-                                             uid_QueryVersionReply :: CARD16,-                                             gid_QueryVersionReply :: CARD16,-                                             pixmap_format_QueryVersionReply :: CARD8}+                                             :: Bool,+                                             major_version_QueryVersionReply :: Word16,+                                             minor_version_QueryVersionReply :: Word16,+                                             uid_QueryVersionReply :: Word16,+                                             gid_QueryVersionReply :: Word16,+                                             pixmap_format_QueryVersionReply :: Word8}                        deriving (Show, Typeable)   instance Deserialize QueryVersionReply where@@ -109,7 +110,7 @@                     pixmap_format)   data Attach = MkAttach{shmseg_Attach :: SEG,-                       shmid_Attach :: CARD32, read_only_Attach :: BOOL}+                       shmid_Attach :: Word32, read_only_Attach :: Bool}             deriving (Show, Typeable)   instance ExtensionRequest Attach where@@ -121,7 +122,7 @@                      = 4 + size (shmseg_Attach x) + size (shmid_Attach x) +                          size (read_only_Attach x)                          + 3-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (shmseg_Attach x)                serialize (shmid_Attach x)                serialize (read_only_Attach x)@@ -137,18 +138,18 @@           = do putWord8 extOpCode                putWord8 2                let size__ = 4 + size (shmseg_Detach x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (shmseg_Detach x)                putSkip (requiredPadding size__)   data PutImage = MkPutImage{drawable_PutImage :: DRAWABLE,-                           gc_PutImage :: GCONTEXT, total_width_PutImage :: CARD16,-                           total_height_PutImage :: CARD16, src_x_PutImage :: CARD16,-                           src_y_PutImage :: CARD16, src_width_PutImage :: CARD16,-                           src_height_PutImage :: CARD16, dst_x_PutImage :: INT16,-                           dst_y_PutImage :: INT16, depth_PutImage :: CARD8,-                           format_PutImage :: CARD8, send_event_PutImage :: CARD8,-                           shmseg_PutImage :: SEG, offset_PutImage :: CARD32}+                           gc_PutImage :: GCONTEXT, total_width_PutImage :: Word16,+                           total_height_PutImage :: Word16, src_x_PutImage :: Word16,+                           src_y_PutImage :: Word16, src_width_PutImage :: Word16,+                           src_height_PutImage :: Word16, dst_x_PutImage :: Int16,+                           dst_y_PutImage :: Int16, depth_PutImage :: Word8,+                           format_PutImage :: Word8, send_event_PutImage :: Word8,+                           shmseg_PutImage :: SEG, offset_PutImage :: Word32}               deriving (Show, Typeable)   instance ExtensionRequest PutImage where@@ -172,7 +173,7 @@                          + 1                          + size (shmseg_PutImage x)                          + size (offset_PutImage x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (drawable_PutImage x)                serialize (gc_PutImage x)                serialize (total_width_PutImage x)@@ -192,10 +193,10 @@                putSkip (requiredPadding size__)   data GetImage = MkGetImage{drawable_GetImage :: DRAWABLE,-                           x_GetImage :: INT16, y_GetImage :: INT16, width_GetImage :: CARD16,-                           height_GetImage :: CARD16, plane_mask_GetImage :: CARD32,-                           format_GetImage :: CARD8, shmseg_GetImage :: SEG,-                           offset_GetImage :: CARD32}+                           x_GetImage :: Int16, y_GetImage :: Int16, width_GetImage :: Word16,+                           height_GetImage :: Word16, plane_mask_GetImage :: Word32,+                           format_GetImage :: Word8, shmseg_GetImage :: SEG,+                           offset_GetImage :: Word32}               deriving (Show, Typeable)   instance ExtensionRequest GetImage where@@ -213,7 +214,7 @@                          + 3                          + size (shmseg_GetImage x)                          + size (offset_GetImage x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (drawable_GetImage x)                serialize (x_GetImage x)                serialize (y_GetImage x)@@ -226,8 +227,8 @@                serialize (offset_GetImage x)                putSkip (requiredPadding size__)  -data GetImageReply = MkGetImageReply{depth_GetImageReply :: CARD8,-                                     visual_GetImageReply :: VISUALID, size_GetImageReply :: CARD32}+data GetImageReply = MkGetImageReply{depth_GetImageReply :: Word8,+                                     visual_GetImageReply :: VISUALID, size_GetImageReply :: Word32}                    deriving (Show, Typeable)   instance Deserialize GetImageReply where@@ -242,9 +243,9 @@                return (MkGetImageReply depth visual size)   data CreatePixmap = MkCreatePixmap{pid_CreatePixmap :: PIXMAP,-                                   drawable_CreatePixmap :: DRAWABLE, width_CreatePixmap :: CARD16,-                                   height_CreatePixmap :: CARD16, depth_CreatePixmap :: CARD8,-                                   shmseg_CreatePixmap :: SEG, offset_CreatePixmap :: CARD32}+                                   drawable_CreatePixmap :: DRAWABLE, width_CreatePixmap :: Word16,+                                   height_CreatePixmap :: Word16, depth_CreatePixmap :: Word8,+                                   shmseg_CreatePixmap :: SEG, offset_CreatePixmap :: Word32}                   deriving (Show, Typeable)   instance ExtensionRequest CreatePixmap where@@ -260,7 +261,7 @@                          + 3                          + size (shmseg_CreatePixmap x)                          + size (offset_CreatePixmap x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (pid_CreatePixmap x)                serialize (drawable_CreatePixmap x)                serialize (width_CreatePixmap x)
patched/Graphics/XHB/Gen/Sync.hs view
@@ -10,6 +10,9 @@ import Graphics.XHB.Connection.Types import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import Data.Binary.Put (runPut) import Graphics.XHB.Shared hiding (Event(..), Error(..)) import Graphics.XHB.Gen.Xproto.Types@@ -21,24 +24,24 @@   initialize ::              Graphics.XHB.Connection.Types.Connection ->-               CARD8 -> CARD8 -> IO (Receipt InitializeReply)+               Word8 -> Word8 -> IO (Receipt InitializeReply) initialize c desired_major_version desired_minor_version-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkInitialize desired_major_version desired_minor_version        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   listSystemCounters ::                      Graphics.XHB.Connection.Types.Connection ->                        IO (Receipt ListSystemCountersReply) listSystemCounters c-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkListSystemCounters        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   createCounter ::@@ -60,13 +63,14 @@   queryCounter ::                Graphics.XHB.Connection.Types.Connection ->-                 COUNTER -> IO (Receipt QueryCounterReply)+                 COUNTER -> IO (Receipt INT64) queryCounter c counter-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet (counter_value_QueryCounterReply `fmap` deserialize))        let req = MkQueryCounter counter        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   await ::@@ -98,7 +102,7 @@   createAlarm ::               Graphics.XHB.Connection.Types.Connection ->-                ALARM -> ValueParam CARD32 -> IO ()+                ALARM -> ValueParam Word32 -> IO () createAlarm c id value   = do let req = MkCreateAlarm id value        putAction <- serializeExtensionRequest c req@@ -107,7 +111,7 @@   changeAlarm ::               Graphics.XHB.Connection.Types.Connection ->-                ALARM -> ValueParam CARD32 -> IO ()+                ALARM -> ValueParam Word32 -> IO () changeAlarm c id value   = do let req = MkChangeAlarm id value        putAction <- serializeExtensionRequest c req@@ -126,16 +130,16 @@              Graphics.XHB.Connection.Types.Connection ->                ALARM -> IO (Receipt QueryAlarmReply) queryAlarm c alarm-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkQueryAlarm alarm        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   setPriority ::               Graphics.XHB.Connection.Types.Connection ->-                CARD32 -> INT32 -> IO ()+                Word32 -> Int32 -> IO () setPriority c id priority   = do let req = MkSetPriority id priority        putAction <- serializeExtensionRequest c req@@ -144,11 +148,12 @@   getPriority ::               Graphics.XHB.Connection.Types.Connection ->-                CARD32 -> IO (Receipt GetPriorityReply)+                Word32 -> IO (Receipt Int32) getPriority c id-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet (priority_GetPriorityReply `fmap` deserialize))        let req = MkGetPriority id        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt
patched/Graphics/XHB/Gen/Sync/Types.hs view
@@ -12,6 +12,7 @@         AlarmNotify(..))        where import Data.Word+import Data.Int import Foreign.C.Types import Data.Bits import Data.Binary.Put@@ -103,7 +104,7 @@         fromBit 4 = CADelta         fromBit 5 = CAEvents  -data INT64 = MkINT64{hi_INT64 :: INT32, lo_INT64 :: CARD32}+data INT64 = MkINT64{hi_INT64 :: Int32, lo_INT64 :: Word32}            deriving (Show, Typeable)   instance Serialize INT64 where@@ -121,7 +122,7 @@ data SYSTEMCOUNTER = MkSYSTEMCOUNTER{counter_SYSTEMCOUNTER ::                                      COUNTER,                                      resolution_SYSTEMCOUNTER :: INT64,-                                     name_len_SYSTEMCOUNTER :: CARD16,+                                     name_len_SYSTEMCOUNTER :: Word16,                                      name_SYSTEMCOUNTER :: [CChar]}                    deriving (Show, Typeable)  @@ -146,8 +147,8 @@                return (MkSYSTEMCOUNTER counter resolution name_len name)   data TRIGGER = MkTRIGGER{counter_TRIGGER :: COUNTER,-                         wait_type_TRIGGER :: CARD32, wait_value_TRIGGER :: INT64,-                         test_type_TRIGGER :: CARD32}+                         wait_type_TRIGGER :: Word32, wait_value_TRIGGER :: INT64,+                         test_type_TRIGGER :: Word32}              deriving (Show, Typeable)   instance Serialize TRIGGER where@@ -188,8 +189,8 @@                event_threshold <- deserialize                return (MkWAITCONDITION trigger event_threshold)  -data Counter = MkCounter{bad_counter_Counter :: CARD32,-                         minor_opcode_Counter :: CARD16, major_opcode_Counter :: CARD8}+data Counter = MkCounter{bad_counter_Counter :: Word32,+                         minor_opcode_Counter :: Word16, major_opcode_Counter :: Word8}              deriving (Show, Typeable)   instance Graphics.XHB.Shared.Error Counter@@ -202,8 +203,8 @@                major_opcode <- deserialize                return (MkCounter bad_counter minor_opcode major_opcode)  -data Alarm = MkAlarm{bad_alarm_Alarm :: CARD32,-                     minor_opcode_Alarm :: CARD16, major_opcode_Alarm :: CARD8}+data Alarm = MkAlarm{bad_alarm_Alarm :: Word32,+                     minor_opcode_Alarm :: Word16, major_opcode_Alarm :: Word8}            deriving (Show, Typeable)   instance Graphics.XHB.Shared.Error Alarm@@ -217,8 +218,8 @@                return (MkAlarm bad_alarm minor_opcode major_opcode)   data Initialize = MkInitialize{desired_major_version_Initialize ::-                               CARD8,-                               desired_minor_version_Initialize :: CARD8}+                               Word8,+                               desired_minor_version_Initialize :: Word8}                 deriving (Show, Typeable)   instance ExtensionRequest Initialize where@@ -229,14 +230,14 @@                let size__                      = 4 + size (desired_major_version_Initialize x) +                          size (desired_minor_version_Initialize x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (desired_major_version_Initialize x)                serialize (desired_minor_version_Initialize x)                putSkip (requiredPadding size__)   data InitializeReply = MkInitializeReply{major_version_InitializeReply-                                         :: CARD8,-                                         minor_version_InitializeReply :: CARD8}+                                         :: Word8,+                                         minor_version_InitializeReply :: Word8}                      deriving (Show, Typeable)   instance Deserialize InitializeReply where@@ -260,11 +261,11 @@           = do putWord8 extOpCode                putWord8 1                let size__ = 4-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                putSkip (requiredPadding size__)   data ListSystemCountersReply = MkListSystemCountersReply{counters_len_ListSystemCountersReply-                                                         :: CARD32,+                                                         :: Word32,                                                          counters_ListSystemCountersReply ::                                                          [SYSTEMCOUNTER]}                              deriving (Show, Typeable)@@ -293,7 +294,7 @@                let size__                      = 4 + size (id_CreateCounter x) +                          size (initial_value_CreateCounter x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (id_CreateCounter x)                serialize (initial_value_CreateCounter x)                putSkip (requiredPadding size__)@@ -308,7 +309,7 @@           = do putWord8 extOpCode                putWord8 6                let size__ = 4 + size (counter_DestroyCounter x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (counter_DestroyCounter x)                putSkip (requiredPadding size__)  @@ -321,7 +322,7 @@           = do putWord8 extOpCode                putWord8 5                let size__ = 4 + size (counter_QueryCounter x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (counter_QueryCounter x)                putSkip (requiredPadding size__)  @@ -348,7 +349,7 @@           = do putWord8 extOpCode                putWord8 7                let size__ = 4 + sum (map size (wait_list_Await x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serializeList (wait_list_Await x)                putSkip (requiredPadding size__)  @@ -365,7 +366,7 @@                let size__                      = 4 + size (counter_ChangeCounter x) +                          size (amount_ChangeCounter x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (counter_ChangeCounter x)                serialize (amount_ChangeCounter x)                putSkip (requiredPadding size__)@@ -381,13 +382,13 @@                putWord8 3                let size__                      = 4 + size (counter_SetCounter x) + size (value_SetCounter x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (counter_SetCounter x)                serialize (value_SetCounter x)                putSkip (requiredPadding size__)   data CreateAlarm = MkCreateAlarm{id_CreateAlarm :: ALARM,-                                 value_CreateAlarm :: ValueParam CARD32}+                                 value_CreateAlarm :: ValueParam Word32}                  deriving (Show, Typeable)   instance ExtensionRequest CreateAlarm where@@ -397,13 +398,13 @@                putWord8 8                let size__                      = 4 + size (id_CreateAlarm x) + size (value_CreateAlarm x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (id_CreateAlarm x)                serialize (value_CreateAlarm x)                putSkip (requiredPadding size__)   data ChangeAlarm = MkChangeAlarm{id_ChangeAlarm :: ALARM,-                                 value_ChangeAlarm :: ValueParam CARD32}+                                 value_ChangeAlarm :: ValueParam Word32}                  deriving (Show, Typeable)   instance ExtensionRequest ChangeAlarm where@@ -413,7 +414,7 @@                putWord8 9                let size__                      = 4 + size (id_ChangeAlarm x) + size (value_ChangeAlarm x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (id_ChangeAlarm x)                serialize (value_ChangeAlarm x)                putSkip (requiredPadding size__)@@ -427,7 +428,7 @@           = do putWord8 extOpCode                putWord8 11                let size__ = 4 + size (alarm_DestroyAlarm x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (alarm_DestroyAlarm x)                putSkip (requiredPadding size__)  @@ -440,15 +441,15 @@           = do putWord8 extOpCode                putWord8 10                let size__ = 4 + size (alarm_QueryAlarm x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (alarm_QueryAlarm x)                putSkip (requiredPadding size__)   data QueryAlarmReply = MkQueryAlarmReply{trigger_QueryAlarmReply ::                                          TRIGGER,                                          delta_QueryAlarmReply :: INT64,-                                         events_QueryAlarmReply :: BOOL,-                                         state_QueryAlarmReply :: CARD8}+                                         events_QueryAlarmReply :: Bool,+                                         state_QueryAlarmReply :: Word8}                      deriving (Show, Typeable)   instance Deserialize QueryAlarmReply where@@ -465,8 +466,8 @@                let _ = isCard32 length                return (MkQueryAlarmReply trigger delta events state)  -data SetPriority = MkSetPriority{id_SetPriority :: CARD32,-                                 priority_SetPriority :: INT32}+data SetPriority = MkSetPriority{id_SetPriority :: Word32,+                                 priority_SetPriority :: Int32}                  deriving (Show, Typeable)   instance ExtensionRequest SetPriority where@@ -476,12 +477,12 @@                putWord8 12                let size__                      = 4 + size (id_SetPriority x) + size (priority_SetPriority x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (id_SetPriority x)                serialize (priority_SetPriority x)                putSkip (requiredPadding size__)  -data GetPriority = MkGetPriority{id_GetPriority :: CARD32}+data GetPriority = MkGetPriority{id_GetPriority :: Word32}                  deriving (Show, Typeable)   instance ExtensionRequest GetPriority where@@ -490,12 +491,12 @@           = do putWord8 extOpCode                putWord8 13                let size__ = 4 + size (id_GetPriority x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (id_GetPriority x)                putSkip (requiredPadding size__)   data GetPriorityReply = MkGetPriorityReply{priority_GetPriorityReply-                                           :: INT32}+                                           :: Int32}                       deriving (Show, Typeable)   instance Deserialize GetPriorityReply where@@ -508,12 +509,12 @@                let _ = isCard32 length                return (MkGetPriorityReply priority)  -data CounterNotify = MkCounterNotify{kind_CounterNotify :: CARD8,+data CounterNotify = MkCounterNotify{kind_CounterNotify :: Word8,                                      counter_CounterNotify :: COUNTER,                                      wait_value_CounterNotify :: INT64,                                      counter_value_CounterNotify :: INT64,                                      timestamp_CounterNotify :: TIMESTAMP,-                                     count_CounterNotify :: CARD16, destroyed_CounterNotify :: BOOL}+                                     count_CounterNotify :: Word16, destroyed_CounterNotify :: Bool}                    deriving (Show, Typeable)   instance Graphics.XHB.Shared.Event CounterNotify@@ -535,7 +536,7 @@                     count                     destroyed)  -data AlarmNotify = MkAlarmNotify{kind_AlarmNotify :: CARD8,+data AlarmNotify = MkAlarmNotify{kind_AlarmNotify :: Word8,                                  alarm_AlarmNotify :: ALARM, counter_value_AlarmNotify :: INT64,                                  alarm_value_AlarmNotify :: INT64,                                  timestamp_AlarmNotify :: TIMESTAMP}
patched/Graphics/XHB/Gen/Test.hs view
@@ -8,6 +8,9 @@ import Graphics.XHB.Connection.Types import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import Data.Binary.Put (runPut) import Graphics.XHB.Shared hiding (Event(..), Error(..)) import Graphics.XHB.Gen.Xproto.Types@@ -19,24 +22,25 @@   getVersion ::              Graphics.XHB.Connection.Types.Connection ->-               CARD8 -> CARD16 -> IO (Receipt GetVersionReply)+               Word8 -> Word16 -> IO (Receipt GetVersionReply) getVersion c major_version minor_version-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetVersion major_version minor_version        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   compareCursor ::                 Graphics.XHB.Connection.Types.Connection ->-                  WINDOW -> CURSOR -> IO (Receipt CompareCursorReply)+                  WINDOW -> CURSOR -> IO (Receipt Bool) compareCursor c window cursor-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet (same_CompareCursorReply `fmap` deserialize))        let req = MkCompareCursor window cursor        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   fakeInput ::@@ -47,7 +51,7 @@        sendRequest c chunk   grabControl ::-              Graphics.XHB.Connection.Types.Connection -> BOOL -> IO ()+              Graphics.XHB.Connection.Types.Connection -> Bool -> IO () grabControl c impervious   = do let req = MkGrabControl impervious        putAction <- serializeExtensionRequest c req
patched/Graphics/XHB/Gen/Test/Types.hs view
@@ -4,6 +4,7 @@         CompareCursorReply(..), FakeInput(..), GrabControl(..))        where import Data.Word+import Data.Int import Foreign.C.Types import Data.Bits import Data.Binary.Put@@ -24,8 +25,8 @@ deserializeEvent :: Word8 -> Maybe (Get SomeEvent) deserializeEvent _ = Nothing  -data GetVersion = MkGetVersion{major_version_GetVersion :: CARD8,-                               minor_version_GetVersion :: CARD16}+data GetVersion = MkGetVersion{major_version_GetVersion :: Word8,+                               minor_version_GetVersion :: Word16}                 deriving (Show, Typeable)   instance ExtensionRequest GetVersion where@@ -36,15 +37,15 @@                let size__                      = 4 + size (major_version_GetVersion x) + 1 +                          size (minor_version_GetVersion x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (major_version_GetVersion x)                putSkip 1                serialize (minor_version_GetVersion x)                putSkip (requiredPadding size__)   data GetVersionReply = MkGetVersionReply{major_version_GetVersionReply-                                         :: CARD8,-                                         minor_version_GetVersionReply :: CARD16}+                                         :: Word8,+                                         minor_version_GetVersionReply :: Word16}                      deriving (Show, Typeable)   instance Deserialize GetVersionReply where@@ -78,13 +79,13 @@                putWord8 1                let size__                      = 4 + size (window_CompareCursor x) + size (cursor_CompareCursor x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (window_CompareCursor x)                serialize (cursor_CompareCursor x)                putSkip (requiredPadding size__)   data CompareCursorReply = MkCompareCursorReply{same_CompareCursorReply-                                               :: BOOL}+                                               :: Bool}                         deriving (Show, Typeable)   instance Deserialize CompareCursorReply where@@ -96,10 +97,10 @@                let _ = isCard32 length                return (MkCompareCursorReply same)  -data FakeInput = MkFakeInput{type_FakeInput :: BYTE,-                             detail_FakeInput :: BYTE, time_FakeInput :: CARD32,-                             window_FakeInput :: WINDOW, rootX_FakeInput :: CARD16,-                             rootY_FakeInput :: CARD16, deviceid_FakeInput :: CARD8}+data FakeInput = MkFakeInput{type_FakeInput :: Word8,+                             detail_FakeInput :: Word8, time_FakeInput :: Word32,+                             window_FakeInput :: WINDOW, rootX_FakeInput :: Word16,+                             rootY_FakeInput :: Word16, deviceid_FakeInput :: Word8}                deriving (Show, Typeable)   instance ExtensionRequest FakeInput where@@ -116,7 +117,7 @@                          + size (rootY_FakeInput x)                          + 7                          + size (deviceid_FakeInput x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (type_FakeInput x)                serialize (detail_FakeInput x)                putSkip 2@@ -129,7 +130,7 @@                serialize (deviceid_FakeInput x)                putSkip (requiredPadding size__)  -data GrabControl = MkGrabControl{impervious_GrabControl :: BOOL}+data GrabControl = MkGrabControl{impervious_GrabControl :: Bool}                  deriving (Show, Typeable)   instance ExtensionRequest GrabControl where@@ -138,7 +139,7 @@           = do putWord8 extOpCode                putWord8 3                let size__ = 4 + size (impervious_GrabControl x) + 3-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (impervious_GrabControl x)                putSkip 3                putSkip (requiredPadding size__)
patched/Graphics/XHB/Gen/XCMisc.hs view
@@ -8,6 +8,9 @@ import Graphics.XHB.Connection.Types import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import Data.Binary.Put (runPut) import Graphics.XHB.Shared hiding (Event(..), Error(..))  @@ -16,33 +19,33 @@   getVersion ::              Graphics.XHB.Connection.Types.Connection ->-               CARD16 -> CARD16 -> IO (Receipt GetVersionReply)+               Word16 -> Word16 -> IO (Receipt GetVersionReply) getVersion c client_major_version client_minor_version-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetVersion client_major_version client_minor_version        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getXIDRange ::               Graphics.XHB.Connection.Types.Connection ->                 IO (Receipt GetXIDRangeReply) getXIDRange c-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetXIDRange        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getXIDList ::              Graphics.XHB.Connection.Types.Connection ->-               CARD32 -> IO (Receipt GetXIDListReply)+               Word32 -> IO (Receipt GetXIDListReply) getXIDList c count-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetXIDList count        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt
patched/Graphics/XHB/Gen/XCMisc/Types.hs view
@@ -4,6 +4,7 @@         GetXIDList(..), GetXIDListReply(..))        where import Data.Word+import Data.Int import Foreign.C.Types import Data.Bits import Data.Binary.Put@@ -22,8 +23,8 @@ deserializeEvent _ = Nothing   data GetVersion = MkGetVersion{client_major_version_GetVersion ::-                               CARD16,-                               client_minor_version_GetVersion :: CARD16}+                               Word16,+                               client_minor_version_GetVersion :: Word16}                 deriving (Show, Typeable)   instance ExtensionRequest GetVersion where@@ -34,14 +35,14 @@                let size__                      = 4 + size (client_major_version_GetVersion x) +                          size (client_minor_version_GetVersion x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (client_major_version_GetVersion x)                serialize (client_minor_version_GetVersion x)                putSkip (requiredPadding size__)   data GetVersionReply = MkGetVersionReply{server_major_version_GetVersionReply-                                         :: CARD16,-                                         server_minor_version_GetVersionReply :: CARD16}+                                         :: Word16,+                                         server_minor_version_GetVersionReply :: Word16}                      deriving (Show, Typeable)   instance Deserialize GetVersionReply where@@ -65,12 +66,12 @@           = do putWord8 extOpCode                putWord8 1                let size__ = 4-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                putSkip (requiredPadding size__)   data GetXIDRangeReply = MkGetXIDRangeReply{start_id_GetXIDRangeReply-                                           :: CARD32,-                                           count_GetXIDRangeReply :: CARD32}+                                           :: Word32,+                                           count_GetXIDRangeReply :: Word32}                       deriving (Show, Typeable)   instance Deserialize GetXIDRangeReply where@@ -84,7 +85,7 @@                let _ = isCard32 length                return (MkGetXIDRangeReply start_id count)  -data GetXIDList = MkGetXIDList{count_GetXIDList :: CARD32}+data GetXIDList = MkGetXIDList{count_GetXIDList :: Word32}                 deriving (Show, Typeable)   instance ExtensionRequest GetXIDList where@@ -93,13 +94,13 @@           = do putWord8 extOpCode                putWord8 2                let size__ = 4 + size (count_GetXIDList x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (count_GetXIDList x)                putSkip (requiredPadding size__)   data GetXIDListReply = MkGetXIDListReply{ids_len_GetXIDListReply ::-                                         CARD32,-                                         ids_GetXIDListReply :: [CARD32]}+                                         Word32,+                                         ids_GetXIDListReply :: [Word32]}                      deriving (Show, Typeable)   instance Deserialize GetXIDListReply where
patched/Graphics/XHB/Gen/XF86Dri.hs view
@@ -11,6 +11,9 @@ import Graphics.XHB.Connection.Types import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import Data.Binary.Put (runPut) import Graphics.XHB.Shared hiding (Event(..), Error(..))  @@ -21,37 +24,39 @@                Graphics.XHB.Connection.Types.Connection ->                  IO (Receipt QueryVersionReply) queryVersion c-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkQueryVersion        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   queryDirectRenderingCapable ::                               Graphics.XHB.Connection.Types.Connection ->-                                CARD32 -> IO (Receipt QueryDirectRenderingCapableReply)+                                Word32 -> IO (Receipt Bool) queryDirectRenderingCapable c screen-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet+                                   (is_capable_QueryDirectRenderingCapableReply `fmap` deserialize))        let req = MkQueryDirectRenderingCapable screen        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   openConnection ::                  Graphics.XHB.Connection.Types.Connection ->-                   CARD32 -> IO (Receipt OpenConnectionReply)+                   Word32 -> IO (Receipt OpenConnectionReply) openConnection c screen-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkOpenConnection screen        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   closeConnection ::-                  Graphics.XHB.Connection.Types.Connection -> CARD32 -> IO ()+                  Graphics.XHB.Connection.Types.Connection -> Word32 -> IO () closeConnection c screen   = do let req = MkCloseConnection screen        putAction <- serializeExtensionRequest c req@@ -60,28 +65,29 @@   getClientDriverName ::                       Graphics.XHB.Connection.Types.Connection ->-                        CARD32 -> IO (Receipt GetClientDriverNameReply)+                        Word32 -> IO (Receipt GetClientDriverNameReply) getClientDriverName c screen-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetClientDriverName screen        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   createContext ::                 Graphics.XHB.Connection.Types.Connection ->-                  CreateContext -> IO (Receipt CreateContextReply)+                  CreateContext -> IO (Receipt Word32) createContext c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet (hw_context_CreateContextReply `fmap` deserialize))        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   destroyContext ::                  Graphics.XHB.Connection.Types.Connection ->-                   CARD32 -> CARD32 -> IO ()+                   Word32 -> Word32 -> IO () destroyContext c screen context   = do let req = MkDestroyContext screen context        putAction <- serializeExtensionRequest c req@@ -90,18 +96,20 @@   createDrawable ::                  Graphics.XHB.Connection.Types.Connection ->-                   CARD32 -> CARD32 -> IO (Receipt CreateDrawableReply)+                   Word32 -> Word32 -> IO (Receipt Word32) createDrawable c screen drawable-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet+                                   (hw_drawable_handle_CreateDrawableReply `fmap` deserialize))        let req = MkCreateDrawable screen drawable        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   destroyDrawable ::                   Graphics.XHB.Connection.Types.Connection ->-                    CARD32 -> CARD32 -> IO ()+                    Word32 -> Word32 -> IO () destroyDrawable c screen drawable   = do let req = MkDestroyDrawable screen drawable        putAction <- serializeExtensionRequest c req@@ -110,33 +118,34 @@   getDrawableInfo ::                   Graphics.XHB.Connection.Types.Connection ->-                    CARD32 -> CARD32 -> IO (Receipt GetDrawableInfoReply)+                    Word32 -> Word32 -> IO (Receipt GetDrawableInfoReply) getDrawableInfo c screen drawable-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetDrawableInfo screen drawable        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getDeviceInfo ::                 Graphics.XHB.Connection.Types.Connection ->-                  CARD32 -> IO (Receipt GetDeviceInfoReply)+                  Word32 -> IO (Receipt GetDeviceInfoReply) getDeviceInfo c screen-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetDeviceInfo screen        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   authConnection ::                  Graphics.XHB.Connection.Types.Connection ->-                   CARD32 -> CARD32 -> IO (Receipt AuthConnectionReply)+                   Word32 -> Word32 -> IO (Receipt Word32) authConnection c screen magic-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet (authenticated_AuthConnectionReply `fmap` deserialize))        let req = MkAuthConnection screen magic        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt
patched/Graphics/XHB/Gen/XF86Dri/Types.hs view
@@ -12,6 +12,7 @@         AuthConnectionReply(..))        where import Data.Word+import Data.Int import Foreign.C.Types import Data.Bits import Data.Binary.Put@@ -29,9 +30,9 @@ deserializeEvent :: Word8 -> Maybe (Get SomeEvent) deserializeEvent _ = Nothing  -data DrmClipRect = MkDrmClipRect{x1_DrmClipRect :: INT16,-                                 y1_DrmClipRect :: INT16, x2_DrmClipRect :: INT16,-                                 x3_DrmClipRect :: INT16}+data DrmClipRect = MkDrmClipRect{x1_DrmClipRect :: Int16,+                                 y1_DrmClipRect :: Int16, x2_DrmClipRect :: Int16,+                                 x3_DrmClipRect :: Int16}                  deriving (Show, Typeable)   instance Serialize DrmClipRect where@@ -62,13 +63,13 @@           = do putWord8 extOpCode                putWord8 0                let size__ = 4-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                putSkip (requiredPadding size__)   data QueryVersionReply = MkQueryVersionReply{dri_major_version_QueryVersionReply-                                             :: CARD16,-                                             dri_minor_version_QueryVersionReply :: CARD16,-                                             dri_minor_patch_QueryVersionReply :: CARD32}+                                             :: Word16,+                                             dri_minor_version_QueryVersionReply :: Word16,+                                             dri_minor_patch_QueryVersionReply :: Word32}                        deriving (Show, Typeable)   instance Deserialize QueryVersionReply where@@ -86,7 +87,7 @@                     dri_minor_patch)   data QueryDirectRenderingCapable = MkQueryDirectRenderingCapable{screen_QueryDirectRenderingCapable-                                                                 :: CARD32}+                                                                 :: Word32}                                  deriving (Show, Typeable)   instance ExtensionRequest QueryDirectRenderingCapable where@@ -95,12 +96,12 @@           = do putWord8 extOpCode                putWord8 1                let size__ = 4 + size (screen_QueryDirectRenderingCapable x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (screen_QueryDirectRenderingCapable x)                putSkip (requiredPadding size__)   data QueryDirectRenderingCapableReply = MkQueryDirectRenderingCapableReply{is_capable_QueryDirectRenderingCapableReply-                                                                           :: BOOL}+                                                                           :: Bool}                                       deriving (Show, Typeable)   instance Deserialize QueryDirectRenderingCapableReply where@@ -114,7 +115,7 @@                return (MkQueryDirectRenderingCapableReply is_capable)   data OpenConnection = MkOpenConnection{screen_OpenConnection ::-                                       CARD32}+                                       Word32}                     deriving (Show, Typeable)   instance ExtensionRequest OpenConnection where@@ -123,16 +124,16 @@           = do putWord8 extOpCode                putWord8 2                let size__ = 4 + size (screen_OpenConnection x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (screen_OpenConnection x)                putSkip (requiredPadding size__)   data OpenConnectionReply = MkOpenConnectionReply{drm_client_key_low_OpenConnectionReply-                                                 :: CARD32,-                                                 drm_client_key_high_OpenConnectionReply :: CARD32,-                                                 sarea_handle_low_OpenConnectionReply :: CARD32,-                                                 sarea_handle_high_OpenConnectionReply :: CARD32,-                                                 bus_id_len_OpenConnectionReply :: CARD32,+                                                 :: Word32,+                                                 drm_client_key_high_OpenConnectionReply :: Word32,+                                                 sarea_handle_low_OpenConnectionReply :: Word32,+                                                 sarea_handle_high_OpenConnectionReply :: Word32,+                                                 bus_id_len_OpenConnectionReply :: Word32,                                                  bus_id_OpenConnectionReply :: [CChar]}                          deriving (Show, Typeable)  @@ -158,7 +159,7 @@                     bus_id)   data CloseConnection = MkCloseConnection{screen_CloseConnection ::-                                         CARD32}+                                         Word32}                      deriving (Show, Typeable)   instance ExtensionRequest CloseConnection where@@ -167,12 +168,12 @@           = do putWord8 extOpCode                putWord8 3                let size__ = 4 + size (screen_CloseConnection x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (screen_CloseConnection x)                putSkip (requiredPadding size__)   data GetClientDriverName = MkGetClientDriverName{screen_GetClientDriverName-                                                 :: CARD32}+                                                 :: Word32}                          deriving (Show, Typeable)   instance ExtensionRequest GetClientDriverName where@@ -181,18 +182,18 @@           = do putWord8 extOpCode                putWord8 4                let size__ = 4 + size (screen_GetClientDriverName x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (screen_GetClientDriverName x)                putSkip (requiredPadding size__)   data GetClientDriverNameReply = MkGetClientDriverNameReply{client_driver_major_version_GetClientDriverNameReply-                                                           :: CARD32,+                                                           :: Word32,                                                            client_driver_minor_version_GetClientDriverNameReply-                                                           :: CARD32,+                                                           :: Word32,                                                            client_driver_patch_version_GetClientDriverNameReply-                                                           :: CARD32,+                                                           :: Word32,                                                            client_driver_name_len_GetClientDriverNameReply-                                                           :: CARD32,+                                                           :: Word32,                                                            client_driver_name_GetClientDriverNameReply                                                            :: [CChar]}                               deriving (Show, Typeable)@@ -219,9 +220,9 @@                     client_driver_name)   data CreateContext = MkCreateContext{visual_CreateContext ::-                                     CARD32,-                                     screen_CreateContext :: CARD32,-                                     context_CreateContext :: CARD32}+                                     Word32,+                                     screen_CreateContext :: Word32,+                                     context_CreateContext :: Word32}                    deriving (Show, Typeable)   instance ExtensionRequest CreateContext where@@ -232,14 +233,14 @@                let size__                      = 4 + size (visual_CreateContext x) + size (screen_CreateContext x)                          + size (context_CreateContext x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (visual_CreateContext x)                serialize (screen_CreateContext x)                serialize (context_CreateContext x)                putSkip (requiredPadding size__)   data CreateContextReply = MkCreateContextReply{hw_context_CreateContextReply-                                               :: CARD32}+                                               :: Word32}                         deriving (Show, Typeable)   instance Deserialize CreateContextReply where@@ -253,8 +254,8 @@                return (MkCreateContextReply hw_context)   data DestroyContext = MkDestroyContext{screen_DestroyContext ::-                                       CARD32,-                                       context_DestroyContext :: CARD32}+                                       Word32,+                                       context_DestroyContext :: Word32}                     deriving (Show, Typeable)   instance ExtensionRequest DestroyContext where@@ -265,14 +266,14 @@                let size__                      = 4 + size (screen_DestroyContext x) +                          size (context_DestroyContext x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (screen_DestroyContext x)                serialize (context_DestroyContext x)                putSkip (requiredPadding size__)   data CreateDrawable = MkCreateDrawable{screen_CreateDrawable ::-                                       CARD32,-                                       drawable_CreateDrawable :: CARD32}+                                       Word32,+                                       drawable_CreateDrawable :: Word32}                     deriving (Show, Typeable)   instance ExtensionRequest CreateDrawable where@@ -283,13 +284,13 @@                let size__                      = 4 + size (screen_CreateDrawable x) +                          size (drawable_CreateDrawable x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (screen_CreateDrawable x)                serialize (drawable_CreateDrawable x)                putSkip (requiredPadding size__)   data CreateDrawableReply = MkCreateDrawableReply{hw_drawable_handle_CreateDrawableReply-                                                 :: CARD32}+                                                 :: Word32}                          deriving (Show, Typeable)   instance Deserialize CreateDrawableReply where@@ -303,8 +304,8 @@                return (MkCreateDrawableReply hw_drawable_handle)   data DestroyDrawable = MkDestroyDrawable{screen_DestroyDrawable ::-                                         CARD32,-                                         drawable_DestroyDrawable :: CARD32}+                                         Word32,+                                         drawable_DestroyDrawable :: Word32}                      deriving (Show, Typeable)   instance ExtensionRequest DestroyDrawable where@@ -315,14 +316,14 @@                let size__                      = 4 + size (screen_DestroyDrawable x) +                          size (drawable_DestroyDrawable x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (screen_DestroyDrawable x)                serialize (drawable_DestroyDrawable x)                putSkip (requiredPadding size__)   data GetDrawableInfo = MkGetDrawableInfo{screen_GetDrawableInfo ::-                                         CARD32,-                                         drawable_GetDrawableInfo :: CARD32}+                                         Word32,+                                         drawable_GetDrawableInfo :: Word32}                      deriving (Show, Typeable)   instance ExtensionRequest GetDrawableInfo where@@ -333,20 +334,20 @@                let size__                      = 4 + size (screen_GetDrawableInfo x) +                          size (drawable_GetDrawableInfo x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (screen_GetDrawableInfo x)                serialize (drawable_GetDrawableInfo x)                putSkip (requiredPadding size__)   data GetDrawableInfoReply = MkGetDrawableInfoReply{drawable_table_index_GetDrawableInfoReply-                                                   :: CARD32,+                                                   :: Word32,                                                    drawable_table_stamp_GetDrawableInfoReply ::-                                                   CARD32,-                                                   drawable_origin_X_GetDrawableInfoReply :: INT16,-                                                   drawable_origin_Y_GetDrawableInfoReply :: INT16,-                                                   drawable_size_W_GetDrawableInfoReply :: INT16,-                                                   drawable_size_H_GetDrawableInfoReply :: INT16,-                                                   num_clip_rects_GetDrawableInfoReply :: CARD32,+                                                   Word32,+                                                   drawable_origin_X_GetDrawableInfoReply :: Int16,+                                                   drawable_origin_Y_GetDrawableInfoReply :: Int16,+                                                   drawable_size_W_GetDrawableInfoReply :: Int16,+                                                   drawable_size_H_GetDrawableInfoReply :: Int16,+                                                   num_clip_rects_GetDrawableInfoReply :: Word32,                                                    clip_rects_GetDrawableInfoReply :: [DrmClipRect]}                           deriving (Show, Typeable)  @@ -376,7 +377,7 @@                     clip_rects)   data GetDeviceInfo = MkGetDeviceInfo{screen_GetDeviceInfo ::-                                     CARD32}+                                     Word32}                    deriving (Show, Typeable)   instance ExtensionRequest GetDeviceInfo where@@ -385,19 +386,19 @@           = do putWord8 extOpCode                putWord8 10                let size__ = 4 + size (screen_GetDeviceInfo x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (screen_GetDeviceInfo x)                putSkip (requiredPadding size__)   data GetDeviceInfoReply = MkGetDeviceInfoReply{framebuffer_handle_low_GetDeviceInfoReply-                                               :: CARD32,-                                               framebuffer_handle_high_GetDeviceInfoReply :: CARD32,+                                               :: Word32,+                                               framebuffer_handle_high_GetDeviceInfoReply :: Word32,                                                framebuffer_origin_offset_GetDeviceInfoReply ::-                                               CARD32,-                                               framebuffer_size_GetDeviceInfoReply :: CARD32,-                                               framebuffer_stride_GetDeviceInfoReply :: CARD32,-                                               device_private_size_GetDeviceInfoReply :: CARD32,-                                               device_private_GetDeviceInfoReply :: [CARD32]}+                                               Word32,+                                               framebuffer_size_GetDeviceInfoReply :: Word32,+                                               framebuffer_stride_GetDeviceInfoReply :: Word32,+                                               device_private_size_GetDeviceInfoReply :: Word32,+                                               device_private_GetDeviceInfoReply :: [Word32]}                         deriving (Show, Typeable)   instance Deserialize GetDeviceInfoReply where@@ -425,8 +426,8 @@                     device_private)   data AuthConnection = MkAuthConnection{screen_AuthConnection ::-                                       CARD32,-                                       magic_AuthConnection :: CARD32}+                                       Word32,+                                       magic_AuthConnection :: Word32}                     deriving (Show, Typeable)   instance ExtensionRequest AuthConnection where@@ -437,13 +438,13 @@                let size__                      = 4 + size (screen_AuthConnection x) +                          size (magic_AuthConnection x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (screen_AuthConnection x)                serialize (magic_AuthConnection x)                putSkip (requiredPadding size__)   data AuthConnectionReply = MkAuthConnectionReply{authenticated_AuthConnectionReply-                                                 :: CARD32}+                                                 :: Word32}                          deriving (Show, Typeable)   instance Deserialize AuthConnectionReply where
patched/Graphics/XHB/Gen/XFixes.hs view
@@ -16,6 +16,9 @@ import Graphics.XHB.Connection.Types import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import Data.Binary.Put (runPut) import Graphics.XHB.Shared hiding (Event(..), Error(..)) import Graphics.XHB.Gen.Xproto.Types@@ -36,13 +39,13 @@   queryVersion ::                Graphics.XHB.Connection.Types.Connection ->-                 CARD32 -> CARD32 -> IO (Receipt QueryVersionReply)+                 Word32 -> Word32 -> IO (Receipt QueryVersionReply) queryVersion c client_major_version client_minor_version-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkQueryVersion client_major_version client_minor_version        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   changeSaveSet ::@@ -62,7 +65,7 @@   selectCursorInput ::                     Graphics.XHB.Connection.Types.Connection ->-                      WINDOW -> CARD32 -> IO ()+                      WINDOW -> Word32 -> IO () selectCursorInput c window event_mask   = do let req = MkSelectCursorInput window event_mask        putAction <- serializeExtensionRequest c req@@ -73,11 +76,11 @@                  Graphics.XHB.Connection.Types.Connection ->                    IO (Receipt GetCursorImageReply) getCursorImage c-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetCursorImage        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   createRegion ::@@ -200,11 +203,11 @@               Graphics.XHB.Connection.Types.Connection ->                 REGION -> IO (Receipt FetchRegionReply) fetchRegion c region-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkFetchRegion region        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   setGCClipRegion ::@@ -242,22 +245,22 @@                 Graphics.XHB.Connection.Types.Connection ->                   CURSOR -> IO (Receipt GetCursorNameReply) getCursorName c cursor-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetCursorName cursor        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getCursorImageAndName ::                         Graphics.XHB.Connection.Types.Connection ->                           IO (Receipt GetCursorImageAndNameReply) getCursorImageAndName c-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetCursorImageAndName        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   changeCursor ::
patched/Graphics/XHB/Gen/XFixes/Types.hs view
@@ -19,6 +19,7 @@         HideCursor(..), ShowCursor(..))        where import Data.Word+import Data.Int import Foreign.C.Types import Data.Bits import Data.Binary.Put@@ -53,8 +54,8 @@ deserializeEvent _ = Nothing   data QueryVersion = MkQueryVersion{client_major_version_QueryVersion-                                   :: CARD32,-                                   client_minor_version_QueryVersion :: CARD32}+                                   :: Word32,+                                   client_minor_version_QueryVersion :: Word32}                   deriving (Show, Typeable)   instance ExtensionRequest QueryVersion where@@ -65,14 +66,14 @@                let size__                      = 4 + size (client_major_version_QueryVersion x) +                          size (client_minor_version_QueryVersion x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (client_major_version_QueryVersion x)                serialize (client_minor_version_QueryVersion x)                putSkip (requiredPadding size__)   data QueryVersionReply = MkQueryVersionReply{major_version_QueryVersionReply-                                             :: CARD32,-                                             minor_version_QueryVersionReply :: CARD32}+                                             :: Word32,+                                             minor_version_QueryVersionReply :: Word32}                        deriving (Show, Typeable)   instance Deserialize QueryVersionReply where@@ -114,8 +115,8 @@         fromValue 0 = SaveSetMappingMap         fromValue 1 = SaveSetMappingUnmap  -data ChangeSaveSet = MkChangeSaveSet{mode_ChangeSaveSet :: BYTE,-                                     target_ChangeSaveSet :: BYTE, map_ChangeSaveSet :: BYTE,+data ChangeSaveSet = MkChangeSaveSet{mode_ChangeSaveSet :: Word8,+                                     target_ChangeSaveSet :: Word8, map_ChangeSaveSet :: Word8,                                      window_ChangeSaveSet :: WINDOW}                    deriving (Show, Typeable)  @@ -129,7 +130,7 @@                          size (map_ChangeSaveSet x)                          + 1                          + size (window_ChangeSaveSet x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (mode_ChangeSaveSet x)                serialize (target_ChangeSaveSet x)                serialize (map_ChangeSaveSet x)@@ -162,7 +163,7 @@         fromBit 2 = SelectionEventMaskSelectionClientClose   data SelectionNotify = MkSelectionNotify{subtype_SelectionNotify ::-                                         CARD8,+                                         Word8,                                          window_SelectionNotify :: WINDOW,                                          owner_SelectionNotify :: WINDOW,                                          selection_SelectionNotify :: ATOM,@@ -190,7 +191,7 @@ data SelectSelectionInput = MkSelectSelectionInput{window_SelectSelectionInput                                                    :: WINDOW,                                                    selection_SelectSelectionInput :: ATOM,-                                                   event_mask_SelectSelectionInput :: CARD32}+                                                   event_mask_SelectSelectionInput :: Word32}                           deriving (Show, Typeable)   instance ExtensionRequest SelectSelectionInput where@@ -202,7 +203,7 @@                      = 4 + size (window_SelectSelectionInput x) +                          size (selection_SelectSelectionInput x)                          + size (event_mask_SelectSelectionInput x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (window_SelectSelectionInput x)                serialize (selection_SelectSelectionInput x)                serialize (event_mask_SelectSelectionInput x)@@ -220,9 +221,9 @@         toBit CursorNotifyMaskDisplayCursor{} = 0         fromBit 0 = CursorNotifyMaskDisplayCursor  -data CursorNotify = MkCursorNotify{subtype_CursorNotify :: CARD8,+data CursorNotify = MkCursorNotify{subtype_CursorNotify :: Word8,                                    window_CursorNotify :: WINDOW,-                                   cursor_serial_CursorNotify :: CARD32,+                                   cursor_serial_CursorNotify :: Word32,                                    timestamp_CursorNotify :: TIMESTAMP, name_CursorNotify :: ATOM}                   deriving (Show, Typeable)  @@ -242,7 +243,7 @@   data SelectCursorInput = MkSelectCursorInput{window_SelectCursorInput                                              :: WINDOW,-                                             event_mask_SelectCursorInput :: CARD32}+                                             event_mask_SelectCursorInput :: Word32}                        deriving (Show, Typeable)   instance ExtensionRequest SelectCursorInput where@@ -253,7 +254,7 @@                let size__                      = 4 + size (window_SelectCursorInput x) +                          size (event_mask_SelectCursorInput x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (window_SelectCursorInput x)                serialize (event_mask_SelectCursorInput x)                putSkip (requiredPadding size__)@@ -267,18 +268,18 @@           = do putWord8 extOpCode                putWord8 4                let size__ = 4-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                putSkip (requiredPadding size__)   data GetCursorImageReply = MkGetCursorImageReply{x_GetCursorImageReply-                                                 :: INT16,-                                                 y_GetCursorImageReply :: INT16,-                                                 width_GetCursorImageReply :: CARD16,-                                                 height_GetCursorImageReply :: CARD16,-                                                 xhot_GetCursorImageReply :: CARD16,-                                                 yhot_GetCursorImageReply :: CARD16,-                                                 cursor_serial_GetCursorImageReply :: CARD32,-                                                 cursor_image_GetCursorImageReply :: [CARD32]}+                                                 :: Int16,+                                                 y_GetCursorImageReply :: Int16,+                                                 width_GetCursorImageReply :: Word16,+                                                 height_GetCursorImageReply :: Word16,+                                                 xhot_GetCursorImageReply :: Word16,+                                                 yhot_GetCursorImageReply :: Word16,+                                                 cursor_serial_GetCursorImageReply :: Word32,+                                                 cursor_image_GetCursorImageReply :: [Word32]}                          deriving (Show, Typeable)   instance Deserialize GetCursorImageReply where@@ -317,7 +318,7 @@                let size__                      = 4 + size (region_CreateRegion x) +                          sum (map size (rectangles_CreateRegion x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (region_CreateRegion x)                serializeList (rectangles_CreateRegion x)                putSkip (requiredPadding size__)@@ -335,7 +336,7 @@                let size__                      = 4 + size (region_CreateRegionFromBitmap x) +                          size (bitmap_CreateRegionFromBitmap x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (region_CreateRegionFromBitmap x)                serialize (bitmap_CreateRegionFromBitmap x)                putSkip (requiredPadding size__)@@ -357,7 +358,7 @@                          size (window_CreateRegionFromWindow x)                          + size (kind_CreateRegionFromWindow x)                          + 3-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (region_CreateRegionFromWindow x)                serialize (window_CreateRegionFromWindow x)                serialize (kind_CreateRegionFromWindow x)@@ -377,7 +378,7 @@                let size__                      = 4 + size (region_CreateRegionFromGC x) +                          size (gc_CreateRegionFromGC x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (region_CreateRegionFromGC x)                serialize (gc_CreateRegionFromGC x)                putSkip (requiredPadding size__)@@ -395,7 +396,7 @@                let size__                      = 4 + size (region_CreateRegionFromPicture x) +                          size (picture_CreateRegionFromPicture x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (region_CreateRegionFromPicture x)                serialize (picture_CreateRegionFromPicture x)                putSkip (requiredPadding size__)@@ -410,7 +411,7 @@           = do putWord8 extOpCode                putWord8 10                let size__ = 4 + size (region_DestroyRegion x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (region_DestroyRegion x)                putSkip (requiredPadding size__)  @@ -426,7 +427,7 @@                let size__                      = 4 + size (region_SetRegion x) +                          sum (map size (rectangles_SetRegion x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (region_SetRegion x)                serializeList (rectangles_SetRegion x)                putSkip (requiredPadding size__)@@ -442,7 +443,7 @@                putWord8 12                let size__                      = 4 + size (source_CopyRegion x) + size (destination_CopyRegion x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (source_CopyRegion x)                serialize (destination_CopyRegion x)                putSkip (requiredPadding size__)@@ -459,7 +460,7 @@                let size__                      = 4 + size (source1_UnionRegion x) + size (source2_UnionRegion x) +                          size (destination_UnionRegion x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (source1_UnionRegion x)                serialize (source2_UnionRegion x)                serialize (destination_UnionRegion x)@@ -480,7 +481,7 @@                      = 4 + size (source1_IntersectRegion x) +                          size (source2_IntersectRegion x)                          + size (destination_IntersectRegion x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (source1_IntersectRegion x)                serialize (source2_IntersectRegion x)                serialize (destination_IntersectRegion x)@@ -501,7 +502,7 @@                      = 4 + size (source1_SubtractRegion x) +                          size (source2_SubtractRegion x)                          + size (destination_SubtractRegion x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (source1_SubtractRegion x)                serialize (source2_SubtractRegion x)                serialize (destination_SubtractRegion x)@@ -520,7 +521,7 @@                let size__                      = 4 + size (source_InvertRegion x) + size (bounds_InvertRegion x) +                          size (destination_InvertRegion x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (source_InvertRegion x)                serialize (bounds_InvertRegion x)                serialize (destination_InvertRegion x)@@ -528,7 +529,7 @@   data TranslateRegion = MkTranslateRegion{region_TranslateRegion ::                                          REGION,-                                         dx_TranslateRegion :: INT16, dy_TranslateRegion :: INT16}+                                         dx_TranslateRegion :: Int16, dy_TranslateRegion :: Int16}                      deriving (Show, Typeable)   instance ExtensionRequest TranslateRegion where@@ -539,7 +540,7 @@                let size__                      = 4 + size (region_TranslateRegion x) + size (dx_TranslateRegion x)                          + size (dy_TranslateRegion x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (region_TranslateRegion x)                serialize (dx_TranslateRegion x)                serialize (dy_TranslateRegion x)@@ -558,7 +559,7 @@                let size__                      = 4 + size (source_RegionExtents x) +                          size (destination_RegionExtents x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (source_RegionExtents x)                serialize (destination_RegionExtents x)                putSkip (requiredPadding size__)@@ -572,7 +573,7 @@           = do putWord8 extOpCode                putWord8 19                let size__ = 4 + size (region_FetchRegion x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (region_FetchRegion x)                putSkip (requiredPadding size__)  @@ -596,8 +597,8 @@ data SetGCClipRegion = MkSetGCClipRegion{gc_SetGCClipRegion ::                                          GCONTEXT,                                          region_SetGCClipRegion :: REGION,-                                         x_origin_SetGCClipRegion :: INT16,-                                         y_origin_SetGCClipRegion :: INT16}+                                         x_origin_SetGCClipRegion :: Int16,+                                         y_origin_SetGCClipRegion :: Int16}                      deriving (Show, Typeable)   instance ExtensionRequest SetGCClipRegion where@@ -609,7 +610,7 @@                      = 4 + size (gc_SetGCClipRegion x) + size (region_SetGCClipRegion x)                          + size (x_origin_SetGCClipRegion x)                          + size (y_origin_SetGCClipRegion x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (gc_SetGCClipRegion x)                serialize (region_SetGCClipRegion x)                serialize (x_origin_SetGCClipRegion x)@@ -620,8 +621,8 @@                                                    :: WINDOW,                                                    dest_kind_SetWindowShapeRegion ::                                                    Graphics.XHB.Gen.Shape.Types.KIND,-                                                   x_offset_SetWindowShapeRegion :: INT16,-                                                   y_offset_SetWindowShapeRegion :: INT16,+                                                   x_offset_SetWindowShapeRegion :: Int16,+                                                   y_offset_SetWindowShapeRegion :: Int16,                                                    region_SetWindowShapeRegion :: REGION}                           deriving (Show, Typeable)  @@ -637,7 +638,7 @@                          + size (x_offset_SetWindowShapeRegion x)                          + size (y_offset_SetWindowShapeRegion x)                          + size (region_SetWindowShapeRegion x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (dest_SetWindowShapeRegion x)                serialize (dest_kind_SetWindowShapeRegion x)                putSkip 3@@ -649,8 +650,8 @@ data SetPictureClipRegion = MkSetPictureClipRegion{picture_SetPictureClipRegion                                                    :: PICTURE,                                                    region_SetPictureClipRegion :: REGION,-                                                   x_origin_SetPictureClipRegion :: INT16,-                                                   y_origin_SetPictureClipRegion :: INT16}+                                                   x_origin_SetPictureClipRegion :: Int16,+                                                   y_origin_SetPictureClipRegion :: Int16}                           deriving (Show, Typeable)   instance ExtensionRequest SetPictureClipRegion where@@ -663,7 +664,7 @@                          size (region_SetPictureClipRegion x)                          + size (x_origin_SetPictureClipRegion x)                          + size (y_origin_SetPictureClipRegion x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (picture_SetPictureClipRegion x)                serialize (region_SetPictureClipRegion x)                serialize (x_origin_SetPictureClipRegion x)@@ -672,7 +673,7 @@   data SetCursorName = MkSetCursorName{cursor_SetCursorName ::                                      CURSOR,-                                     nbytes_SetCursorName :: CARD16, name_SetCursorName :: [CChar]}+                                     nbytes_SetCursorName :: Word16, name_SetCursorName :: [CChar]}                    deriving (Show, Typeable)   instance ExtensionRequest SetCursorName where@@ -684,7 +685,7 @@                      = 4 + size (cursor_SetCursorName x) + size (nbytes_SetCursorName x)                          + 2                          + sum (map size (name_SetCursorName x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (cursor_SetCursorName x)                serialize (nbytes_SetCursorName x)                putSkip 2@@ -701,13 +702,13 @@           = do putWord8 extOpCode                putWord8 24                let size__ = 4 + size (cursor_GetCursorName x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (cursor_GetCursorName x)                putSkip (requiredPadding size__)   data GetCursorNameReply = MkGetCursorNameReply{atom_GetCursorNameReply                                                :: ATOM,-                                               nbytes_GetCursorNameReply :: CARD16,+                                               nbytes_GetCursorNameReply :: Word16,                                                name_GetCursorNameReply :: [CChar]}                         deriving (Show, Typeable)  @@ -733,31 +734,31 @@           = do putWord8 extOpCode                putWord8 25                let size__ = 4-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                putSkip (requiredPadding size__)   data GetCursorImageAndNameReply = MkGetCursorImageAndNameReply{x_GetCursorImageAndNameReply-                                                               :: INT16,+                                                               :: Int16,                                                                y_GetCursorImageAndNameReply ::-                                                               INT16,+                                                               Int16,                                                                width_GetCursorImageAndNameReply ::-                                                               CARD16,+                                                               Word16,                                                                height_GetCursorImageAndNameReply ::-                                                               CARD16,+                                                               Word16,                                                                xhot_GetCursorImageAndNameReply ::-                                                               CARD16,+                                                               Word16,                                                                yhot_GetCursorImageAndNameReply ::-                                                               CARD16,+                                                               Word16,                                                                cursor_serial_GetCursorImageAndNameReply-                                                               :: CARD32,+                                                               :: Word32,                                                                cursor_atom_GetCursorImageAndNameReply                                                                :: ATOM,                                                                nbytes_GetCursorImageAndNameReply ::-                                                               CARD16,+                                                               Word16,                                                                name_GetCursorImageAndNameReply ::                                                                [CChar],                                                                cursor_image_GetCursorImageAndNameReply-                                                               :: [CARD32]}+                                                               :: [Word32]}                                 deriving (Show, Typeable)   instance Deserialize GetCursorImageAndNameReply where@@ -800,14 +801,14 @@                let size__                      = 4 + size (source_ChangeCursor x) +                          size (destination_ChangeCursor x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (source_ChangeCursor x)                serialize (destination_ChangeCursor x)                putSkip (requiredPadding size__)   data ChangeCursorByName = MkChangeCursorByName{src_ChangeCursorByName                                                :: CURSOR,-                                               nbytes_ChangeCursorByName :: CARD16,+                                               nbytes_ChangeCursorByName :: Word16,                                                name_ChangeCursorByName :: [CChar]}                         deriving (Show, Typeable)  @@ -821,7 +822,7 @@                          size (nbytes_ChangeCursorByName x)                          + 2                          + sum (map size (name_ChangeCursorByName x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (src_ChangeCursorByName x)                serialize (nbytes_ChangeCursorByName x)                putSkip 2@@ -829,9 +830,9 @@                putSkip (requiredPadding size__)   data ExpandRegion = MkExpandRegion{source_ExpandRegion :: REGION,-                                   destination_ExpandRegion :: REGION, left_ExpandRegion :: CARD16,-                                   right_ExpandRegion :: CARD16, top_ExpandRegion :: CARD16,-                                   bottom_ExpandRegion :: CARD16}+                                   destination_ExpandRegion :: REGION, left_ExpandRegion :: Word16,+                                   right_ExpandRegion :: Word16, top_ExpandRegion :: Word16,+                                   bottom_ExpandRegion :: Word16}                   deriving (Show, Typeable)   instance ExtensionRequest ExpandRegion where@@ -846,7 +847,7 @@                          + size (right_ExpandRegion x)                          + size (top_ExpandRegion x)                          + size (bottom_ExpandRegion x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (source_ExpandRegion x)                serialize (destination_ExpandRegion x)                serialize (left_ExpandRegion x)@@ -864,7 +865,7 @@           = do putWord8 extOpCode                putWord8 29                let size__ = 4 + size (window_HideCursor x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (window_HideCursor x)                putSkip (requiredPadding size__)  @@ -877,6 +878,6 @@           = do putWord8 extOpCode                putWord8 30                let size__ = 4 + size (window_ShowCursor x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (window_ShowCursor x)                putSkip (requiredPadding size__)
patched/Graphics/XHB/Gen/XPrint.hs view
@@ -14,6 +14,9 @@ import Graphics.XHB.Connection.Types import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import Data.Binary.Put (runPut) import Graphics.XHB.Shared hiding (Event(..), Error(..)) import Graphics.XHB.Gen.Xproto.Types@@ -27,21 +30,21 @@                     Graphics.XHB.Connection.Types.Connection ->                       IO (Receipt PrintQueryVersionReply) printQueryVersion c-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkPrintQueryVersion        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   printGetPrinterList ::                       Graphics.XHB.Connection.Types.Connection ->                         PrintGetPrinterList -> IO (Receipt PrintGetPrinterListReply) printGetPrinterList c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   createContext ::@@ -52,7 +55,7 @@        sendRequest c chunk   printSetContext ::-                  Graphics.XHB.Connection.Types.Connection -> CARD32 -> IO ()+                  Graphics.XHB.Connection.Types.Connection -> Word32 -> IO () printSetContext c context   = do let req = MkPrintSetContext context        putAction <- serializeExtensionRequest c req@@ -60,18 +63,18 @@        sendRequest c chunk   printGetContext ::-                  Graphics.XHB.Connection.Types.Connection ->-                    IO (Receipt PrintGetContextReply)+                  Graphics.XHB.Connection.Types.Connection -> IO (Receipt Word32) printGetContext c-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet (context_PrintGetContextReply `fmap` deserialize))        let req = MkPrintGetContext        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   printDestroyContext ::-                      Graphics.XHB.Connection.Types.Connection -> CARD32 -> IO ()+                      Graphics.XHB.Connection.Types.Connection -> Word32 -> IO () printDestroyContext c context   = do let req = MkPrintDestroyContext context        putAction <- serializeExtensionRequest c req@@ -79,18 +82,18 @@        sendRequest c chunk   printGetScreenOfContext ::-                          Graphics.XHB.Connection.Types.Connection ->-                            IO (Receipt PrintGetScreenOfContextReply)+                          Graphics.XHB.Connection.Types.Connection -> IO (Receipt WINDOW) printGetScreenOfContext c-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet (root_PrintGetScreenOfContextReply `fmap` deserialize))        let req = MkPrintGetScreenOfContext        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   printStartJob ::-                Graphics.XHB.Connection.Types.Connection -> CARD8 -> IO ()+                Graphics.XHB.Connection.Types.Connection -> Word8 -> IO () printStartJob c output_mode   = do let req = MkPrintStartJob output_mode        putAction <- serializeExtensionRequest c req@@ -98,7 +101,7 @@        sendRequest c chunk   printEndJob ::-              Graphics.XHB.Connection.Types.Connection -> BOOL -> IO ()+              Graphics.XHB.Connection.Types.Connection -> Bool -> IO () printEndJob c cancel   = do let req = MkPrintEndJob cancel        putAction <- serializeExtensionRequest c req@@ -106,7 +109,7 @@        sendRequest c chunk   printStartDoc ::-                Graphics.XHB.Connection.Types.Connection -> CARD8 -> IO ()+                Graphics.XHB.Connection.Types.Connection -> Word8 -> IO () printStartDoc c driver_mode   = do let req = MkPrintStartDoc driver_mode        putAction <- serializeExtensionRequest c req@@ -114,7 +117,7 @@        sendRequest c chunk   printEndDoc ::-              Graphics.XHB.Connection.Types.Connection -> BOOL -> IO ()+              Graphics.XHB.Connection.Types.Connection -> Bool -> IO () printEndDoc c cancel   = do let req = MkPrintEndDoc cancel        putAction <- serializeExtensionRequest c req@@ -131,13 +134,13 @@   printGetDocumentData ::                        Graphics.XHB.Connection.Types.Connection ->-                         PCONTEXT -> CARD32 -> IO (Receipt PrintGetDocumentDataReply)+                         PCONTEXT -> Word32 -> IO (Receipt PrintGetDocumentDataReply) printGetDocumentData c context max_bytes-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkPrintGetDocumentData context max_bytes        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   printStartPage ::@@ -149,7 +152,7 @@        sendRequest c chunk   printEndPage ::-               Graphics.XHB.Connection.Types.Connection -> BOOL -> IO ()+               Graphics.XHB.Connection.Types.Connection -> Bool -> IO () printEndPage c cancel   = do let req = MkPrintEndPage cancel        putAction <- serializeExtensionRequest c req@@ -158,7 +161,7 @@   printSelectInput ::                    Graphics.XHB.Connection.Types.Connection ->-                     PCONTEXT -> ValueParam CARD32 -> IO ()+                     PCONTEXT -> ValueParam Word32 -> IO () printSelectInput c context event   = do let req = MkPrintSelectInput context event        putAction <- serializeExtensionRequest c req@@ -169,32 +172,32 @@                      Graphics.XHB.Connection.Types.Connection ->                        PCONTEXT -> IO (Receipt PrintInputSelectedReply) printInputSelected c context-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkPrintInputSelected context        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   printGetAttributes ::                      Graphics.XHB.Connection.Types.Connection ->-                       PCONTEXT -> CARD8 -> IO (Receipt PrintGetAttributesReply)+                       PCONTEXT -> Word8 -> IO (Receipt PrintGetAttributesReply) printGetAttributes c context pool-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkPrintGetAttributes context pool        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   printGetOneAttributes ::                         Graphics.XHB.Connection.Types.Connection ->                           PrintGetOneAttributes -> IO (Receipt PrintGetOneAttributesReply) printGetOneAttributes c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   printSetAttributes ::@@ -209,42 +212,45 @@                          Graphics.XHB.Connection.Types.Connection ->                            PCONTEXT -> IO (Receipt PrintGetPageDimensionsReply) printGetPageDimensions c context-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkPrintGetPageDimensions context        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   printQueryScreens ::                     Graphics.XHB.Connection.Types.Connection ->                       IO (Receipt PrintQueryScreensReply) printQueryScreens c-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkPrintQueryScreens        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   printSetImageResolution ::                           Graphics.XHB.Connection.Types.Connection ->-                            PCONTEXT -> CARD16 -> IO (Receipt PrintSetImageResolutionReply)+                            PCONTEXT -> Word16 -> IO (Receipt PrintSetImageResolutionReply) printSetImageResolution c context image_resolution-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkPrintSetImageResolution context image_resolution        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   printGetImageResolution ::                           Graphics.XHB.Connection.Types.Connection ->-                            PCONTEXT -> IO (Receipt PrintGetImageResolutionReply)+                            PCONTEXT -> IO (Receipt Word16) printGetImageResolution c context-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet+                                   (image_resolution_PrintGetImageResolutionReply `fmap`+                                      deserialize))        let req = MkPrintGetImageResolution context        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt
patched/Graphics/XHB/Gen/XPrint/Types.hs view
@@ -20,6 +20,7 @@         PrintGetImageResolutionReply(..), Notify(..), AttributNotify(..))        where import Data.Word+import Data.Int import Foreign.C.Types import Data.Bits import Data.Binary.Put@@ -46,8 +47,8 @@   type STRING8 = CChar  -data PRINTER = MkPRINTER{nameLen_PRINTER :: CARD32,-                         name_PRINTER :: [STRING8], descLen_PRINTER :: CARD32,+data PRINTER = MkPRINTER{nameLen_PRINTER :: Word32,+                         name_PRINTER :: [STRING8], descLen_PRINTER :: Word32,                          description_PRINTER :: [STRING8]}              deriving (Show, Typeable)  @@ -145,13 +146,13 @@           = do putWord8 extOpCode                putWord8 0                let size__ = 4-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                putSkip (requiredPadding size__)   data PrintQueryVersionReply = MkPrintQueryVersionReply{major_version_PrintQueryVersionReply-                                                       :: CARD16,+                                                       :: Word16,                                                        minor_version_PrintQueryVersionReply ::-                                                       CARD16}+                                                       Word16}                             deriving (Show, Typeable)   instance Deserialize PrintQueryVersionReply where@@ -166,8 +167,8 @@                return (MkPrintQueryVersionReply major_version minor_version)   data PrintGetPrinterList = MkPrintGetPrinterList{printerNameLen_PrintGetPrinterList-                                                 :: CARD32,-                                                 localeLen_PrintGetPrinterList :: CARD32,+                                                 :: Word32,+                                                 localeLen_PrintGetPrinterList :: Word32,                                                  printer_name_PrintGetPrinterList :: [STRING8],                                                  locale_PrintGetPrinterList :: [STRING8]}                          deriving (Show, Typeable)@@ -182,7 +183,7 @@                          size (localeLen_PrintGetPrinterList x)                          + sum (map size (printer_name_PrintGetPrinterList x))                          + sum (map size (locale_PrintGetPrinterList x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (printerNameLen_PrintGetPrinterList x)                serialize (localeLen_PrintGetPrinterList x)                serializeList (printer_name_PrintGetPrinterList x)@@ -190,7 +191,7 @@                putSkip (requiredPadding size__)   data PrintGetPrinterListReply = MkPrintGetPrinterListReply{listCount_PrintGetPrinterListReply-                                                           :: CARD32,+                                                           :: Word32,                                                            printers_PrintGetPrinterListReply ::                                                            [PRINTER]}                               deriving (Show, Typeable)@@ -208,9 +209,9 @@                return (MkPrintGetPrinterListReply listCount printers)   data CreateContext = MkCreateContext{context_id_CreateContext ::-                                     CARD32,-                                     printerNameLen_CreateContext :: CARD32,-                                     localeLen_CreateContext :: CARD32,+                                     Word32,+                                     printerNameLen_CreateContext :: Word32,+                                     localeLen_CreateContext :: Word32,                                      printerName_CreateContext :: [STRING8],                                      locale_CreateContext :: [STRING8]}                    deriving (Show, Typeable)@@ -226,7 +227,7 @@                          + size (localeLen_CreateContext x)                          + sum (map size (printerName_CreateContext x))                          + sum (map size (locale_CreateContext x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_id_CreateContext x)                serialize (printerNameLen_CreateContext x)                serialize (localeLen_CreateContext x)@@ -235,7 +236,7 @@                putSkip (requiredPadding size__)   data PrintSetContext = MkPrintSetContext{context_PrintSetContext ::-                                         CARD32}+                                         Word32}                      deriving (Show, Typeable)   instance ExtensionRequest PrintSetContext where@@ -244,7 +245,7 @@           = do putWord8 extOpCode                putWord8 3                let size__ = 4 + size (context_PrintSetContext x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_PrintSetContext x)                putSkip (requiredPadding size__)  @@ -257,11 +258,11 @@           = do putWord8 extOpCode                putWord8 4                let size__ = 4-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                putSkip (requiredPadding size__)   data PrintGetContextReply = MkPrintGetContextReply{context_PrintGetContextReply-                                                   :: CARD32}+                                                   :: Word32}                           deriving (Show, Typeable)   instance Deserialize PrintGetContextReply where@@ -275,7 +276,7 @@                return (MkPrintGetContextReply context)   data PrintDestroyContext = MkPrintDestroyContext{context_PrintDestroyContext-                                                 :: CARD32}+                                                 :: Word32}                          deriving (Show, Typeable)   instance ExtensionRequest PrintDestroyContext where@@ -284,7 +285,7 @@           = do putWord8 extOpCode                putWord8 5                let size__ = 4 + size (context_PrintDestroyContext x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_PrintDestroyContext x)                putSkip (requiredPadding size__)  @@ -297,7 +298,7 @@           = do putWord8 extOpCode                putWord8 6                let size__ = 4-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                putSkip (requiredPadding size__)   data PrintGetScreenOfContextReply = MkPrintGetScreenOfContextReply{root_PrintGetScreenOfContextReply@@ -315,7 +316,7 @@                return (MkPrintGetScreenOfContextReply root)   data PrintStartJob = MkPrintStartJob{output_mode_PrintStartJob ::-                                     CARD8}+                                     Word8}                    deriving (Show, Typeable)   instance ExtensionRequest PrintStartJob where@@ -324,11 +325,11 @@           = do putWord8 extOpCode                putWord8 7                let size__ = 4 + size (output_mode_PrintStartJob x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (output_mode_PrintStartJob x)                putSkip (requiredPadding size__)  -data PrintEndJob = MkPrintEndJob{cancel_PrintEndJob :: BOOL}+data PrintEndJob = MkPrintEndJob{cancel_PrintEndJob :: Bool}                  deriving (Show, Typeable)   instance ExtensionRequest PrintEndJob where@@ -337,12 +338,12 @@           = do putWord8 extOpCode                putWord8 8                let size__ = 4 + size (cancel_PrintEndJob x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (cancel_PrintEndJob x)                putSkip (requiredPadding size__)   data PrintStartDoc = MkPrintStartDoc{driver_mode_PrintStartDoc ::-                                     CARD8}+                                     Word8}                    deriving (Show, Typeable)   instance ExtensionRequest PrintStartDoc where@@ -351,11 +352,11 @@           = do putWord8 extOpCode                putWord8 9                let size__ = 4 + size (driver_mode_PrintStartDoc x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (driver_mode_PrintStartDoc x)                putSkip (requiredPadding size__)  -data PrintEndDoc = MkPrintEndDoc{cancel_PrintEndDoc :: BOOL}+data PrintEndDoc = MkPrintEndDoc{cancel_PrintEndDoc :: Bool}                  deriving (Show, Typeable)   instance ExtensionRequest PrintEndDoc where@@ -364,16 +365,16 @@           = do putWord8 extOpCode                putWord8 10                let size__ = 4 + size (cancel_PrintEndDoc x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (cancel_PrintEndDoc x)                putSkip (requiredPadding size__)   data PrintPutDocumentData = MkPrintPutDocumentData{drawable_PrintPutDocumentData                                                    :: DRAWABLE,-                                                   len_data_PrintPutDocumentData :: CARD32,-                                                   len_fmt_PrintPutDocumentData :: CARD16,-                                                   len_options_PrintPutDocumentData :: CARD16,-                                                   data_PrintPutDocumentData :: [BYTE],+                                                   len_data_PrintPutDocumentData :: Word32,+                                                   len_fmt_PrintPutDocumentData :: Word16,+                                                   len_options_PrintPutDocumentData :: Word16,+                                                   data_PrintPutDocumentData :: [Word8],                                                    doc_format_PrintPutDocumentData :: [STRING8],                                                    options_PrintPutDocumentData :: [STRING8]}                           deriving (Show, Typeable)@@ -391,7 +392,7 @@                          + sum (map size (data_PrintPutDocumentData x))                          + sum (map size (doc_format_PrintPutDocumentData x))                          + sum (map size (options_PrintPutDocumentData x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (drawable_PrintPutDocumentData x)                serialize (len_data_PrintPutDocumentData x)                serialize (len_fmt_PrintPutDocumentData x)@@ -403,7 +404,7 @@   data PrintGetDocumentData = MkPrintGetDocumentData{context_PrintGetDocumentData                                                    :: PCONTEXT,-                                                   max_bytes_PrintGetDocumentData :: CARD32}+                                                   max_bytes_PrintGetDocumentData :: Word32}                           deriving (Show, Typeable)   instance ExtensionRequest PrintGetDocumentData where@@ -414,19 +415,19 @@                let size__                      = 4 + size (context_PrintGetDocumentData x) +                          size (max_bytes_PrintGetDocumentData x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_PrintGetDocumentData x)                serialize (max_bytes_PrintGetDocumentData x)                putSkip (requiredPadding size__)   data PrintGetDocumentDataReply = MkPrintGetDocumentDataReply{status_code_PrintGetDocumentDataReply-                                                             :: CARD32,+                                                             :: Word32,                                                              finished_flag_PrintGetDocumentDataReply-                                                             :: CARD32,+                                                             :: Word32,                                                              dataLen_PrintGetDocumentDataReply ::-                                                             CARD32,+                                                             Word32,                                                              data_PrintGetDocumentDataReply ::-                                                             [BYTE]}+                                                             [Word8]}                                deriving (Show, Typeable)   instance Deserialize PrintGetDocumentDataReply where@@ -455,11 +456,11 @@           = do putWord8 extOpCode                putWord8 13                let size__ = 4 + size (window_PrintStartPage x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (window_PrintStartPage x)                putSkip (requiredPadding size__)  -data PrintEndPage = MkPrintEndPage{cancel_PrintEndPage :: BOOL}+data PrintEndPage = MkPrintEndPage{cancel_PrintEndPage :: Bool}                   deriving (Show, Typeable)   instance ExtensionRequest PrintEndPage where@@ -468,14 +469,14 @@           = do putWord8 extOpCode                putWord8 14                let size__ = 4 + size (cancel_PrintEndPage x) + 3-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (cancel_PrintEndPage x)                putSkip 3                putSkip (requiredPadding size__)   data PrintSelectInput = MkPrintSelectInput{context_PrintSelectInput                                            :: PCONTEXT,-                                           event_PrintSelectInput :: ValueParam CARD32}+                                           event_PrintSelectInput :: ValueParam Word32}                       deriving (Show, Typeable)   instance ExtensionRequest PrintSelectInput where@@ -486,7 +487,7 @@                let size__                      = 4 + size (context_PrintSelectInput x) +                          size (event_PrintSelectInput x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_PrintSelectInput x)                serialize (event_PrintSelectInput x)                putSkip (requiredPadding size__)@@ -501,14 +502,14 @@           = do putWord8 extOpCode                putWord8 16                let size__ = 4 + size (context_PrintInputSelected x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_PrintInputSelected x)                putSkip (requiredPadding size__)   data PrintInputSelectedReply = MkPrintInputSelectedReply{event_PrintInputSelectedReply-                                                         :: ValueParam CARD32,+                                                         :: ValueParam Word32,                                                          all_events_PrintInputSelectedReply ::-                                                         ValueParam CARD32}+                                                         ValueParam Word32}                              deriving (Show, Typeable)   instance Deserialize PrintInputSelectedReply where@@ -524,7 +525,7 @@   data PrintGetAttributes = MkPrintGetAttributes{context_PrintGetAttributes                                                :: PCONTEXT,-                                               pool_PrintGetAttributes :: CARD8}+                                               pool_PrintGetAttributes :: Word8}                         deriving (Show, Typeable)   instance ExtensionRequest PrintGetAttributes where@@ -536,14 +537,14 @@                      = 4 + size (context_PrintGetAttributes x) +                          size (pool_PrintGetAttributes x)                          + 3-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_PrintGetAttributes x)                serialize (pool_PrintGetAttributes x)                putSkip 3                putSkip (requiredPadding size__)   data PrintGetAttributesReply = MkPrintGetAttributesReply{stringLen_PrintGetAttributesReply-                                                         :: CARD32,+                                                         :: Word32,                                                          attributes_PrintGetAttributesReply ::                                                          STRING8}                              deriving (Show, Typeable)@@ -562,8 +563,8 @@   data PrintGetOneAttributes = MkPrintGetOneAttributes{context_PrintGetOneAttributes                                                      :: PCONTEXT,-                                                     nameLen_PrintGetOneAttributes :: CARD32,-                                                     pool_PrintGetOneAttributes :: CARD8,+                                                     nameLen_PrintGetOneAttributes :: Word32,+                                                     pool_PrintGetOneAttributes :: Word8,                                                      name_PrintGetOneAttributes :: [STRING8]}                            deriving (Show, Typeable)  @@ -578,7 +579,7 @@                          + size (pool_PrintGetOneAttributes x)                          + 3                          + sum (map size (name_PrintGetOneAttributes x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_PrintGetOneAttributes x)                serialize (nameLen_PrintGetOneAttributes x)                serialize (pool_PrintGetOneAttributes x)@@ -587,7 +588,7 @@                putSkip (requiredPadding size__)   data PrintGetOneAttributesReply = MkPrintGetOneAttributesReply{valueLen_PrintGetOneAttributesReply-                                                               :: CARD32,+                                                               :: Word32,                                                                value_PrintGetOneAttributesReply ::                                                                [STRING8]}                                 deriving (Show, Typeable)@@ -606,9 +607,9 @@   data PrintSetAttributes = MkPrintSetAttributes{context_PrintSetAttributes                                                :: PCONTEXT,-                                               stringLen_PrintSetAttributes :: CARD32,-                                               pool_PrintSetAttributes :: CARD8,-                                               rule_PrintSetAttributes :: CARD8,+                                               stringLen_PrintSetAttributes :: Word32,+                                               pool_PrintSetAttributes :: Word8,+                                               rule_PrintSetAttributes :: Word8,                                                attributes_PrintSetAttributes :: [STRING8]}                         deriving (Show, Typeable)  @@ -624,7 +625,7 @@                          + size (rule_PrintSetAttributes x)                          + 2                          + sum (map size (attributes_PrintSetAttributes x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_PrintSetAttributes x)                serialize (stringLen_PrintSetAttributes x)                serialize (pool_PrintSetAttributes x)@@ -643,22 +644,22 @@           = do putWord8 extOpCode                putWord8 21                let size__ = 4 + size (context_PrintGetPageDimensions x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_PrintGetPageDimensions x)                putSkip (requiredPadding size__)   data PrintGetPageDimensionsReply = MkPrintGetPageDimensionsReply{width_PrintGetPageDimensionsReply-                                                                 :: CARD16,+                                                                 :: Word16,                                                                  height_PrintGetPageDimensionsReply-                                                                 :: CARD16,+                                                                 :: Word16,                                                                  offset_x_PrintGetPageDimensionsReply-                                                                 :: CARD16,+                                                                 :: Word16,                                                                  offset_y_PrintGetPageDimensionsReply-                                                                 :: CARD16,+                                                                 :: Word16,                                                                  reproducible_width_PrintGetPageDimensionsReply-                                                                 :: CARD16,+                                                                 :: Word16,                                                                  reproducible_height_PrintGetPageDimensionsReply-                                                                 :: CARD16}+                                                                 :: Word16}                                  deriving (Show, Typeable)   instance Deserialize PrintGetPageDimensionsReply where@@ -688,11 +689,11 @@           = do putWord8 extOpCode                putWord8 22                let size__ = 4-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                putSkip (requiredPadding size__)   data PrintQueryScreensReply = MkPrintQueryScreensReply{listCount_PrintQueryScreensReply-                                                       :: CARD32,+                                                       :: Word32,                                                        roots_PrintQueryScreensReply :: [WINDOW]}                             deriving (Show, Typeable)  @@ -711,7 +712,7 @@ data PrintSetImageResolution = MkPrintSetImageResolution{context_PrintSetImageResolution                                                          :: PCONTEXT,                                                          image_resolution_PrintSetImageResolution ::-                                                         CARD16}+                                                         Word16}                              deriving (Show, Typeable)   instance ExtensionRequest PrintSetImageResolution where@@ -722,15 +723,15 @@                let size__                      = 4 + size (context_PrintSetImageResolution x) +                          size (image_resolution_PrintSetImageResolution x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_PrintSetImageResolution x)                serialize (image_resolution_PrintSetImageResolution x)                putSkip (requiredPadding size__)   data PrintSetImageResolutionReply = MkPrintSetImageResolutionReply{status_PrintSetImageResolutionReply-                                                                   :: BOOL,+                                                                   :: Bool,                                                                    previous_resolutions_PrintSetImageResolutionReply-                                                                   :: CARD16}+                                                                   :: Word16}                                   deriving (Show, Typeable)   instance Deserialize PrintSetImageResolutionReply where@@ -753,12 +754,12 @@           = do putWord8 extOpCode                putWord8 24                let size__ = 4 + size (context_PrintGetImageResolution x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_PrintGetImageResolution x)                putSkip (requiredPadding size__)   data PrintGetImageResolutionReply = MkPrintGetImageResolutionReply{image_resolution_PrintGetImageResolutionReply-                                                                   :: CARD16}+                                                                   :: Word16}                                   deriving (Show, Typeable)   instance Deserialize PrintGetImageResolutionReply where@@ -771,8 +772,8 @@                let _ = isCard32 length                return (MkPrintGetImageResolutionReply image_resolution)  -data Notify = MkNotify{detail_Notify :: CARD8,-                       context_Notify :: PCONTEXT, cancel_Notify :: BOOL}+data Notify = MkNotify{detail_Notify :: Word8,+                       context_Notify :: PCONTEXT, cancel_Notify :: Bool}             deriving (Show, Typeable)   instance Graphics.XHB.Shared.Event Notify@@ -787,7 +788,7 @@                return (MkNotify detail context cancel)   data AttributNotify = MkAttributNotify{detail_AttributNotify ::-                                       CARD8,+                                       Word8,                                        context_AttributNotify :: PCONTEXT}                     deriving (Show, Typeable)  
patched/Graphics/XHB/Gen/Xevie.hs view
@@ -8,6 +8,9 @@ import Graphics.XHB.Connection.Types import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import Data.Binary.Put (runPut) import Graphics.XHB.Shared hiding (Event(..), Error(..))  @@ -16,55 +19,55 @@   queryVersion ::                Graphics.XHB.Connection.Types.Connection ->-                 CARD16 -> CARD16 -> IO (Receipt QueryVersionReply)+                 Word16 -> Word16 -> IO (Receipt QueryVersionReply) queryVersion c client_major_version client_minor_version-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkQueryVersion client_major_version client_minor_version        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   start ::         Graphics.XHB.Connection.Types.Connection ->-          CARD32 -> IO (Receipt StartReply)+          Word32 -> IO (Receipt StartReply) start c screen-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkStart screen        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   end ::       Graphics.XHB.Connection.Types.Connection ->-        CARD32 -> IO (Receipt EndReply)+        Word32 -> IO (Receipt EndReply) end c cmap-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkEnd cmap        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   send ::        Graphics.XHB.Connection.Types.Connection ->-         Event -> CARD32 -> IO (Receipt SendReply)+         Event -> Word32 -> IO (Receipt SendReply) send c event data_type-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkSend event data_type        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   selectInput ::               Graphics.XHB.Connection.Types.Connection ->-                CARD32 -> IO (Receipt SelectInputReply)+                Word32 -> IO (Receipt SelectInputReply) selectInput c event_mask-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkSelectInput event_mask        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt
patched/Graphics/XHB/Gen/Xevie/Types.hs view
@@ -5,6 +5,7 @@         SelectInput(..), SelectInputReply(..))        where import Data.Word+import Data.Int import Foreign.C.Types import Data.Bits import Data.Binary.Put@@ -23,8 +24,8 @@ deserializeEvent _ = Nothing   data QueryVersion = MkQueryVersion{client_major_version_QueryVersion-                                   :: CARD16,-                                   client_minor_version_QueryVersion :: CARD16}+                                   :: Word16,+                                   client_minor_version_QueryVersion :: Word16}                   deriving (Show, Typeable)   instance ExtensionRequest QueryVersion where@@ -35,14 +36,14 @@                let size__                      = 4 + size (client_major_version_QueryVersion x) +                          size (client_minor_version_QueryVersion x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (client_major_version_QueryVersion x)                serialize (client_minor_version_QueryVersion x)                putSkip (requiredPadding size__)   data QueryVersionReply = MkQueryVersionReply{server_major_version_QueryVersionReply-                                             :: CARD16,-                                             server_minor_version_QueryVersionReply :: CARD16}+                                             :: Word16,+                                             server_minor_version_QueryVersionReply :: Word16}                        deriving (Show, Typeable)   instance Deserialize QueryVersionReply where@@ -58,7 +59,7 @@                return                  (MkQueryVersionReply server_major_version server_minor_version)  -data Start = MkStart{screen_Start :: CARD32}+data Start = MkStart{screen_Start :: Word32}            deriving (Show, Typeable)   instance ExtensionRequest Start where@@ -67,7 +68,7 @@           = do putWord8 extOpCode                putWord8 1                let size__ = 4 + size (screen_Start x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (screen_Start x)                putSkip (requiredPadding size__)  @@ -84,7 +85,7 @@                let _ = isCard32 length                return (MkStartReply)  -data End = MkEnd{cmap_End :: CARD32}+data End = MkEnd{cmap_End :: Word32}          deriving (Show, Typeable)   instance ExtensionRequest End where@@ -93,7 +94,7 @@           = do putWord8 extOpCode                putWord8 2                let size__ = 4 + size (cmap_End x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (cmap_End x)                putSkip (requiredPadding size__)  @@ -131,7 +132,7 @@           = do skip 32                return (MkEvent)  -data Send = MkSend{event_Send :: Event, data_type_Send :: CARD32}+data Send = MkSend{event_Send :: Event, data_type_Send :: Word32}           deriving (Show, Typeable)   instance ExtensionRequest Send where@@ -140,7 +141,7 @@           = do putWord8 extOpCode                putWord8 3                let size__ = 4 + size (event_Send x) + size (data_type_Send x) + 64-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (event_Send x)                serialize (data_type_Send x)                putSkip 64@@ -159,7 +160,7 @@                let _ = isCard32 length                return (MkSendReply)  -data SelectInput = MkSelectInput{event_mask_SelectInput :: CARD32}+data SelectInput = MkSelectInput{event_mask_SelectInput :: Word32}                  deriving (Show, Typeable)   instance ExtensionRequest SelectInput where@@ -168,7 +169,7 @@           = do putWord8 extOpCode                putWord8 4                let size__ = 4 + size (event_mask_SelectInput x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (event_mask_SelectInput x)                putSkip (requiredPadding size__)  
patched/Graphics/XHB/Gen/Xinerama.hs view
@@ -8,6 +8,9 @@ import Graphics.XHB.Connection.Types import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import Data.Binary.Put (runPut) import Graphics.XHB.Shared hiding (Event(..), Error(..)) import Graphics.XHB.Gen.Xproto.Types@@ -19,66 +22,66 @@   queryVersion ::                Graphics.XHB.Connection.Types.Connection ->-                 CARD8 -> CARD8 -> IO (Receipt QueryVersionReply)+                 Word8 -> Word8 -> IO (Receipt QueryVersionReply) queryVersion c major minor-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkQueryVersion major minor        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getState ::            Graphics.XHB.Connection.Types.Connection ->              WINDOW -> IO (Receipt GetStateReply) getState c window-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetState window        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getScreenCount ::                  Graphics.XHB.Connection.Types.Connection ->                    WINDOW -> IO (Receipt GetScreenCountReply) getScreenCount c window-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetScreenCount window        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getScreenSize ::                 Graphics.XHB.Connection.Types.Connection ->-                  WINDOW -> CARD32 -> IO (Receipt GetScreenSizeReply)+                  WINDOW -> Word32 -> IO (Receipt GetScreenSizeReply) getScreenSize c window screen-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetScreenSize window screen        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   isActive ::-           Graphics.XHB.Connection.Types.Connection ->-             IO (Receipt IsActiveReply)+           Graphics.XHB.Connection.Types.Connection -> IO (Receipt Word32) isActive c-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet (state_IsActiveReply `fmap` deserialize))        let req = MkIsActive        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   queryScreens ::                Graphics.XHB.Connection.Types.Connection ->                  IO (Receipt QueryScreensReply) queryScreens c-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkQueryScreens        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt
patched/Graphics/XHB/Gen/Xinerama/Types.hs view
@@ -6,6 +6,7 @@         IsActiveReply(..), QueryScreens(..), QueryScreensReply(..))        where import Data.Word+import Data.Int import Foreign.C.Types import Data.Bits import Data.Binary.Put@@ -26,9 +27,9 @@ deserializeEvent :: Word8 -> Maybe (Get SomeEvent) deserializeEvent _ = Nothing  -data ScreenInfo = MkScreenInfo{x_org_ScreenInfo :: INT16,-                               y_org_ScreenInfo :: INT16, width_ScreenInfo :: CARD16,-                               height_ScreenInfo :: CARD16}+data ScreenInfo = MkScreenInfo{x_org_ScreenInfo :: Int16,+                               y_org_ScreenInfo :: Int16, width_ScreenInfo :: Word16,+                               height_ScreenInfo :: Word16}                 deriving (Show, Typeable)   instance Serialize ScreenInfo where@@ -50,8 +51,8 @@                height <- deserialize                return (MkScreenInfo x_org y_org width height)  -data QueryVersion = MkQueryVersion{major_QueryVersion :: CARD8,-                                   minor_QueryVersion :: CARD8}+data QueryVersion = MkQueryVersion{major_QueryVersion :: Word8,+                                   minor_QueryVersion :: Word8}                   deriving (Show, Typeable)   instance ExtensionRequest QueryVersion where@@ -61,14 +62,14 @@                putWord8 0                let size__                      = 4 + size (major_QueryVersion x) + size (minor_QueryVersion x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (major_QueryVersion x)                serialize (minor_QueryVersion x)                putSkip (requiredPadding size__)   data QueryVersionReply = MkQueryVersionReply{major_QueryVersionReply-                                             :: CARD16,-                                             minor_QueryVersionReply :: CARD16}+                                             :: Word16,+                                             minor_QueryVersionReply :: Word16}                        deriving (Show, Typeable)   instance Deserialize QueryVersionReply where@@ -91,11 +92,11 @@           = do putWord8 extOpCode                putWord8 1                let size__ = 4 + size (window_GetState x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (window_GetState x)                putSkip (requiredPadding size__)  -data GetStateReply = MkGetStateReply{state_GetStateReply :: BYTE,+data GetStateReply = MkGetStateReply{state_GetStateReply :: Word8,                                      window_GetStateReply :: WINDOW}                    deriving (Show, Typeable)  @@ -119,12 +120,12 @@           = do putWord8 extOpCode                putWord8 2                let size__ = 4 + size (window_GetScreenCount x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (window_GetScreenCount x)                putSkip (requiredPadding size__)   data GetScreenCountReply = MkGetScreenCountReply{screen_count_GetScreenCountReply-                                                 :: BYTE,+                                                 :: Word8,                                                  window_GetScreenCountReply :: WINDOW}                          deriving (Show, Typeable)  @@ -140,7 +141,7 @@   data GetScreenSize = MkGetScreenSize{window_GetScreenSize ::                                      WINDOW,-                                     screen_GetScreenSize :: CARD32}+                                     screen_GetScreenSize :: Word32}                    deriving (Show, Typeable)   instance ExtensionRequest GetScreenSize where@@ -150,16 +151,16 @@                putWord8 3                let size__                      = 4 + size (window_GetScreenSize x) + size (screen_GetScreenSize x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (window_GetScreenSize x)                serialize (screen_GetScreenSize x)                putSkip (requiredPadding size__)   data GetScreenSizeReply = MkGetScreenSizeReply{width_GetScreenSizeReply-                                               :: CARD32,-                                               height_GetScreenSizeReply :: CARD32,+                                               :: Word32,+                                               height_GetScreenSizeReply :: Word32,                                                window_GetScreenSizeReply :: WINDOW,-                                               screen_GetScreenSizeReply :: CARD32}+                                               screen_GetScreenSizeReply :: Word32}                         deriving (Show, Typeable)   instance Deserialize GetScreenSizeReply where@@ -184,10 +185,10 @@           = do putWord8 extOpCode                putWord8 4                let size__ = 4-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                putSkip (requiredPadding size__)  -data IsActiveReply = MkIsActiveReply{state_IsActiveReply :: CARD32}+data IsActiveReply = MkIsActiveReply{state_IsActiveReply :: Word32}                    deriving (Show, Typeable)   instance Deserialize IsActiveReply where@@ -209,11 +210,11 @@           = do putWord8 extOpCode                putWord8 5                let size__ = 4-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                putSkip (requiredPadding size__)   data QueryScreensReply = MkQueryScreensReply{number_QueryScreensReply-                                             :: CARD32,+                                             :: Word32,                                              screen_info_QueryScreensReply :: [ScreenInfo]}                        deriving (Show, Typeable)  
patched/Graphics/XHB/Gen/Xproto.hs view
@@ -36,6 +36,9 @@ import Data.Binary.Put import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import qualified Graphics.XHB.Connection.Types   createWindow ::@@ -46,7 +49,7 @@   changeWindowAttributes ::                          Graphics.XHB.Connection.Types.Connection ->-                           WINDOW -> ValueParam CARD32 -> IO ()+                           WINDOW -> ValueParam Word32 -> IO () changeWindowAttributes c window value   = do let req = MkChangeWindowAttributes window value        let chunk = runPut (serialize req)@@ -56,10 +59,10 @@                       Graphics.XHB.Connection.Types.Connection ->                         WINDOW -> IO (Receipt GetWindowAttributesReply) getWindowAttributes c window-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetWindowAttributes window        let chunk = runPut (serialize req)-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   destroyWindow ::@@ -77,7 +80,8 @@        sendRequest c chunk   changeSaveSet ::-                Graphics.XHB.Connection.Types.Connection -> BYTE -> WINDOW -> IO ()+                Graphics.XHB.Connection.Types.Connection ->+                  Word8 -> WINDOW -> IO () changeSaveSet c mode window   = do let req = MkChangeSaveSet mode window        let chunk = runPut (serialize req)@@ -119,7 +123,7 @@   configureWindow ::                   Graphics.XHB.Connection.Types.Connection ->-                    WINDOW -> ValueParam CARD16 -> IO ()+                    WINDOW -> ValueParam Word16 -> IO () configureWindow c window value   = do let req = MkConfigureWindow window value        let chunk = runPut (serialize req)@@ -127,7 +131,7 @@   circulateWindow ::                   Graphics.XHB.Connection.Types.Connection ->-                    CARD8 -> WINDOW -> IO ()+                    Word8 -> WINDOW -> IO () circulateWindow c direction window   = do let req = MkCirculateWindow direction window        let chunk = runPut (serialize req)@@ -137,39 +141,40 @@               Graphics.XHB.Connection.Types.Connection ->                 DRAWABLE -> IO (Receipt GetGeometryReply) getGeometry c drawable-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetGeometry drawable        let chunk = runPut (serialize req)-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   queryTree ::             Graphics.XHB.Connection.Types.Connection ->               WINDOW -> IO (Receipt QueryTreeReply) queryTree c window-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkQueryTree window        let chunk = runPut (serialize req)-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   internAtom ::              Graphics.XHB.Connection.Types.Connection ->-               InternAtom -> IO (Receipt InternAtomReply)+               InternAtom -> IO (Receipt ATOM) internAtom c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet (atom_InternAtomReply `fmap` deserialize))        let chunk = runPut (serialize req)-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getAtomName ::               Graphics.XHB.Connection.Types.Connection ->                 ATOM -> IO (Receipt GetAtomNameReply) getAtomName c atom-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetAtomName atom        let chunk = runPut (serialize req)-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   changeProperty ::@@ -189,19 +194,19 @@               Graphics.XHB.Connection.Types.Connection ->                 GetProperty -> IO (Receipt GetPropertyReply) getProperty c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let chunk = runPut (serialize req)-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   listProperties ::                  Graphics.XHB.Connection.Types.Connection ->                    WINDOW -> IO (Receipt ListPropertiesReply) listProperties c window-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkListProperties window        let chunk = runPut (serialize req)-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   setSelectionOwner ::@@ -213,12 +218,13 @@   getSelectionOwner ::                     Graphics.XHB.Connection.Types.Connection ->-                      ATOM -> IO (Receipt GetSelectionOwnerReply)+                      ATOM -> IO (Receipt WINDOW) getSelectionOwner c selection-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet (owner_GetSelectionOwnerReply `fmap` deserialize))        let req = MkGetSelectionOwner selection        let chunk = runPut (serialize req)-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   convertSelection ::@@ -236,11 +242,12 @@   grabPointer ::               Graphics.XHB.Connection.Types.Connection ->-                GrabPointer -> IO (Receipt GrabPointerReply)+                GrabPointer -> IO (Receipt Word8) grabPointer c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet (status_GrabPointerReply `fmap` deserialize))        let chunk = runPut (serialize req)-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   ungrabPointer ::@@ -271,11 +278,12 @@   grabKeyboard ::                Graphics.XHB.Connection.Types.Connection ->-                 GrabKeyboard -> IO (Receipt GrabKeyboardReply)+                 GrabKeyboard -> IO (Receipt Word8) grabKeyboard c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet (status_GrabKeyboardReply `fmap` deserialize))        let chunk = runPut (serialize req)-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   ungrabKeyboard ::@@ -299,7 +307,7 @@   allowEvents ::               Graphics.XHB.Connection.Types.Connection ->-                CARD8 -> TIMESTAMP -> IO ()+                Word8 -> TIMESTAMP -> IO () allowEvents c mode time   = do let req = MkAllowEvents mode time        let chunk = runPut (serialize req)@@ -309,28 +317,28 @@                Graphics.XHB.Connection.Types.Connection ->                  WINDOW -> IO (Receipt QueryPointerReply) queryPointer c window-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkQueryPointer window        let chunk = runPut (serialize req)-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getMotionEvents ::                   Graphics.XHB.Connection.Types.Connection ->                     GetMotionEvents -> IO (Receipt GetMotionEventsReply) getMotionEvents c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let chunk = runPut (serialize req)-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   translateCoordinates ::                        Graphics.XHB.Connection.Types.Connection ->                          TranslateCoordinates -> IO (Receipt TranslateCoordinatesReply) translateCoordinates c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let chunk = runPut (serialize req)-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   warpPointer ::@@ -349,20 +357,20 @@                 Graphics.XHB.Connection.Types.Connection ->                   IO (Receipt GetInputFocusReply) getInputFocus c-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetInputFocus        let chunk = runPut (serialize req)-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   queryKeymap ::-              Graphics.XHB.Connection.Types.Connection ->-                IO (Receipt QueryKeymapReply)+              Graphics.XHB.Connection.Types.Connection -> IO (Receipt [Word8]) queryKeymap c-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet (keys_QueryKeymapReply `fmap` deserialize))        let req = MkQueryKeymap        let chunk = runPut (serialize req)-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   openFont ::@@ -382,43 +390,43 @@             Graphics.XHB.Connection.Types.Connection ->               FONTABLE -> IO (Receipt QueryFontReply) queryFont c font-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkQueryFont font        let chunk = runPut (serialize req)-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   queryTextExtents ::                    Graphics.XHB.Connection.Types.Connection ->                      FONTABLE -> [CHAR2B] -> IO (Receipt QueryTextExtentsReply) queryTextExtents c font string-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkQueryTextExtents font string        let chunk = runPut (serialize req)-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   listFonts ::             Graphics.XHB.Connection.Types.Connection ->               ListFonts -> IO (Receipt ListFontsReply) listFonts c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let chunk = runPut (serialize req)-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   listFontsWithInfo ::                     Graphics.XHB.Connection.Types.Connection ->                       ListFontsWithInfo -> IO (Receipt ListFontsWithInfoReply) listFontsWithInfo c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let chunk = runPut (serialize req)-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   setFontPath ::               Graphics.XHB.Connection.Types.Connection ->-                CARD16 -> [CChar] -> IO ()+                Word16 -> [CChar] -> IO () setFontPath c font_qty path   = do let req = MkSetFontPath font_qty path        let chunk = runPut (serialize req)@@ -428,10 +436,10 @@               Graphics.XHB.Connection.Types.Connection ->                 IO (Receipt GetFontPathReply) getFontPath c-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetFontPath        let chunk = runPut (serialize req)-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   createPixmap ::@@ -455,7 +463,7 @@   changeGC ::            Graphics.XHB.Connection.Types.Connection ->-             GCONTEXT -> ValueParam CARD32 -> IO ()+             GCONTEXT -> ValueParam Word32 -> IO () changeGC c gc value   = do let req = MkChangeGC gc value        let chunk = runPut (serialize req)@@ -564,9 +572,9 @@            Graphics.XHB.Connection.Types.Connection ->              GetImage -> IO (Receipt GetImageReply) getImage c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let chunk = runPut (serialize req)-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   polyText8 ::@@ -632,46 +640,46 @@                          Graphics.XHB.Connection.Types.Connection ->                            WINDOW -> IO (Receipt ListInstalledColormapsReply) listInstalledColormaps c window-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkListInstalledColormaps window        let chunk = runPut (serialize req)-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   allocColor ::              Graphics.XHB.Connection.Types.Connection ->                AllocColor -> IO (Receipt AllocColorReply) allocColor c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let chunk = runPut (serialize req)-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   allocNamedColor ::                   Graphics.XHB.Connection.Types.Connection ->                     AllocNamedColor -> IO (Receipt AllocNamedColorReply) allocNamedColor c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let chunk = runPut (serialize req)-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   allocColorCells ::                   Graphics.XHB.Connection.Types.Connection ->                     AllocColorCells -> IO (Receipt AllocColorCellsReply) allocColorCells c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let chunk = runPut (serialize req)-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   allocColorPlanes ::                    Graphics.XHB.Connection.Types.Connection ->                      AllocColorPlanes -> IO (Receipt AllocColorPlanesReply) allocColorPlanes c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let chunk = runPut (serialize req)-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   freeColors ::@@ -697,21 +705,21 @@   queryColors ::               Graphics.XHB.Connection.Types.Connection ->-                COLORMAP -> [CARD32] -> IO (Receipt QueryColorsReply)+                COLORMAP -> [Word32] -> IO (Receipt QueryColorsReply) queryColors c cmap pixels-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkQueryColors cmap pixels        let chunk = runPut (serialize req)-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   lookupColor ::               Graphics.XHB.Connection.Types.Connection ->                 LookupColor -> IO (Receipt LookupColorReply) lookupColor c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let chunk = runPut (serialize req)-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   createCursor ::@@ -744,29 +752,29 @@                 Graphics.XHB.Connection.Types.Connection ->                   QueryBestSize -> IO (Receipt QueryBestSizeReply) queryBestSize c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let chunk = runPut (serialize req)-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   queryExtension ::                  Graphics.XHB.Connection.Types.Connection ->-                   CARD16 -> [CChar] -> IO (Receipt QueryExtensionReply)+                   Word16 -> [CChar] -> IO (Receipt QueryExtensionReply) queryExtension c name_len name-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkQueryExtension name_len name        let chunk = runPut (serialize req)-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   listExtensions ::                  Graphics.XHB.Connection.Types.Connection ->                    IO (Receipt ListExtensionsReply) listExtensions c-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkListExtensions        let chunk = runPut (serialize req)-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   changeKeyboardMapping ::@@ -778,17 +786,17 @@   getKeyboardMapping ::                      Graphics.XHB.Connection.Types.Connection ->-                       KEYCODE -> CARD8 -> IO (Receipt GetKeyboardMappingReply)+                       KEYCODE -> Word8 -> IO (Receipt GetKeyboardMappingReply) getKeyboardMapping c first_keycode count-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetKeyboardMapping first_keycode count        let chunk = runPut (serialize req)-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   changeKeyboardControl ::                         Graphics.XHB.Connection.Types.Connection ->-                          ValueParam CARD32 -> IO ()+                          ValueParam Word32 -> IO () changeKeyboardControl c value   = do let req = MkChangeKeyboardControl value        let chunk = runPut (serialize req)@@ -798,13 +806,13 @@                      Graphics.XHB.Connection.Types.Connection ->                        IO (Receipt GetKeyboardControlReply) getKeyboardControl c-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetKeyboardControl        let chunk = runPut (serialize req)-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt  -bell :: Graphics.XHB.Connection.Types.Connection -> INT8 -> IO ()+bell :: Graphics.XHB.Connection.Types.Connection -> Int8 -> IO () bell c percent   = do let req = MkBell percent        let chunk = runPut (serialize req)@@ -821,10 +829,10 @@                     Graphics.XHB.Connection.Types.Connection ->                       IO (Receipt GetPointerControlReply) getPointerControl c-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetPointerControl        let chunk = runPut (serialize req)-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   setScreenSaver ::@@ -837,10 +845,10 @@                  Graphics.XHB.Connection.Types.Connection ->                    IO (Receipt GetScreenSaverReply) getScreenSaver c-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetScreenSaver        let chunk = runPut (serialize req)-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   changeHosts ::@@ -853,28 +861,28 @@             Graphics.XHB.Connection.Types.Connection ->               IO (Receipt ListHostsReply) listHosts c-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkListHosts        let chunk = runPut (serialize req)-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   setAccessControl ::-                   Graphics.XHB.Connection.Types.Connection -> CARD8 -> IO ()+                   Graphics.XHB.Connection.Types.Connection -> Word8 -> IO () setAccessControl c mode   = do let req = MkSetAccessControl mode        let chunk = runPut (serialize req)        sendRequest c chunk   setCloseDownMode ::-                   Graphics.XHB.Connection.Types.Connection -> CARD8 -> IO ()+                   Graphics.XHB.Connection.Types.Connection -> Word8 -> IO () setCloseDownMode c mode   = do let req = MkSetCloseDownMode mode        let chunk = runPut (serialize req)        sendRequest c chunk   killClient ::-             Graphics.XHB.Connection.Types.Connection -> CARD32 -> IO ()+             Graphics.XHB.Connection.Types.Connection -> Word32 -> IO () killClient c resource   = do let req = MkKillClient resource        let chunk = runPut (serialize req)@@ -888,7 +896,7 @@        sendRequest c chunk   forceScreenSaver ::-                   Graphics.XHB.Connection.Types.Connection -> CARD8 -> IO ()+                   Graphics.XHB.Connection.Types.Connection -> Word8 -> IO () forceScreenSaver c mode   = do let req = MkForceScreenSaver mode        let chunk = runPut (serialize req)@@ -896,40 +904,42 @@   setPointerMapping ::                     Graphics.XHB.Connection.Types.Connection ->-                      CARD8 -> [CARD8] -> IO (Receipt SetPointerMappingReply)+                      Word8 -> [Word8] -> IO (Receipt Word8) setPointerMapping c map_len map-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet (status_SetPointerMappingReply `fmap` deserialize))        let req = MkSetPointerMapping map_len map        let chunk = runPut (serialize req)-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getPointerMapping ::                     Graphics.XHB.Connection.Types.Connection ->                       IO (Receipt GetPointerMappingReply) getPointerMapping c-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetPointerMapping        let chunk = runPut (serialize req)-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   setModifierMapping ::                      Graphics.XHB.Connection.Types.Connection ->-                       CARD8 -> [KEYCODE] -> IO (Receipt SetModifierMappingReply)+                       Word8 -> [KEYCODE] -> IO (Receipt Word8) setModifierMapping c keycodes_per_modifier keycodes-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet (status_SetModifierMappingReply `fmap` deserialize))        let req = MkSetModifierMapping keycodes_per_modifier keycodes        let chunk = runPut (serialize req)-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   getModifierMapping ::                      Graphics.XHB.Connection.Types.Connection ->                        IO (Receipt GetModifierMappingReply) getModifierMapping c-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkGetModifierMapping        let chunk = runPut (serialize req)-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt
patched/Graphics/XHB/Gen/Xproto/Types.hs view
@@ -94,6041 +94,6046 @@         GetModifierMappingReply(..))        where import Data.Word-import Foreign.C.Types-import Data.Bits-import Data.Binary.Put-import Data.Binary.Get-import Data.Typeable-import Control.Monad-import Control.Exception-import Data.List-import Graphics.XHB.Shared hiding (Event, Error)-import qualified Graphics.XHB.Shared- -deserializeError :: Word8 -> Maybe (Get SomeError)-deserializeError 1-  = return (liftM toError (deserialize :: Get Request))-deserializeError 2-  = return (liftM toError (deserialize :: Get Value))-deserializeError 3-  = return (liftM toError (deserialize :: Get Window))-deserializeError 4-  = return (liftM toError (deserialize :: Get Pixmap))-deserializeError 5-  = return (liftM toError (deserialize :: Get Atom))-deserializeError 6-  = return (liftM toError (deserialize :: Get Cursor))-deserializeError 7-  = return (liftM toError (deserialize :: Get Font))-deserializeError 8-  = return (liftM toError (deserialize :: Get Match))-deserializeError 9-  = return (liftM toError (deserialize :: Get Drawable))-deserializeError 10-  = return (liftM toError (deserialize :: Get Access))-deserializeError 11-  = return (liftM toError (deserialize :: Get Alloc))-deserializeError 12-  = return (liftM toError (deserialize :: Get Colormap))-deserializeError 13-  = return (liftM toError (deserialize :: Get GContext))-deserializeError 14-  = return (liftM toError (deserialize :: Get IDChoice))-deserializeError 15-  = return (liftM toError (deserialize :: Get Name))-deserializeError 16-  = return (liftM toError (deserialize :: Get Length))-deserializeError 17-  = return (liftM toError (deserialize :: Get Implementation))-deserializeError _ = Nothing- -deserializeEvent :: Word8 -> Maybe (Get SomeEvent)-deserializeEvent 2-  = return (liftM toEvent (deserialize :: Get KeyPress))-deserializeEvent 3-  = return (liftM toEvent (deserialize :: Get KeyRelease))-deserializeEvent 4-  = return (liftM toEvent (deserialize :: Get ButtonPress))-deserializeEvent 5-  = return (liftM toEvent (deserialize :: Get ButtonRelease))-deserializeEvent 6-  = return (liftM toEvent (deserialize :: Get MotionNotify))-deserializeEvent 7-  = return (liftM toEvent (deserialize :: Get EnterNotify))-deserializeEvent 8-  = return (liftM toEvent (deserialize :: Get LeaveNotify))-deserializeEvent 9-  = return (liftM toEvent (deserialize :: Get FocusIn))-deserializeEvent 10-  = return (liftM toEvent (deserialize :: Get FocusOut))-deserializeEvent 11-  = return (liftM toEvent (deserialize :: Get KeymapNotify))-deserializeEvent 12-  = return (liftM toEvent (deserialize :: Get Expose))-deserializeEvent 13-  = return (liftM toEvent (deserialize :: Get GraphicsExposure))-deserializeEvent 14-  = return (liftM toEvent (deserialize :: Get NoExposure))-deserializeEvent 15-  = return (liftM toEvent (deserialize :: Get VisibilityNotify))-deserializeEvent 16-  = return (liftM toEvent (deserialize :: Get CreateNotify))-deserializeEvent 17-  = return (liftM toEvent (deserialize :: Get DestroyNotify))-deserializeEvent 18-  = return (liftM toEvent (deserialize :: Get UnmapNotify))-deserializeEvent 19-  = return (liftM toEvent (deserialize :: Get MapNotify))-deserializeEvent 20-  = return (liftM toEvent (deserialize :: Get MapRequest))-deserializeEvent 21-  = return (liftM toEvent (deserialize :: Get ReparentNotify))-deserializeEvent 22-  = return (liftM toEvent (deserialize :: Get ConfigureNotify))-deserializeEvent 23-  = return (liftM toEvent (deserialize :: Get ConfigureRequest))-deserializeEvent 24-  = return (liftM toEvent (deserialize :: Get GravityNotify))-deserializeEvent 25-  = return (liftM toEvent (deserialize :: Get ResizeRequest))-deserializeEvent 26-  = return (liftM toEvent (deserialize :: Get CirculateNotify))-deserializeEvent 27-  = return (liftM toEvent (deserialize :: Get CirculateRequest))-deserializeEvent 28-  = return (liftM toEvent (deserialize :: Get PropertyNotify))-deserializeEvent 29-  = return (liftM toEvent (deserialize :: Get SelectionClear))-deserializeEvent 30-  = return (liftM toEvent (deserialize :: Get SelectionRequest))-deserializeEvent 31-  = return (liftM toEvent (deserialize :: Get SelectionNotify))-deserializeEvent 32-  = return (liftM toEvent (deserialize :: Get ColormapNotify))-deserializeEvent 33-  = return (liftM toEvent (deserialize :: Get ClientMessage))-deserializeEvent 34-  = return (liftM toEvent (deserialize :: Get MappingNotify))-deserializeEvent _ = Nothing- -data CHAR2B = MkCHAR2B{byte1_CHAR2B :: CARD8,-                       byte2_CHAR2B :: CARD8}-            deriving (Show, Typeable)- -instance Serialize CHAR2B where-        serialize x-          = do serialize (byte1_CHAR2B x)-               serialize (byte2_CHAR2B x)-        size x = size (byte1_CHAR2B x) + size (byte2_CHAR2B x)- -instance Deserialize CHAR2B where-        deserialize-          = do byte1 <- deserialize-               byte2 <- deserialize-               return (MkCHAR2B byte1 byte2)- -newtype WINDOW = MkWINDOW Xid-                 deriving (Eq, Ord, Show, Serialize, Deserialize, XidLike)- -newtype PIXMAP = MkPIXMAP Xid-                 deriving (Eq, Ord, Show, Serialize, Deserialize, XidLike)- -newtype CURSOR = MkCURSOR Xid-                 deriving (Eq, Ord, Show, Serialize, Deserialize, XidLike)- -newtype FONT = MkFONT Xid-               deriving (Eq, Ord, Show, Serialize, Deserialize, XidLike)- -newtype GCONTEXT = MkGCONTEXT Xid-                   deriving (Eq, Ord, Show, Serialize, Deserialize, XidLike)- -newtype COLORMAP = MkCOLORMAP Xid-                   deriving (Eq, Ord, Show, Serialize, Deserialize, XidLike)- -newtype ATOM = MkATOM Xid-               deriving (Eq, Ord, Show, Serialize, Deserialize, XidLike)- -newtype DRAWABLE = MkDRAWABLE Xid-                   deriving (Eq, Ord, Show, Serialize, Deserialize, XidLike)- -newtype FONTABLE = MkFONTABLE Xid-                   deriving (Eq, Ord, Show, Serialize, Deserialize, XidLike)- -type VISUALID = CARD32- -type TIMESTAMP = CARD32- -type KEYSYM = CARD32- -type KEYCODE = CARD8- -type BUTTON = CARD8- -data POINT = MkPOINT{x_POINT :: INT16, y_POINT :: INT16}-           deriving (Show, Typeable)- -instance Serialize POINT where-        serialize x-          = do serialize (x_POINT x)-               serialize (y_POINT x)-        size x = size (x_POINT x) + size (y_POINT x)- -instance Deserialize POINT where-        deserialize-          = do x <- deserialize-               y <- deserialize-               return (MkPOINT x y)- -data RECTANGLE = MkRECTANGLE{x_RECTANGLE :: INT16,-                             y_RECTANGLE :: INT16, width_RECTANGLE :: CARD16,-                             height_RECTANGLE :: CARD16}-               deriving (Show, Typeable)- -instance Serialize RECTANGLE where-        serialize x-          = do serialize (x_RECTANGLE x)-               serialize (y_RECTANGLE x)-               serialize (width_RECTANGLE x)-               serialize (height_RECTANGLE x)-        size x-          = size (x_RECTANGLE x) + size (y_RECTANGLE x) +-              size (width_RECTANGLE x)-              + size (height_RECTANGLE x)- -instance Deserialize RECTANGLE where-        deserialize-          = do x <- deserialize-               y <- deserialize-               width <- deserialize-               height <- deserialize-               return (MkRECTANGLE x y width height)- -data ARC = MkARC{x_ARC :: INT16, y_ARC :: INT16,-                 width_ARC :: CARD16, height_ARC :: CARD16, angle1_ARC :: INT16,-                 angle2_ARC :: INT16}-         deriving (Show, Typeable)- -instance Serialize ARC where-        serialize x-          = do serialize (x_ARC x)-               serialize (y_ARC x)-               serialize (width_ARC x)-               serialize (height_ARC x)-               serialize (angle1_ARC x)-               serialize (angle2_ARC x)-        size x-          = size (x_ARC x) + size (y_ARC x) + size (width_ARC x) +-              size (height_ARC x)-              + size (angle1_ARC x)-              + size (angle2_ARC x)- -instance Deserialize ARC where-        deserialize-          = do x <- deserialize-               y <- deserialize-               width <- deserialize-               height <- deserialize-               angle1 <- deserialize-               angle2 <- deserialize-               return (MkARC x y width height angle1 angle2)- -data FORMAT = MkFORMAT{depth_FORMAT :: CARD8,-                       bits_per_pixel_FORMAT :: CARD8, scanline_pad_FORMAT :: CARD8}-            deriving (Show, Typeable)- -instance Serialize FORMAT where-        serialize x-          = do serialize (depth_FORMAT x)-               serialize (bits_per_pixel_FORMAT x)-               serialize (scanline_pad_FORMAT x)-               putSkip 5-        size x-          = size (depth_FORMAT x) + size (bits_per_pixel_FORMAT x) +-              size (scanline_pad_FORMAT x)-              + 5- -instance Deserialize FORMAT where-        deserialize-          = do depth <- deserialize-               bits_per_pixel <- deserialize-               scanline_pad <- deserialize-               skip 5-               return (MkFORMAT depth bits_per_pixel scanline_pad)- -data VisualClass = VisualClassStaticGray-                 | VisualClassGrayScale-                 | VisualClassStaticColor-                 | VisualClassPseudoColor-                 | VisualClassTrueColor-                 | VisualClassDirectColor- -instance SimpleEnum VisualClass where-        toValue VisualClassStaticGray{} = 0-        toValue VisualClassGrayScale{} = 1-        toValue VisualClassStaticColor{} = 2-        toValue VisualClassPseudoColor{} = 3-        toValue VisualClassTrueColor{} = 4-        toValue VisualClassDirectColor{} = 5-        fromValue 0 = VisualClassStaticGray-        fromValue 1 = VisualClassGrayScale-        fromValue 2 = VisualClassStaticColor-        fromValue 3 = VisualClassPseudoColor-        fromValue 4 = VisualClassTrueColor-        fromValue 5 = VisualClassDirectColor- -data VISUALTYPE = MkVISUALTYPE{visual_id_VISUALTYPE :: VISUALID,-                               class_VISUALTYPE :: CARD8, bits_per_rgb_value_VISUALTYPE :: CARD8,-                               colormap_entries_VISUALTYPE :: CARD16,-                               red_mask_VISUALTYPE :: CARD32, green_mask_VISUALTYPE :: CARD32,-                               blue_mask_VISUALTYPE :: CARD32}-                deriving (Show, Typeable)- -instance Serialize VISUALTYPE where-        serialize x-          = do serialize (visual_id_VISUALTYPE x)-               serialize (class_VISUALTYPE x)-               serialize (bits_per_rgb_value_VISUALTYPE x)-               serialize (colormap_entries_VISUALTYPE x)-               serialize (red_mask_VISUALTYPE x)-               serialize (green_mask_VISUALTYPE x)-               serialize (blue_mask_VISUALTYPE x)-               putSkip 4-        size x-          = size (visual_id_VISUALTYPE x) + size (class_VISUALTYPE x) +-              size (bits_per_rgb_value_VISUALTYPE x)-              + size (colormap_entries_VISUALTYPE x)-              + size (red_mask_VISUALTYPE x)-              + size (green_mask_VISUALTYPE x)-              + size (blue_mask_VISUALTYPE x)-              + 4- -instance Deserialize VISUALTYPE where-        deserialize-          = do visual_id <- deserialize-               class_ <- deserialize-               bits_per_rgb_value <- deserialize-               colormap_entries <- deserialize-               red_mask <- deserialize-               green_mask <- deserialize-               blue_mask <- deserialize-               skip 4-               return-                 (MkVISUALTYPE visual_id class_ bits_per_rgb_value colormap_entries-                    red_mask-                    green_mask-                    blue_mask)- -data DEPTH = MkDEPTH{depth_DEPTH :: CARD8,-                     visuals_len_DEPTH :: CARD16, visuals_DEPTH :: [VISUALTYPE]}-           deriving (Show, Typeable)- -instance Serialize DEPTH where-        serialize x-          = do serialize (depth_DEPTH x)-               putSkip 1-               serialize (visuals_len_DEPTH x)-               putSkip 4-               serializeList (visuals_DEPTH x)-        size x-          = size (depth_DEPTH x) + 1 + size (visuals_len_DEPTH x) + 4 +-              sum (map size (visuals_DEPTH x))- -instance Deserialize DEPTH where-        deserialize-          = do depth <- deserialize-               skip 1-               visuals_len <- deserialize-               skip 4-               visuals <- deserializeList (fromIntegral visuals_len)-               return (MkDEPTH depth visuals_len visuals)- -data SCREEN = MkSCREEN{root_SCREEN :: WINDOW,-                       default_colormap_SCREEN :: COLORMAP, white_pixel_SCREEN :: CARD32,-                       black_pixel_SCREEN :: CARD32, current_input_masks_SCREEN :: CARD32,-                       width_in_pixels_SCREEN :: CARD16,-                       height_in_pixels_SCREEN :: CARD16,-                       width_in_millimeters_SCREEN :: CARD16,-                       height_in_millimeters_SCREEN :: CARD16,-                       min_installed_maps_SCREEN :: CARD16,-                       max_installed_maps_SCREEN :: CARD16,-                       root_visual_SCREEN :: VISUALID, backing_stores_SCREEN :: BYTE,-                       save_unders_SCREEN :: BOOL, root_depth_SCREEN :: CARD8,-                       allowed_depths_len_SCREEN :: CARD8,-                       allowed_depths_SCREEN :: [DEPTH]}-            deriving (Show, Typeable)- -instance Serialize SCREEN where-        serialize x-          = do serialize (root_SCREEN x)-               serialize (default_colormap_SCREEN x)-               serialize (white_pixel_SCREEN x)-               serialize (black_pixel_SCREEN x)-               serialize (current_input_masks_SCREEN x)-               serialize (width_in_pixels_SCREEN x)-               serialize (height_in_pixels_SCREEN x)-               serialize (width_in_millimeters_SCREEN x)-               serialize (height_in_millimeters_SCREEN x)-               serialize (min_installed_maps_SCREEN x)-               serialize (max_installed_maps_SCREEN x)-               serialize (root_visual_SCREEN x)-               serialize (backing_stores_SCREEN x)-               serialize (save_unders_SCREEN x)-               serialize (root_depth_SCREEN x)-               serialize (allowed_depths_len_SCREEN x)-               serializeList (allowed_depths_SCREEN x)-        size x-          = size (root_SCREEN x) + size (default_colormap_SCREEN x) +-              size (white_pixel_SCREEN x)-              + size (black_pixel_SCREEN x)-              + size (current_input_masks_SCREEN x)-              + size (width_in_pixels_SCREEN x)-              + size (height_in_pixels_SCREEN x)-              + size (width_in_millimeters_SCREEN x)-              + size (height_in_millimeters_SCREEN x)-              + size (min_installed_maps_SCREEN x)-              + size (max_installed_maps_SCREEN x)-              + size (root_visual_SCREEN x)-              + size (backing_stores_SCREEN x)-              + size (save_unders_SCREEN x)-              + size (root_depth_SCREEN x)-              + size (allowed_depths_len_SCREEN x)-              + sum (map size (allowed_depths_SCREEN x))- -instance Deserialize SCREEN where-        deserialize-          = do root <- deserialize-               default_colormap <- deserialize-               white_pixel <- deserialize-               black_pixel <- deserialize-               current_input_masks <- deserialize-               width_in_pixels <- deserialize-               height_in_pixels <- deserialize-               width_in_millimeters <- deserialize-               height_in_millimeters <- deserialize-               min_installed_maps <- deserialize-               max_installed_maps <- deserialize-               root_visual <- deserialize-               backing_stores <- deserialize-               save_unders <- deserialize-               root_depth <- deserialize-               allowed_depths_len <- deserialize-               allowed_depths <- deserializeList (fromIntegral allowed_depths_len)-               return-                 (MkSCREEN root default_colormap white_pixel black_pixel-                    current_input_masks-                    width_in_pixels-                    height_in_pixels-                    width_in_millimeters-                    height_in_millimeters-                    min_installed_maps-                    max_installed_maps-                    root_visual-                    backing_stores-                    save_unders-                    root_depth-                    allowed_depths_len-                    allowed_depths)- -data SetupRequest = MkSetupRequest{byte_order_SetupRequest ::-                                   CARD8,-                                   protocol_major_version_SetupRequest :: CARD16,-                                   protocol_minor_version_SetupRequest :: CARD16,-                                   authorization_protocol_name_len_SetupRequest :: CARD16,-                                   authorization_protocol_data_len_SetupRequest :: CARD16,-                                   authorization_protocol_name_SetupRequest :: [CChar],-                                   authorization_protocol_data_SetupRequest :: [CChar]}-                  deriving (Show, Typeable)- -instance Serialize SetupRequest where-        serialize x-          = do serialize (byte_order_SetupRequest x)-               putSkip 1-               serialize (protocol_major_version_SetupRequest x)-               serialize (protocol_minor_version_SetupRequest x)-               serialize (authorization_protocol_name_len_SetupRequest x)-               serialize (authorization_protocol_data_len_SetupRequest x)-               putSkip 2-               serializeList (authorization_protocol_name_SetupRequest x)-               serializeList (authorization_protocol_data_SetupRequest x)-        size x-          = size (byte_order_SetupRequest x) + 1 +-              size (protocol_major_version_SetupRequest x)-              + size (protocol_minor_version_SetupRequest x)-              + size (authorization_protocol_name_len_SetupRequest x)-              + size (authorization_protocol_data_len_SetupRequest x)-              + 2-              + sum (map size (authorization_protocol_name_SetupRequest x))-              + sum (map size (authorization_protocol_data_SetupRequest x))- -instance Deserialize SetupRequest where-        deserialize-          = do byte_order <- deserialize-               skip 1-               protocol_major_version <- deserialize-               protocol_minor_version <- deserialize-               authorization_protocol_name_len <- deserialize-               authorization_protocol_data_len <- deserialize-               skip 2-               authorization_protocol_name <- deserializeList-                                                (fromIntegral authorization_protocol_name_len)-               authorization_protocol_data <- deserializeList-                                                (fromIntegral authorization_protocol_data_len)-               return-                 (MkSetupRequest byte_order protocol_major_version-                    protocol_minor_version-                    authorization_protocol_name_len-                    authorization_protocol_data_len-                    authorization_protocol_name-                    authorization_protocol_data)- -data SetupFailed = MkSetupFailed{status_SetupFailed :: CARD8,-                                 reason_len_SetupFailed :: CARD8,-                                 protocol_major_version_SetupFailed :: CARD16,-                                 protocol_minor_version_SetupFailed :: CARD16,-                                 length_SetupFailed :: CARD16, reason_SetupFailed :: [CChar]}-                 deriving (Show, Typeable)- -instance Serialize SetupFailed where-        serialize x-          = do serialize (status_SetupFailed x)-               serialize (reason_len_SetupFailed x)-               serialize (protocol_major_version_SetupFailed x)-               serialize (protocol_minor_version_SetupFailed x)-               serialize (length_SetupFailed x)-               serializeList (reason_SetupFailed x)-        size x-          = size (status_SetupFailed x) + size (reason_len_SetupFailed x) +-              size (protocol_major_version_SetupFailed x)-              + size (protocol_minor_version_SetupFailed x)-              + size (length_SetupFailed x)-              + sum (map size (reason_SetupFailed x))- -instance Deserialize SetupFailed where-        deserialize-          = do status <- deserialize-               reason_len <- deserialize-               protocol_major_version <- deserialize-               protocol_minor_version <- deserialize-               length <- deserialize-               reason <- deserializeList (fromIntegral reason_len)-               return-                 (MkSetupFailed status reason_len protocol_major_version-                    protocol_minor_version-                    length-                    reason)- -data SetupAuthenticate = MkSetupAuthenticate{status_SetupAuthenticate-                                             :: CARD8,-                                             length_SetupAuthenticate :: CARD16,-                                             reason_SetupAuthenticate :: [CChar]}-                       deriving (Show, Typeable)- -instance Serialize SetupAuthenticate where-        serialize x-          = do serialize (status_SetupAuthenticate x)-               putSkip 5-               serialize (length_SetupAuthenticate x)-               serializeList (reason_SetupAuthenticate x)-        size x-          = size (status_SetupAuthenticate x) + 5 +-              size (length_SetupAuthenticate x)-              + sum (map size (reason_SetupAuthenticate x))- -instance Deserialize SetupAuthenticate where-        deserialize-          = do status <- deserialize-               skip 5-               length <- deserialize-               reason <- deserializeList-                           (fromIntegral (fromIntegral (length * 4)))-               return (MkSetupAuthenticate status length reason)- -data ImageOrder = ImageOrderLSBFirst-                | ImageOrderMSBFirst- -instance SimpleEnum ImageOrder where-        toValue ImageOrderLSBFirst{} = 0-        toValue ImageOrderMSBFirst{} = 1-        fromValue 0 = ImageOrderLSBFirst-        fromValue 1 = ImageOrderMSBFirst- -data Setup = MkSetup{status_Setup :: CARD8,-                     protocol_major_version_Setup :: CARD16,-                     protocol_minor_version_Setup :: CARD16, length_Setup :: CARD16,-                     release_number_Setup :: CARD32, resource_id_base_Setup :: CARD32,-                     resource_id_mask_Setup :: CARD32,-                     motion_buffer_size_Setup :: CARD32, vendor_len_Setup :: CARD16,-                     maximum_request_length_Setup :: CARD16, roots_len_Setup :: CARD8,-                     pixmap_formats_len_Setup :: CARD8, image_byte_order_Setup :: CARD8,-                     bitmap_format_bit_order_Setup :: CARD8,-                     bitmap_format_scanline_unit_Setup :: CARD8,-                     bitmap_format_scanline_pad_Setup :: CARD8,-                     min_keycode_Setup :: KEYCODE, max_keycode_Setup :: KEYCODE,-                     vendor_Setup :: [CChar], pixmap_formats_Setup :: [FORMAT],-                     roots_Setup :: [SCREEN]}-           deriving (Show, Typeable)- -instance Serialize Setup where-        serialize x-          = do serialize (status_Setup x)-               putSkip 1-               serialize (protocol_major_version_Setup x)-               serialize (protocol_minor_version_Setup x)-               serialize (length_Setup x)-               serialize (release_number_Setup x)-               serialize (resource_id_base_Setup x)-               serialize (resource_id_mask_Setup x)-               serialize (motion_buffer_size_Setup x)-               serialize (vendor_len_Setup x)-               serialize (maximum_request_length_Setup x)-               serialize (roots_len_Setup x)-               serialize (pixmap_formats_len_Setup x)-               serialize (image_byte_order_Setup x)-               serialize (bitmap_format_bit_order_Setup x)-               serialize (bitmap_format_scanline_unit_Setup x)-               serialize (bitmap_format_scanline_pad_Setup x)-               serialize (min_keycode_Setup x)-               serialize (max_keycode_Setup x)-               putSkip 4-               serializeList (vendor_Setup x)-               serializeList (pixmap_formats_Setup x)-               serializeList (roots_Setup x)-        size x-          = size (status_Setup x) + 1 + size (protocol_major_version_Setup x)-              + size (protocol_minor_version_Setup x)-              + size (length_Setup x)-              + size (release_number_Setup x)-              + size (resource_id_base_Setup x)-              + size (resource_id_mask_Setup x)-              + size (motion_buffer_size_Setup x)-              + size (vendor_len_Setup x)-              + size (maximum_request_length_Setup x)-              + size (roots_len_Setup x)-              + size (pixmap_formats_len_Setup x)-              + size (image_byte_order_Setup x)-              + size (bitmap_format_bit_order_Setup x)-              + size (bitmap_format_scanline_unit_Setup x)-              + size (bitmap_format_scanline_pad_Setup x)-              + size (min_keycode_Setup x)-              + size (max_keycode_Setup x)-              + 4-              + sum (map size (vendor_Setup x))-              + sum (map size (pixmap_formats_Setup x))-              + sum (map size (roots_Setup x))- -instance Deserialize Setup where-        deserialize-          = do status <- deserialize-               skip 1-               protocol_major_version <- deserialize-               protocol_minor_version <- deserialize-               length <- deserialize-               release_number <- deserialize-               resource_id_base <- deserialize-               resource_id_mask <- deserialize-               motion_buffer_size <- deserialize-               vendor_len <- deserialize-               maximum_request_length <- deserialize-               roots_len <- deserialize-               pixmap_formats_len <- deserialize-               image_byte_order <- deserialize-               bitmap_format_bit_order <- deserialize-               bitmap_format_scanline_unit <- deserialize-               bitmap_format_scanline_pad <- deserialize-               min_keycode <- deserialize-               max_keycode <- deserialize-               skip 4-               vendor <- deserializeList (fromIntegral vendor_len)-               pixmap_formats <- deserializeList (fromIntegral pixmap_formats_len)-               roots <- deserializeList (fromIntegral roots_len)-               return-                 (MkSetup status protocol_major_version protocol_minor_version-                    length-                    release_number-                    resource_id_base-                    resource_id_mask-                    motion_buffer_size-                    vendor_len-                    maximum_request_length-                    roots_len-                    pixmap_formats_len-                    image_byte_order-                    bitmap_format_bit_order-                    bitmap_format_scanline_unit-                    bitmap_format_scanline_pad-                    min_keycode-                    max_keycode-                    vendor-                    pixmap_formats-                    roots)- -data ModMask = ModMaskShift-             | ModMaskLock-             | ModMaskControl-             | ModMask1-             | ModMask2-             | ModMask3-             | ModMask4-             | ModMask5- -instance BitEnum ModMask where-        toBit ModMaskShift{} = 0-        toBit ModMaskLock{} = 1-        toBit ModMaskControl{} = 2-        toBit ModMask1{} = 3-        toBit ModMask2{} = 4-        toBit ModMask3{} = 5-        toBit ModMask4{} = 6-        toBit ModMask5{} = 7-        fromBit 0 = ModMaskShift-        fromBit 1 = ModMaskLock-        fromBit 2 = ModMaskControl-        fromBit 3 = ModMask1-        fromBit 4 = ModMask2-        fromBit 5 = ModMask3-        fromBit 6 = ModMask4-        fromBit 7 = ModMask5- -data KeyPress = MkKeyPress{detail_KeyPress :: KEYCODE,-                           time_KeyPress :: TIMESTAMP, root_KeyPress :: WINDOW,-                           event_KeyPress :: WINDOW, child_KeyPress :: WINDOW,-                           root_x_KeyPress :: INT16, root_y_KeyPress :: INT16,-                           event_x_KeyPress :: INT16, event_y_KeyPress :: INT16,-                           state_KeyPress :: CARD16, same_screen_KeyPress :: BOOL}-              deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event KeyPress- -instance Deserialize KeyPress where-        deserialize-          = do skip 1-               detail <- deserialize-               skip 2-               time <- deserialize-               root <- deserialize-               event <- deserialize-               child <- deserialize-               root_x <- deserialize-               root_y <- deserialize-               event_x <- deserialize-               event_y <- deserialize-               state <- deserialize-               same_screen <- deserialize-               skip 1-               return-                 (MkKeyPress detail time root event child root_x root_y event_x-                    event_y-                    state-                    same_screen)- -data KeyRelease = MkKeyRelease{detail_KeyRelease :: KEYCODE,-                               time_KeyRelease :: TIMESTAMP, root_KeyRelease :: WINDOW,-                               event_KeyRelease :: WINDOW, child_KeyRelease :: WINDOW,-                               root_x_KeyRelease :: INT16, root_y_KeyRelease :: INT16,-                               event_x_KeyRelease :: INT16, event_y_KeyRelease :: INT16,-                               state_KeyRelease :: CARD16, same_screen_KeyRelease :: BOOL}-                deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event KeyRelease- -instance Deserialize KeyRelease where-        deserialize-          = do skip 1-               detail <- deserialize-               skip 2-               time <- deserialize-               root <- deserialize-               event <- deserialize-               child <- deserialize-               root_x <- deserialize-               root_y <- deserialize-               event_x <- deserialize-               event_y <- deserialize-               state <- deserialize-               same_screen <- deserialize-               skip 1-               return-                 (MkKeyRelease detail time root event child root_x root_y event_x-                    event_y-                    state-                    same_screen)- -data ButtonMask = ButtonMask1-                | ButtonMask2-                | ButtonMask3-                | ButtonMask4-                | ButtonMask5-                | ButtonMaskAny- -instance BitEnum ButtonMask where-        toBit ButtonMask1{} = 8-        toBit ButtonMask2{} = 9-        toBit ButtonMask3{} = 10-        toBit ButtonMask4{} = 11-        toBit ButtonMask5{} = 12-        toBit ButtonMaskAny{} = 15-        fromBit 8 = ButtonMask1-        fromBit 9 = ButtonMask2-        fromBit 10 = ButtonMask3-        fromBit 11 = ButtonMask4-        fromBit 12 = ButtonMask5-        fromBit 15 = ButtonMaskAny- -data ButtonPress = MkButtonPress{detail_ButtonPress :: BUTTON,-                                 time_ButtonPress :: TIMESTAMP, root_ButtonPress :: WINDOW,-                                 event_ButtonPress :: WINDOW, child_ButtonPress :: WINDOW,-                                 root_x_ButtonPress :: INT16, root_y_ButtonPress :: INT16,-                                 event_x_ButtonPress :: INT16, event_y_ButtonPress :: INT16,-                                 state_ButtonPress :: CARD16, same_screen_ButtonPress :: BOOL}-                 deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event ButtonPress- -instance Deserialize ButtonPress where-        deserialize-          = do skip 1-               detail <- deserialize-               skip 2-               time <- deserialize-               root <- deserialize-               event <- deserialize-               child <- deserialize-               root_x <- deserialize-               root_y <- deserialize-               event_x <- deserialize-               event_y <- deserialize-               state <- deserialize-               same_screen <- deserialize-               skip 1-               return-                 (MkButtonPress detail time root event child root_x root_y event_x-                    event_y-                    state-                    same_screen)- -data ButtonRelease = MkButtonRelease{detail_ButtonRelease ::-                                     BUTTON,-                                     time_ButtonRelease :: TIMESTAMP, root_ButtonRelease :: WINDOW,-                                     event_ButtonRelease :: WINDOW, child_ButtonRelease :: WINDOW,-                                     root_x_ButtonRelease :: INT16, root_y_ButtonRelease :: INT16,-                                     event_x_ButtonRelease :: INT16, event_y_ButtonRelease :: INT16,-                                     state_ButtonRelease :: CARD16,-                                     same_screen_ButtonRelease :: BOOL}-                   deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event ButtonRelease- -instance Deserialize ButtonRelease where-        deserialize-          = do skip 1-               detail <- deserialize-               skip 2-               time <- deserialize-               root <- deserialize-               event <- deserialize-               child <- deserialize-               root_x <- deserialize-               root_y <- deserialize-               event_x <- deserialize-               event_y <- deserialize-               state <- deserialize-               same_screen <- deserialize-               skip 1-               return-                 (MkButtonRelease detail time root event child root_x root_y event_x-                    event_y-                    state-                    same_screen)- -data Motion = MotionNormal-            | MotionHint- -instance SimpleEnum Motion where-        toValue MotionNormal{} = 0-        toValue MotionHint{} = 1-        fromValue 0 = MotionNormal-        fromValue 1 = MotionHint- -data MotionNotify = MkMotionNotify{detail_MotionNotify :: BYTE,-                                   time_MotionNotify :: TIMESTAMP, root_MotionNotify :: WINDOW,-                                   event_MotionNotify :: WINDOW, child_MotionNotify :: WINDOW,-                                   root_x_MotionNotify :: INT16, root_y_MotionNotify :: INT16,-                                   event_x_MotionNotify :: INT16, event_y_MotionNotify :: INT16,-                                   state_MotionNotify :: CARD16, same_screen_MotionNotify :: BOOL}-                  deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event MotionNotify- -instance Deserialize MotionNotify where-        deserialize-          = do skip 1-               detail <- deserialize-               skip 2-               time <- deserialize-               root <- deserialize-               event <- deserialize-               child <- deserialize-               root_x <- deserialize-               root_y <- deserialize-               event_x <- deserialize-               event_y <- deserialize-               state <- deserialize-               same_screen <- deserialize-               skip 1-               return-                 (MkMotionNotify detail time root event child root_x root_y event_x-                    event_y-                    state-                    same_screen)- -data NotifyDetail = NotifyDetailAncestor-                  | NotifyDetailVirtual-                  | NotifyDetailInferior-                  | NotifyDetailNonlinear-                  | NotifyDetailNonlinearVirtual-                  | NotifyDetailPointer-                  | NotifyDetailPointerRoot-                  | NotifyDetailNone- -instance SimpleEnum NotifyDetail where-        toValue NotifyDetailAncestor{} = 0-        toValue NotifyDetailVirtual{} = 1-        toValue NotifyDetailInferior{} = 2-        toValue NotifyDetailNonlinear{} = 3-        toValue NotifyDetailNonlinearVirtual{} = 4-        toValue NotifyDetailPointer{} = 5-        toValue NotifyDetailPointerRoot{} = 6-        toValue NotifyDetailNone{} = 7-        fromValue 0 = NotifyDetailAncestor-        fromValue 1 = NotifyDetailVirtual-        fromValue 2 = NotifyDetailInferior-        fromValue 3 = NotifyDetailNonlinear-        fromValue 4 = NotifyDetailNonlinearVirtual-        fromValue 5 = NotifyDetailPointer-        fromValue 6 = NotifyDetailPointerRoot-        fromValue 7 = NotifyDetailNone- -data NotifyMode = NotifyModeNormal-                | NotifyModeGrab-                | NotifyModeUngrab-                | NotifyModeWhileGrabbed- -instance SimpleEnum NotifyMode where-        toValue NotifyModeNormal{} = 0-        toValue NotifyModeGrab{} = 1-        toValue NotifyModeUngrab{} = 2-        toValue NotifyModeWhileGrabbed{} = 3-        fromValue 0 = NotifyModeNormal-        fromValue 1 = NotifyModeGrab-        fromValue 2 = NotifyModeUngrab-        fromValue 3 = NotifyModeWhileGrabbed- -data EnterNotify = MkEnterNotify{detail_EnterNotify :: BYTE,-                                 time_EnterNotify :: TIMESTAMP, root_EnterNotify :: WINDOW,-                                 event_EnterNotify :: WINDOW, child_EnterNotify :: WINDOW,-                                 root_x_EnterNotify :: INT16, root_y_EnterNotify :: INT16,-                                 event_x_EnterNotify :: INT16, event_y_EnterNotify :: INT16,-                                 state_EnterNotify :: CARD16, mode_EnterNotify :: BYTE,-                                 same_screen_focus_EnterNotify :: BYTE}-                 deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event EnterNotify- -instance Deserialize EnterNotify where-        deserialize-          = do skip 1-               detail <- deserialize-               skip 2-               time <- deserialize-               root <- deserialize-               event <- deserialize-               child <- deserialize-               root_x <- deserialize-               root_y <- deserialize-               event_x <- deserialize-               event_y <- deserialize-               state <- deserialize-               mode <- deserialize-               same_screen_focus <- deserialize-               return-                 (MkEnterNotify detail time root event child root_x root_y event_x-                    event_y-                    state-                    mode-                    same_screen_focus)- -data LeaveNotify = MkLeaveNotify{detail_LeaveNotify :: BYTE,-                                 time_LeaveNotify :: TIMESTAMP, root_LeaveNotify :: WINDOW,-                                 event_LeaveNotify :: WINDOW, child_LeaveNotify :: WINDOW,-                                 root_x_LeaveNotify :: INT16, root_y_LeaveNotify :: INT16,-                                 event_x_LeaveNotify :: INT16, event_y_LeaveNotify :: INT16,-                                 state_LeaveNotify :: CARD16, mode_LeaveNotify :: BYTE,-                                 same_screen_focus_LeaveNotify :: BYTE}-                 deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event LeaveNotify- -instance Deserialize LeaveNotify where-        deserialize-          = do skip 1-               detail <- deserialize-               skip 2-               time <- deserialize-               root <- deserialize-               event <- deserialize-               child <- deserialize-               root_x <- deserialize-               root_y <- deserialize-               event_x <- deserialize-               event_y <- deserialize-               state <- deserialize-               mode <- deserialize-               same_screen_focus <- deserialize-               return-                 (MkLeaveNotify detail time root event child root_x root_y event_x-                    event_y-                    state-                    mode-                    same_screen_focus)- -data FocusIn = MkFocusIn{detail_FocusIn :: BYTE,-                         event_FocusIn :: WINDOW, mode_FocusIn :: BYTE}-             deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event FocusIn- -instance Deserialize FocusIn where-        deserialize-          = do skip 1-               detail <- deserialize-               skip 2-               event <- deserialize-               mode <- deserialize-               skip 3-               return (MkFocusIn detail event mode)- -data FocusOut = MkFocusOut{detail_FocusOut :: BYTE,-                           event_FocusOut :: WINDOW, mode_FocusOut :: BYTE}-              deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event FocusOut- -instance Deserialize FocusOut where-        deserialize-          = do skip 1-               detail <- deserialize-               skip 2-               event <- deserialize-               mode <- deserialize-               skip 3-               return (MkFocusOut detail event mode)- -data KeymapNotify = MkKeymapNotify{keys_KeymapNotify :: [CARD8]}-                  deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event KeymapNotify- -instance Deserialize KeymapNotify where-        deserialize-          = do skip 1-               keys <- deserializeList (fromIntegral 31)-               return (MkKeymapNotify keys)- -data Expose = MkExpose{window_Expose :: WINDOW, x_Expose :: CARD16,-                       y_Expose :: CARD16, width_Expose :: CARD16,-                       height_Expose :: CARD16, count_Expose :: CARD16}-            deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event Expose- -instance Deserialize Expose where-        deserialize-          = do skip 1-               skip 1-               skip 2-               window <- deserialize-               x <- deserialize-               y <- deserialize-               width <- deserialize-               height <- deserialize-               count <- deserialize-               skip 2-               return (MkExpose window x y width height count)- -data GraphicsExposure = MkGraphicsExposure{drawable_GraphicsExposure-                                           :: DRAWABLE,-                                           x_GraphicsExposure :: CARD16,-                                           y_GraphicsExposure :: CARD16,-                                           width_GraphicsExposure :: CARD16,-                                           height_GraphicsExposure :: CARD16,-                                           minor_opcode_GraphicsExposure :: CARD16,-                                           count_GraphicsExposure :: CARD16,-                                           major_opcode_GraphicsExposure :: CARD8}-                      deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event GraphicsExposure- -instance Deserialize GraphicsExposure where-        deserialize-          = do skip 1-               skip 1-               skip 2-               drawable <- deserialize-               x <- deserialize-               y <- deserialize-               width <- deserialize-               height <- deserialize-               minor_opcode <- deserialize-               count <- deserialize-               major_opcode <- deserialize-               skip 3-               return-                 (MkGraphicsExposure drawable x y width height minor_opcode count-                    major_opcode)- -data NoExposure = MkNoExposure{drawable_NoExposure :: DRAWABLE,-                               minor_opcode_NoExposure :: CARD16,-                               major_opcode_NoExposure :: CARD8}-                deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event NoExposure- -instance Deserialize NoExposure where-        deserialize-          = do skip 1-               skip 1-               skip 2-               drawable <- deserialize-               minor_opcode <- deserialize-               major_opcode <- deserialize-               skip 1-               return (MkNoExposure drawable minor_opcode major_opcode)- -data Visibility = VisibilityUnobscured-                | VisibilityPartiallyObscured-                | VisibilityFullyObscured- -instance SimpleEnum Visibility where-        toValue VisibilityUnobscured{} = 0-        toValue VisibilityPartiallyObscured{} = 1-        toValue VisibilityFullyObscured{} = 2-        fromValue 0 = VisibilityUnobscured-        fromValue 1 = VisibilityPartiallyObscured-        fromValue 2 = VisibilityFullyObscured- -data VisibilityNotify = MkVisibilityNotify{window_VisibilityNotify-                                           :: WINDOW,-                                           state_VisibilityNotify :: BYTE}-                      deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event VisibilityNotify- -instance Deserialize VisibilityNotify where-        deserialize-          = do skip 1-               skip 1-               skip 2-               window <- deserialize-               state <- deserialize-               skip 3-               return (MkVisibilityNotify window state)- -data CreateNotify = MkCreateNotify{parent_CreateNotify :: WINDOW,-                                   window_CreateNotify :: WINDOW, x_CreateNotify :: INT16,-                                   y_CreateNotify :: INT16, width_CreateNotify :: CARD16,-                                   height_CreateNotify :: CARD16,-                                   border_width_CreateNotify :: CARD16,-                                   override_redirect_CreateNotify :: BOOL}-                  deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event CreateNotify- -instance Deserialize CreateNotify where-        deserialize-          = do skip 1-               skip 1-               skip 2-               parent <- deserialize-               window <- deserialize-               x <- deserialize-               y <- deserialize-               width <- deserialize-               height <- deserialize-               border_width <- deserialize-               override_redirect <- deserialize-               skip 1-               return-                 (MkCreateNotify parent window x y width height border_width-                    override_redirect)- -data DestroyNotify = MkDestroyNotify{event_DestroyNotify :: WINDOW,-                                     window_DestroyNotify :: WINDOW}-                   deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event DestroyNotify- -instance Deserialize DestroyNotify where-        deserialize-          = do skip 1-               skip 1-               skip 2-               event <- deserialize-               window <- deserialize-               return (MkDestroyNotify event window)- -data UnmapNotify = MkUnmapNotify{event_UnmapNotify :: WINDOW,-                                 window_UnmapNotify :: WINDOW, from_configure_UnmapNotify :: BOOL}-                 deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event UnmapNotify- -instance Deserialize UnmapNotify where-        deserialize-          = do skip 1-               skip 1-               skip 2-               event <- deserialize-               window <- deserialize-               from_configure <- deserialize-               skip 3-               return (MkUnmapNotify event window from_configure)- -data MapNotify = MkMapNotify{event_MapNotify :: WINDOW,-                             window_MapNotify :: WINDOW, override_redirect_MapNotify :: BOOL}-               deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event MapNotify- -instance Deserialize MapNotify where-        deserialize-          = do skip 1-               skip 1-               skip 2-               event <- deserialize-               window <- deserialize-               override_redirect <- deserialize-               skip 3-               return (MkMapNotify event window override_redirect)- -data MapRequest = MkMapRequest{parent_MapRequest :: WINDOW,-                               window_MapRequest :: WINDOW}-                deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event MapRequest- -instance Deserialize MapRequest where-        deserialize-          = do skip 1-               skip 1-               skip 2-               parent <- deserialize-               window <- deserialize-               return (MkMapRequest parent window)- -data ReparentNotify = MkReparentNotify{event_ReparentNotify ::-                                       WINDOW,-                                       window_ReparentNotify :: WINDOW,-                                       parent_ReparentNotify :: WINDOW, x_ReparentNotify :: INT16,-                                       y_ReparentNotify :: INT16,-                                       override_redirect_ReparentNotify :: BOOL}-                    deriving (Show, Typeable)-- -data ClientMessageData = ClientData8  [CARD8]  -- ^length 20-                       | ClientData16 [CARD16] -- ^length 10-                       | ClientData32 [CARD32] -- ^length 5-                   deriving (Show, Typeable)-- -data ClientMessageDataType = CDType8-                           | CDType16-                           | CDType32- -clientMessageDataType :: ClientMessageData -> ClientMessageDataType-clientMessageDataType ClientData8{}  = CDType8-clientMessageDataType ClientData16{} = CDType16-clientMessageDataType ClientData32{} = CDType32- -instance Serialize ClientMessageData where-    serialize (ClientData8 xs) = assert (length xs == 20) $-                                    serializeList xs-    serialize (ClientData16 xs) = assert (length xs == 10) $-                                     serializeList xs-    serialize (ClientData32 xs) = assert (length xs == 5) $-                                     serializeList xs-    size cd = assert-         (case cd of-            ClientData8  xs -> length xs == 20-            ClientData16 xs -> length xs == 10-            ClientData32 xs -> length xs == 5)-         20--deserializeClientData :: ClientMessageDataType -> Get ClientMessageData-deserializeClientData CDType8-    = ClientData8 `liftM` deserializeList 20-deserializeClientData CDType16-    = ClientData16 `liftM` deserializeList 10-deserializeClientData CDType32-    = ClientData32 `liftM` deserializeList 5- -clientDataFormatToType :: CARD8 -> ClientMessageDataType-clientDataFormatToType 8 = CDType8-clientDataFormatToType 16 = CDType16-clientDataFormatToType 32 = CDType32-clientDataFormatToType _ = CDType8 -- should we throw an error here?-- -instance Graphics.XHB.Shared.Event ReparentNotify- -instance Deserialize ReparentNotify where-        deserialize-          = do skip 1-               skip 1-               skip 2-               event <- deserialize-               window <- deserialize-               parent <- deserialize-               x <- deserialize-               y <- deserialize-               override_redirect <- deserialize-               skip 3-               return (MkReparentNotify event window parent x y override_redirect)- -data ConfigureNotify = MkConfigureNotify{event_ConfigureNotify ::-                                         WINDOW,-                                         window_ConfigureNotify :: WINDOW,-                                         above_sibling_ConfigureNotify :: WINDOW,-                                         x_ConfigureNotify :: INT16, y_ConfigureNotify :: INT16,-                                         width_ConfigureNotify :: CARD16,-                                         height_ConfigureNotify :: CARD16,-                                         border_width_ConfigureNotify :: CARD16,-                                         override_redirect_ConfigureNotify :: BOOL}-                     deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event ConfigureNotify- -instance Deserialize ConfigureNotify where-        deserialize-          = do skip 1-               skip 1-               skip 2-               event <- deserialize-               window <- deserialize-               above_sibling <- deserialize-               x <- deserialize-               y <- deserialize-               width <- deserialize-               height <- deserialize-               border_width <- deserialize-               override_redirect <- deserialize-               skip 1-               return-                 (MkConfigureNotify event window above_sibling x y width height-                    border_width-                    override_redirect)- -data ConfigureRequest = MkConfigureRequest{stack_mode_ConfigureRequest-                                           :: BYTE,-                                           parent_ConfigureRequest :: WINDOW,-                                           window_ConfigureRequest :: WINDOW,-                                           sibling_ConfigureRequest :: WINDOW,-                                           x_ConfigureRequest :: INT16, y_ConfigureRequest :: INT16,-                                           width_ConfigureRequest :: CARD16,-                                           height_ConfigureRequest :: CARD16,-                                           border_width_ConfigureRequest :: CARD16,-                                           value_mask_ConfigureRequest :: CARD16}-                      deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event ConfigureRequest- -instance Deserialize ConfigureRequest where-        deserialize-          = do skip 1-               stack_mode <- deserialize-               skip 2-               parent <- deserialize-               window <- deserialize-               sibling <- deserialize-               x <- deserialize-               y <- deserialize-               width <- deserialize-               height <- deserialize-               border_width <- deserialize-               value_mask <- deserialize-               return-                 (MkConfigureRequest stack_mode parent window sibling x y width-                    height-                    border_width-                    value_mask)- -data GravityNotify = MkGravityNotify{event_GravityNotify :: WINDOW,-                                     window_GravityNotify :: WINDOW, x_GravityNotify :: INT16,-                                     y_GravityNotify :: INT16}-                   deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event GravityNotify- -instance Deserialize GravityNotify where-        deserialize-          = do skip 1-               skip 1-               skip 2-               event <- deserialize-               window <- deserialize-               x <- deserialize-               y <- deserialize-               return (MkGravityNotify event window x y)- -data ResizeRequest = MkResizeRequest{window_ResizeRequest ::-                                     WINDOW,-                                     width_ResizeRequest :: CARD16, height_ResizeRequest :: CARD16}-                   deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event ResizeRequest- -instance Deserialize ResizeRequest where-        deserialize-          = do skip 1-               skip 1-               skip 2-               window <- deserialize-               width <- deserialize-               height <- deserialize-               return (MkResizeRequest window width height)- -data Place = PlaceOnTop-           | PlaceOnBottom- -instance SimpleEnum Place where-        toValue PlaceOnTop{} = 0-        toValue PlaceOnBottom{} = 1-        fromValue 0 = PlaceOnTop-        fromValue 1 = PlaceOnBottom- -data CirculateNotify = MkCirculateNotify{event_CirculateNotify ::-                                         WINDOW,-                                         window_CirculateNotify :: WINDOW,-                                         place_CirculateNotify :: BYTE}-                     deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event CirculateNotify- -instance Deserialize CirculateNotify where-        deserialize-          = do skip 1-               skip 1-               skip 2-               event <- deserialize-               window <- deserialize-               skip 4-               place <- deserialize-               skip 3-               return (MkCirculateNotify event window place)- -data CirculateRequest = MkCirculateRequest{event_CirculateRequest-                                           :: WINDOW,-                                           window_CirculateRequest :: WINDOW,-                                           place_CirculateRequest :: BYTE}-                      deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event CirculateRequest- -instance Deserialize CirculateRequest where-        deserialize-          = do skip 1-               skip 1-               skip 2-               event <- deserialize-               window <- deserialize-               skip 4-               place <- deserialize-               skip 3-               return (MkCirculateRequest event window place)- -data Property = PropertyNewValue-              | PropertyDelete- -instance SimpleEnum Property where-        toValue PropertyNewValue{} = 0-        toValue PropertyDelete{} = 1-        fromValue 0 = PropertyNewValue-        fromValue 1 = PropertyDelete- -data PropertyNotify = MkPropertyNotify{window_PropertyNotify ::-                                       WINDOW,-                                       atom_PropertyNotify :: ATOM,-                                       time_PropertyNotify :: TIMESTAMP,-                                       state_PropertyNotify :: BYTE}-                    deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event PropertyNotify- -instance Deserialize PropertyNotify where-        deserialize-          = do skip 1-               skip 1-               skip 2-               window <- deserialize-               atom <- deserialize-               time <- deserialize-               state <- deserialize-               skip 3-               return (MkPropertyNotify window atom time state)- -data SelectionClear = MkSelectionClear{time_SelectionClear ::-                                       TIMESTAMP,-                                       owner_SelectionClear :: WINDOW,-                                       selection_SelectionClear :: ATOM}-                    deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event SelectionClear- -instance Deserialize SelectionClear where-        deserialize-          = do skip 1-               skip 1-               skip 2-               time <- deserialize-               owner <- deserialize-               selection <- deserialize-               return (MkSelectionClear time owner selection)- -data SelectionRequest = MkSelectionRequest{time_SelectionRequest ::-                                           TIMESTAMP,-                                           owner_SelectionRequest :: WINDOW,-                                           requestor_SelectionRequest :: WINDOW,-                                           selection_SelectionRequest :: ATOM,-                                           target_SelectionRequest :: ATOM,-                                           property_SelectionRequest :: ATOM}-                      deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event SelectionRequest- -instance Deserialize SelectionRequest where-        deserialize-          = do skip 1-               skip 1-               skip 2-               time <- deserialize-               owner <- deserialize-               requestor <- deserialize-               selection <- deserialize-               target <- deserialize-               property <- deserialize-               return-                 (MkSelectionRequest time owner requestor selection target property)- -data SelectionNotify = MkSelectionNotify{time_SelectionNotify ::-                                         TIMESTAMP,-                                         requestor_SelectionNotify :: WINDOW,-                                         selection_SelectionNotify :: ATOM,-                                         target_SelectionNotify :: ATOM,-                                         property_SelectionNotify :: ATOM}-                     deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event SelectionNotify- -instance Deserialize SelectionNotify where-        deserialize-          = do skip 1-               skip 1-               skip 2-               time <- deserialize-               requestor <- deserialize-               selection <- deserialize-               target <- deserialize-               property <- deserialize-               return (MkSelectionNotify time requestor selection target property)- -data ColormapState = ColormapStateUninstalled-                   | ColormapStateInstalled- -instance SimpleEnum ColormapState where-        toValue ColormapStateUninstalled{} = 0-        toValue ColormapStateInstalled{} = 1-        fromValue 0 = ColormapStateUninstalled-        fromValue 1 = ColormapStateInstalled- -data ColormapNotify = MkColormapNotify{window_ColormapNotify ::-                                       WINDOW,-                                       colormap_ColormapNotify :: COLORMAP,-                                       new_ColormapNotify :: BOOL, state_ColormapNotify :: BYTE}-                    deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event ColormapNotify- -instance Deserialize ColormapNotify where-        deserialize-          = do skip 1-               skip 1-               skip 2-               window <- deserialize-               colormap <- deserialize-               new <- deserialize-               state <- deserialize-               skip 2-               return (MkColormapNotify window colormap new state)- -data ClientMessage = MkClientMessage{format_ClientMessage :: CARD8,-                                     window_ClientMessage :: WINDOW, type_ClientMessage :: ATOM,-                                     data_ClientMessage :: ClientMessageData}-                   deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event ClientMessage- -instance Deserialize ClientMessage where-        deserialize-          = do skip 1-               format <- deserialize-               skip 2-               window <- deserialize-               type_ <- deserialize-               data_ <- deserializeClientData (clientDataFormatToType format)-               return (MkClientMessage format window type_ data_)- -data Mapping = MappingModifier-             | MappingKeyboard-             | MappingPointer- -instance SimpleEnum Mapping where-        toValue MappingModifier{} = 0-        toValue MappingKeyboard{} = 1-        toValue MappingPointer{} = 2-        fromValue 0 = MappingModifier-        fromValue 1 = MappingKeyboard-        fromValue 2 = MappingPointer- -data MappingNotify = MkMappingNotify{request_MappingNotify :: BYTE,-                                     first_keycode_MappingNotify :: KEYCODE,-                                     count_MappingNotify :: CARD8}-                   deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Event MappingNotify- -instance Deserialize MappingNotify where-        deserialize-          = do skip 1-               skip 1-               skip 2-               request <- deserialize-               first_keycode <- deserialize-               count <- deserialize-               skip 1-               return (MkMappingNotify request first_keycode count)- -data Request = MkRequest{bad_value_Request :: CARD32,-                         minor_opcode_Request :: CARD16, major_opcode_Request :: CARD8}-             deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Error Request- -instance Deserialize Request where-        deserialize-          = do skip 4-               bad_value <- deserialize-               minor_opcode <- deserialize-               major_opcode <- deserialize-               skip 1-               return (MkRequest bad_value minor_opcode major_opcode)- -data Value = MkValue{bad_value_Value :: CARD32,-                     minor_opcode_Value :: CARD16, major_opcode_Value :: CARD8}-           deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Error Value- -instance Deserialize Value where-        deserialize-          = do skip 4-               bad_value <- deserialize-               minor_opcode <- deserialize-               major_opcode <- deserialize-               skip 1-               return (MkValue bad_value minor_opcode major_opcode)- -data Window = MkWindow{bad_value_Window :: CARD32,-                       minor_opcode_Window :: CARD16, major_opcode_Window :: CARD8}-            deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Error Window- -instance Deserialize Window where-        deserialize-          = do skip 4-               bad_value <- deserialize-               minor_opcode <- deserialize-               major_opcode <- deserialize-               skip 1-               return (MkWindow bad_value minor_opcode major_opcode)- -data Pixmap = MkPixmap{bad_value_Pixmap :: CARD32,-                       minor_opcode_Pixmap :: CARD16, major_opcode_Pixmap :: CARD8}-            deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Error Pixmap- -instance Deserialize Pixmap where-        deserialize-          = do skip 4-               bad_value <- deserialize-               minor_opcode <- deserialize-               major_opcode <- deserialize-               skip 1-               return (MkPixmap bad_value minor_opcode major_opcode)- -data Atom = MkAtom{bad_value_Atom :: CARD32,-                   minor_opcode_Atom :: CARD16, major_opcode_Atom :: CARD8}-          deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Error Atom- -instance Deserialize Atom where-        deserialize-          = do skip 4-               bad_value <- deserialize-               minor_opcode <- deserialize-               major_opcode <- deserialize-               skip 1-               return (MkAtom bad_value minor_opcode major_opcode)- -data Cursor = MkCursor{bad_value_Cursor :: CARD32,-                       minor_opcode_Cursor :: CARD16, major_opcode_Cursor :: CARD8}-            deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Error Cursor- -instance Deserialize Cursor where-        deserialize-          = do skip 4-               bad_value <- deserialize-               minor_opcode <- deserialize-               major_opcode <- deserialize-               skip 1-               return (MkCursor bad_value minor_opcode major_opcode)- -data Font = MkFont{bad_value_Font :: CARD32,-                   minor_opcode_Font :: CARD16, major_opcode_Font :: CARD8}-          deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Error Font- -instance Deserialize Font where-        deserialize-          = do skip 4-               bad_value <- deserialize-               minor_opcode <- deserialize-               major_opcode <- deserialize-               skip 1-               return (MkFont bad_value minor_opcode major_opcode)- -data Match = MkMatch{bad_value_Match :: CARD32,-                     minor_opcode_Match :: CARD16, major_opcode_Match :: CARD8}-           deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Error Match- -instance Deserialize Match where-        deserialize-          = do skip 4-               bad_value <- deserialize-               minor_opcode <- deserialize-               major_opcode <- deserialize-               skip 1-               return (MkMatch bad_value minor_opcode major_opcode)- -data Drawable = MkDrawable{bad_value_Drawable :: CARD32,-                           minor_opcode_Drawable :: CARD16, major_opcode_Drawable :: CARD8}-              deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Error Drawable- -instance Deserialize Drawable where-        deserialize-          = do skip 4-               bad_value <- deserialize-               minor_opcode <- deserialize-               major_opcode <- deserialize-               skip 1-               return (MkDrawable bad_value minor_opcode major_opcode)- -data Access = MkAccess{bad_value_Access :: CARD32,-                       minor_opcode_Access :: CARD16, major_opcode_Access :: CARD8}-            deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Error Access- -instance Deserialize Access where-        deserialize-          = do skip 4-               bad_value <- deserialize-               minor_opcode <- deserialize-               major_opcode <- deserialize-               skip 1-               return (MkAccess bad_value minor_opcode major_opcode)- -data Alloc = MkAlloc{bad_value_Alloc :: CARD32,-                     minor_opcode_Alloc :: CARD16, major_opcode_Alloc :: CARD8}-           deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Error Alloc- -instance Deserialize Alloc where-        deserialize-          = do skip 4-               bad_value <- deserialize-               minor_opcode <- deserialize-               major_opcode <- deserialize-               skip 1-               return (MkAlloc bad_value minor_opcode major_opcode)- -data Colormap = MkColormap{bad_value_Colormap :: CARD32,-                           minor_opcode_Colormap :: CARD16, major_opcode_Colormap :: CARD8}-              deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Error Colormap- -instance Deserialize Colormap where-        deserialize-          = do skip 4-               bad_value <- deserialize-               minor_opcode <- deserialize-               major_opcode <- deserialize-               skip 1-               return (MkColormap bad_value minor_opcode major_opcode)- -data GContext = MkGContext{bad_value_GContext :: CARD32,-                           minor_opcode_GContext :: CARD16, major_opcode_GContext :: CARD8}-              deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Error GContext- -instance Deserialize GContext where-        deserialize-          = do skip 4-               bad_value <- deserialize-               minor_opcode <- deserialize-               major_opcode <- deserialize-               skip 1-               return (MkGContext bad_value minor_opcode major_opcode)- -data IDChoice = MkIDChoice{bad_value_IDChoice :: CARD32,-                           minor_opcode_IDChoice :: CARD16, major_opcode_IDChoice :: CARD8}-              deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Error IDChoice- -instance Deserialize IDChoice where-        deserialize-          = do skip 4-               bad_value <- deserialize-               minor_opcode <- deserialize-               major_opcode <- deserialize-               skip 1-               return (MkIDChoice bad_value minor_opcode major_opcode)- -data Name = MkName{bad_value_Name :: CARD32,-                   minor_opcode_Name :: CARD16, major_opcode_Name :: CARD8}-          deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Error Name- -instance Deserialize Name where-        deserialize-          = do skip 4-               bad_value <- deserialize-               minor_opcode <- deserialize-               major_opcode <- deserialize-               skip 1-               return (MkName bad_value minor_opcode major_opcode)- -data Length = MkLength{bad_value_Length :: CARD32,-                       minor_opcode_Length :: CARD16, major_opcode_Length :: CARD8}-            deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Error Length- -instance Deserialize Length where-        deserialize-          = do skip 4-               bad_value <- deserialize-               minor_opcode <- deserialize-               major_opcode <- deserialize-               skip 1-               return (MkLength bad_value minor_opcode major_opcode)- -data Implementation = MkImplementation{bad_value_Implementation ::-                                       CARD32,-                                       minor_opcode_Implementation :: CARD16,-                                       major_opcode_Implementation :: CARD8}-                    deriving (Show, Typeable)- -instance Graphics.XHB.Shared.Error Implementation- -instance Deserialize Implementation where-        deserialize-          = do skip 4-               bad_value <- deserialize-               minor_opcode <- deserialize-               major_opcode <- deserialize-               skip 1-               return (MkImplementation bad_value minor_opcode major_opcode)- -data WindowClass = WindowClassCopyFromParent-                 | WindowClassInputOutput-                 | WindowClassInputOnly- -instance SimpleEnum WindowClass where-        toValue WindowClassCopyFromParent{} = 0-        toValue WindowClassInputOutput{} = 1-        toValue WindowClassInputOnly{} = 2-        fromValue 0 = WindowClassCopyFromParent-        fromValue 1 = WindowClassInputOutput-        fromValue 2 = WindowClassInputOnly- -data CW = CWBackPixmap-        | CWBackPixel-        | CWBorderPixmap-        | CWBorderPixel-        | CWBitGravity-        | CWWinGravity-        | CWBackingStore-        | CWBackingPlanes-        | CWBackingPixel-        | CWOverrideRedirect-        | CWSaveUnder-        | CWEventMask-        | CWDontPropagate-        | CWColormap-        | CWCursor- -instance BitEnum CW where-        toBit CWBackPixmap{} = 0-        toBit CWBackPixel{} = 1-        toBit CWBorderPixmap{} = 2-        toBit CWBorderPixel{} = 3-        toBit CWBitGravity{} = 4-        toBit CWWinGravity{} = 5-        toBit CWBackingStore{} = 6-        toBit CWBackingPlanes{} = 7-        toBit CWBackingPixel{} = 8-        toBit CWOverrideRedirect{} = 9-        toBit CWSaveUnder{} = 10-        toBit CWEventMask{} = 11-        toBit CWDontPropagate{} = 12-        toBit CWColormap{} = 13-        toBit CWCursor{} = 14-        fromBit 0 = CWBackPixmap-        fromBit 1 = CWBackPixel-        fromBit 2 = CWBorderPixmap-        fromBit 3 = CWBorderPixel-        fromBit 4 = CWBitGravity-        fromBit 5 = CWWinGravity-        fromBit 6 = CWBackingStore-        fromBit 7 = CWBackingPlanes-        fromBit 8 = CWBackingPixel-        fromBit 9 = CWOverrideRedirect-        fromBit 10 = CWSaveUnder-        fromBit 11 = CWEventMask-        fromBit 12 = CWDontPropagate-        fromBit 13 = CWColormap-        fromBit 14 = CWCursor- -data BackPixmap = BackPixmapNone-                | BackPixmapParentRelative- -instance SimpleEnum BackPixmap where-        toValue BackPixmapNone{} = 0-        toValue BackPixmapParentRelative{} = 1-        fromValue 0 = BackPixmapNone-        fromValue 1 = BackPixmapParentRelative- -data Gravity = GravityBitForget-             | GravityWinUnmap-             | GravityNorthWest-             | GravityNorth-             | GravityNorthEast-             | GravityWest-             | GravityCenter-             | GravityEast-             | GravitySouthWest-             | GravitySouth-             | GravitySouthEast-             | GravityStatic- -instance SimpleEnum Gravity where-        toValue GravityBitForget{} = 0-        toValue GravityWinUnmap{} = 0-        toValue GravityNorthWest{} = 1-        toValue GravityNorth{} = 2-        toValue GravityNorthEast{} = 3-        toValue GravityWest{} = 4-        toValue GravityCenter{} = 5-        toValue GravityEast{} = 6-        toValue GravitySouthWest{} = 7-        toValue GravitySouth{} = 8-        toValue GravitySouthEast{} = 9-        toValue GravityStatic{} = 10-        fromValue 0 = GravityBitForget-        fromValue 0 = GravityWinUnmap-        fromValue 1 = GravityNorthWest-        fromValue 2 = GravityNorth-        fromValue 3 = GravityNorthEast-        fromValue 4 = GravityWest-        fromValue 5 = GravityCenter-        fromValue 6 = GravityEast-        fromValue 7 = GravitySouthWest-        fromValue 8 = GravitySouth-        fromValue 9 = GravitySouthEast-        fromValue 10 = GravityStatic- -data BackingStore = BackingStoreNotUseful-                  | BackingStoreWhenMapped-                  | BackingStoreAlways- -instance SimpleEnum BackingStore where-        toValue BackingStoreNotUseful{} = 0-        toValue BackingStoreWhenMapped{} = 1-        toValue BackingStoreAlways{} = 2-        fromValue 0 = BackingStoreNotUseful-        fromValue 1 = BackingStoreWhenMapped-        fromValue 2 = BackingStoreAlways- -data EventMask = EventMaskKeyPress-               | EventMaskKeyRelease-               | EventMaskButtonPress-               | EventMaskButtonRelease-               | EventMaskEnterWindow-               | EventMaskLeaveWindow-               | EventMaskPointerMotion-               | EventMaskPointerMotionHint-               | EventMaskButton1Motion-               | EventMaskButton2Motion-               | EventMaskButton3Motion-               | EventMaskButton4Motion-               | EventMaskButton5Motion-               | EventMaskButtonMotion-               | EventMaskKeymapState-               | EventMaskExposure-               | EventMaskVisibilityChange-               | EventMaskStructureNotify-               | EventMaskResizeRedirect-               | EventMaskSubstructureNotify-               | EventMaskSubstructureRedirect-               | EventMaskFocusChange-               | EventMaskPropertyChange-               | EventMaskColorMapChange-               | EventMaskOwnerGrabButton- -instance BitEnum EventMask where-        toBit EventMaskKeyPress{} = 0-        toBit EventMaskKeyRelease{} = 1-        toBit EventMaskButtonPress{} = 2-        toBit EventMaskButtonRelease{} = 3-        toBit EventMaskEnterWindow{} = 4-        toBit EventMaskLeaveWindow{} = 5-        toBit EventMaskPointerMotion{} = 6-        toBit EventMaskPointerMotionHint{} = 7-        toBit EventMaskButton1Motion{} = 8-        toBit EventMaskButton2Motion{} = 9-        toBit EventMaskButton3Motion{} = 10-        toBit EventMaskButton4Motion{} = 11-        toBit EventMaskButton5Motion{} = 12-        toBit EventMaskButtonMotion{} = 13-        toBit EventMaskKeymapState{} = 14-        toBit EventMaskExposure{} = 15-        toBit EventMaskVisibilityChange{} = 16-        toBit EventMaskStructureNotify{} = 17-        toBit EventMaskResizeRedirect{} = 18-        toBit EventMaskSubstructureNotify{} = 19-        toBit EventMaskSubstructureRedirect{} = 20-        toBit EventMaskFocusChange{} = 21-        toBit EventMaskPropertyChange{} = 22-        toBit EventMaskColorMapChange{} = 23-        toBit EventMaskOwnerGrabButton{} = 24-        fromBit 0 = EventMaskKeyPress-        fromBit 1 = EventMaskKeyRelease-        fromBit 2 = EventMaskButtonPress-        fromBit 3 = EventMaskButtonRelease-        fromBit 4 = EventMaskEnterWindow-        fromBit 5 = EventMaskLeaveWindow-        fromBit 6 = EventMaskPointerMotion-        fromBit 7 = EventMaskPointerMotionHint-        fromBit 8 = EventMaskButton1Motion-        fromBit 9 = EventMaskButton2Motion-        fromBit 10 = EventMaskButton3Motion-        fromBit 11 = EventMaskButton4Motion-        fromBit 12 = EventMaskButton5Motion-        fromBit 13 = EventMaskButtonMotion-        fromBit 14 = EventMaskKeymapState-        fromBit 15 = EventMaskExposure-        fromBit 16 = EventMaskVisibilityChange-        fromBit 17 = EventMaskStructureNotify-        fromBit 18 = EventMaskResizeRedirect-        fromBit 19 = EventMaskSubstructureNotify-        fromBit 20 = EventMaskSubstructureRedirect-        fromBit 21 = EventMaskFocusChange-        fromBit 22 = EventMaskPropertyChange-        fromBit 23 = EventMaskColorMapChange-        fromBit 24 = EventMaskOwnerGrabButton- -data CreateWindow = MkCreateWindow{depth_CreateWindow :: CARD8,-                                   wid_CreateWindow :: WINDOW, parent_CreateWindow :: WINDOW,-                                   x_CreateWindow :: INT16, y_CreateWindow :: INT16,-                                   width_CreateWindow :: CARD16, height_CreateWindow :: CARD16,-                                   border_width_CreateWindow :: CARD16,-                                   class_CreateWindow :: CARD16, visual_CreateWindow :: VISUALID,-                                   value_CreateWindow :: ValueParam CARD32}-                  deriving (Show, Typeable)- -instance Serialize CreateWindow where-        serialize x-          = do putWord8 1-               serialize (depth_CreateWindow x)-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (wid_CreateWindow x)-               serialize (parent_CreateWindow x)-               serialize (x_CreateWindow x)-               serialize (y_CreateWindow x)-               serialize (width_CreateWindow x)-               serialize (height_CreateWindow x)-               serialize (border_width_CreateWindow x)-               serialize (class_CreateWindow x)-               serialize (visual_CreateWindow x)-               serialize (value_CreateWindow x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + size (depth_CreateWindow x) + size (wid_CreateWindow x) +-              size (parent_CreateWindow x)-              + size (x_CreateWindow x)-              + size (y_CreateWindow x)-              + size (width_CreateWindow x)-              + size (height_CreateWindow x)-              + size (border_width_CreateWindow x)-              + size (class_CreateWindow x)-              + size (visual_CreateWindow x)-              + size (value_CreateWindow x)- -data ChangeWindowAttributes = MkChangeWindowAttributes{window_ChangeWindowAttributes-                                                       :: WINDOW,-                                                       value_ChangeWindowAttributes ::-                                                       ValueParam CARD32}-                            deriving (Show, Typeable)- -instance Serialize ChangeWindowAttributes where-        serialize x-          = do putWord8 2-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (window_ChangeWindowAttributes x)-               serialize (value_ChangeWindowAttributes x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + 1 + size (window_ChangeWindowAttributes x) +-              size (value_ChangeWindowAttributes x)- -data MapState = MapStateUnmapped-              | MapStateUnviewable-              | MapStateViewable- -instance SimpleEnum MapState where-        toValue MapStateUnmapped{} = 0-        toValue MapStateUnviewable{} = 1-        toValue MapStateViewable{} = 2-        fromValue 0 = MapStateUnmapped-        fromValue 1 = MapStateUnviewable-        fromValue 2 = MapStateViewable- -data GetWindowAttributes = MkGetWindowAttributes{window_GetWindowAttributes-                                                 :: WINDOW}-                         deriving (Show, Typeable)- -instance Serialize GetWindowAttributes where-        serialize x-          = do putWord8 3-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (window_GetWindowAttributes x)-               putSkip (requiredPadding (size x))-        size x = 3 + 1 + size (window_GetWindowAttributes x)- -data GetWindowAttributesReply = MkGetWindowAttributesReply{backing_store_GetWindowAttributesReply-                                                           :: CARD8,-                                                           visual_GetWindowAttributesReply ::-                                                           VISUALID,-                                                           class_GetWindowAttributesReply :: CARD16,-                                                           bit_gravity_GetWindowAttributesReply ::-                                                           CARD8,-                                                           win_gravity_GetWindowAttributesReply ::-                                                           CARD8,-                                                           backing_planes_GetWindowAttributesReply-                                                           :: CARD32,-                                                           backing_pixel_GetWindowAttributesReply ::-                                                           CARD32,-                                                           save_under_GetWindowAttributesReply ::-                                                           BOOL,-                                                           map_is_installed_GetWindowAttributesReply-                                                           :: BOOL,-                                                           map_state_GetWindowAttributesReply ::-                                                           CARD8,-                                                           override_redirect_GetWindowAttributesReply-                                                           :: BOOL,-                                                           colormap_GetWindowAttributesReply ::-                                                           COLORMAP,-                                                           all_event_masks_GetWindowAttributesReply-                                                           :: CARD32,-                                                           your_event_mask_GetWindowAttributesReply-                                                           :: CARD32,-                                                           do_not_propagate_mask_GetWindowAttributesReply-                                                           :: CARD16}-                              deriving (Show, Typeable)- -instance Deserialize GetWindowAttributesReply where-        deserialize-          = do skip 1-               backing_store <- deserialize-               skip 2-               length <- deserialize-               visual <- deserialize-               class_ <- deserialize-               bit_gravity <- deserialize-               win_gravity <- deserialize-               backing_planes <- deserialize-               backing_pixel <- deserialize-               save_under <- deserialize-               map_is_installed <- deserialize-               map_state <- deserialize-               override_redirect <- deserialize-               colormap <- deserialize-               all_event_masks <- deserialize-               your_event_mask <- deserialize-               do_not_propagate_mask <- deserialize-               skip 2-               let _ = isCard32 length-               return-                 (MkGetWindowAttributesReply backing_store visual class_ bit_gravity-                    win_gravity-                    backing_planes-                    backing_pixel-                    save_under-                    map_is_installed-                    map_state-                    override_redirect-                    colormap-                    all_event_masks-                    your_event_mask-                    do_not_propagate_mask)- -data DestroyWindow = MkDestroyWindow{window_DestroyWindow ::-                                     WINDOW}-                   deriving (Show, Typeable)- -instance Serialize DestroyWindow where-        serialize x-          = do putWord8 4-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (window_DestroyWindow x)-               putSkip (requiredPadding (size x))-        size x = 3 + 1 + size (window_DestroyWindow x)- -data DestroySubwindows = MkDestroySubwindows{window_DestroySubwindows-                                             :: WINDOW}-                       deriving (Show, Typeable)- -instance Serialize DestroySubwindows where-        serialize x-          = do putWord8 5-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (window_DestroySubwindows x)-               putSkip (requiredPadding (size x))-        size x = 3 + 1 + size (window_DestroySubwindows x)- -data SetMode = SetModeInsert-             | SetModeDelete- -instance SimpleEnum SetMode where-        toValue SetModeInsert{} = 0-        toValue SetModeDelete{} = 1-        fromValue 0 = SetModeInsert-        fromValue 1 = SetModeDelete- -data ChangeSaveSet = MkChangeSaveSet{mode_ChangeSaveSet :: BYTE,-                                     window_ChangeSaveSet :: WINDOW}-                   deriving (Show, Typeable)- -instance Serialize ChangeSaveSet where-        serialize x-          = do putWord8 6-               serialize (mode_ChangeSaveSet x)-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (window_ChangeSaveSet x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + size (mode_ChangeSaveSet x) + size (window_ChangeSaveSet x)- -data ReparentWindow = MkReparentWindow{window_ReparentWindow ::-                                       WINDOW,-                                       parent_ReparentWindow :: WINDOW, x_ReparentWindow :: INT16,-                                       y_ReparentWindow :: INT16}-                    deriving (Show, Typeable)- -instance Serialize ReparentWindow where-        serialize x-          = do putWord8 7-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (window_ReparentWindow x)-               serialize (parent_ReparentWindow x)-               serialize (x_ReparentWindow x)-               serialize (y_ReparentWindow x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + 1 + size (window_ReparentWindow x) +-              size (parent_ReparentWindow x)-              + size (x_ReparentWindow x)-              + size (y_ReparentWindow x)- -data MapWindow = MkMapWindow{window_MapWindow :: WINDOW}-               deriving (Show, Typeable)- -instance Serialize MapWindow where-        serialize x-          = do putWord8 8-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (window_MapWindow x)-               putSkip (requiredPadding (size x))-        size x = 3 + 1 + size (window_MapWindow x)- -data MapSubwindows = MkMapSubwindows{window_MapSubwindows ::-                                     WINDOW}-                   deriving (Show, Typeable)- -instance Serialize MapSubwindows where-        serialize x-          = do putWord8 9-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (window_MapSubwindows x)-               putSkip (requiredPadding (size x))-        size x = 3 + 1 + size (window_MapSubwindows x)- -data UnmapWindow = MkUnmapWindow{window_UnmapWindow :: WINDOW}-                 deriving (Show, Typeable)- -instance Serialize UnmapWindow where-        serialize x-          = do putWord8 10-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (window_UnmapWindow x)-               putSkip (requiredPadding (size x))-        size x = 3 + 1 + size (window_UnmapWindow x)- -data UnmapSubwindows = MkUnmapSubwindows{window_UnmapSubwindows ::-                                         WINDOW}-                     deriving (Show, Typeable)- -instance Serialize UnmapSubwindows where-        serialize x-          = do putWord8 11-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (window_UnmapSubwindows x)-               putSkip (requiredPadding (size x))-        size x = 3 + 1 + size (window_UnmapSubwindows x)- -data ConfigWindow = ConfigWindowX-                  | ConfigWindowY-                  | ConfigWindowWidth-                  | ConfigWindowHeight-                  | ConfigWindowBorderWidth-                  | ConfigWindowSibling-                  | ConfigWindowStackMode- -instance BitEnum ConfigWindow where-        toBit ConfigWindowX{} = 0-        toBit ConfigWindowY{} = 1-        toBit ConfigWindowWidth{} = 2-        toBit ConfigWindowHeight{} = 3-        toBit ConfigWindowBorderWidth{} = 4-        toBit ConfigWindowSibling{} = 5-        toBit ConfigWindowStackMode{} = 6-        fromBit 0 = ConfigWindowX-        fromBit 1 = ConfigWindowY-        fromBit 2 = ConfigWindowWidth-        fromBit 3 = ConfigWindowHeight-        fromBit 4 = ConfigWindowBorderWidth-        fromBit 5 = ConfigWindowSibling-        fromBit 6 = ConfigWindowStackMode- -data StackMode = StackModeAbove-               | StackModeBelow-               | StackModeTopIf-               | StackModeBottomIf-               | StackModeOpposite- -instance SimpleEnum StackMode where-        toValue StackModeAbove{} = 0-        toValue StackModeBelow{} = 1-        toValue StackModeTopIf{} = 2-        toValue StackModeBottomIf{} = 3-        toValue StackModeOpposite{} = 4-        fromValue 0 = StackModeAbove-        fromValue 1 = StackModeBelow-        fromValue 2 = StackModeTopIf-        fromValue 3 = StackModeBottomIf-        fromValue 4 = StackModeOpposite- -data ConfigureWindow = MkConfigureWindow{window_ConfigureWindow ::-                                         WINDOW,-                                         value_ConfigureWindow :: ValueParam CARD16}-                     deriving (Show, Typeable)- -instance Serialize ConfigureWindow where-        serialize x-          = do putWord8 12-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (window_ConfigureWindow x)-               serializeValueParam 2 (value_ConfigureWindow x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + 1 + size (window_ConfigureWindow x) +-              size (value_ConfigureWindow x)-              + 2- -data Circulate = CirculateRaiseLowest-               | CirculateLowerHighest- -instance SimpleEnum Circulate where-        toValue CirculateRaiseLowest{} = 0-        toValue CirculateLowerHighest{} = 1-        fromValue 0 = CirculateRaiseLowest-        fromValue 1 = CirculateLowerHighest- -data CirculateWindow = MkCirculateWindow{direction_CirculateWindow-                                         :: CARD8,-                                         window_CirculateWindow :: WINDOW}-                     deriving (Show, Typeable)- -instance Serialize CirculateWindow where-        serialize x-          = do putWord8 13-               serialize (direction_CirculateWindow x)-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (window_CirculateWindow x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + size (direction_CirculateWindow x) +-              size (window_CirculateWindow x)- -data GetGeometry = MkGetGeometry{drawable_GetGeometry :: DRAWABLE}-                 deriving (Show, Typeable)- -instance Serialize GetGeometry where-        serialize x-          = do putWord8 14-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (drawable_GetGeometry x)-               putSkip (requiredPadding (size x))-        size x = 3 + 1 + size (drawable_GetGeometry x)- -data GetGeometryReply = MkGetGeometryReply{depth_GetGeometryReply-                                           :: CARD8,-                                           root_GetGeometryReply :: WINDOW,-                                           x_GetGeometryReply :: INT16, y_GetGeometryReply :: INT16,-                                           width_GetGeometryReply :: CARD16,-                                           height_GetGeometryReply :: CARD16,-                                           border_width_GetGeometryReply :: CARD16}-                      deriving (Show, Typeable)- -instance Deserialize GetGeometryReply where-        deserialize-          = do skip 1-               depth <- deserialize-               skip 2-               length <- deserialize-               root <- deserialize-               x <- deserialize-               y <- deserialize-               width <- deserialize-               height <- deserialize-               border_width <- deserialize-               skip 2-               let _ = isCard32 length-               return-                 (MkGetGeometryReply depth root x y width height border_width)- -data QueryTree = MkQueryTree{window_QueryTree :: WINDOW}-               deriving (Show, Typeable)- -instance Serialize QueryTree where-        serialize x-          = do putWord8 15-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (window_QueryTree x)-               putSkip (requiredPadding (size x))-        size x = 3 + 1 + size (window_QueryTree x)- -data QueryTreeReply = MkQueryTreeReply{root_QueryTreeReply ::-                                       WINDOW,-                                       parent_QueryTreeReply :: WINDOW,-                                       children_len_QueryTreeReply :: CARD16,-                                       children_QueryTreeReply :: [WINDOW]}-                    deriving (Show, Typeable)- -instance Deserialize QueryTreeReply where-        deserialize-          = do skip 1-               skip 1-               skip 2-               length <- deserialize-               root <- deserialize-               parent <- deserialize-               children_len <- deserialize-               skip 14-               children <- deserializeList (fromIntegral children_len)-               let _ = isCard32 length-               return (MkQueryTreeReply root parent children_len children)- -data InternAtom = MkInternAtom{only_if_exists_InternAtom :: BOOL,-                               name_len_InternAtom :: CARD16, name_InternAtom :: [CChar]}-                deriving (Show, Typeable)- -instance Serialize InternAtom where-        serialize x-          = do putWord8 16-               serialize (only_if_exists_InternAtom x)-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (name_len_InternAtom x)-               putSkip 2-               serializeList (name_InternAtom x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + size (only_if_exists_InternAtom x) +-              size (name_len_InternAtom x)-              + 2-              + sum (map size (name_InternAtom x))- -data InternAtomReply = MkInternAtomReply{atom_InternAtomReply ::-                                         ATOM}-                     deriving (Show, Typeable)- -instance Deserialize InternAtomReply where-        deserialize-          = do skip 1-               skip 1-               skip 2-               length <- deserialize-               atom <- deserialize-               let _ = isCard32 length-               return (MkInternAtomReply atom)- -data GetAtomName = MkGetAtomName{atom_GetAtomName :: ATOM}-                 deriving (Show, Typeable)- -instance Serialize GetAtomName where-        serialize x-          = do putWord8 17-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (atom_GetAtomName x)-               putSkip (requiredPadding (size x))-        size x = 3 + 1 + size (atom_GetAtomName x)- -data GetAtomNameReply = MkGetAtomNameReply{name_len_GetAtomNameReply-                                           :: CARD16,-                                           name_GetAtomNameReply :: [CChar]}-                      deriving (Show, Typeable)- -instance Deserialize GetAtomNameReply where-        deserialize-          = do skip 1-               skip 1-               skip 2-               length <- deserialize-               name_len <- deserialize-               skip 22-               name <- deserializeList (fromIntegral name_len)-               let _ = isCard32 length-               return (MkGetAtomNameReply name_len name)- -data PropMode = PropModeReplace-              | PropModePrepend-              | PropModeAppend- -instance SimpleEnum PropMode where-        toValue PropModeReplace{} = 0-        toValue PropModePrepend{} = 1-        toValue PropModeAppend{} = 2-        fromValue 0 = PropModeReplace-        fromValue 1 = PropModePrepend-        fromValue 2 = PropModeAppend- -data ChangeProperty = MkChangeProperty{mode_ChangeProperty ::-                                       CARD8,-                                       window_ChangeProperty :: WINDOW,-                                       property_ChangeProperty :: ATOM, type_ChangeProperty :: ATOM,-                                       format_ChangeProperty :: CARD8,-                                       data_len_ChangeProperty :: CARD32,-                                       data_ChangeProperty :: [Word8]}-                    deriving (Show, Typeable)- -instance Serialize ChangeProperty where-        serialize x-          = do putWord8 18-               serialize (mode_ChangeProperty x)-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (window_ChangeProperty x)-               serialize (property_ChangeProperty x)-               serialize (type_ChangeProperty x)-               serialize (format_ChangeProperty x)-               putSkip 3-               serialize (data_len_ChangeProperty x)-               serializeList (data_ChangeProperty x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + size (mode_ChangeProperty x) + size (window_ChangeProperty x)-              + size (property_ChangeProperty x)-              + size (type_ChangeProperty x)-              + size (format_ChangeProperty x)-              + 3-              + size (data_len_ChangeProperty x)-              + sum (map size (data_ChangeProperty x))- -data DeleteProperty = MkDeleteProperty{window_DeleteProperty ::-                                       WINDOW,-                                       property_DeleteProperty :: ATOM}-                    deriving (Show, Typeable)- -instance Serialize DeleteProperty where-        serialize x-          = do putWord8 19-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (window_DeleteProperty x)-               serialize (property_DeleteProperty x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + 1 + size (window_DeleteProperty x) +-              size (property_DeleteProperty x)- -data GetPropertyType = GetPropertyTypeAny- -instance SimpleEnum GetPropertyType where-        toValue GetPropertyTypeAny{} = 0-        fromValue 0 = GetPropertyTypeAny- -data GetProperty = MkGetProperty{delete_GetProperty :: BOOL,-                                 window_GetProperty :: WINDOW, property_GetProperty :: ATOM,-                                 type_GetProperty :: ATOM, long_offset_GetProperty :: CARD32,-                                 long_length_GetProperty :: CARD32}-                 deriving (Show, Typeable)- -instance Serialize GetProperty where-        serialize x-          = do putWord8 20-               serialize (delete_GetProperty x)-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (window_GetProperty x)-               serialize (property_GetProperty x)-               serialize (type_GetProperty x)-               serialize (long_offset_GetProperty x)-               serialize (long_length_GetProperty x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + size (delete_GetProperty x) + size (window_GetProperty x) +-              size (property_GetProperty x)-              + size (type_GetProperty x)-              + size (long_offset_GetProperty x)-              + size (long_length_GetProperty x)- -data GetPropertyReply = MkGetPropertyReply{format_GetPropertyReply-                                           :: CARD8,-                                           type_GetPropertyReply :: ATOM,-                                           bytes_after_GetPropertyReply :: CARD32,-                                           value_len_GetPropertyReply :: CARD32,-                                           value_GetPropertyReply :: [Word8]}-                      deriving (Show, Typeable)- -instance Deserialize GetPropertyReply where-        deserialize-          = do skip 1-               format <- deserialize-               skip 2-               length <- deserialize-               type_ <- deserialize-               bytes_after <- deserialize-               value_len <- deserialize-               skip 12-               value <- deserializeList (fromIntegral value_len)-               let _ = isCard32 length-               return-                 (MkGetPropertyReply format type_ bytes_after value_len value)- -data ListProperties = MkListProperties{window_ListProperties ::-                                       WINDOW}-                    deriving (Show, Typeable)- -instance Serialize ListProperties where-        serialize x-          = do putWord8 21-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (window_ListProperties x)-               putSkip (requiredPadding (size x))-        size x = 3 + 1 + size (window_ListProperties x)- -data ListPropertiesReply = MkListPropertiesReply{atoms_len_ListPropertiesReply-                                                 :: CARD16,-                                                 atoms_ListPropertiesReply :: [ATOM]}-                         deriving (Show, Typeable)- -instance Deserialize ListPropertiesReply where-        deserialize-          = do skip 1-               skip 1-               skip 2-               length <- deserialize-               atoms_len <- deserialize-               skip 22-               atoms <- deserializeList (fromIntegral atoms_len)-               let _ = isCard32 length-               return (MkListPropertiesReply atoms_len atoms)- -data SetSelectionOwner = MkSetSelectionOwner{owner_SetSelectionOwner-                                             :: WINDOW,-                                             selection_SetSelectionOwner :: ATOM,-                                             time_SetSelectionOwner :: TIMESTAMP}-                       deriving (Show, Typeable)- -instance Serialize SetSelectionOwner where-        serialize x-          = do putWord8 22-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (owner_SetSelectionOwner x)-               serialize (selection_SetSelectionOwner x)-               serialize (time_SetSelectionOwner x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + 1 + size (owner_SetSelectionOwner x) +-              size (selection_SetSelectionOwner x)-              + size (time_SetSelectionOwner x)- -data GetSelectionOwner = MkGetSelectionOwner{selection_GetSelectionOwner-                                             :: ATOM}-                       deriving (Show, Typeable)- -instance Serialize GetSelectionOwner where-        serialize x-          = do putWord8 23-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (selection_GetSelectionOwner x)-               putSkip (requiredPadding (size x))-        size x = 3 + 1 + size (selection_GetSelectionOwner x)- -data GetSelectionOwnerReply = MkGetSelectionOwnerReply{owner_GetSelectionOwnerReply-                                                       :: WINDOW}-                            deriving (Show, Typeable)- -instance Deserialize GetSelectionOwnerReply where-        deserialize-          = do skip 1-               skip 1-               skip 2-               length <- deserialize-               owner <- deserialize-               let _ = isCard32 length-               return (MkGetSelectionOwnerReply owner)- -data ConvertSelection = MkConvertSelection{requestor_ConvertSelection-                                           :: WINDOW,-                                           selection_ConvertSelection :: ATOM,-                                           target_ConvertSelection :: ATOM,-                                           property_ConvertSelection :: ATOM,-                                           time_ConvertSelection :: TIMESTAMP}-                      deriving (Show, Typeable)- -instance Serialize ConvertSelection where-        serialize x-          = do putWord8 24-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (requestor_ConvertSelection x)-               serialize (selection_ConvertSelection x)-               serialize (target_ConvertSelection x)-               serialize (property_ConvertSelection x)-               serialize (time_ConvertSelection x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + 1 + size (requestor_ConvertSelection x) +-              size (selection_ConvertSelection x)-              + size (target_ConvertSelection x)-              + size (property_ConvertSelection x)-              + size (time_ConvertSelection x)- -data SendEventDest = SendEventDestPointerWindow-                   | SendEventDestItemFocus- -instance SimpleEnum SendEventDest where-        toValue SendEventDestPointerWindow{} = 0-        toValue SendEventDestItemFocus{} = 1-        fromValue 0 = SendEventDestPointerWindow-        fromValue 1 = SendEventDestItemFocus- -data SendEvent = MkSendEvent{propagate_SendEvent :: BOOL,-                             destination_SendEvent :: WINDOW, event_mask_SendEvent :: CARD32,-                             event_SendEvent :: [CChar]}-               deriving (Show, Typeable)- -instance Serialize SendEvent where-        serialize x-          = do putWord8 25-               serialize (propagate_SendEvent x)-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (destination_SendEvent x)-               serialize (event_mask_SendEvent x)-               serializeList (event_SendEvent x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + size (propagate_SendEvent x) + size (destination_SendEvent x)-              + size (event_mask_SendEvent x)-              + sum (map size (event_SendEvent x))- -data GrabMode = GrabModeSync-              | GrabModeAsync- -instance SimpleEnum GrabMode where-        toValue GrabModeSync{} = 0-        toValue GrabModeAsync{} = 1-        fromValue 0 = GrabModeSync-        fromValue 1 = GrabModeAsync- -data GrabStatus = GrabStatusSuccess-                | GrabStatusAlreadyGrabbed-                | GrabStatusInvalidTime-                | GrabStatusNotViewable-                | GrabStatusFrozen- -instance SimpleEnum GrabStatus where-        toValue GrabStatusSuccess{} = 0-        toValue GrabStatusAlreadyGrabbed{} = 1-        toValue GrabStatusInvalidTime{} = 2-        toValue GrabStatusNotViewable{} = 3-        toValue GrabStatusFrozen{} = 4-        fromValue 0 = GrabStatusSuccess-        fromValue 1 = GrabStatusAlreadyGrabbed-        fromValue 2 = GrabStatusInvalidTime-        fromValue 3 = GrabStatusNotViewable-        fromValue 4 = GrabStatusFrozen- -data GrabPointer = MkGrabPointer{owner_events_GrabPointer :: BOOL,-                                 grab_window_GrabPointer :: WINDOW,-                                 event_mask_GrabPointer :: CARD16, pointer_mode_GrabPointer :: BYTE,-                                 keyboard_mode_GrabPointer :: BYTE,-                                 confine_to_GrabPointer :: WINDOW, cursor_GrabPointer :: CURSOR,-                                 time_GrabPointer :: TIMESTAMP}-                 deriving (Show, Typeable)- -instance Serialize GrabPointer where-        serialize x-          = do putWord8 26-               serialize (owner_events_GrabPointer x)-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (grab_window_GrabPointer x)-               serialize (event_mask_GrabPointer x)-               serialize (pointer_mode_GrabPointer x)-               serialize (keyboard_mode_GrabPointer x)-               serialize (confine_to_GrabPointer x)-               serialize (cursor_GrabPointer x)-               serialize (time_GrabPointer x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + size (owner_events_GrabPointer x) +-              size (grab_window_GrabPointer x)-              + size (event_mask_GrabPointer x)-              + size (pointer_mode_GrabPointer x)-              + size (keyboard_mode_GrabPointer x)-              + size (confine_to_GrabPointer x)-              + size (cursor_GrabPointer x)-              + size (time_GrabPointer x)- -data GrabPointerReply = MkGrabPointerReply{status_GrabPointerReply-                                           :: BYTE}-                      deriving (Show, Typeable)- -instance Deserialize GrabPointerReply where-        deserialize-          = do skip 1-               status <- deserialize-               skip 2-               length <- deserialize-               let _ = isCard32 length-               return (MkGrabPointerReply status)- -data UngrabPointer = MkUngrabPointer{time_UngrabPointer ::-                                     TIMESTAMP}-                   deriving (Show, Typeable)- -instance Serialize UngrabPointer where-        serialize x-          = do putWord8 27-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (time_UngrabPointer x)-               putSkip (requiredPadding (size x))-        size x = 3 + 1 + size (time_UngrabPointer x)- -data ButtonIndex = ButtonIndexAny-                 | ButtonIndex1-                 | ButtonIndex2-                 | ButtonIndex3-                 | ButtonIndex4-                 | ButtonIndex5- -instance SimpleEnum ButtonIndex where-        toValue ButtonIndexAny{} = 0-        toValue ButtonIndex1{} = 1-        toValue ButtonIndex2{} = 2-        toValue ButtonIndex3{} = 3-        toValue ButtonIndex4{} = 4-        toValue ButtonIndex5{} = 5-        fromValue 0 = ButtonIndexAny-        fromValue 1 = ButtonIndex1-        fromValue 2 = ButtonIndex2-        fromValue 3 = ButtonIndex3-        fromValue 4 = ButtonIndex4-        fromValue 5 = ButtonIndex5- -data GrabButton = MkGrabButton{owner_events_GrabButton :: BOOL,-                               grab_window_GrabButton :: WINDOW, event_mask_GrabButton :: CARD16,-                               pointer_mode_GrabButton :: CARD8,-                               keyboard_mode_GrabButton :: CARD8, confine_to_GrabButton :: WINDOW,-                               cursor_GrabButton :: CURSOR, button_GrabButton :: CARD8,-                               modifiers_GrabButton :: CARD16}-                deriving (Show, Typeable)- -instance Serialize GrabButton where-        serialize x-          = do putWord8 28-               serialize (owner_events_GrabButton x)-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (grab_window_GrabButton x)-               serialize (event_mask_GrabButton x)-               serialize (pointer_mode_GrabButton x)-               serialize (keyboard_mode_GrabButton x)-               serialize (confine_to_GrabButton x)-               serialize (cursor_GrabButton x)-               serialize (button_GrabButton x)-               putSkip 1-               serialize (modifiers_GrabButton x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + size (owner_events_GrabButton x) +-              size (grab_window_GrabButton x)-              + size (event_mask_GrabButton x)-              + size (pointer_mode_GrabButton x)-              + size (keyboard_mode_GrabButton x)-              + size (confine_to_GrabButton x)-              + size (cursor_GrabButton x)-              + size (button_GrabButton x)-              + 1-              + size (modifiers_GrabButton x)- -data UngrabButton = MkUngrabButton{button_UngrabButton :: CARD8,-                                   grab_window_UngrabButton :: WINDOW,-                                   modifiers_UngrabButton :: CARD16}-                  deriving (Show, Typeable)- -instance Serialize UngrabButton where-        serialize x-          = do putWord8 29-               serialize (button_UngrabButton x)-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (grab_window_UngrabButton x)-               serialize (modifiers_UngrabButton x)-               putSkip 2-               putSkip (requiredPadding (size x))-        size x-          = 3 + size (button_UngrabButton x) +-              size (grab_window_UngrabButton x)-              + size (modifiers_UngrabButton x)-              + 2- -data ChangeActivePointerGrab = MkChangeActivePointerGrab{cursor_ChangeActivePointerGrab-                                                         :: CURSOR,-                                                         time_ChangeActivePointerGrab :: TIMESTAMP,-                                                         event_mask_ChangeActivePointerGrab ::-                                                         CARD16}-                             deriving (Show, Typeable)- -instance Serialize ChangeActivePointerGrab where-        serialize x-          = do putWord8 30-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (cursor_ChangeActivePointerGrab x)-               serialize (time_ChangeActivePointerGrab x)-               serialize (event_mask_ChangeActivePointerGrab x)-               putSkip 2-               putSkip (requiredPadding (size x))-        size x-          = 3 + 1 + size (cursor_ChangeActivePointerGrab x) +-              size (time_ChangeActivePointerGrab x)-              + size (event_mask_ChangeActivePointerGrab x)-              + 2- -data GrabKeyboard = MkGrabKeyboard{owner_events_GrabKeyboard ::-                                   BOOL,-                                   grab_window_GrabKeyboard :: WINDOW,-                                   time_GrabKeyboard :: TIMESTAMP,-                                   pointer_mode_GrabKeyboard :: BYTE,-                                   keyboard_mode_GrabKeyboard :: BYTE}-                  deriving (Show, Typeable)- -instance Serialize GrabKeyboard where-        serialize x-          = do putWord8 31-               serialize (owner_events_GrabKeyboard x)-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (grab_window_GrabKeyboard x)-               serialize (time_GrabKeyboard x)-               serialize (pointer_mode_GrabKeyboard x)-               serialize (keyboard_mode_GrabKeyboard x)-               putSkip 2-               putSkip (requiredPadding (size x))-        size x-          = 3 + size (owner_events_GrabKeyboard x) +-              size (grab_window_GrabKeyboard x)-              + size (time_GrabKeyboard x)-              + size (pointer_mode_GrabKeyboard x)-              + size (keyboard_mode_GrabKeyboard x)-              + 2- -data GrabKeyboardReply = MkGrabKeyboardReply{status_GrabKeyboardReply-                                             :: BYTE}-                       deriving (Show, Typeable)- -instance Deserialize GrabKeyboardReply where-        deserialize-          = do skip 1-               status <- deserialize-               skip 2-               length <- deserialize-               let _ = isCard32 length-               return (MkGrabKeyboardReply status)- -data UngrabKeyboard = MkUngrabKeyboard{time_UngrabKeyboard ::-                                       TIMESTAMP}-                    deriving (Show, Typeable)- -instance Serialize UngrabKeyboard where-        serialize x-          = do putWord8 32-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (time_UngrabKeyboard x)-               putSkip (requiredPadding (size x))-        size x = 3 + 1 + size (time_UngrabKeyboard x)- -data Grab = GrabAny- -instance SimpleEnum Grab where-        toValue GrabAny{} = 0-        fromValue 0 = GrabAny- -data GrabKey = MkGrabKey{owner_events_GrabKey :: BOOL,-                         grab_window_GrabKey :: WINDOW, modifiers_GrabKey :: CARD16,-                         key_GrabKey :: KEYCODE, pointer_mode_GrabKey :: CARD8,-                         keyboard_mode_GrabKey :: CARD8}-             deriving (Show, Typeable)- -instance Serialize GrabKey where-        serialize x-          = do putWord8 33-               serialize (owner_events_GrabKey x)-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (grab_window_GrabKey x)-               serialize (modifiers_GrabKey x)-               serialize (key_GrabKey x)-               serialize (pointer_mode_GrabKey x)-               serialize (keyboard_mode_GrabKey x)-               putSkip 3-               putSkip (requiredPadding (size x))-        size x-          = 3 + size (owner_events_GrabKey x) + size (grab_window_GrabKey x)-              + size (modifiers_GrabKey x)-              + size (key_GrabKey x)-              + size (pointer_mode_GrabKey x)-              + size (keyboard_mode_GrabKey x)-              + 3- -data UngrabKey = MkUngrabKey{key_UngrabKey :: KEYCODE,-                             grab_window_UngrabKey :: WINDOW, modifiers_UngrabKey :: CARD16}-               deriving (Show, Typeable)- -instance Serialize UngrabKey where-        serialize x-          = do putWord8 34-               serialize (key_UngrabKey x)-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (grab_window_UngrabKey x)-               serialize (modifiers_UngrabKey x)-               putSkip 2-               putSkip (requiredPadding (size x))-        size x-          = 3 + size (key_UngrabKey x) + size (grab_window_UngrabKey x) +-              size (modifiers_UngrabKey x)-              + 2- -data Allow = AllowAsyncPointer-           | AllowSyncPointer-           | AllowReplayPointer-           | AllowAsyncKeyboard-           | AllowSyncKeyboard-           | AllowReplayKeyboard-           | AllowAsyncBoth-           | AllowSyncBoth- -instance SimpleEnum Allow where-        toValue AllowAsyncPointer{} = 0-        toValue AllowSyncPointer{} = 1-        toValue AllowReplayPointer{} = 2-        toValue AllowAsyncKeyboard{} = 3-        toValue AllowSyncKeyboard{} = 4-        toValue AllowReplayKeyboard{} = 5-        toValue AllowAsyncBoth{} = 6-        toValue AllowSyncBoth{} = 7-        fromValue 0 = AllowAsyncPointer-        fromValue 1 = AllowSyncPointer-        fromValue 2 = AllowReplayPointer-        fromValue 3 = AllowAsyncKeyboard-        fromValue 4 = AllowSyncKeyboard-        fromValue 5 = AllowReplayKeyboard-        fromValue 6 = AllowAsyncBoth-        fromValue 7 = AllowSyncBoth- -data AllowEvents = MkAllowEvents{mode_AllowEvents :: CARD8,-                                 time_AllowEvents :: TIMESTAMP}-                 deriving (Show, Typeable)- -instance Serialize AllowEvents where-        serialize x-          = do putWord8 35-               serialize (mode_AllowEvents x)-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (time_AllowEvents x)-               putSkip (requiredPadding (size x))-        size x = 3 + size (mode_AllowEvents x) + size (time_AllowEvents x)- -data QueryPointer = MkQueryPointer{window_QueryPointer :: WINDOW}-                  deriving (Show, Typeable)- -instance Serialize QueryPointer where-        serialize x-          = do putWord8 38-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (window_QueryPointer x)-               putSkip (requiredPadding (size x))-        size x = 3 + 1 + size (window_QueryPointer x)- -data QueryPointerReply = MkQueryPointerReply{same_screen_QueryPointerReply-                                             :: BOOL,-                                             root_QueryPointerReply :: WINDOW,-                                             child_QueryPointerReply :: WINDOW,-                                             root_x_QueryPointerReply :: INT16,-                                             root_y_QueryPointerReply :: INT16,-                                             win_x_QueryPointerReply :: INT16,-                                             win_y_QueryPointerReply :: INT16,-                                             mask_QueryPointerReply :: CARD16}-                       deriving (Show, Typeable)- -instance Deserialize QueryPointerReply where-        deserialize-          = do skip 1-               same_screen <- deserialize-               skip 2-               length <- deserialize-               root <- deserialize-               child <- deserialize-               root_x <- deserialize-               root_y <- deserialize-               win_x <- deserialize-               win_y <- deserialize-               mask <- deserialize-               skip 2-               let _ = isCard32 length-               return-                 (MkQueryPointerReply same_screen root child root_x root_y win_x-                    win_y-                    mask)- -data TIMECOORD = MkTIMECOORD{time_TIMECOORD :: TIMESTAMP,-                             x_TIMECOORD :: INT16, y_TIMECOORD :: INT16}-               deriving (Show, Typeable)- -instance Serialize TIMECOORD where-        serialize x-          = do serialize (time_TIMECOORD x)-               serialize (x_TIMECOORD x)-               serialize (y_TIMECOORD x)-        size x-          = size (time_TIMECOORD x) + size (x_TIMECOORD x) +-              size (y_TIMECOORD x)- -instance Deserialize TIMECOORD where-        deserialize-          = do time <- deserialize-               x <- deserialize-               y <- deserialize-               return (MkTIMECOORD time x y)- -data GetMotionEvents = MkGetMotionEvents{window_GetMotionEvents ::-                                         WINDOW,-                                         start_GetMotionEvents :: TIMESTAMP,-                                         stop_GetMotionEvents :: TIMESTAMP}-                     deriving (Show, Typeable)- -instance Serialize GetMotionEvents where-        serialize x-          = do putWord8 39-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (window_GetMotionEvents x)-               serialize (start_GetMotionEvents x)-               serialize (stop_GetMotionEvents x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + 1 + size (window_GetMotionEvents x) +-              size (start_GetMotionEvents x)-              + size (stop_GetMotionEvents x)- -data GetMotionEventsReply = MkGetMotionEventsReply{events_len_GetMotionEventsReply-                                                   :: CARD32,-                                                   events_GetMotionEventsReply :: [TIMECOORD]}-                          deriving (Show, Typeable)- -instance Deserialize GetMotionEventsReply where-        deserialize-          = do skip 1-               skip 1-               skip 2-               length <- deserialize-               events_len <- deserialize-               skip 20-               events <- deserializeList (fromIntegral events_len)-               let _ = isCard32 length-               return (MkGetMotionEventsReply events_len events)- -data TranslateCoordinates = MkTranslateCoordinates{src_window_TranslateCoordinates-                                                   :: WINDOW,-                                                   dst_window_TranslateCoordinates :: WINDOW,-                                                   src_x_TranslateCoordinates :: INT16,-                                                   src_y_TranslateCoordinates :: INT16}-                          deriving (Show, Typeable)- -instance Serialize TranslateCoordinates where-        serialize x-          = do putWord8 40-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (src_window_TranslateCoordinates x)-               serialize (dst_window_TranslateCoordinates x)-               serialize (src_x_TranslateCoordinates x)-               serialize (src_y_TranslateCoordinates x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + 1 + size (src_window_TranslateCoordinates x) +-              size (dst_window_TranslateCoordinates x)-              + size (src_x_TranslateCoordinates x)-              + size (src_y_TranslateCoordinates x)- -data TranslateCoordinatesReply = MkTranslateCoordinatesReply{same_screen_TranslateCoordinatesReply-                                                             :: BOOL,-                                                             child_TranslateCoordinatesReply ::-                                                             WINDOW,-                                                             dst_x_TranslateCoordinatesReply ::-                                                             CARD16,-                                                             dst_y_TranslateCoordinatesReply ::-                                                             CARD16}-                               deriving (Show, Typeable)- -instance Deserialize TranslateCoordinatesReply where-        deserialize-          = do skip 1-               same_screen <- deserialize-               skip 2-               length <- deserialize-               child <- deserialize-               dst_x <- deserialize-               dst_y <- deserialize-               let _ = isCard32 length-               return (MkTranslateCoordinatesReply same_screen child dst_x dst_y)- -data WarpPointer = MkWarpPointer{src_window_WarpPointer :: WINDOW,-                                 dst_window_WarpPointer :: WINDOW, src_x_WarpPointer :: INT16,-                                 src_y_WarpPointer :: INT16, src_width_WarpPointer :: CARD16,-                                 src_height_WarpPointer :: CARD16, dst_x_WarpPointer :: INT16,-                                 dst_y_WarpPointer :: INT16}-                 deriving (Show, Typeable)- -instance Serialize WarpPointer where-        serialize x-          = do putWord8 41-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (src_window_WarpPointer x)-               serialize (dst_window_WarpPointer x)-               serialize (src_x_WarpPointer x)-               serialize (src_y_WarpPointer x)-               serialize (src_width_WarpPointer x)-               serialize (src_height_WarpPointer x)-               serialize (dst_x_WarpPointer x)-               serialize (dst_y_WarpPointer x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + 1 + size (src_window_WarpPointer x) +-              size (dst_window_WarpPointer x)-              + size (src_x_WarpPointer x)-              + size (src_y_WarpPointer x)-              + size (src_width_WarpPointer x)-              + size (src_height_WarpPointer x)-              + size (dst_x_WarpPointer x)-              + size (dst_y_WarpPointer x)- -data InputFocus = InputFocusNone-                | InputFocusPointerRoot-                | InputFocusParent- -instance SimpleEnum InputFocus where-        toValue InputFocusNone{} = 0-        toValue InputFocusPointerRoot{} = 1-        toValue InputFocusParent{} = 2-        fromValue 0 = InputFocusNone-        fromValue 1 = InputFocusPointerRoot-        fromValue 2 = InputFocusParent- -data SetInputFocus = MkSetInputFocus{revert_to_SetInputFocus ::-                                     CARD8,-                                     focus_SetInputFocus :: WINDOW, time_SetInputFocus :: TIMESTAMP}-                   deriving (Show, Typeable)- -instance Serialize SetInputFocus where-        serialize x-          = do putWord8 42-               serialize (revert_to_SetInputFocus x)-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (focus_SetInputFocus x)-               serialize (time_SetInputFocus x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + size (revert_to_SetInputFocus x) +-              size (focus_SetInputFocus x)-              + size (time_SetInputFocus x)- -data GetInputFocus = MkGetInputFocus{}-                   deriving (Show, Typeable)- -instance Serialize GetInputFocus where-        serialize x-          = do putWord8 43-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               putSkip (requiredPadding (size x))-        size x = 4- -data GetInputFocusReply = MkGetInputFocusReply{revert_to_GetInputFocusReply-                                               :: CARD8,-                                               focus_GetInputFocusReply :: WINDOW}-                        deriving (Show, Typeable)- -instance Deserialize GetInputFocusReply where-        deserialize-          = do skip 1-               revert_to <- deserialize-               skip 2-               length <- deserialize-               focus <- deserialize-               let _ = isCard32 length-               return (MkGetInputFocusReply revert_to focus)- -data QueryKeymap = MkQueryKeymap{}-                 deriving (Show, Typeable)- -instance Serialize QueryKeymap where-        serialize x-          = do putWord8 44-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               putSkip (requiredPadding (size x))-        size x = 4- -data QueryKeymapReply = MkQueryKeymapReply{keys_QueryKeymapReply ::-                                           [CARD8]}-                      deriving (Show, Typeable)- -instance Deserialize QueryKeymapReply where-        deserialize-          = do skip 1-               skip 1-               skip 2-               length <- deserialize-               keys <- deserializeList (fromIntegral 32)-               let _ = isCard32 length-               return (MkQueryKeymapReply keys)- -data OpenFont = MkOpenFont{fid_OpenFont :: FONT,-                           name_len_OpenFont :: CARD16, name_OpenFont :: [CChar]}-              deriving (Show, Typeable)- -instance Serialize OpenFont where-        serialize x-          = do putWord8 45-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (fid_OpenFont x)-               serialize (name_len_OpenFont x)-               putSkip 2-               serializeList (name_OpenFont x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + 1 + size (fid_OpenFont x) + size (name_len_OpenFont x) + 2 +-              sum (map size (name_OpenFont x))- -data CloseFont = MkCloseFont{font_CloseFont :: FONT}-               deriving (Show, Typeable)- -instance Serialize CloseFont where-        serialize x-          = do putWord8 46-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (font_CloseFont x)-               putSkip (requiredPadding (size x))-        size x = 3 + 1 + size (font_CloseFont x)- -data FontDraw = FontDrawLeftToRight-              | FontDrawRightToLeft- -instance SimpleEnum FontDraw where-        toValue FontDrawLeftToRight{} = 0-        toValue FontDrawRightToLeft{} = 1-        fromValue 0 = FontDrawLeftToRight-        fromValue 1 = FontDrawRightToLeft- -data FONTPROP = MkFONTPROP{name_FONTPROP :: ATOM,-                           value_FONTPROP :: CARD32}-              deriving (Show, Typeable)- -instance Serialize FONTPROP where-        serialize x-          = do serialize (name_FONTPROP x)-               serialize (value_FONTPROP x)-        size x = size (name_FONTPROP x) + size (value_FONTPROP x)- -instance Deserialize FONTPROP where-        deserialize-          = do name <- deserialize-               value <- deserialize-               return (MkFONTPROP name value)- -data CHARINFO = MkCHARINFO{left_side_bearing_CHARINFO :: INT16,-                           right_side_bearing_CHARINFO :: INT16,-                           character_width_CHARINFO :: INT16, ascent_CHARINFO :: INT16,-                           descent_CHARINFO :: INT16, attributes_CHARINFO :: CARD16}-              deriving (Show, Typeable)- -instance Serialize CHARINFO where-        serialize x-          = do serialize (left_side_bearing_CHARINFO x)-               serialize (right_side_bearing_CHARINFO x)-               serialize (character_width_CHARINFO x)-               serialize (ascent_CHARINFO x)-               serialize (descent_CHARINFO x)-               serialize (attributes_CHARINFO x)-        size x-          = size (left_side_bearing_CHARINFO x) +-              size (right_side_bearing_CHARINFO x)-              + size (character_width_CHARINFO x)-              + size (ascent_CHARINFO x)-              + size (descent_CHARINFO x)-              + size (attributes_CHARINFO x)- -instance Deserialize CHARINFO where-        deserialize-          = do left_side_bearing <- deserialize-               right_side_bearing <- deserialize-               character_width <- deserialize-               ascent <- deserialize-               descent <- deserialize-               attributes <- deserialize-               return-                 (MkCHARINFO left_side_bearing right_side_bearing character_width-                    ascent-                    descent-                    attributes)- -data QueryFont = MkQueryFont{font_QueryFont :: FONTABLE}-               deriving (Show, Typeable)- -instance Serialize QueryFont where-        serialize x-          = do putWord8 47-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (font_QueryFont x)-               putSkip (requiredPadding (size x))-        size x = 3 + 1 + size (font_QueryFont x)- -data QueryFontReply = MkQueryFontReply{min_bounds_QueryFontReply ::-                                       CHARINFO,-                                       max_bounds_QueryFontReply :: CHARINFO,-                                       min_char_or_byte2_QueryFontReply :: CARD16,-                                       max_char_or_byte2_QueryFontReply :: CARD16,-                                       default_char_QueryFontReply :: CARD16,-                                       properties_len_QueryFontReply :: CARD16,-                                       draw_direction_QueryFontReply :: BYTE,-                                       min_byte1_QueryFontReply :: CARD8,-                                       max_byte1_QueryFontReply :: CARD8,-                                       all_chars_exist_QueryFontReply :: BOOL,-                                       font_ascent_QueryFontReply :: INT16,-                                       font_descent_QueryFontReply :: INT16,-                                       char_infos_len_QueryFontReply :: CARD32,-                                       properties_QueryFontReply :: [FONTPROP],-                                       char_infos_QueryFontReply :: [CHARINFO]}-                    deriving (Show, Typeable)- -instance Deserialize QueryFontReply where-        deserialize-          = do skip 1-               skip 1-               skip 2-               length <- deserialize-               min_bounds <- deserialize-               skip 4-               max_bounds <- deserialize-               skip 4-               min_char_or_byte2 <- deserialize-               max_char_or_byte2 <- deserialize-               default_char <- deserialize-               properties_len <- deserialize-               draw_direction <- deserialize-               min_byte1 <- deserialize-               max_byte1 <- deserialize-               all_chars_exist <- deserialize-               font_ascent <- deserialize-               font_descent <- deserialize-               char_infos_len <- deserialize-               properties <- deserializeList (fromIntegral properties_len)-               char_infos <- deserializeList (fromIntegral char_infos_len)-               let _ = isCard32 length-               return-                 (MkQueryFontReply min_bounds max_bounds min_char_or_byte2-                    max_char_or_byte2-                    default_char-                    properties_len-                    draw_direction-                    min_byte1-                    max_byte1-                    all_chars_exist-                    font_ascent-                    font_descent-                    char_infos_len-                    properties-                    char_infos)- -data QueryTextExtents = MkQueryTextExtents{font_QueryTextExtents ::-                                           FONTABLE,-                                           string_QueryTextExtents :: [CHAR2B]}-                      deriving (Show, Typeable)- -odd_length_QueryTextExtents :: QueryTextExtents -> BOOL-odd_length_QueryTextExtents x-  = (fromIntegral (string_len_QueryTextExtents x .&. 1))--string_len_QueryTextExtents :: QueryTextExtents -> Word8-string_len_QueryTextExtents x = genericLength $ string_QueryTextExtents x- -instance Serialize QueryTextExtents where-        serialize x-          = do putWord8 48-               serialize (odd_length_QueryTextExtents x)-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (font_QueryTextExtents x)-               serializeList (string_QueryTextExtents x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + size (odd_length_QueryTextExtents x) +-              size (font_QueryTextExtents x)-              + sum (map size (string_QueryTextExtents x))- -data QueryTextExtentsReply = MkQueryTextExtentsReply{draw_direction_QueryTextExtentsReply-                                                     :: BYTE,-                                                     font_ascent_QueryTextExtentsReply :: INT16,-                                                     font_descent_QueryTextExtentsReply :: INT16,-                                                     overall_ascent_QueryTextExtentsReply :: INT16,-                                                     overall_descent_QueryTextExtentsReply :: INT16,-                                                     overall_width_QueryTextExtentsReply :: INT32,-                                                     overall_left_QueryTextExtentsReply :: INT32,-                                                     overall_right_QueryTextExtentsReply :: INT32}-                           deriving (Show, Typeable)- -instance Deserialize QueryTextExtentsReply where-        deserialize-          = do skip 1-               draw_direction <- deserialize-               skip 2-               length <- deserialize-               font_ascent <- deserialize-               font_descent <- deserialize-               overall_ascent <- deserialize-               overall_descent <- deserialize-               overall_width <- deserialize-               overall_left <- deserialize-               overall_right <- deserialize-               let _ = isCard32 length-               return-                 (MkQueryTextExtentsReply draw_direction font_ascent font_descent-                    overall_ascent-                    overall_descent-                    overall_width-                    overall_left-                    overall_right)- -data STR = MkSTR{name_len_STR :: CARD8, name_STR :: [CChar]}-         deriving (Show, Typeable)- -instance Serialize STR where-        serialize x-          = do serialize (name_len_STR x)-               serializeList (name_STR x)-        size x = size (name_len_STR x) + sum (map size (name_STR x))- -instance Deserialize STR where-        deserialize-          = do name_len <- deserialize-               name <- deserializeList (fromIntegral name_len)-               return (MkSTR name_len name)- -data ListFonts = MkListFonts{max_names_ListFonts :: CARD16,-                             pattern_len_ListFonts :: CARD16, pattern_ListFonts :: [CChar]}-               deriving (Show, Typeable)- -instance Serialize ListFonts where-        serialize x-          = do putWord8 49-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (max_names_ListFonts x)-               serialize (pattern_len_ListFonts x)-               serializeList (pattern_ListFonts x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + 1 + size (max_names_ListFonts x) +-              size (pattern_len_ListFonts x)-              + sum (map size (pattern_ListFonts x))- -data ListFontsReply = MkListFontsReply{names_len_ListFontsReply ::-                                       CARD16,-                                       names_ListFontsReply :: [STR]}-                    deriving (Show, Typeable)- -instance Deserialize ListFontsReply where-        deserialize-          = do skip 1-               skip 1-               skip 2-               length <- deserialize-               names_len <- deserialize-               skip 22-               names <- deserializeList (fromIntegral names_len)-               let _ = isCard32 length-               return (MkListFontsReply names_len names)- -data ListFontsWithInfo = MkListFontsWithInfo{max_names_ListFontsWithInfo-                                             :: CARD16,-                                             pattern_len_ListFontsWithInfo :: CARD16,-                                             pattern_ListFontsWithInfo :: [CChar]}-                       deriving (Show, Typeable)- -instance Serialize ListFontsWithInfo where-        serialize x-          = do putWord8 50-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (max_names_ListFontsWithInfo x)-               serialize (pattern_len_ListFontsWithInfo x)-               serializeList (pattern_ListFontsWithInfo x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + 1 + size (max_names_ListFontsWithInfo x) +-              size (pattern_len_ListFontsWithInfo x)-              + sum (map size (pattern_ListFontsWithInfo x))- -data ListFontsWithInfoReply = MkListFontsWithInfoReply{name_len_ListFontsWithInfoReply-                                                       :: CARD8,-                                                       min_bounds_ListFontsWithInfoReply ::-                                                       CHARINFO,-                                                       max_bounds_ListFontsWithInfoReply ::-                                                       CHARINFO,-                                                       min_char_or_byte2_ListFontsWithInfoReply ::-                                                       CARD16,-                                                       max_char_or_byte2_ListFontsWithInfoReply ::-                                                       CARD16,-                                                       default_char_ListFontsWithInfoReply ::-                                                       CARD16,-                                                       properties_len_ListFontsWithInfoReply ::-                                                       CARD16,-                                                       draw_direction_ListFontsWithInfoReply ::-                                                       BYTE,-                                                       min_byte1_ListFontsWithInfoReply :: CARD8,-                                                       max_byte1_ListFontsWithInfoReply :: CARD8,-                                                       all_chars_exist_ListFontsWithInfoReply ::-                                                       BOOL,-                                                       font_ascent_ListFontsWithInfoReply :: INT16,-                                                       font_descent_ListFontsWithInfoReply :: INT16,-                                                       replies_hint_ListFontsWithInfoReply ::-                                                       CARD32,-                                                       properties_ListFontsWithInfoReply ::-                                                       [FONTPROP],-                                                       name_ListFontsWithInfoReply :: [CChar]}-                            deriving (Show, Typeable)- -instance Deserialize ListFontsWithInfoReply where-        deserialize-          = do skip 1-               name_len <- deserialize-               skip 2-               length <- deserialize-               min_bounds <- deserialize-               skip 4-               max_bounds <- deserialize-               skip 4-               min_char_or_byte2 <- deserialize-               max_char_or_byte2 <- deserialize-               default_char <- deserialize-               properties_len <- deserialize-               draw_direction <- deserialize-               min_byte1 <- deserialize-               max_byte1 <- deserialize-               all_chars_exist <- deserialize-               font_ascent <- deserialize-               font_descent <- deserialize-               replies_hint <- deserialize-               properties <- deserializeList (fromIntegral properties_len)-               name <- deserializeList (fromIntegral name_len)-               let _ = isCard32 length-               return-                 (MkListFontsWithInfoReply name_len min_bounds max_bounds-                    min_char_or_byte2-                    max_char_or_byte2-                    default_char-                    properties_len-                    draw_direction-                    min_byte1-                    max_byte1-                    all_chars_exist-                    font_ascent-                    font_descent-                    replies_hint-                    properties-                    name)- -data SetFontPath = MkSetFontPath{font_qty_SetFontPath :: CARD16,-                                 path_SetFontPath :: [CChar]}-                 deriving (Show, Typeable)- -instance Serialize SetFontPath where-        serialize x-          = do putWord8 51-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (font_qty_SetFontPath x)-               serializeList (path_SetFontPath x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + 1 + size (font_qty_SetFontPath x) +-              sum (map size (path_SetFontPath x))- -data GetFontPath = MkGetFontPath{}-                 deriving (Show, Typeable)- -instance Serialize GetFontPath where-        serialize x-          = do putWord8 52-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               putSkip (requiredPadding (size x))-        size x = 4- -data GetFontPathReply = MkGetFontPathReply{path_len_GetFontPathReply-                                           :: CARD16,-                                           path_GetFontPathReply :: [STR]}-                      deriving (Show, Typeable)- -instance Deserialize GetFontPathReply where-        deserialize-          = do skip 1-               skip 1-               skip 2-               length <- deserialize-               path_len <- deserialize-               skip 22-               path <- deserializeList (fromIntegral path_len)-               let _ = isCard32 length-               return (MkGetFontPathReply path_len path)- -data CreatePixmap = MkCreatePixmap{depth_CreatePixmap :: CARD8,-                                   pid_CreatePixmap :: PIXMAP, drawable_CreatePixmap :: DRAWABLE,-                                   width_CreatePixmap :: CARD16, height_CreatePixmap :: CARD16}-                  deriving (Show, Typeable)- -instance Serialize CreatePixmap where-        serialize x-          = do putWord8 53-               serialize (depth_CreatePixmap x)-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (pid_CreatePixmap x)-               serialize (drawable_CreatePixmap x)-               serialize (width_CreatePixmap x)-               serialize (height_CreatePixmap x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + size (depth_CreatePixmap x) + size (pid_CreatePixmap x) +-              size (drawable_CreatePixmap x)-              + size (width_CreatePixmap x)-              + size (height_CreatePixmap x)- -data FreePixmap = MkFreePixmap{pixmap_FreePixmap :: PIXMAP}-                deriving (Show, Typeable)- -instance Serialize FreePixmap where-        serialize x-          = do putWord8 54-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (pixmap_FreePixmap x)-               putSkip (requiredPadding (size x))-        size x = 3 + 1 + size (pixmap_FreePixmap x)- -data GC = GCFunction-        | GCPlaneMask-        | GCForeground-        | GCBackground-        | GCLineWidth-        | GCLineStyle-        | GCCapStyle-        | GCJoinStyle-        | GCFillStyle-        | GCFillRule-        | GCTile-        | GCStipple-        | GCTileStippleOriginX-        | GCTileStippleOriginY-        | GCFont-        | GCSubwindowMode-        | GCGraphicsExposures-        | GCClipOriginX-        | GCClipOriginY-        | GCClipMask-        | GCDashOffset-        | GCDashList-        | GCArcMode- -instance BitEnum GC where-        toBit GCFunction{} = 0-        toBit GCPlaneMask{} = 1-        toBit GCForeground{} = 2-        toBit GCBackground{} = 3-        toBit GCLineWidth{} = 4-        toBit GCLineStyle{} = 5-        toBit GCCapStyle{} = 6-        toBit GCJoinStyle{} = 7-        toBit GCFillStyle{} = 8-        toBit GCFillRule{} = 9-        toBit GCTile{} = 10-        toBit GCStipple{} = 11-        toBit GCTileStippleOriginX{} = 12-        toBit GCTileStippleOriginY{} = 13-        toBit GCFont{} = 14-        toBit GCSubwindowMode{} = 15-        toBit GCGraphicsExposures{} = 16-        toBit GCClipOriginX{} = 17-        toBit GCClipOriginY{} = 18-        toBit GCClipMask{} = 19-        toBit GCDashOffset{} = 20-        toBit GCDashList{} = 21-        toBit GCArcMode{} = 22-        fromBit 0 = GCFunction-        fromBit 1 = GCPlaneMask-        fromBit 2 = GCForeground-        fromBit 3 = GCBackground-        fromBit 4 = GCLineWidth-        fromBit 5 = GCLineStyle-        fromBit 6 = GCCapStyle-        fromBit 7 = GCJoinStyle-        fromBit 8 = GCFillStyle-        fromBit 9 = GCFillRule-        fromBit 10 = GCTile-        fromBit 11 = GCStipple-        fromBit 12 = GCTileStippleOriginX-        fromBit 13 = GCTileStippleOriginY-        fromBit 14 = GCFont-        fromBit 15 = GCSubwindowMode-        fromBit 16 = GCGraphicsExposures-        fromBit 17 = GCClipOriginX-        fromBit 18 = GCClipOriginY-        fromBit 19 = GCClipMask-        fromBit 20 = GCDashOffset-        fromBit 21 = GCDashList-        fromBit 22 = GCArcMode- -data GX = GXclear-        | GXand-        | GXandReverse-        | GXcopy-        | GXandInverted-        | GXnoop-        | GXxor-        | GXor-        | GXnor-        | GXequiv-        | GXinvert-        | GXorReverse-        | GXcopyInverted-        | GXorInverted-        | GXnand-        | GXset- -instance SimpleEnum GX where-        toValue GXclear{} = 0-        toValue GXand{} = 1-        toValue GXandReverse{} = 2-        toValue GXcopy{} = 3-        toValue GXandInverted{} = 4-        toValue GXnoop{} = 5-        toValue GXxor{} = 6-        toValue GXor{} = 7-        toValue GXnor{} = 8-        toValue GXequiv{} = 9-        toValue GXinvert{} = 10-        toValue GXorReverse{} = 11-        toValue GXcopyInverted{} = 12-        toValue GXorInverted{} = 13-        toValue GXnand{} = 14-        toValue GXset{} = 15-        fromValue 0 = GXclear-        fromValue 1 = GXand-        fromValue 2 = GXandReverse-        fromValue 3 = GXcopy-        fromValue 4 = GXandInverted-        fromValue 5 = GXnoop-        fromValue 6 = GXxor-        fromValue 7 = GXor-        fromValue 8 = GXnor-        fromValue 9 = GXequiv-        fromValue 10 = GXinvert-        fromValue 11 = GXorReverse-        fromValue 12 = GXcopyInverted-        fromValue 13 = GXorInverted-        fromValue 14 = GXnand-        fromValue 15 = GXset- -data LineStyle = LineStyleSolid-               | LineStyleOnOffDash-               | LineStyleDoubleDash- -instance SimpleEnum LineStyle where-        toValue LineStyleSolid{} = 0-        toValue LineStyleOnOffDash{} = 1-        toValue LineStyleDoubleDash{} = 2-        fromValue 0 = LineStyleSolid-        fromValue 1 = LineStyleOnOffDash-        fromValue 2 = LineStyleDoubleDash- -data CapStyle = CapStyleNotLast-              | CapStyleButt-              | CapStyleRound-              | CapStyleProjecting- -instance SimpleEnum CapStyle where-        toValue CapStyleNotLast{} = 0-        toValue CapStyleButt{} = 1-        toValue CapStyleRound{} = 2-        toValue CapStyleProjecting{} = 3-        fromValue 0 = CapStyleNotLast-        fromValue 1 = CapStyleButt-        fromValue 2 = CapStyleRound-        fromValue 3 = CapStyleProjecting- -data JoinStyle = JoinStyleMitre-               | JoinStyleRound-               | JoinStyleBevel- -instance SimpleEnum JoinStyle where-        toValue JoinStyleMitre{} = 0-        toValue JoinStyleRound{} = 1-        toValue JoinStyleBevel{} = 2-        fromValue 0 = JoinStyleMitre-        fromValue 1 = JoinStyleRound-        fromValue 2 = JoinStyleBevel- -data FillStyle = FillStyleSolid-               | FillStyleTiled-               | FillStyleStippled-               | FillStyleOpaqueStippled- -instance SimpleEnum FillStyle where-        toValue FillStyleSolid{} = 0-        toValue FillStyleTiled{} = 1-        toValue FillStyleStippled{} = 2-        toValue FillStyleOpaqueStippled{} = 3-        fromValue 0 = FillStyleSolid-        fromValue 1 = FillStyleTiled-        fromValue 2 = FillStyleStippled-        fromValue 3 = FillStyleOpaqueStippled- -data FillRule = FillRuleEvenOdd-              | FillRuleWinding- -instance SimpleEnum FillRule where-        toValue FillRuleEvenOdd{} = 0-        toValue FillRuleWinding{} = 1-        fromValue 0 = FillRuleEvenOdd-        fromValue 1 = FillRuleWinding- -data SubwindowMode = SubwindowModeClipByChildren-                   | SubwindowModeIncludeInferiors- -instance SimpleEnum SubwindowMode where-        toValue SubwindowModeClipByChildren{} = 0-        toValue SubwindowModeIncludeInferiors{} = 1-        fromValue 0 = SubwindowModeClipByChildren-        fromValue 1 = SubwindowModeIncludeInferiors- -data ArcMode = ArcModeChord-             | ArcModePieSlice- -instance SimpleEnum ArcMode where-        toValue ArcModeChord{} = 0-        toValue ArcModePieSlice{} = 1-        fromValue 0 = ArcModeChord-        fromValue 1 = ArcModePieSlice- -data CreateGC = MkCreateGC{cid_CreateGC :: GCONTEXT,-                           drawable_CreateGC :: DRAWABLE, value_CreateGC :: ValueParam CARD32}-              deriving (Show, Typeable)- -instance Serialize CreateGC where-        serialize x-          = do putWord8 55-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (cid_CreateGC x)-               serialize (drawable_CreateGC x)-               serialize (value_CreateGC x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + 1 + size (cid_CreateGC x) + size (drawable_CreateGC x) +-              size (value_CreateGC x)- -data ChangeGC = MkChangeGC{gc_ChangeGC :: GCONTEXT,-                           value_ChangeGC :: ValueParam CARD32}-              deriving (Show, Typeable)- -instance Serialize ChangeGC where-        serialize x-          = do putWord8 56-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (gc_ChangeGC x)-               serialize (value_ChangeGC x)-               putSkip (requiredPadding (size x))-        size x = 3 + 1 + size (gc_ChangeGC x) + size (value_ChangeGC x)- -data CopyGC = MkCopyGC{src_gc_CopyGC :: GCONTEXT,-                       dst_gc_CopyGC :: GCONTEXT, value_mask_CopyGC :: CARD32}-            deriving (Show, Typeable)- -instance Serialize CopyGC where-        serialize x-          = do putWord8 57-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (src_gc_CopyGC x)-               serialize (dst_gc_CopyGC x)-               serialize (value_mask_CopyGC x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + 1 + size (src_gc_CopyGC x) + size (dst_gc_CopyGC x) +-              size (value_mask_CopyGC x)- -data SetDashes = MkSetDashes{gc_SetDashes :: GCONTEXT,-                             dash_offset_SetDashes :: CARD16, dashes_len_SetDashes :: CARD16,-                             dashes_SetDashes :: [CARD8]}-               deriving (Show, Typeable)- -instance Serialize SetDashes where-        serialize x-          = do putWord8 58-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (gc_SetDashes x)-               serialize (dash_offset_SetDashes x)-               serialize (dashes_len_SetDashes x)-               serializeList (dashes_SetDashes x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + 1 + size (gc_SetDashes x) + size (dash_offset_SetDashes x) +-              size (dashes_len_SetDashes x)-              + sum (map size (dashes_SetDashes x))- -data ClipOrdering = ClipOrderingUnsorted-                  | ClipOrderingYSorted-                  | ClipOrderingYXSorted-                  | ClipOrderingYXBanded- -instance SimpleEnum ClipOrdering where-        toValue ClipOrderingUnsorted{} = 0-        toValue ClipOrderingYSorted{} = 1-        toValue ClipOrderingYXSorted{} = 2-        toValue ClipOrderingYXBanded{} = 3-        fromValue 0 = ClipOrderingUnsorted-        fromValue 1 = ClipOrderingYSorted-        fromValue 2 = ClipOrderingYXSorted-        fromValue 3 = ClipOrderingYXBanded- -data SetClipRectangles = MkSetClipRectangles{ordering_SetClipRectangles-                                             :: BYTE,-                                             gc_SetClipRectangles :: GCONTEXT,-                                             clip_x_origin_SetClipRectangles :: INT16,-                                             clip_y_origin_SetClipRectangles :: INT16,-                                             rectangles_SetClipRectangles :: [RECTANGLE]}-                       deriving (Show, Typeable)- -instance Serialize SetClipRectangles where-        serialize x-          = do putWord8 59-               serialize (ordering_SetClipRectangles x)-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (gc_SetClipRectangles x)-               serialize (clip_x_origin_SetClipRectangles x)-               serialize (clip_y_origin_SetClipRectangles x)-               serializeList (rectangles_SetClipRectangles x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + size (ordering_SetClipRectangles x) +-              size (gc_SetClipRectangles x)-              + size (clip_x_origin_SetClipRectangles x)-              + size (clip_y_origin_SetClipRectangles x)-              + sum (map size (rectangles_SetClipRectangles x))- -data FreeGC = MkFreeGC{gc_FreeGC :: GCONTEXT}-            deriving (Show, Typeable)- -instance Serialize FreeGC where-        serialize x-          = do putWord8 60-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (gc_FreeGC x)-               putSkip (requiredPadding (size x))-        size x = 3 + 1 + size (gc_FreeGC x)- -data ClearArea = MkClearArea{exposures_ClearArea :: BOOL,-                             window_ClearArea :: WINDOW, x_ClearArea :: INT16,-                             y_ClearArea :: INT16, width_ClearArea :: CARD16,-                             height_ClearArea :: CARD16}-               deriving (Show, Typeable)- -instance Serialize ClearArea where-        serialize x-          = do putWord8 61-               serialize (exposures_ClearArea x)-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (window_ClearArea x)-               serialize (x_ClearArea x)-               serialize (y_ClearArea x)-               serialize (width_ClearArea x)-               serialize (height_ClearArea x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + size (exposures_ClearArea x) + size (window_ClearArea x) +-              size (x_ClearArea x)-              + size (y_ClearArea x)-              + size (width_ClearArea x)-              + size (height_ClearArea x)- -data CopyArea = MkCopyArea{src_drawable_CopyArea :: DRAWABLE,-                           dst_drawable_CopyArea :: DRAWABLE, gc_CopyArea :: GCONTEXT,-                           src_x_CopyArea :: INT16, src_y_CopyArea :: INT16,-                           dst_x_CopyArea :: INT16, dst_y_CopyArea :: INT16,-                           width_CopyArea :: CARD16, height_CopyArea :: CARD16}-              deriving (Show, Typeable)- -instance Serialize CopyArea where-        serialize x-          = do putWord8 62-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (src_drawable_CopyArea x)-               serialize (dst_drawable_CopyArea x)-               serialize (gc_CopyArea x)-               serialize (src_x_CopyArea x)-               serialize (src_y_CopyArea x)-               serialize (dst_x_CopyArea x)-               serialize (dst_y_CopyArea x)-               serialize (width_CopyArea x)-               serialize (height_CopyArea x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + 1 + size (src_drawable_CopyArea x) +-              size (dst_drawable_CopyArea x)-              + size (gc_CopyArea x)-              + size (src_x_CopyArea x)-              + size (src_y_CopyArea x)-              + size (dst_x_CopyArea x)-              + size (dst_y_CopyArea x)-              + size (width_CopyArea x)-              + size (height_CopyArea x)- -data CopyPlane = MkCopyPlane{src_drawable_CopyPlane :: DRAWABLE,-                             dst_drawable_CopyPlane :: DRAWABLE, gc_CopyPlane :: GCONTEXT,-                             src_x_CopyPlane :: INT16, src_y_CopyPlane :: INT16,-                             dst_x_CopyPlane :: INT16, dst_y_CopyPlane :: INT16,-                             width_CopyPlane :: CARD16, height_CopyPlane :: CARD16,-                             bit_plane_CopyPlane :: CARD32}-               deriving (Show, Typeable)- -instance Serialize CopyPlane where-        serialize x-          = do putWord8 63-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (src_drawable_CopyPlane x)-               serialize (dst_drawable_CopyPlane x)-               serialize (gc_CopyPlane x)-               serialize (src_x_CopyPlane x)-               serialize (src_y_CopyPlane x)-               serialize (dst_x_CopyPlane x)-               serialize (dst_y_CopyPlane x)-               serialize (width_CopyPlane x)-               serialize (height_CopyPlane x)-               serialize (bit_plane_CopyPlane x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + 1 + size (src_drawable_CopyPlane x) +-              size (dst_drawable_CopyPlane x)-              + size (gc_CopyPlane x)-              + size (src_x_CopyPlane x)-              + size (src_y_CopyPlane x)-              + size (dst_x_CopyPlane x)-              + size (dst_y_CopyPlane x)-              + size (width_CopyPlane x)-              + size (height_CopyPlane x)-              + size (bit_plane_CopyPlane x)- -data CoordMode = CoordModeOrigin-               | CoordModePrevious- -instance SimpleEnum CoordMode where-        toValue CoordModeOrigin{} = 0-        toValue CoordModePrevious{} = 1-        fromValue 0 = CoordModeOrigin-        fromValue 1 = CoordModePrevious- -data PolyPoint = MkPolyPoint{coordinate_mode_PolyPoint :: BYTE,-                             drawable_PolyPoint :: DRAWABLE, gc_PolyPoint :: GCONTEXT,-                             points_PolyPoint :: [POINT]}-               deriving (Show, Typeable)- -instance Serialize PolyPoint where-        serialize x-          = do putWord8 64-               serialize (coordinate_mode_PolyPoint x)-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (drawable_PolyPoint x)-               serialize (gc_PolyPoint x)-               serializeList (points_PolyPoint x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + size (coordinate_mode_PolyPoint x) +-              size (drawable_PolyPoint x)-              + size (gc_PolyPoint x)-              + sum (map size (points_PolyPoint x))- -data PolyLine = MkPolyLine{coordinate_mode_PolyLine :: BYTE,-                           drawable_PolyLine :: DRAWABLE, gc_PolyLine :: GCONTEXT,-                           points_PolyLine :: [POINT]}-              deriving (Show, Typeable)- -instance Serialize PolyLine where-        serialize x-          = do putWord8 65-               serialize (coordinate_mode_PolyLine x)-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (drawable_PolyLine x)-               serialize (gc_PolyLine x)-               serializeList (points_PolyLine x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + size (coordinate_mode_PolyLine x) +-              size (drawable_PolyLine x)-              + size (gc_PolyLine x)-              + sum (map size (points_PolyLine x))- -data SEGMENT = MkSEGMENT{x1_SEGMENT :: INT16, y1_SEGMENT :: INT16,-                         x2_SEGMENT :: INT16, y2_SEGMENT :: INT16}-             deriving (Show, Typeable)- -instance Serialize SEGMENT where-        serialize x-          = do serialize (x1_SEGMENT x)-               serialize (y1_SEGMENT x)-               serialize (x2_SEGMENT x)-               serialize (y2_SEGMENT x)-        size x-          = size (x1_SEGMENT x) + size (y1_SEGMENT x) + size (x2_SEGMENT x) +-              size (y2_SEGMENT x)- -instance Deserialize SEGMENT where-        deserialize-          = do x1 <- deserialize-               y1 <- deserialize-               x2 <- deserialize-               y2 <- deserialize-               return (MkSEGMENT x1 y1 x2 y2)- -data PolySegment = MkPolySegment{drawable_PolySegment :: DRAWABLE,-                                 gc_PolySegment :: GCONTEXT, segments_PolySegment :: [SEGMENT]}-                 deriving (Show, Typeable)- -instance Serialize PolySegment where-        serialize x-          = do putWord8 66-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (drawable_PolySegment x)-               serialize (gc_PolySegment x)-               serializeList (segments_PolySegment x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + 1 + size (drawable_PolySegment x) + size (gc_PolySegment x) +-              sum (map size (segments_PolySegment x))- -data PolyRectangle = MkPolyRectangle{drawable_PolyRectangle ::-                                     DRAWABLE,-                                     gc_PolyRectangle :: GCONTEXT,-                                     rectangles_PolyRectangle :: [RECTANGLE]}-                   deriving (Show, Typeable)- -instance Serialize PolyRectangle where-        serialize x-          = do putWord8 67-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (drawable_PolyRectangle x)-               serialize (gc_PolyRectangle x)-               serializeList (rectangles_PolyRectangle x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + 1 + size (drawable_PolyRectangle x) +-              size (gc_PolyRectangle x)-              + sum (map size (rectangles_PolyRectangle x))- -data PolyArc = MkPolyArc{drawable_PolyArc :: DRAWABLE,-                         gc_PolyArc :: GCONTEXT, arcs_PolyArc :: [ARC]}-             deriving (Show, Typeable)- -instance Serialize PolyArc where-        serialize x-          = do putWord8 68-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (drawable_PolyArc x)-               serialize (gc_PolyArc x)-               serializeList (arcs_PolyArc x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + 1 + size (drawable_PolyArc x) + size (gc_PolyArc x) +-              sum (map size (arcs_PolyArc x))- -data PolyShape = PolyShapeComplex-               | PolyShapeNonconvex-               | PolyShapeConvex- -instance SimpleEnum PolyShape where-        toValue PolyShapeComplex{} = 0-        toValue PolyShapeNonconvex{} = 1-        toValue PolyShapeConvex{} = 2-        fromValue 0 = PolyShapeComplex-        fromValue 1 = PolyShapeNonconvex-        fromValue 2 = PolyShapeConvex- -data FillPoly = MkFillPoly{drawable_FillPoly :: DRAWABLE,-                           gc_FillPoly :: GCONTEXT, shape_FillPoly :: CARD8,-                           coordinate_mode_FillPoly :: CARD8, points_FillPoly :: [POINT]}-              deriving (Show, Typeable)- -instance Serialize FillPoly where-        serialize x-          = do putWord8 69-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (drawable_FillPoly x)-               serialize (gc_FillPoly x)-               serialize (shape_FillPoly x)-               serialize (coordinate_mode_FillPoly x)-               putSkip 2-               serializeList (points_FillPoly x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + 1 + size (drawable_FillPoly x) + size (gc_FillPoly x) +-              size (shape_FillPoly x)-              + size (coordinate_mode_FillPoly x)-              + 2-              + sum (map size (points_FillPoly x))- -data PolyFillRectangle = MkPolyFillRectangle{drawable_PolyFillRectangle-                                             :: DRAWABLE,-                                             gc_PolyFillRectangle :: GCONTEXT,-                                             rectangles_PolyFillRectangle :: [RECTANGLE]}-                       deriving (Show, Typeable)- -instance Serialize PolyFillRectangle where-        serialize x-          = do putWord8 70-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (drawable_PolyFillRectangle x)-               serialize (gc_PolyFillRectangle x)-               serializeList (rectangles_PolyFillRectangle x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + 1 + size (drawable_PolyFillRectangle x) +-              size (gc_PolyFillRectangle x)-              + sum (map size (rectangles_PolyFillRectangle x))- -data PolyFillArc = MkPolyFillArc{drawable_PolyFillArc :: DRAWABLE,-                                 gc_PolyFillArc :: GCONTEXT, arcs_PolyFillArc :: [ARC]}-                 deriving (Show, Typeable)- -instance Serialize PolyFillArc where-        serialize x-          = do putWord8 71-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (drawable_PolyFillArc x)-               serialize (gc_PolyFillArc x)-               serializeList (arcs_PolyFillArc x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + 1 + size (drawable_PolyFillArc x) + size (gc_PolyFillArc x) +-              sum (map size (arcs_PolyFillArc x))- -data ImageFormat = ImageFormatXYBitmap-                 | ImageFormatXYPixmap-                 | ImageFormatZPixmap- -instance SimpleEnum ImageFormat where-        toValue ImageFormatXYBitmap{} = 0-        toValue ImageFormatXYPixmap{} = 1-        toValue ImageFormatZPixmap{} = 2-        fromValue 0 = ImageFormatXYBitmap-        fromValue 1 = ImageFormatXYPixmap-        fromValue 2 = ImageFormatZPixmap- -data PutImage = MkPutImage{format_PutImage :: CARD8,-                           drawable_PutImage :: DRAWABLE, gc_PutImage :: GCONTEXT,-                           width_PutImage :: CARD16, height_PutImage :: CARD16,-                           dst_x_PutImage :: INT16, dst_y_PutImage :: INT16,-                           left_pad_PutImage :: CARD8, depth_PutImage :: CARD8,-                           data_PutImage :: [BYTE]}-              deriving (Show, Typeable)- -instance Serialize PutImage where-        serialize x-          = do putWord8 72-               serialize (format_PutImage x)-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (drawable_PutImage x)-               serialize (gc_PutImage x)-               serialize (width_PutImage x)-               serialize (height_PutImage x)-               serialize (dst_x_PutImage x)-               serialize (dst_y_PutImage x)-               serialize (left_pad_PutImage x)-               serialize (depth_PutImage x)-               putSkip 2-               serializeList (data_PutImage x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + size (format_PutImage x) + size (drawable_PutImage x) +-              size (gc_PutImage x)-              + size (width_PutImage x)-              + size (height_PutImage x)-              + size (dst_x_PutImage x)-              + size (dst_y_PutImage x)-              + size (left_pad_PutImage x)-              + size (depth_PutImage x)-              + 2-              + sum (map size (data_PutImage x))- -data GetImage = MkGetImage{format_GetImage :: CARD8,-                           drawable_GetImage :: DRAWABLE, x_GetImage :: INT16,-                           y_GetImage :: INT16, width_GetImage :: CARD16,-                           height_GetImage :: CARD16, plane_mask_GetImage :: CARD32}-              deriving (Show, Typeable)- -instance Serialize GetImage where-        serialize x-          = do putWord8 73-               serialize (format_GetImage x)-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (drawable_GetImage x)-               serialize (x_GetImage x)-               serialize (y_GetImage x)-               serialize (width_GetImage x)-               serialize (height_GetImage x)-               serialize (plane_mask_GetImage x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + size (format_GetImage x) + size (drawable_GetImage x) +-              size (x_GetImage x)-              + size (y_GetImage x)-              + size (width_GetImage x)-              + size (height_GetImage x)-              + size (plane_mask_GetImage x)- -data GetImageReply = MkGetImageReply{depth_GetImageReply :: CARD8,-                                     visual_GetImageReply :: VISUALID, data_GetImageReply :: [BYTE]}-                   deriving (Show, Typeable)- -instance Deserialize GetImageReply where-        deserialize-          = do skip 1-               depth <- deserialize-               skip 2-               length <- deserialize-               visual <- deserialize-               skip 20-               data_ <- deserializeList (fromIntegral (fromIntegral (length * 4)))-               let _ = isCard32 length-               return (MkGetImageReply depth visual data_)- -data PolyText8 = MkPolyText8{drawable_PolyText8 :: DRAWABLE,-                             gc_PolyText8 :: GCONTEXT, x_PolyText8 :: INT16,-                             y_PolyText8 :: INT16, items_PolyText8 :: [BYTE]}-               deriving (Show, Typeable)- -instance Serialize PolyText8 where-        serialize x-          = do putWord8 74-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (drawable_PolyText8 x)-               serialize (gc_PolyText8 x)-               serialize (x_PolyText8 x)-               serialize (y_PolyText8 x)-               serializeList (items_PolyText8 x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + 1 + size (drawable_PolyText8 x) + size (gc_PolyText8 x) +-              size (x_PolyText8 x)-              + size (y_PolyText8 x)-              + sum (map size (items_PolyText8 x))- -data PolyText16 = MkPolyText16{drawable_PolyText16 :: DRAWABLE,-                               gc_PolyText16 :: GCONTEXT, x_PolyText16 :: INT16,-                               y_PolyText16 :: INT16, items_PolyText16 :: [BYTE]}-                deriving (Show, Typeable)- -instance Serialize PolyText16 where-        serialize x-          = do putWord8 75-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (drawable_PolyText16 x)-               serialize (gc_PolyText16 x)-               serialize (x_PolyText16 x)-               serialize (y_PolyText16 x)-               serializeList (items_PolyText16 x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + 1 + size (drawable_PolyText16 x) + size (gc_PolyText16 x) +-              size (x_PolyText16 x)-              + size (y_PolyText16 x)-              + sum (map size (items_PolyText16 x))- -data ImageText8 = MkImageText8{string_len_ImageText8 :: BYTE,-                               drawable_ImageText8 :: DRAWABLE, gc_ImageText8 :: GCONTEXT,-                               x_ImageText8 :: INT16, y_ImageText8 :: INT16,-                               string_ImageText8 :: [CChar]}-                deriving (Show, Typeable)- -instance Serialize ImageText8 where-        serialize x-          = do putWord8 76-               serialize (string_len_ImageText8 x)-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (drawable_ImageText8 x)-               serialize (gc_ImageText8 x)-               serialize (x_ImageText8 x)-               serialize (y_ImageText8 x)-               serializeList (string_ImageText8 x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + size (string_len_ImageText8 x) + size (drawable_ImageText8 x)-              + size (gc_ImageText8 x)-              + size (x_ImageText8 x)-              + size (y_ImageText8 x)-              + sum (map size (string_ImageText8 x))- -data ImageText16 = MkImageText16{string_len_ImageText16 :: BYTE,-                                 drawable_ImageText16 :: DRAWABLE, gc_ImageText16 :: GCONTEXT,-                                 x_ImageText16 :: INT16, y_ImageText16 :: INT16,-                                 string_ImageText16 :: [CHAR2B]}-                 deriving (Show, Typeable)- -instance Serialize ImageText16 where-        serialize x-          = do putWord8 77-               serialize (string_len_ImageText16 x)-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (drawable_ImageText16 x)-               serialize (gc_ImageText16 x)-               serialize (x_ImageText16 x)-               serialize (y_ImageText16 x)-               serializeList (string_ImageText16 x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + size (string_len_ImageText16 x) +-              size (drawable_ImageText16 x)-              + size (gc_ImageText16 x)-              + size (x_ImageText16 x)-              + size (y_ImageText16 x)-              + sum (map size (string_ImageText16 x))- -data ColormapAlloc = ColormapAllocNone-                   | ColormapAllocAll- -instance SimpleEnum ColormapAlloc where-        toValue ColormapAllocNone{} = 0-        toValue ColormapAllocAll{} = 1-        fromValue 0 = ColormapAllocNone-        fromValue 1 = ColormapAllocAll- -data CreateColormap = MkCreateColormap{alloc_CreateColormap ::-                                       BYTE,-                                       mid_CreateColormap :: COLORMAP,-                                       window_CreateColormap :: WINDOW,-                                       visual_CreateColormap :: VISUALID}-                    deriving (Show, Typeable)- -instance Serialize CreateColormap where-        serialize x-          = do putWord8 78-               serialize (alloc_CreateColormap x)-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (mid_CreateColormap x)-               serialize (window_CreateColormap x)-               serialize (visual_CreateColormap x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + size (alloc_CreateColormap x) + size (mid_CreateColormap x) +-              size (window_CreateColormap x)-              + size (visual_CreateColormap x)- -data FreeColormap = MkFreeColormap{cmap_FreeColormap :: COLORMAP}-                  deriving (Show, Typeable)- -instance Serialize FreeColormap where-        serialize x-          = do putWord8 79-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (cmap_FreeColormap x)-               putSkip (requiredPadding (size x))-        size x = 3 + 1 + size (cmap_FreeColormap x)- -data CopyColormapAndFree = MkCopyColormapAndFree{mid_CopyColormapAndFree-                                                 :: COLORMAP,-                                                 src_cmap_CopyColormapAndFree :: COLORMAP}-                         deriving (Show, Typeable)- -instance Serialize CopyColormapAndFree where-        serialize x-          = do putWord8 80-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (mid_CopyColormapAndFree x)-               serialize (src_cmap_CopyColormapAndFree x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + 1 + size (mid_CopyColormapAndFree x) +-              size (src_cmap_CopyColormapAndFree x)- -data InstallColormap = MkInstallColormap{cmap_InstallColormap ::-                                         COLORMAP}-                     deriving (Show, Typeable)- -instance Serialize InstallColormap where-        serialize x-          = do putWord8 81-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (cmap_InstallColormap x)-               putSkip (requiredPadding (size x))-        size x = 3 + 1 + size (cmap_InstallColormap x)- -data UninstallColormap = MkUninstallColormap{cmap_UninstallColormap-                                             :: COLORMAP}-                       deriving (Show, Typeable)- -instance Serialize UninstallColormap where-        serialize x-          = do putWord8 82-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (cmap_UninstallColormap x)-               putSkip (requiredPadding (size x))-        size x = 3 + 1 + size (cmap_UninstallColormap x)- -data ListInstalledColormaps = MkListInstalledColormaps{window_ListInstalledColormaps-                                                       :: WINDOW}-                            deriving (Show, Typeable)- -instance Serialize ListInstalledColormaps where-        serialize x-          = do putWord8 83-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (window_ListInstalledColormaps x)-               putSkip (requiredPadding (size x))-        size x = 3 + 1 + size (window_ListInstalledColormaps x)- -data ListInstalledColormapsReply = MkListInstalledColormapsReply{cmaps_len_ListInstalledColormapsReply-                                                                 :: CARD16,-                                                                 cmaps_ListInstalledColormapsReply-                                                                 :: [COLORMAP]}-                                 deriving (Show, Typeable)- -instance Deserialize ListInstalledColormapsReply where-        deserialize-          = do skip 1-               skip 1-               skip 2-               length <- deserialize-               cmaps_len <- deserialize-               skip 22-               cmaps <- deserializeList (fromIntegral cmaps_len)-               let _ = isCard32 length-               return (MkListInstalledColormapsReply cmaps_len cmaps)- -data AllocColor = MkAllocColor{cmap_AllocColor :: COLORMAP,-                               red_AllocColor :: CARD16, green_AllocColor :: CARD16,-                               blue_AllocColor :: CARD16}-                deriving (Show, Typeable)- -instance Serialize AllocColor where-        serialize x-          = do putWord8 84-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (cmap_AllocColor x)-               serialize (red_AllocColor x)-               serialize (green_AllocColor x)-               serialize (blue_AllocColor x)-               putSkip 2-               putSkip (requiredPadding (size x))-        size x-          = 3 + 1 + size (cmap_AllocColor x) + size (red_AllocColor x) +-              size (green_AllocColor x)-              + size (blue_AllocColor x)-              + 2- -data AllocColorReply = MkAllocColorReply{red_AllocColorReply ::-                                         CARD16,-                                         green_AllocColorReply :: CARD16,-                                         blue_AllocColorReply :: CARD16,-                                         pixel_AllocColorReply :: CARD32}-                     deriving (Show, Typeable)- -instance Deserialize AllocColorReply where-        deserialize-          = do skip 1-               skip 1-               skip 2-               length <- deserialize-               red <- deserialize-               green <- deserialize-               blue <- deserialize-               skip 2-               pixel <- deserialize-               let _ = isCard32 length-               return (MkAllocColorReply red green blue pixel)- -data AllocNamedColor = MkAllocNamedColor{cmap_AllocNamedColor ::-                                         COLORMAP,-                                         name_len_AllocNamedColor :: CARD16,-                                         name_AllocNamedColor :: [CChar]}-                     deriving (Show, Typeable)- -instance Serialize AllocNamedColor where-        serialize x-          = do putWord8 85-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (cmap_AllocNamedColor x)-               serialize (name_len_AllocNamedColor x)-               putSkip 2-               serializeList (name_AllocNamedColor x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + 1 + size (cmap_AllocNamedColor x) +-              size (name_len_AllocNamedColor x)-              + 2-              + sum (map size (name_AllocNamedColor x))- -data AllocNamedColorReply = MkAllocNamedColorReply{pixel_AllocNamedColorReply-                                                   :: CARD32,-                                                   exact_red_AllocNamedColorReply :: CARD16,-                                                   exact_green_AllocNamedColorReply :: CARD16,-                                                   exact_blue_AllocNamedColorReply :: CARD16,-                                                   visual_red_AllocNamedColorReply :: CARD16,-                                                   visual_green_AllocNamedColorReply :: CARD16,-                                                   visual_blue_AllocNamedColorReply :: CARD16}-                          deriving (Show, Typeable)- -instance Deserialize AllocNamedColorReply where-        deserialize-          = do skip 1-               skip 1-               skip 2-               length <- deserialize-               pixel <- deserialize-               exact_red <- deserialize-               exact_green <- deserialize-               exact_blue <- deserialize-               visual_red <- deserialize-               visual_green <- deserialize-               visual_blue <- deserialize-               let _ = isCard32 length-               return-                 (MkAllocNamedColorReply pixel exact_red exact_green exact_blue-                    visual_red-                    visual_green-                    visual_blue)- -data AllocColorCells = MkAllocColorCells{contiguous_AllocColorCells-                                         :: BOOL,-                                         cmap_AllocColorCells :: COLORMAP,-                                         colors_AllocColorCells :: CARD16,-                                         planes_AllocColorCells :: CARD16}-                     deriving (Show, Typeable)- -instance Serialize AllocColorCells where-        serialize x-          = do putWord8 86-               serialize (contiguous_AllocColorCells x)-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (cmap_AllocColorCells x)-               serialize (colors_AllocColorCells x)-               serialize (planes_AllocColorCells x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + size (contiguous_AllocColorCells x) +-              size (cmap_AllocColorCells x)-              + size (colors_AllocColorCells x)-              + size (planes_AllocColorCells x)- -data AllocColorCellsReply = MkAllocColorCellsReply{pixels_len_AllocColorCellsReply-                                                   :: CARD16,-                                                   masks_len_AllocColorCellsReply :: CARD16,-                                                   pixels_AllocColorCellsReply :: [CARD32],-                                                   masks_AllocColorCellsReply :: [CARD32]}-                          deriving (Show, Typeable)- -instance Deserialize AllocColorCellsReply where-        deserialize-          = do skip 1-               skip 1-               skip 2-               length <- deserialize-               pixels_len <- deserialize-               masks_len <- deserialize-               skip 20-               pixels <- deserializeList (fromIntegral pixels_len)-               masks <- deserializeList (fromIntegral masks_len)-               let _ = isCard32 length-               return (MkAllocColorCellsReply pixels_len masks_len pixels masks)- -data AllocColorPlanes = MkAllocColorPlanes{contiguous_AllocColorPlanes-                                           :: BOOL,-                                           cmap_AllocColorPlanes :: COLORMAP,-                                           colors_AllocColorPlanes :: CARD16,-                                           reds_AllocColorPlanes :: CARD16,-                                           greens_AllocColorPlanes :: CARD16,-                                           blues_AllocColorPlanes :: CARD16}-                      deriving (Show, Typeable)- -instance Serialize AllocColorPlanes where-        serialize x-          = do putWord8 87-               serialize (contiguous_AllocColorPlanes x)-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (cmap_AllocColorPlanes x)-               serialize (colors_AllocColorPlanes x)-               serialize (reds_AllocColorPlanes x)-               serialize (greens_AllocColorPlanes x)-               serialize (blues_AllocColorPlanes x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + size (contiguous_AllocColorPlanes x) +-              size (cmap_AllocColorPlanes x)-              + size (colors_AllocColorPlanes x)-              + size (reds_AllocColorPlanes x)-              + size (greens_AllocColorPlanes x)-              + size (blues_AllocColorPlanes x)- -data AllocColorPlanesReply = MkAllocColorPlanesReply{pixels_len_AllocColorPlanesReply-                                                     :: CARD16,-                                                     red_mask_AllocColorPlanesReply :: CARD32,-                                                     green_mask_AllocColorPlanesReply :: CARD32,-                                                     blue_mask_AllocColorPlanesReply :: CARD32,-                                                     pixels_AllocColorPlanesReply :: [CARD32]}-                           deriving (Show, Typeable)- -instance Deserialize AllocColorPlanesReply where-        deserialize-          = do skip 1-               skip 1-               skip 2-               length <- deserialize-               pixels_len <- deserialize-               skip 2-               red_mask <- deserialize-               green_mask <- deserialize-               blue_mask <- deserialize-               skip 8-               pixels <- deserializeList (fromIntegral pixels_len)-               let _ = isCard32 length-               return-                 (MkAllocColorPlanesReply pixels_len red_mask green_mask blue_mask-                    pixels)- -data FreeColors = MkFreeColors{cmap_FreeColors :: COLORMAP,-                               plane_mask_FreeColors :: CARD32, pixels_FreeColors :: [CARD32]}-                deriving (Show, Typeable)- -instance Serialize FreeColors where-        serialize x-          = do putWord8 88-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (cmap_FreeColors x)-               serialize (plane_mask_FreeColors x)-               serializeList (pixels_FreeColors x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + 1 + size (cmap_FreeColors x) + size (plane_mask_FreeColors x)-              + sum (map size (pixels_FreeColors x))- -data ColorFlag = ColorFlagRed-               | ColorFlagGreen-               | ColorFlagBlue- -instance BitEnum ColorFlag where-        toBit ColorFlagRed{} = 0-        toBit ColorFlagGreen{} = 1-        toBit ColorFlagBlue{} = 2-        fromBit 0 = ColorFlagRed-        fromBit 1 = ColorFlagGreen-        fromBit 2 = ColorFlagBlue- -data COLORITEM = MkCOLORITEM{pixel_COLORITEM :: CARD32,-                             red_COLORITEM :: CARD16, green_COLORITEM :: CARD16,-                             blue_COLORITEM :: CARD16, flags_COLORITEM :: BYTE}-               deriving (Show, Typeable)- -instance Serialize COLORITEM where-        serialize x-          = do serialize (pixel_COLORITEM x)-               serialize (red_COLORITEM x)-               serialize (green_COLORITEM x)-               serialize (blue_COLORITEM x)-               serialize (flags_COLORITEM x)-               putSkip 1-        size x-          = size (pixel_COLORITEM x) + size (red_COLORITEM x) +-              size (green_COLORITEM x)-              + size (blue_COLORITEM x)-              + size (flags_COLORITEM x)-              + 1- -instance Deserialize COLORITEM where-        deserialize-          = do pixel <- deserialize-               red <- deserialize-               green <- deserialize-               blue <- deserialize-               flags <- deserialize-               skip 1-               return (MkCOLORITEM pixel red green blue flags)- -data StoreColors = MkStoreColors{cmap_StoreColors :: COLORMAP,-                                 items_StoreColors :: [COLORITEM]}-                 deriving (Show, Typeable)- -instance Serialize StoreColors where-        serialize x-          = do putWord8 89-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (cmap_StoreColors x)-               serializeList (items_StoreColors x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + 1 + size (cmap_StoreColors x) +-              sum (map size (items_StoreColors x))- -data StoreNamedColor = MkStoreNamedColor{flags_StoreNamedColor ::-                                         CARD8,-                                         cmap_StoreNamedColor :: COLORMAP,-                                         pixel_StoreNamedColor :: CARD32,-                                         name_len_StoreNamedColor :: CARD16,-                                         name_StoreNamedColor :: [CChar]}-                     deriving (Show, Typeable)- -instance Serialize StoreNamedColor where-        serialize x-          = do putWord8 90-               serialize (flags_StoreNamedColor x)-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (cmap_StoreNamedColor x)-               serialize (pixel_StoreNamedColor x)-               serialize (name_len_StoreNamedColor x)-               putSkip 2-               serializeList (name_StoreNamedColor x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + size (flags_StoreNamedColor x) +-              size (cmap_StoreNamedColor x)-              + size (pixel_StoreNamedColor x)-              + size (name_len_StoreNamedColor x)-              + 2-              + sum (map size (name_StoreNamedColor x))- -data RGB = MkRGB{red_RGB :: CARD16, green_RGB :: CARD16,-                 blue_RGB :: CARD16}-         deriving (Show, Typeable)- -instance Serialize RGB where-        serialize x-          = do serialize (red_RGB x)-               serialize (green_RGB x)-               serialize (blue_RGB x)-               putSkip 2-        size x-          = size (red_RGB x) + size (green_RGB x) + size (blue_RGB x) + 2- -instance Deserialize RGB where-        deserialize-          = do red <- deserialize-               green <- deserialize-               blue <- deserialize-               skip 2-               return (MkRGB red green blue)- -data QueryColors = MkQueryColors{cmap_QueryColors :: COLORMAP,-                                 pixels_QueryColors :: [CARD32]}-                 deriving (Show, Typeable)- -instance Serialize QueryColors where-        serialize x-          = do putWord8 91-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (cmap_QueryColors x)-               serializeList (pixels_QueryColors x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + 1 + size (cmap_QueryColors x) +-              sum (map size (pixels_QueryColors x))- -data QueryColorsReply = MkQueryColorsReply{colors_len_QueryColorsReply-                                           :: CARD16,-                                           colors_QueryColorsReply :: [RGB]}-                      deriving (Show, Typeable)- -instance Deserialize QueryColorsReply where-        deserialize-          = do skip 1-               skip 1-               skip 2-               length <- deserialize-               colors_len <- deserialize-               skip 22-               colors <- deserializeList (fromIntegral colors_len)-               let _ = isCard32 length-               return (MkQueryColorsReply colors_len colors)- -data LookupColor = MkLookupColor{cmap_LookupColor :: COLORMAP,-                                 name_len_LookupColor :: CARD16, name_LookupColor :: [CChar]}-                 deriving (Show, Typeable)- -instance Serialize LookupColor where-        serialize x-          = do putWord8 92-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (cmap_LookupColor x)-               serialize (name_len_LookupColor x)-               putSkip 2-               serializeList (name_LookupColor x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + 1 + size (cmap_LookupColor x) + size (name_len_LookupColor x)-              + 2-              + sum (map size (name_LookupColor x))- -data LookupColorReply = MkLookupColorReply{exact_red_LookupColorReply-                                           :: CARD16,-                                           exact_green_LookupColorReply :: CARD16,-                                           exact_blue_LookupColorReply :: CARD16,-                                           visual_red_LookupColorReply :: CARD16,-                                           visual_green_LookupColorReply :: CARD16,-                                           visual_blue_LookupColorReply :: CARD16}-                      deriving (Show, Typeable)- -instance Deserialize LookupColorReply where-        deserialize-          = do skip 1-               skip 1-               skip 2-               length <- deserialize-               exact_red <- deserialize-               exact_green <- deserialize-               exact_blue <- deserialize-               visual_red <- deserialize-               visual_green <- deserialize-               visual_blue <- deserialize-               let _ = isCard32 length-               return-                 (MkLookupColorReply exact_red exact_green exact_blue visual_red-                    visual_green-                    visual_blue)- -data CreateCursor = MkCreateCursor{cid_CreateCursor :: CURSOR,-                                   source_CreateCursor :: PIXMAP, mask_CreateCursor :: PIXMAP,-                                   fore_red_CreateCursor :: CARD16,-                                   fore_green_CreateCursor :: CARD16,-                                   fore_blue_CreateCursor :: CARD16,-                                   back_red_CreateCursor :: CARD16,-                                   back_green_CreateCursor :: CARD16,-                                   back_blue_CreateCursor :: CARD16, x_CreateCursor :: CARD16,-                                   y_CreateCursor :: CARD16}-                  deriving (Show, Typeable)- -instance Serialize CreateCursor where-        serialize x-          = do putWord8 93-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (cid_CreateCursor x)-               serialize (source_CreateCursor x)-               serialize (mask_CreateCursor x)-               serialize (fore_red_CreateCursor x)-               serialize (fore_green_CreateCursor x)-               serialize (fore_blue_CreateCursor x)-               serialize (back_red_CreateCursor x)-               serialize (back_green_CreateCursor x)-               serialize (back_blue_CreateCursor x)-               serialize (x_CreateCursor x)-               serialize (y_CreateCursor x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + 1 + size (cid_CreateCursor x) + size (source_CreateCursor x)-              + size (mask_CreateCursor x)-              + size (fore_red_CreateCursor x)-              + size (fore_green_CreateCursor x)-              + size (fore_blue_CreateCursor x)-              + size (back_red_CreateCursor x)-              + size (back_green_CreateCursor x)-              + size (back_blue_CreateCursor x)-              + size (x_CreateCursor x)-              + size (y_CreateCursor x)- -data CreateGlyphCursor = MkCreateGlyphCursor{cid_CreateGlyphCursor-                                             :: CURSOR,-                                             source_font_CreateGlyphCursor :: FONT,-                                             mask_font_CreateGlyphCursor :: FONT,-                                             source_char_CreateGlyphCursor :: CARD16,-                                             mask_char_CreateGlyphCursor :: CARD16,-                                             fore_red_CreateGlyphCursor :: CARD16,-                                             fore_green_CreateGlyphCursor :: CARD16,-                                             fore_blue_CreateGlyphCursor :: CARD16,-                                             back_red_CreateGlyphCursor :: CARD16,-                                             back_green_CreateGlyphCursor :: CARD16,-                                             back_blue_CreateGlyphCursor :: CARD16}-                       deriving (Show, Typeable)- -instance Serialize CreateGlyphCursor where-        serialize x-          = do putWord8 94-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (cid_CreateGlyphCursor x)-               serialize (source_font_CreateGlyphCursor x)-               serialize (mask_font_CreateGlyphCursor x)-               serialize (source_char_CreateGlyphCursor x)-               serialize (mask_char_CreateGlyphCursor x)-               serialize (fore_red_CreateGlyphCursor x)-               serialize (fore_green_CreateGlyphCursor x)-               serialize (fore_blue_CreateGlyphCursor x)-               serialize (back_red_CreateGlyphCursor x)-               serialize (back_green_CreateGlyphCursor x)-               serialize (back_blue_CreateGlyphCursor x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + 1 + size (cid_CreateGlyphCursor x) +-              size (source_font_CreateGlyphCursor x)-              + size (mask_font_CreateGlyphCursor x)-              + size (source_char_CreateGlyphCursor x)-              + size (mask_char_CreateGlyphCursor x)-              + size (fore_red_CreateGlyphCursor x)-              + size (fore_green_CreateGlyphCursor x)-              + size (fore_blue_CreateGlyphCursor x)-              + size (back_red_CreateGlyphCursor x)-              + size (back_green_CreateGlyphCursor x)-              + size (back_blue_CreateGlyphCursor x)- -data FreeCursor = MkFreeCursor{cursor_FreeCursor :: CURSOR}-                deriving (Show, Typeable)- -instance Serialize FreeCursor where-        serialize x-          = do putWord8 95-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (cursor_FreeCursor x)-               putSkip (requiredPadding (size x))-        size x = 3 + 1 + size (cursor_FreeCursor x)- -data RecolorCursor = MkRecolorCursor{cursor_RecolorCursor ::-                                     CURSOR,-                                     fore_red_RecolorCursor :: CARD16,-                                     fore_green_RecolorCursor :: CARD16,-                                     fore_blue_RecolorCursor :: CARD16,-                                     back_red_RecolorCursor :: CARD16,-                                     back_green_RecolorCursor :: CARD16,-                                     back_blue_RecolorCursor :: CARD16}-                   deriving (Show, Typeable)- -instance Serialize RecolorCursor where-        serialize x-          = do putWord8 96-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (cursor_RecolorCursor x)-               serialize (fore_red_RecolorCursor x)-               serialize (fore_green_RecolorCursor x)-               serialize (fore_blue_RecolorCursor x)-               serialize (back_red_RecolorCursor x)-               serialize (back_green_RecolorCursor x)-               serialize (back_blue_RecolorCursor x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + 1 + size (cursor_RecolorCursor x) +-              size (fore_red_RecolorCursor x)-              + size (fore_green_RecolorCursor x)-              + size (fore_blue_RecolorCursor x)-              + size (back_red_RecolorCursor x)-              + size (back_green_RecolorCursor x)-              + size (back_blue_RecolorCursor x)- -data QueryShapeOf = QueryShapeOfLargestCursor-                  | QueryShapeOfFastestTile-                  | QueryShapeOfFastestStipple- -instance SimpleEnum QueryShapeOf where-        toValue QueryShapeOfLargestCursor{} = 0-        toValue QueryShapeOfFastestTile{} = 1-        toValue QueryShapeOfFastestStipple{} = 2-        fromValue 0 = QueryShapeOfLargestCursor-        fromValue 1 = QueryShapeOfFastestTile-        fromValue 2 = QueryShapeOfFastestStipple- -data QueryBestSize = MkQueryBestSize{class_QueryBestSize :: CARD8,-                                     drawable_QueryBestSize :: DRAWABLE,-                                     width_QueryBestSize :: CARD16, height_QueryBestSize :: CARD16}-                   deriving (Show, Typeable)- -instance Serialize QueryBestSize where-        serialize x-          = do putWord8 97-               serialize (class_QueryBestSize x)-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (drawable_QueryBestSize x)-               serialize (width_QueryBestSize x)-               serialize (height_QueryBestSize x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + size (class_QueryBestSize x) +-              size (drawable_QueryBestSize x)-              + size (width_QueryBestSize x)-              + size (height_QueryBestSize x)- -data QueryBestSizeReply = MkQueryBestSizeReply{width_QueryBestSizeReply-                                               :: CARD16,-                                               height_QueryBestSizeReply :: CARD16}-                        deriving (Show, Typeable)- -instance Deserialize QueryBestSizeReply where-        deserialize-          = do skip 1-               skip 1-               skip 2-               length <- deserialize-               width <- deserialize-               height <- deserialize-               let _ = isCard32 length-               return (MkQueryBestSizeReply width height)- -data QueryExtension = MkQueryExtension{name_len_QueryExtension ::-                                       CARD16,-                                       name_QueryExtension :: [CChar]}-                    deriving (Show, Typeable)- -instance Serialize QueryExtension where-        serialize x-          = do putWord8 98-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (name_len_QueryExtension x)-               putSkip 2-               serializeList (name_QueryExtension x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + 1 + size (name_len_QueryExtension x) + 2 +-              sum (map size (name_QueryExtension x))- -data QueryExtensionReply = MkQueryExtensionReply{present_QueryExtensionReply-                                                 :: BOOL,-                                                 major_opcode_QueryExtensionReply :: CARD8,-                                                 first_event_QueryExtensionReply :: CARD8,-                                                 first_error_QueryExtensionReply :: CARD8}-                         deriving (Show, Typeable)- -instance Deserialize QueryExtensionReply where-        deserialize-          = do skip 1-               skip 1-               skip 2-               length <- deserialize-               present <- deserialize-               major_opcode <- deserialize-               first_event <- deserialize-               first_error <- deserialize-               let _ = isCard32 length-               return-                 (MkQueryExtensionReply present major_opcode first_event-                    first_error)- -data ListExtensions = MkListExtensions{}-                    deriving (Show, Typeable)- -instance Serialize ListExtensions where-        serialize x-          = do putWord8 99-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               putSkip (requiredPadding (size x))-        size x = 4- -data ListExtensionsReply = MkListExtensionsReply{names_len_ListExtensionsReply-                                                 :: CARD8,-                                                 names_ListExtensionsReply :: [STR]}-                         deriving (Show, Typeable)- -instance Deserialize ListExtensionsReply where-        deserialize-          = do skip 1-               names_len <- deserialize-               skip 2-               length <- deserialize-               skip 24-               names <- deserializeList (fromIntegral names_len)-               let _ = isCard32 length-               return (MkListExtensionsReply names_len names)- -data ChangeKeyboardMapping = MkChangeKeyboardMapping{keycode_count_ChangeKeyboardMapping-                                                     :: CARD8,-                                                     first_keycode_ChangeKeyboardMapping :: KEYCODE,-                                                     keysyms_per_keycode_ChangeKeyboardMapping ::-                                                     CARD8,-                                                     keysyms_ChangeKeyboardMapping :: [KEYSYM]}-                           deriving (Show, Typeable)- -instance Serialize ChangeKeyboardMapping where-        serialize x-          = do putWord8 100-               serialize (keycode_count_ChangeKeyboardMapping x)-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (first_keycode_ChangeKeyboardMapping x)-               serialize (keysyms_per_keycode_ChangeKeyboardMapping x)-               serializeList (keysyms_ChangeKeyboardMapping x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + size (keycode_count_ChangeKeyboardMapping x) +-              size (first_keycode_ChangeKeyboardMapping x)-              + size (keysyms_per_keycode_ChangeKeyboardMapping x)-              + sum (map size (keysyms_ChangeKeyboardMapping x))- -data GetKeyboardMapping = MkGetKeyboardMapping{first_keycode_GetKeyboardMapping-                                               :: KEYCODE,-                                               count_GetKeyboardMapping :: CARD8}-                        deriving (Show, Typeable)- -instance Serialize GetKeyboardMapping where-        serialize x-          = do putWord8 101-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (first_keycode_GetKeyboardMapping x)-               serialize (count_GetKeyboardMapping x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + 1 + size (first_keycode_GetKeyboardMapping x) +-              size (count_GetKeyboardMapping x)- -data GetKeyboardMappingReply = MkGetKeyboardMappingReply{keysyms_per_keycode_GetKeyboardMappingReply-                                                         :: BYTE,-                                                         keysyms_GetKeyboardMappingReply ::-                                                         [KEYSYM]}-                             deriving (Show, Typeable)- -instance Deserialize GetKeyboardMappingReply where-        deserialize-          = do skip 1-               keysyms_per_keycode <- deserialize-               skip 2-               length <- deserialize-               skip 24-               keysyms <- deserializeList (fromIntegral length)-               let _ = isCard32 length-               return (MkGetKeyboardMappingReply keysyms_per_keycode keysyms)- -data KB = KBKeyClickPercent-        | KBBellPercent-        | KBBellPitch-        | KBBellDuration-        | KBLed-        | KBLedMode-        | KBKey-        | KBAutoRepeatMode- -instance BitEnum KB where-        toBit KBKeyClickPercent{} = 0-        toBit KBBellPercent{} = 1-        toBit KBBellPitch{} = 2-        toBit KBBellDuration{} = 3-        toBit KBLed{} = 4-        toBit KBLedMode{} = 5-        toBit KBKey{} = 6-        toBit KBAutoRepeatMode{} = 7-        fromBit 0 = KBKeyClickPercent-        fromBit 1 = KBBellPercent-        fromBit 2 = KBBellPitch-        fromBit 3 = KBBellDuration-        fromBit 4 = KBLed-        fromBit 5 = KBLedMode-        fromBit 6 = KBKey-        fromBit 7 = KBAutoRepeatMode- -data LedMode = LedModeOff-             | LedModeOn- -instance SimpleEnum LedMode where-        toValue LedModeOff{} = 0-        toValue LedModeOn{} = 1-        fromValue 0 = LedModeOff-        fromValue 1 = LedModeOn- -data AutoRepeatMode = AutoRepeatModeOff-                    | AutoRepeatModeOn-                    | AutoRepeatModeDefault- -instance SimpleEnum AutoRepeatMode where-        toValue AutoRepeatModeOff{} = 0-        toValue AutoRepeatModeOn{} = 1-        toValue AutoRepeatModeDefault{} = 2-        fromValue 0 = AutoRepeatModeOff-        fromValue 1 = AutoRepeatModeOn-        fromValue 2 = AutoRepeatModeDefault- -data ChangeKeyboardControl = MkChangeKeyboardControl{value_ChangeKeyboardControl-                                                     :: ValueParam CARD32}-                           deriving (Show, Typeable)- -instance Serialize ChangeKeyboardControl where-        serialize x-          = do putWord8 102-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (value_ChangeKeyboardControl x)-               putSkip (requiredPadding (size x))-        size x = 3 + 1 + size (value_ChangeKeyboardControl x)- -data GetKeyboardControl = MkGetKeyboardControl{}-                        deriving (Show, Typeable)- -instance Serialize GetKeyboardControl where-        serialize x-          = do putWord8 103-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               putSkip (requiredPadding (size x))-        size x = 4- -data GetKeyboardControlReply = MkGetKeyboardControlReply{global_auto_repeat_GetKeyboardControlReply-                                                         :: BYTE,-                                                         led_mask_GetKeyboardControlReply :: CARD32,-                                                         key_click_percent_GetKeyboardControlReply-                                                         :: CARD8,-                                                         bell_percent_GetKeyboardControlReply ::-                                                         CARD8,-                                                         bell_pitch_GetKeyboardControlReply ::-                                                         CARD16,-                                                         bell_duration_GetKeyboardControlReply ::-                                                         CARD16,-                                                         auto_repeats_GetKeyboardControlReply ::-                                                         [CARD8]}-                             deriving (Show, Typeable)- -instance Deserialize GetKeyboardControlReply where-        deserialize-          = do skip 1-               global_auto_repeat <- deserialize-               skip 2-               length <- deserialize-               led_mask <- deserialize-               key_click_percent <- deserialize-               bell_percent <- deserialize-               bell_pitch <- deserialize-               bell_duration <- deserialize-               skip 2-               auto_repeats <- deserializeList (fromIntegral 32)-               let _ = isCard32 length-               return-                 (MkGetKeyboardControlReply global_auto_repeat led_mask-                    key_click_percent-                    bell_percent-                    bell_pitch-                    bell_duration-                    auto_repeats)- -data Bell = MkBell{percent_Bell :: INT8}-          deriving (Show, Typeable)- -instance Serialize Bell where-        serialize x-          = do putWord8 104-               serialize (percent_Bell x)-               serialize (convertBytesToRequestSize (size x) :: INT16)-               putSkip (requiredPadding (size x))-        size x = 3 + size (percent_Bell x)- -data ChangePointerControl = MkChangePointerControl{acceleration_numerator_ChangePointerControl-                                                   :: INT16,-                                                   acceleration_denominator_ChangePointerControl ::-                                                   INT16,-                                                   threshold_ChangePointerControl :: INT16,-                                                   do_acceleration_ChangePointerControl :: BOOL,-                                                   do_threshold_ChangePointerControl :: BOOL}-                          deriving (Show, Typeable)- -instance Serialize ChangePointerControl where-        serialize x-          = do putWord8 105-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (acceleration_numerator_ChangePointerControl x)-               serialize (acceleration_denominator_ChangePointerControl x)-               serialize (threshold_ChangePointerControl x)-               serialize (do_acceleration_ChangePointerControl x)-               serialize (do_threshold_ChangePointerControl x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + 1 + size (acceleration_numerator_ChangePointerControl x) +-              size (acceleration_denominator_ChangePointerControl x)-              + size (threshold_ChangePointerControl x)-              + size (do_acceleration_ChangePointerControl x)-              + size (do_threshold_ChangePointerControl x)- -data GetPointerControl = MkGetPointerControl{}-                       deriving (Show, Typeable)- -instance Serialize GetPointerControl where-        serialize x-          = do putWord8 106-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               putSkip (requiredPadding (size x))-        size x = 4- -data GetPointerControlReply = MkGetPointerControlReply{acceleration_numerator_GetPointerControlReply-                                                       :: CARD16,-                                                       acceleration_denominator_GetPointerControlReply-                                                       :: CARD16,-                                                       threshold_GetPointerControlReply :: CARD16}-                            deriving (Show, Typeable)- -instance Deserialize GetPointerControlReply where-        deserialize-          = do skip 1-               skip 1-               skip 2-               length <- deserialize-               acceleration_numerator <- deserialize-               acceleration_denominator <- deserialize-               threshold <- deserialize-               skip 18-               let _ = isCard32 length-               return-                 (MkGetPointerControlReply acceleration_numerator-                    acceleration_denominator-                    threshold)- -data Blanking = BlankingNotPreferred-              | BlankingPreferred-              | BlankingDefault- -instance SimpleEnum Blanking where-        toValue BlankingNotPreferred{} = 0-        toValue BlankingPreferred{} = 1-        toValue BlankingDefault{} = 2-        fromValue 0 = BlankingNotPreferred-        fromValue 1 = BlankingPreferred-        fromValue 2 = BlankingDefault- -data Exposures = ExposuresNotAllowed-               | ExposuresAllowed-               | ExposuresDefault- -instance SimpleEnum Exposures where-        toValue ExposuresNotAllowed{} = 0-        toValue ExposuresAllowed{} = 1-        toValue ExposuresDefault{} = 2-        fromValue 0 = ExposuresNotAllowed-        fromValue 1 = ExposuresAllowed-        fromValue 2 = ExposuresDefault- -data SetScreenSaver = MkSetScreenSaver{timeout_SetScreenSaver ::-                                       INT16,-                                       interval_SetScreenSaver :: INT16,-                                       prefer_blanking_SetScreenSaver :: CARD8,-                                       allow_exposures_SetScreenSaver :: CARD8}-                    deriving (Show, Typeable)- -instance Serialize SetScreenSaver where-        serialize x-          = do putWord8 107-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (timeout_SetScreenSaver x)-               serialize (interval_SetScreenSaver x)-               serialize (prefer_blanking_SetScreenSaver x)-               serialize (allow_exposures_SetScreenSaver x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + 1 + size (timeout_SetScreenSaver x) +-              size (interval_SetScreenSaver x)-              + size (prefer_blanking_SetScreenSaver x)-              + size (allow_exposures_SetScreenSaver x)- -data GetScreenSaver = MkGetScreenSaver{}-                    deriving (Show, Typeable)- -instance Serialize GetScreenSaver where-        serialize x-          = do putWord8 108-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               putSkip (requiredPadding (size x))-        size x = 4- -data GetScreenSaverReply = MkGetScreenSaverReply{timeout_GetScreenSaverReply-                                                 :: CARD16,-                                                 interval_GetScreenSaverReply :: CARD16,-                                                 prefer_blanking_GetScreenSaverReply :: BYTE,-                                                 allow_exposures_GetScreenSaverReply :: BYTE}-                         deriving (Show, Typeable)- -instance Deserialize GetScreenSaverReply where-        deserialize-          = do skip 1-               skip 1-               skip 2-               length <- deserialize-               timeout <- deserialize-               interval <- deserialize-               prefer_blanking <- deserialize-               allow_exposures <- deserialize-               skip 18-               let _ = isCard32 length-               return-                 (MkGetScreenSaverReply timeout interval prefer_blanking-                    allow_exposures)- -data HostMode = HostModeInsert-              | HostModeDelete- -instance SimpleEnum HostMode where-        toValue HostModeInsert{} = 0-        toValue HostModeDelete{} = 1-        fromValue 0 = HostModeInsert-        fromValue 1 = HostModeDelete- -data Family = FamilyInternet-            | FamilyDECnet-            | FamilyChaos-            | FamilyServerInterpreted-            | FamilyInternet6- -instance SimpleEnum Family where-        toValue FamilyInternet{} = 0-        toValue FamilyDECnet{} = 1-        toValue FamilyChaos{} = 2-        toValue FamilyServerInterpreted{} = 5-        toValue FamilyInternet6{} = 6-        fromValue 0 = FamilyInternet-        fromValue 1 = FamilyDECnet-        fromValue 2 = FamilyChaos-        fromValue 5 = FamilyServerInterpreted-        fromValue 6 = FamilyInternet6- -data ChangeHosts = MkChangeHosts{mode_ChangeHosts :: CARD8,-                                 family_ChangeHosts :: CARD8, address_len_ChangeHosts :: CARD16,-                                 address_ChangeHosts :: [CChar]}-                 deriving (Show, Typeable)- -instance Serialize ChangeHosts where-        serialize x-          = do putWord8 109-               serialize (mode_ChangeHosts x)-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (family_ChangeHosts x)-               putSkip 1-               serialize (address_len_ChangeHosts x)-               serializeList (address_ChangeHosts x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + size (mode_ChangeHosts x) + size (family_ChangeHosts x) + 1 +-              size (address_len_ChangeHosts x)-              + sum (map size (address_ChangeHosts x))- -data HOST = MkHOST{family_HOST :: CARD8,-                   address_len_HOST :: CARD16, address_HOST :: [BYTE]}-          deriving (Show, Typeable)- -instance Serialize HOST where-        serialize x-          = do serialize (family_HOST x)-               putSkip 1-               serialize (address_len_HOST x)-               serializeList (address_HOST x)-        size x-          = size (family_HOST x) + 1 + size (address_len_HOST x) +-              sum (map size (address_HOST x))- -instance Deserialize HOST where-        deserialize-          = do family <- deserialize-               skip 1-               address_len <- deserialize-               address <- deserializeList (fromIntegral address_len)-               return (MkHOST family address_len address)- -data ListHosts = MkListHosts{}-               deriving (Show, Typeable)- -instance Serialize ListHosts where-        serialize x-          = do putWord8 110-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               putSkip (requiredPadding (size x))-        size x = 4- -data ListHostsReply = MkListHostsReply{mode_ListHostsReply :: BYTE,-                                       hosts_len_ListHostsReply :: CARD16,-                                       hosts_ListHostsReply :: [HOST]}-                    deriving (Show, Typeable)- -instance Deserialize ListHostsReply where-        deserialize-          = do skip 1-               mode <- deserialize-               skip 2-               length <- deserialize-               hosts_len <- deserialize-               skip 22-               hosts <- deserializeList (fromIntegral hosts_len)-               let _ = isCard32 length-               return (MkListHostsReply mode hosts_len hosts)- -data AccessControl = AccessControlDisable-                   | AccessControlEnable- -instance SimpleEnum AccessControl where-        toValue AccessControlDisable{} = 0-        toValue AccessControlEnable{} = 1-        fromValue 0 = AccessControlDisable-        fromValue 1 = AccessControlEnable- -data SetAccessControl = MkSetAccessControl{mode_SetAccessControl ::-                                           CARD8}-                      deriving (Show, Typeable)- -instance Serialize SetAccessControl where-        serialize x-          = do putWord8 111-               serialize (mode_SetAccessControl x)-               serialize (convertBytesToRequestSize (size x) :: INT16)-               putSkip (requiredPadding (size x))-        size x = 3 + size (mode_SetAccessControl x)- -data CloseDown = CloseDownDestroyAll-               | CloseDownRetainPermanent-               | CloseDownRetainTemporary- -instance SimpleEnum CloseDown where-        toValue CloseDownDestroyAll{} = 0-        toValue CloseDownRetainPermanent{} = 1-        toValue CloseDownRetainTemporary{} = 2-        fromValue 0 = CloseDownDestroyAll-        fromValue 1 = CloseDownRetainPermanent-        fromValue 2 = CloseDownRetainTemporary- -data SetCloseDownMode = MkSetCloseDownMode{mode_SetCloseDownMode ::-                                           CARD8}-                      deriving (Show, Typeable)- -instance Serialize SetCloseDownMode where-        serialize x-          = do putWord8 112-               serialize (mode_SetCloseDownMode x)-               serialize (convertBytesToRequestSize (size x) :: INT16)-               putSkip (requiredPadding (size x))-        size x = 3 + size (mode_SetCloseDownMode x)- -data Kill = KillAllTemporary- -instance SimpleEnum Kill where-        toValue KillAllTemporary{} = 0-        fromValue 0 = KillAllTemporary- -data KillClient = MkKillClient{resource_KillClient :: CARD32}-                deriving (Show, Typeable)- -instance Serialize KillClient where-        serialize x-          = do putWord8 113-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (resource_KillClient x)-               putSkip (requiredPadding (size x))-        size x = 3 + 1 + size (resource_KillClient x)- -data RotateProperties = MkRotateProperties{window_RotateProperties-                                           :: WINDOW,-                                           atoms_len_RotateProperties :: CARD16,-                                           delta_RotateProperties :: INT16,-                                           atoms_RotateProperties :: [ATOM]}-                      deriving (Show, Typeable)- -instance Serialize RotateProperties where-        serialize x-          = do putWord8 114-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serialize (window_RotateProperties x)-               serialize (atoms_len_RotateProperties x)-               serialize (delta_RotateProperties x)-               serializeList (atoms_RotateProperties x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + 1 + size (window_RotateProperties x) +-              size (atoms_len_RotateProperties x)-              + size (delta_RotateProperties x)-              + sum (map size (atoms_RotateProperties x))- -data ScreenSaver = ScreenSaverReset-                 | ScreenSaverActive- -instance SimpleEnum ScreenSaver where-        toValue ScreenSaverReset{} = 0-        toValue ScreenSaverActive{} = 1-        fromValue 0 = ScreenSaverReset-        fromValue 1 = ScreenSaverActive- -data ForceScreenSaver = MkForceScreenSaver{mode_ForceScreenSaver ::-                                           CARD8}-                      deriving (Show, Typeable)- -instance Serialize ForceScreenSaver where-        serialize x-          = do putWord8 115-               serialize (mode_ForceScreenSaver x)-               serialize (convertBytesToRequestSize (size x) :: INT16)-               putSkip (requiredPadding (size x))-        size x = 3 + size (mode_ForceScreenSaver x)- -data MappingStatus = MappingStatusSuccess-                   | MappingStatusBusy-                   | MappingStatusFailure- -instance SimpleEnum MappingStatus where-        toValue MappingStatusSuccess{} = 0-        toValue MappingStatusBusy{} = 1-        toValue MappingStatusFailure{} = 2-        fromValue 0 = MappingStatusSuccess-        fromValue 1 = MappingStatusBusy-        fromValue 2 = MappingStatusFailure- -data SetPointerMapping = MkSetPointerMapping{map_len_SetPointerMapping-                                             :: CARD8,-                                             map_SetPointerMapping :: [CARD8]}-                       deriving (Show, Typeable)- -instance Serialize SetPointerMapping where-        serialize x-          = do putWord8 116-               serialize (map_len_SetPointerMapping x)-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serializeList (map_SetPointerMapping x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + size (map_len_SetPointerMapping x) +-              sum (map size (map_SetPointerMapping x))- -data SetPointerMappingReply = MkSetPointerMappingReply{status_SetPointerMappingReply-                                                       :: BYTE}-                            deriving (Show, Typeable)- -instance Deserialize SetPointerMappingReply where-        deserialize-          = do skip 1-               status <- deserialize-               skip 2-               length <- deserialize-               let _ = isCard32 length-               return (MkSetPointerMappingReply status)- -data GetPointerMapping = MkGetPointerMapping{}-                       deriving (Show, Typeable)- -instance Serialize GetPointerMapping where-        serialize x-          = do putWord8 117-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               putSkip (requiredPadding (size x))-        size x = 4- -data GetPointerMappingReply = MkGetPointerMappingReply{map_len_GetPointerMappingReply-                                                       :: CARD8,-                                                       map_GetPointerMappingReply :: [CARD8]}-                            deriving (Show, Typeable)- -instance Deserialize GetPointerMappingReply where-        deserialize-          = do skip 1-               map_len <- deserialize-               skip 2-               length <- deserialize-               skip 24-               map <- deserializeList (fromIntegral map_len)-               let _ = isCard32 length-               return (MkGetPointerMappingReply map_len map)- -data MapIndex = MapIndexShift-              | MapIndexLock-              | MapIndexControl-              | MapIndex1-              | MapIndex2-              | MapIndex3-              | MapIndex4-              | MapIndex5- -instance SimpleEnum MapIndex where-        toValue MapIndexShift{} = 0-        toValue MapIndexLock{} = 1-        toValue MapIndexControl{} = 2-        toValue MapIndex1{} = 3-        toValue MapIndex2{} = 4-        toValue MapIndex3{} = 5-        toValue MapIndex4{} = 6-        toValue MapIndex5{} = 7-        fromValue 0 = MapIndexShift-        fromValue 1 = MapIndexLock-        fromValue 2 = MapIndexControl-        fromValue 3 = MapIndex1-        fromValue 4 = MapIndex2-        fromValue 5 = MapIndex3-        fromValue 6 = MapIndex4-        fromValue 7 = MapIndex5- -data SetModifierMapping = MkSetModifierMapping{keycodes_per_modifier_SetModifierMapping-                                               :: CARD8,-                                               keycodes_SetModifierMapping :: [KEYCODE]}-                        deriving (Show, Typeable)- -instance Serialize SetModifierMapping where-        serialize x-          = do putWord8 118-               serialize (keycodes_per_modifier_SetModifierMapping x)-               serialize (convertBytesToRequestSize (size x) :: INT16)-               serializeList (keycodes_SetModifierMapping x)-               putSkip (requiredPadding (size x))-        size x-          = 3 + size (keycodes_per_modifier_SetModifierMapping x) +-              sum (map size (keycodes_SetModifierMapping x))- -data SetModifierMappingReply = MkSetModifierMappingReply{status_SetModifierMappingReply-                                                         :: BYTE}-                             deriving (Show, Typeable)- -instance Deserialize SetModifierMappingReply where-        deserialize-          = do skip 1-               status <- deserialize-               skip 2-               length <- deserialize-               let _ = isCard32 length-               return (MkSetModifierMappingReply status)- -data GetModifierMapping = MkGetModifierMapping{}-                        deriving (Show, Typeable)- -instance Serialize GetModifierMapping where-        serialize x-          = do putWord8 119-               putSkip 1-               serialize (convertBytesToRequestSize (size x) :: INT16)-               putSkip (requiredPadding (size x))-        size x = 4- -data GetModifierMappingReply = MkGetModifierMappingReply{keycodes_per_modifier_GetModifierMappingReply-                                                         :: CARD8,+import Data.Int+import Foreign.C.Types+import Data.Bits+import Data.Binary.Put+import Data.Binary.Get+import Data.Typeable+import Control.Monad+import Control.Exception+import Data.List+import Graphics.XHB.Shared hiding (Event, Error)+import qualified Graphics.XHB.Shared+ +deserializeError :: Word8 -> Maybe (Get SomeError)+deserializeError 1+  = return (liftM toError (deserialize :: Get Request))+deserializeError 2+  = return (liftM toError (deserialize :: Get Value))+deserializeError 3+  = return (liftM toError (deserialize :: Get Window))+deserializeError 4+  = return (liftM toError (deserialize :: Get Pixmap))+deserializeError 5+  = return (liftM toError (deserialize :: Get Atom))+deserializeError 6+  = return (liftM toError (deserialize :: Get Cursor))+deserializeError 7+  = return (liftM toError (deserialize :: Get Font))+deserializeError 8+  = return (liftM toError (deserialize :: Get Match))+deserializeError 9+  = return (liftM toError (deserialize :: Get Drawable))+deserializeError 10+  = return (liftM toError (deserialize :: Get Access))+deserializeError 11+  = return (liftM toError (deserialize :: Get Alloc))+deserializeError 12+  = return (liftM toError (deserialize :: Get Colormap))+deserializeError 13+  = return (liftM toError (deserialize :: Get GContext))+deserializeError 14+  = return (liftM toError (deserialize :: Get IDChoice))+deserializeError 15+  = return (liftM toError (deserialize :: Get Name))+deserializeError 16+  = return (liftM toError (deserialize :: Get Length))+deserializeError 17+  = return (liftM toError (deserialize :: Get Implementation))+deserializeError _ = Nothing+ +deserializeEvent :: Word8 -> Maybe (Get SomeEvent)+deserializeEvent 2+  = return (liftM toEvent (deserialize :: Get KeyPress))+deserializeEvent 3+  = return (liftM toEvent (deserialize :: Get KeyRelease))+deserializeEvent 4+  = return (liftM toEvent (deserialize :: Get ButtonPress))+deserializeEvent 5+  = return (liftM toEvent (deserialize :: Get ButtonRelease))+deserializeEvent 6+  = return (liftM toEvent (deserialize :: Get MotionNotify))+deserializeEvent 7+  = return (liftM toEvent (deserialize :: Get EnterNotify))+deserializeEvent 8+  = return (liftM toEvent (deserialize :: Get LeaveNotify))+deserializeEvent 9+  = return (liftM toEvent (deserialize :: Get FocusIn))+deserializeEvent 10+  = return (liftM toEvent (deserialize :: Get FocusOut))+deserializeEvent 11+  = return (liftM toEvent (deserialize :: Get KeymapNotify))+deserializeEvent 12+  = return (liftM toEvent (deserialize :: Get Expose))+deserializeEvent 13+  = return (liftM toEvent (deserialize :: Get GraphicsExposure))+deserializeEvent 14+  = return (liftM toEvent (deserialize :: Get NoExposure))+deserializeEvent 15+  = return (liftM toEvent (deserialize :: Get VisibilityNotify))+deserializeEvent 16+  = return (liftM toEvent (deserialize :: Get CreateNotify))+deserializeEvent 17+  = return (liftM toEvent (deserialize :: Get DestroyNotify))+deserializeEvent 18+  = return (liftM toEvent (deserialize :: Get UnmapNotify))+deserializeEvent 19+  = return (liftM toEvent (deserialize :: Get MapNotify))+deserializeEvent 20+  = return (liftM toEvent (deserialize :: Get MapRequest))+deserializeEvent 21+  = return (liftM toEvent (deserialize :: Get ReparentNotify))+deserializeEvent 22+  = return (liftM toEvent (deserialize :: Get ConfigureNotify))+deserializeEvent 23+  = return (liftM toEvent (deserialize :: Get ConfigureRequest))+deserializeEvent 24+  = return (liftM toEvent (deserialize :: Get GravityNotify))+deserializeEvent 25+  = return (liftM toEvent (deserialize :: Get ResizeRequest))+deserializeEvent 26+  = return (liftM toEvent (deserialize :: Get CirculateNotify))+deserializeEvent 27+  = return (liftM toEvent (deserialize :: Get CirculateRequest))+deserializeEvent 28+  = return (liftM toEvent (deserialize :: Get PropertyNotify))+deserializeEvent 29+  = return (liftM toEvent (deserialize :: Get SelectionClear))+deserializeEvent 30+  = return (liftM toEvent (deserialize :: Get SelectionRequest))+deserializeEvent 31+  = return (liftM toEvent (deserialize :: Get SelectionNotify))+deserializeEvent 32+  = return (liftM toEvent (deserialize :: Get ColormapNotify))+deserializeEvent 33+  = return (liftM toEvent (deserialize :: Get ClientMessage))+deserializeEvent 34+  = return (liftM toEvent (deserialize :: Get MappingNotify))+deserializeEvent _ = Nothing+ +data CHAR2B = MkCHAR2B{byte1_CHAR2B :: Word8,+                       byte2_CHAR2B :: Word8}+            deriving (Show, Typeable)+ +instance Serialize CHAR2B where+        serialize x+          = do serialize (byte1_CHAR2B x)+               serialize (byte2_CHAR2B x)+        size x = size (byte1_CHAR2B x) + size (byte2_CHAR2B x)+ +instance Deserialize CHAR2B where+        deserialize+          = do byte1 <- deserialize+               byte2 <- deserialize+               return (MkCHAR2B byte1 byte2)+ +newtype WINDOW = MkWINDOW Xid+                 deriving (Eq, Ord, Show, Serialize, Deserialize, XidLike)+ +newtype PIXMAP = MkPIXMAP Xid+                 deriving (Eq, Ord, Show, Serialize, Deserialize, XidLike)+ +newtype CURSOR = MkCURSOR Xid+                 deriving (Eq, Ord, Show, Serialize, Deserialize, XidLike)+ +newtype FONT = MkFONT Xid+               deriving (Eq, Ord, Show, Serialize, Deserialize, XidLike)+ +newtype GCONTEXT = MkGCONTEXT Xid+                   deriving (Eq, Ord, Show, Serialize, Deserialize, XidLike)+ +newtype COLORMAP = MkCOLORMAP Xid+                   deriving (Eq, Ord, Show, Serialize, Deserialize, XidLike)+ +newtype ATOM = MkATOM Xid+               deriving (Eq, Ord, Show, Serialize, Deserialize, XidLike)+ +newtype DRAWABLE = MkDRAWABLE Xid+                   deriving (Eq, Ord, Show, Serialize, Deserialize, XidLike)+ +newtype FONTABLE = MkFONTABLE Xid+                   deriving (Eq, Ord, Show, Serialize, Deserialize, XidLike)+ +type VISUALID = Word32+ +type TIMESTAMP = Word32+ +type KEYSYM = Word32+ +type KEYCODE = Word8+ +type BUTTON = Word8+ +data POINT = MkPOINT{x_POINT :: Int16, y_POINT :: Int16}+           deriving (Show, Typeable)+ +instance Serialize POINT where+        serialize x+          = do serialize (x_POINT x)+               serialize (y_POINT x)+        size x = size (x_POINT x) + size (y_POINT x)+ +instance Deserialize POINT where+        deserialize+          = do x <- deserialize+               y <- deserialize+               return (MkPOINT x y)+ +data RECTANGLE = MkRECTANGLE{x_RECTANGLE :: Int16,+                             y_RECTANGLE :: Int16, width_RECTANGLE :: Word16,+                             height_RECTANGLE :: Word16}+               deriving (Show, Typeable)+ +instance Serialize RECTANGLE where+        serialize x+          = do serialize (x_RECTANGLE x)+               serialize (y_RECTANGLE x)+               serialize (width_RECTANGLE x)+               serialize (height_RECTANGLE x)+        size x+          = size (x_RECTANGLE x) + size (y_RECTANGLE x) ++              size (width_RECTANGLE x)+              + size (height_RECTANGLE x)+ +instance Deserialize RECTANGLE where+        deserialize+          = do x <- deserialize+               y <- deserialize+               width <- deserialize+               height <- deserialize+               return (MkRECTANGLE x y width height)+ +data ARC = MkARC{x_ARC :: Int16, y_ARC :: Int16,+                 width_ARC :: Word16, height_ARC :: Word16, angle1_ARC :: Int16,+                 angle2_ARC :: Int16}+         deriving (Show, Typeable)+ +instance Serialize ARC where+        serialize x+          = do serialize (x_ARC x)+               serialize (y_ARC x)+               serialize (width_ARC x)+               serialize (height_ARC x)+               serialize (angle1_ARC x)+               serialize (angle2_ARC x)+        size x+          = size (x_ARC x) + size (y_ARC x) + size (width_ARC x) ++              size (height_ARC x)+              + size (angle1_ARC x)+              + size (angle2_ARC x)+ +instance Deserialize ARC where+        deserialize+          = do x <- deserialize+               y <- deserialize+               width <- deserialize+               height <- deserialize+               angle1 <- deserialize+               angle2 <- deserialize+               return (MkARC x y width height angle1 angle2)+ +data FORMAT = MkFORMAT{depth_FORMAT :: Word8,+                       bits_per_pixel_FORMAT :: Word8, scanline_pad_FORMAT :: Word8}+            deriving (Show, Typeable)+ +instance Serialize FORMAT where+        serialize x+          = do serialize (depth_FORMAT x)+               serialize (bits_per_pixel_FORMAT x)+               serialize (scanline_pad_FORMAT x)+               putSkip 5+        size x+          = size (depth_FORMAT x) + size (bits_per_pixel_FORMAT x) ++              size (scanline_pad_FORMAT x)+              + 5+ +instance Deserialize FORMAT where+        deserialize+          = do depth <- deserialize+               bits_per_pixel <- deserialize+               scanline_pad <- deserialize+               skip 5+               return (MkFORMAT depth bits_per_pixel scanline_pad)+ +data VisualClass = VisualClassStaticGray+                 | VisualClassGrayScale+                 | VisualClassStaticColor+                 | VisualClassPseudoColor+                 | VisualClassTrueColor+                 | VisualClassDirectColor+ +instance SimpleEnum VisualClass where+        toValue VisualClassStaticGray{} = 0+        toValue VisualClassGrayScale{} = 1+        toValue VisualClassStaticColor{} = 2+        toValue VisualClassPseudoColor{} = 3+        toValue VisualClassTrueColor{} = 4+        toValue VisualClassDirectColor{} = 5+        fromValue 0 = VisualClassStaticGray+        fromValue 1 = VisualClassGrayScale+        fromValue 2 = VisualClassStaticColor+        fromValue 3 = VisualClassPseudoColor+        fromValue 4 = VisualClassTrueColor+        fromValue 5 = VisualClassDirectColor+ +data VISUALTYPE = MkVISUALTYPE{visual_id_VISUALTYPE :: VISUALID,+                               class_VISUALTYPE :: Word8, bits_per_rgb_value_VISUALTYPE :: Word8,+                               colormap_entries_VISUALTYPE :: Word16,+                               red_mask_VISUALTYPE :: Word32, green_mask_VISUALTYPE :: Word32,+                               blue_mask_VISUALTYPE :: Word32}+                deriving (Show, Typeable)+ +instance Serialize VISUALTYPE where+        serialize x+          = do serialize (visual_id_VISUALTYPE x)+               serialize (class_VISUALTYPE x)+               serialize (bits_per_rgb_value_VISUALTYPE x)+               serialize (colormap_entries_VISUALTYPE x)+               serialize (red_mask_VISUALTYPE x)+               serialize (green_mask_VISUALTYPE x)+               serialize (blue_mask_VISUALTYPE x)+               putSkip 4+        size x+          = size (visual_id_VISUALTYPE x) + size (class_VISUALTYPE x) ++              size (bits_per_rgb_value_VISUALTYPE x)+              + size (colormap_entries_VISUALTYPE x)+              + size (red_mask_VISUALTYPE x)+              + size (green_mask_VISUALTYPE x)+              + size (blue_mask_VISUALTYPE x)+              + 4+ +instance Deserialize VISUALTYPE where+        deserialize+          = do visual_id <- deserialize+               class_ <- deserialize+               bits_per_rgb_value <- deserialize+               colormap_entries <- deserialize+               red_mask <- deserialize+               green_mask <- deserialize+               blue_mask <- deserialize+               skip 4+               return+                 (MkVISUALTYPE visual_id class_ bits_per_rgb_value colormap_entries+                    red_mask+                    green_mask+                    blue_mask)+ +data DEPTH = MkDEPTH{depth_DEPTH :: Word8,+                     visuals_len_DEPTH :: Word16, visuals_DEPTH :: [VISUALTYPE]}+           deriving (Show, Typeable)+ +instance Serialize DEPTH where+        serialize x+          = do serialize (depth_DEPTH x)+               putSkip 1+               serialize (visuals_len_DEPTH x)+               putSkip 4+               serializeList (visuals_DEPTH x)+        size x+          = size (depth_DEPTH x) + 1 + size (visuals_len_DEPTH x) + 4 ++              sum (map size (visuals_DEPTH x))+ +instance Deserialize DEPTH where+        deserialize+          = do depth <- deserialize+               skip 1+               visuals_len <- deserialize+               skip 4+               visuals <- deserializeList (fromIntegral visuals_len)+               return (MkDEPTH depth visuals_len visuals)+ +data SCREEN = MkSCREEN{root_SCREEN :: WINDOW,+                       default_colormap_SCREEN :: COLORMAP, white_pixel_SCREEN :: Word32,+                       black_pixel_SCREEN :: Word32, current_input_masks_SCREEN :: Word32,+                       width_in_pixels_SCREEN :: Word16,+                       height_in_pixels_SCREEN :: Word16,+                       width_in_millimeters_SCREEN :: Word16,+                       height_in_millimeters_SCREEN :: Word16,+                       min_installed_maps_SCREEN :: Word16,+                       max_installed_maps_SCREEN :: Word16,+                       root_visual_SCREEN :: VISUALID, backing_stores_SCREEN :: Word8,+                       save_unders_SCREEN :: Bool, root_depth_SCREEN :: Word8,+                       allowed_depths_len_SCREEN :: Word8,+                       allowed_depths_SCREEN :: [DEPTH]}+            deriving (Show, Typeable)+ +instance Serialize SCREEN where+        serialize x+          = do serialize (root_SCREEN x)+               serialize (default_colormap_SCREEN x)+               serialize (white_pixel_SCREEN x)+               serialize (black_pixel_SCREEN x)+               serialize (current_input_masks_SCREEN x)+               serialize (width_in_pixels_SCREEN x)+               serialize (height_in_pixels_SCREEN x)+               serialize (width_in_millimeters_SCREEN x)+               serialize (height_in_millimeters_SCREEN x)+               serialize (min_installed_maps_SCREEN x)+               serialize (max_installed_maps_SCREEN x)+               serialize (root_visual_SCREEN x)+               serialize (backing_stores_SCREEN x)+               serialize (save_unders_SCREEN x)+               serialize (root_depth_SCREEN x)+               serialize (allowed_depths_len_SCREEN x)+               serializeList (allowed_depths_SCREEN x)+        size x+          = size (root_SCREEN x) + size (default_colormap_SCREEN x) ++              size (white_pixel_SCREEN x)+              + size (black_pixel_SCREEN x)+              + size (current_input_masks_SCREEN x)+              + size (width_in_pixels_SCREEN x)+              + size (height_in_pixels_SCREEN x)+              + size (width_in_millimeters_SCREEN x)+              + size (height_in_millimeters_SCREEN x)+              + size (min_installed_maps_SCREEN x)+              + size (max_installed_maps_SCREEN x)+              + size (root_visual_SCREEN x)+              + size (backing_stores_SCREEN x)+              + size (save_unders_SCREEN x)+              + size (root_depth_SCREEN x)+              + size (allowed_depths_len_SCREEN x)+              + sum (map size (allowed_depths_SCREEN x))+ +instance Deserialize SCREEN where+        deserialize+          = do root <- deserialize+               default_colormap <- deserialize+               white_pixel <- deserialize+               black_pixel <- deserialize+               current_input_masks <- deserialize+               width_in_pixels <- deserialize+               height_in_pixels <- deserialize+               width_in_millimeters <- deserialize+               height_in_millimeters <- deserialize+               min_installed_maps <- deserialize+               max_installed_maps <- deserialize+               root_visual <- deserialize+               backing_stores <- deserialize+               save_unders <- deserialize+               root_depth <- deserialize+               allowed_depths_len <- deserialize+               allowed_depths <- deserializeList (fromIntegral allowed_depths_len)+               return+                 (MkSCREEN root default_colormap white_pixel black_pixel+                    current_input_masks+                    width_in_pixels+                    height_in_pixels+                    width_in_millimeters+                    height_in_millimeters+                    min_installed_maps+                    max_installed_maps+                    root_visual+                    backing_stores+                    save_unders+                    root_depth+                    allowed_depths_len+                    allowed_depths)+ +data SetupRequest = MkSetupRequest{byte_order_SetupRequest ::+                                   Word8,+                                   protocol_major_version_SetupRequest :: Word16,+                                   protocol_minor_version_SetupRequest :: Word16,+                                   authorization_protocol_name_len_SetupRequest :: Word16,+                                   authorization_protocol_data_len_SetupRequest :: Word16,+                                   authorization_protocol_name_SetupRequest :: [CChar],+                                   authorization_protocol_data_SetupRequest :: [CChar]}+                  deriving (Show, Typeable)+ +instance Serialize SetupRequest where+        serialize x+          = do serialize (byte_order_SetupRequest x)+               putSkip 1+               serialize (protocol_major_version_SetupRequest x)+               serialize (protocol_minor_version_SetupRequest x)+               serialize (authorization_protocol_name_len_SetupRequest x)+               serialize (authorization_protocol_data_len_SetupRequest x)+               putSkip 2+               serializeList (authorization_protocol_name_SetupRequest x)+               serializeList (authorization_protocol_data_SetupRequest x)+        size x+          = size (byte_order_SetupRequest x) + 1 ++              size (protocol_major_version_SetupRequest x)+              + size (protocol_minor_version_SetupRequest x)+              + size (authorization_protocol_name_len_SetupRequest x)+              + size (authorization_protocol_data_len_SetupRequest x)+              + 2+              + sum (map size (authorization_protocol_name_SetupRequest x))+              + sum (map size (authorization_protocol_data_SetupRequest x))+ +instance Deserialize SetupRequest where+        deserialize+          = do byte_order <- deserialize+               skip 1+               protocol_major_version <- deserialize+               protocol_minor_version <- deserialize+               authorization_protocol_name_len <- deserialize+               authorization_protocol_data_len <- deserialize+               skip 2+               authorization_protocol_name <- deserializeList+                                                (fromIntegral authorization_protocol_name_len)+               authorization_protocol_data <- deserializeList+                                                (fromIntegral authorization_protocol_data_len)+               return+                 (MkSetupRequest byte_order protocol_major_version+                    protocol_minor_version+                    authorization_protocol_name_len+                    authorization_protocol_data_len+                    authorization_protocol_name+                    authorization_protocol_data)+ +data SetupFailed = MkSetupFailed{status_SetupFailed :: Word8,+                                 reason_len_SetupFailed :: Word8,+                                 protocol_major_version_SetupFailed :: Word16,+                                 protocol_minor_version_SetupFailed :: Word16,+                                 length_SetupFailed :: Word16, reason_SetupFailed :: [CChar]}+                 deriving (Show, Typeable)+ +instance Serialize SetupFailed where+        serialize x+          = do serialize (status_SetupFailed x)+               serialize (reason_len_SetupFailed x)+               serialize (protocol_major_version_SetupFailed x)+               serialize (protocol_minor_version_SetupFailed x)+               serialize (length_SetupFailed x)+               serializeList (reason_SetupFailed x)+        size x+          = size (status_SetupFailed x) + size (reason_len_SetupFailed x) ++              size (protocol_major_version_SetupFailed x)+              + size (protocol_minor_version_SetupFailed x)+              + size (length_SetupFailed x)+              + sum (map size (reason_SetupFailed x))+ +instance Deserialize SetupFailed where+        deserialize+          = do status <- deserialize+               reason_len <- deserialize+               protocol_major_version <- deserialize+               protocol_minor_version <- deserialize+               length <- deserialize+               reason <- deserializeList (fromIntegral reason_len)+               return+                 (MkSetupFailed status reason_len protocol_major_version+                    protocol_minor_version+                    length+                    reason)+ +data SetupAuthenticate = MkSetupAuthenticate{status_SetupAuthenticate+                                             :: Word8,+                                             length_SetupAuthenticate :: Word16,+                                             reason_SetupAuthenticate :: [CChar]}+                       deriving (Show, Typeable)+ +instance Serialize SetupAuthenticate where+        serialize x+          = do serialize (status_SetupAuthenticate x)+               putSkip 5+               serialize (length_SetupAuthenticate x)+               serializeList (reason_SetupAuthenticate x)+        size x+          = size (status_SetupAuthenticate x) + 5 ++              size (length_SetupAuthenticate x)+              + sum (map size (reason_SetupAuthenticate x))+ +instance Deserialize SetupAuthenticate where+        deserialize+          = do status <- deserialize+               skip 5+               length <- deserialize+               reason <- deserializeList+                           (fromIntegral (fromIntegral (length * 4)))+               return (MkSetupAuthenticate status length reason)+ +data ImageOrder = ImageOrderLSBFirst+                | ImageOrderMSBFirst+ +instance SimpleEnum ImageOrder where+        toValue ImageOrderLSBFirst{} = 0+        toValue ImageOrderMSBFirst{} = 1+        fromValue 0 = ImageOrderLSBFirst+        fromValue 1 = ImageOrderMSBFirst+ +data Setup = MkSetup{status_Setup :: Word8,+                     protocol_major_version_Setup :: Word16,+                     protocol_minor_version_Setup :: Word16, length_Setup :: Word16,+                     release_number_Setup :: Word32, resource_id_base_Setup :: Word32,+                     resource_id_mask_Setup :: Word32,+                     motion_buffer_size_Setup :: Word32, vendor_len_Setup :: Word16,+                     maximum_request_length_Setup :: Word16, roots_len_Setup :: Word8,+                     pixmap_formats_len_Setup :: Word8, image_byte_order_Setup :: Word8,+                     bitmap_format_bit_order_Setup :: Word8,+                     bitmap_format_scanline_unit_Setup :: Word8,+                     bitmap_format_scanline_pad_Setup :: Word8,+                     min_keycode_Setup :: KEYCODE, max_keycode_Setup :: KEYCODE,+                     vendor_Setup :: [CChar], pixmap_formats_Setup :: [FORMAT],+                     roots_Setup :: [SCREEN]}+           deriving (Show, Typeable)+ +instance Serialize Setup where+        serialize x+          = do serialize (status_Setup x)+               putSkip 1+               serialize (protocol_major_version_Setup x)+               serialize (protocol_minor_version_Setup x)+               serialize (length_Setup x)+               serialize (release_number_Setup x)+               serialize (resource_id_base_Setup x)+               serialize (resource_id_mask_Setup x)+               serialize (motion_buffer_size_Setup x)+               serialize (vendor_len_Setup x)+               serialize (maximum_request_length_Setup x)+               serialize (roots_len_Setup x)+               serialize (pixmap_formats_len_Setup x)+               serialize (image_byte_order_Setup x)+               serialize (bitmap_format_bit_order_Setup x)+               serialize (bitmap_format_scanline_unit_Setup x)+               serialize (bitmap_format_scanline_pad_Setup x)+               serialize (min_keycode_Setup x)+               serialize (max_keycode_Setup x)+               putSkip 4+               serializeList (vendor_Setup x)+               serializeList (pixmap_formats_Setup x)+               serializeList (roots_Setup x)+        size x+          = size (status_Setup x) + 1 + size (protocol_major_version_Setup x)+              + size (protocol_minor_version_Setup x)+              + size (length_Setup x)+              + size (release_number_Setup x)+              + size (resource_id_base_Setup x)+              + size (resource_id_mask_Setup x)+              + size (motion_buffer_size_Setup x)+              + size (vendor_len_Setup x)+              + size (maximum_request_length_Setup x)+              + size (roots_len_Setup x)+              + size (pixmap_formats_len_Setup x)+              + size (image_byte_order_Setup x)+              + size (bitmap_format_bit_order_Setup x)+              + size (bitmap_format_scanline_unit_Setup x)+              + size (bitmap_format_scanline_pad_Setup x)+              + size (min_keycode_Setup x)+              + size (max_keycode_Setup x)+              + 4+              + sum (map size (vendor_Setup x))+              + sum (map size (pixmap_formats_Setup x))+              + sum (map size (roots_Setup x))+ +instance Deserialize Setup where+        deserialize+          = do status <- deserialize+               skip 1+               protocol_major_version <- deserialize+               protocol_minor_version <- deserialize+               length <- deserialize+               release_number <- deserialize+               resource_id_base <- deserialize+               resource_id_mask <- deserialize+               motion_buffer_size <- deserialize+               vendor_len <- deserialize+               maximum_request_length <- deserialize+               roots_len <- deserialize+               pixmap_formats_len <- deserialize+               image_byte_order <- deserialize+               bitmap_format_bit_order <- deserialize+               bitmap_format_scanline_unit <- deserialize+               bitmap_format_scanline_pad <- deserialize+               min_keycode <- deserialize+               max_keycode <- deserialize+               skip 4+               vendor <- deserializeList (fromIntegral vendor_len)+               pixmap_formats <- deserializeList (fromIntegral pixmap_formats_len)+               roots <- deserializeList (fromIntegral roots_len)+               return+                 (MkSetup status protocol_major_version protocol_minor_version+                    length+                    release_number+                    resource_id_base+                    resource_id_mask+                    motion_buffer_size+                    vendor_len+                    maximum_request_length+                    roots_len+                    pixmap_formats_len+                    image_byte_order+                    bitmap_format_bit_order+                    bitmap_format_scanline_unit+                    bitmap_format_scanline_pad+                    min_keycode+                    max_keycode+                    vendor+                    pixmap_formats+                    roots)+ +data ModMask = ModMaskShift+             | ModMaskLock+             | ModMaskControl+             | ModMask1+             | ModMask2+             | ModMask3+             | ModMask4+             | ModMask5+ +instance BitEnum ModMask where+        toBit ModMaskShift{} = 0+        toBit ModMaskLock{} = 1+        toBit ModMaskControl{} = 2+        toBit ModMask1{} = 3+        toBit ModMask2{} = 4+        toBit ModMask3{} = 5+        toBit ModMask4{} = 6+        toBit ModMask5{} = 7+        fromBit 0 = ModMaskShift+        fromBit 1 = ModMaskLock+        fromBit 2 = ModMaskControl+        fromBit 3 = ModMask1+        fromBit 4 = ModMask2+        fromBit 5 = ModMask3+        fromBit 6 = ModMask4+        fromBit 7 = ModMask5+ +data KeyPress = MkKeyPress{detail_KeyPress :: KEYCODE,+                           time_KeyPress :: TIMESTAMP, root_KeyPress :: WINDOW,+                           event_KeyPress :: WINDOW, child_KeyPress :: WINDOW,+                           root_x_KeyPress :: Int16, root_y_KeyPress :: Int16,+                           event_x_KeyPress :: Int16, event_y_KeyPress :: Int16,+                           state_KeyPress :: Word16, same_screen_KeyPress :: Bool}+              deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event KeyPress+ +instance Deserialize KeyPress where+        deserialize+          = do skip 1+               detail <- deserialize+               skip 2+               time <- deserialize+               root <- deserialize+               event <- deserialize+               child <- deserialize+               root_x <- deserialize+               root_y <- deserialize+               event_x <- deserialize+               event_y <- deserialize+               state <- deserialize+               same_screen <- deserialize+               skip 1+               return+                 (MkKeyPress detail time root event child root_x root_y event_x+                    event_y+                    state+                    same_screen)+ +data KeyRelease = MkKeyRelease{detail_KeyRelease :: KEYCODE,+                               time_KeyRelease :: TIMESTAMP, root_KeyRelease :: WINDOW,+                               event_KeyRelease :: WINDOW, child_KeyRelease :: WINDOW,+                               root_x_KeyRelease :: Int16, root_y_KeyRelease :: Int16,+                               event_x_KeyRelease :: Int16, event_y_KeyRelease :: Int16,+                               state_KeyRelease :: Word16, same_screen_KeyRelease :: Bool}+                deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event KeyRelease+ +instance Deserialize KeyRelease where+        deserialize+          = do skip 1+               detail <- deserialize+               skip 2+               time <- deserialize+               root <- deserialize+               event <- deserialize+               child <- deserialize+               root_x <- deserialize+               root_y <- deserialize+               event_x <- deserialize+               event_y <- deserialize+               state <- deserialize+               same_screen <- deserialize+               skip 1+               return+                 (MkKeyRelease detail time root event child root_x root_y event_x+                    event_y+                    state+                    same_screen)+ +data ButtonMask = ButtonMask1+                | ButtonMask2+                | ButtonMask3+                | ButtonMask4+                | ButtonMask5+                | ButtonMaskAny+ +instance BitEnum ButtonMask where+        toBit ButtonMask1{} = 8+        toBit ButtonMask2{} = 9+        toBit ButtonMask3{} = 10+        toBit ButtonMask4{} = 11+        toBit ButtonMask5{} = 12+        toBit ButtonMaskAny{} = 15+        fromBit 8 = ButtonMask1+        fromBit 9 = ButtonMask2+        fromBit 10 = ButtonMask3+        fromBit 11 = ButtonMask4+        fromBit 12 = ButtonMask5+        fromBit 15 = ButtonMaskAny+ +data ButtonPress = MkButtonPress{detail_ButtonPress :: BUTTON,+                                 time_ButtonPress :: TIMESTAMP, root_ButtonPress :: WINDOW,+                                 event_ButtonPress :: WINDOW, child_ButtonPress :: WINDOW,+                                 root_x_ButtonPress :: Int16, root_y_ButtonPress :: Int16,+                                 event_x_ButtonPress :: Int16, event_y_ButtonPress :: Int16,+                                 state_ButtonPress :: Word16, same_screen_ButtonPress :: Bool}+                 deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event ButtonPress+ +instance Deserialize ButtonPress where+        deserialize+          = do skip 1+               detail <- deserialize+               skip 2+               time <- deserialize+               root <- deserialize+               event <- deserialize+               child <- deserialize+               root_x <- deserialize+               root_y <- deserialize+               event_x <- deserialize+               event_y <- deserialize+               state <- deserialize+               same_screen <- deserialize+               skip 1+               return+                 (MkButtonPress detail time root event child root_x root_y event_x+                    event_y+                    state+                    same_screen)+ +data ButtonRelease = MkButtonRelease{detail_ButtonRelease ::+                                     BUTTON,+                                     time_ButtonRelease :: TIMESTAMP, root_ButtonRelease :: WINDOW,+                                     event_ButtonRelease :: WINDOW, child_ButtonRelease :: WINDOW,+                                     root_x_ButtonRelease :: Int16, root_y_ButtonRelease :: Int16,+                                     event_x_ButtonRelease :: Int16, event_y_ButtonRelease :: Int16,+                                     state_ButtonRelease :: Word16,+                                     same_screen_ButtonRelease :: Bool}+                   deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event ButtonRelease+ +instance Deserialize ButtonRelease where+        deserialize+          = do skip 1+               detail <- deserialize+               skip 2+               time <- deserialize+               root <- deserialize+               event <- deserialize+               child <- deserialize+               root_x <- deserialize+               root_y <- deserialize+               event_x <- deserialize+               event_y <- deserialize+               state <- deserialize+               same_screen <- deserialize+               skip 1+               return+                 (MkButtonRelease detail time root event child root_x root_y event_x+                    event_y+                    state+                    same_screen)+ +data Motion = MotionNormal+            | MotionHint+ +instance SimpleEnum Motion where+        toValue MotionNormal{} = 0+        toValue MotionHint{} = 1+        fromValue 0 = MotionNormal+        fromValue 1 = MotionHint+ +data MotionNotify = MkMotionNotify{detail_MotionNotify :: Word8,+                                   time_MotionNotify :: TIMESTAMP, root_MotionNotify :: WINDOW,+                                   event_MotionNotify :: WINDOW, child_MotionNotify :: WINDOW,+                                   root_x_MotionNotify :: Int16, root_y_MotionNotify :: Int16,+                                   event_x_MotionNotify :: Int16, event_y_MotionNotify :: Int16,+                                   state_MotionNotify :: Word16, same_screen_MotionNotify :: Bool}+                  deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event MotionNotify+ +instance Deserialize MotionNotify where+        deserialize+          = do skip 1+               detail <- deserialize+               skip 2+               time <- deserialize+               root <- deserialize+               event <- deserialize+               child <- deserialize+               root_x <- deserialize+               root_y <- deserialize+               event_x <- deserialize+               event_y <- deserialize+               state <- deserialize+               same_screen <- deserialize+               skip 1+               return+                 (MkMotionNotify detail time root event child root_x root_y event_x+                    event_y+                    state+                    same_screen)+ +data NotifyDetail = NotifyDetailAncestor+                  | NotifyDetailVirtual+                  | NotifyDetailInferior+                  | NotifyDetailNonlinear+                  | NotifyDetailNonlinearVirtual+                  | NotifyDetailPointer+                  | NotifyDetailPointerRoot+                  | NotifyDetailNone+ +instance SimpleEnum NotifyDetail where+        toValue NotifyDetailAncestor{} = 0+        toValue NotifyDetailVirtual{} = 1+        toValue NotifyDetailInferior{} = 2+        toValue NotifyDetailNonlinear{} = 3+        toValue NotifyDetailNonlinearVirtual{} = 4+        toValue NotifyDetailPointer{} = 5+        toValue NotifyDetailPointerRoot{} = 6+        toValue NotifyDetailNone{} = 7+        fromValue 0 = NotifyDetailAncestor+        fromValue 1 = NotifyDetailVirtual+        fromValue 2 = NotifyDetailInferior+        fromValue 3 = NotifyDetailNonlinear+        fromValue 4 = NotifyDetailNonlinearVirtual+        fromValue 5 = NotifyDetailPointer+        fromValue 6 = NotifyDetailPointerRoot+        fromValue 7 = NotifyDetailNone+ +data NotifyMode = NotifyModeNormal+                | NotifyModeGrab+                | NotifyModeUngrab+                | NotifyModeWhileGrabbed+ +instance SimpleEnum NotifyMode where+        toValue NotifyModeNormal{} = 0+        toValue NotifyModeGrab{} = 1+        toValue NotifyModeUngrab{} = 2+        toValue NotifyModeWhileGrabbed{} = 3+        fromValue 0 = NotifyModeNormal+        fromValue 1 = NotifyModeGrab+        fromValue 2 = NotifyModeUngrab+        fromValue 3 = NotifyModeWhileGrabbed+ +data EnterNotify = MkEnterNotify{detail_EnterNotify :: Word8,+                                 time_EnterNotify :: TIMESTAMP, root_EnterNotify :: WINDOW,+                                 event_EnterNotify :: WINDOW, child_EnterNotify :: WINDOW,+                                 root_x_EnterNotify :: Int16, root_y_EnterNotify :: Int16,+                                 event_x_EnterNotify :: Int16, event_y_EnterNotify :: Int16,+                                 state_EnterNotify :: Word16, mode_EnterNotify :: Word8,+                                 same_screen_focus_EnterNotify :: Word8}+                 deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event EnterNotify+ +instance Deserialize EnterNotify where+        deserialize+          = do skip 1+               detail <- deserialize+               skip 2+               time <- deserialize+               root <- deserialize+               event <- deserialize+               child <- deserialize+               root_x <- deserialize+               root_y <- deserialize+               event_x <- deserialize+               event_y <- deserialize+               state <- deserialize+               mode <- deserialize+               same_screen_focus <- deserialize+               return+                 (MkEnterNotify detail time root event child root_x root_y event_x+                    event_y+                    state+                    mode+                    same_screen_focus)+ +data LeaveNotify = MkLeaveNotify{detail_LeaveNotify :: Word8,+                                 time_LeaveNotify :: TIMESTAMP, root_LeaveNotify :: WINDOW,+                                 event_LeaveNotify :: WINDOW, child_LeaveNotify :: WINDOW,+                                 root_x_LeaveNotify :: Int16, root_y_LeaveNotify :: Int16,+                                 event_x_LeaveNotify :: Int16, event_y_LeaveNotify :: Int16,+                                 state_LeaveNotify :: Word16, mode_LeaveNotify :: Word8,+                                 same_screen_focus_LeaveNotify :: Word8}+                 deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event LeaveNotify+ +instance Deserialize LeaveNotify where+        deserialize+          = do skip 1+               detail <- deserialize+               skip 2+               time <- deserialize+               root <- deserialize+               event <- deserialize+               child <- deserialize+               root_x <- deserialize+               root_y <- deserialize+               event_x <- deserialize+               event_y <- deserialize+               state <- deserialize+               mode <- deserialize+               same_screen_focus <- deserialize+               return+                 (MkLeaveNotify detail time root event child root_x root_y event_x+                    event_y+                    state+                    mode+                    same_screen_focus)+ +data FocusIn = MkFocusIn{detail_FocusIn :: Word8,+                         event_FocusIn :: WINDOW, mode_FocusIn :: Word8}+             deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event FocusIn+ +instance Deserialize FocusIn where+        deserialize+          = do skip 1+               detail <- deserialize+               skip 2+               event <- deserialize+               mode <- deserialize+               skip 3+               return (MkFocusIn detail event mode)+ +data FocusOut = MkFocusOut{detail_FocusOut :: Word8,+                           event_FocusOut :: WINDOW, mode_FocusOut :: Word8}+              deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event FocusOut+ +instance Deserialize FocusOut where+        deserialize+          = do skip 1+               detail <- deserialize+               skip 2+               event <- deserialize+               mode <- deserialize+               skip 3+               return (MkFocusOut detail event mode)+ +data KeymapNotify = MkKeymapNotify{keys_KeymapNotify :: [Word8]}+                  deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event KeymapNotify+ +instance Deserialize KeymapNotify where+        deserialize+          = do skip 1+               keys <- deserializeList (fromIntegral 31)+               return (MkKeymapNotify keys)+ +data Expose = MkExpose{window_Expose :: WINDOW, x_Expose :: Word16,+                       y_Expose :: Word16, width_Expose :: Word16,+                       height_Expose :: Word16, count_Expose :: Word16}+            deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event Expose+ +instance Deserialize Expose where+        deserialize+          = do skip 1+               skip 1+               skip 2+               window <- deserialize+               x <- deserialize+               y <- deserialize+               width <- deserialize+               height <- deserialize+               count <- deserialize+               skip 2+               return (MkExpose window x y width height count)+ +data GraphicsExposure = MkGraphicsExposure{drawable_GraphicsExposure+                                           :: DRAWABLE,+                                           x_GraphicsExposure :: Word16,+                                           y_GraphicsExposure :: Word16,+                                           width_GraphicsExposure :: Word16,+                                           height_GraphicsExposure :: Word16,+                                           minor_opcode_GraphicsExposure :: Word16,+                                           count_GraphicsExposure :: Word16,+                                           major_opcode_GraphicsExposure :: Word8}+                      deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event GraphicsExposure+ +instance Deserialize GraphicsExposure where+        deserialize+          = do skip 1+               skip 1+               skip 2+               drawable <- deserialize+               x <- deserialize+               y <- deserialize+               width <- deserialize+               height <- deserialize+               minor_opcode <- deserialize+               count <- deserialize+               major_opcode <- deserialize+               skip 3+               return+                 (MkGraphicsExposure drawable x y width height minor_opcode count+                    major_opcode)+ +data NoExposure = MkNoExposure{drawable_NoExposure :: DRAWABLE,+                               minor_opcode_NoExposure :: Word16,+                               major_opcode_NoExposure :: Word8}+                deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event NoExposure+ +instance Deserialize NoExposure where+        deserialize+          = do skip 1+               skip 1+               skip 2+               drawable <- deserialize+               minor_opcode <- deserialize+               major_opcode <- deserialize+               skip 1+               return (MkNoExposure drawable minor_opcode major_opcode)+ +data Visibility = VisibilityUnobscured+                | VisibilityPartiallyObscured+                | VisibilityFullyObscured+ +instance SimpleEnum Visibility where+        toValue VisibilityUnobscured{} = 0+        toValue VisibilityPartiallyObscured{} = 1+        toValue VisibilityFullyObscured{} = 2+        fromValue 0 = VisibilityUnobscured+        fromValue 1 = VisibilityPartiallyObscured+        fromValue 2 = VisibilityFullyObscured+ +data VisibilityNotify = MkVisibilityNotify{window_VisibilityNotify+                                           :: WINDOW,+                                           state_VisibilityNotify :: Word8}+                      deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event VisibilityNotify+ +instance Deserialize VisibilityNotify where+        deserialize+          = do skip 1+               skip 1+               skip 2+               window <- deserialize+               state <- deserialize+               skip 3+               return (MkVisibilityNotify window state)+ +data CreateNotify = MkCreateNotify{parent_CreateNotify :: WINDOW,+                                   window_CreateNotify :: WINDOW, x_CreateNotify :: Int16,+                                   y_CreateNotify :: Int16, width_CreateNotify :: Word16,+                                   height_CreateNotify :: Word16,+                                   border_width_CreateNotify :: Word16,+                                   override_redirect_CreateNotify :: Bool}+                  deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event CreateNotify+ +instance Deserialize CreateNotify where+        deserialize+          = do skip 1+               skip 1+               skip 2+               parent <- deserialize+               window <- deserialize+               x <- deserialize+               y <- deserialize+               width <- deserialize+               height <- deserialize+               border_width <- deserialize+               override_redirect <- deserialize+               skip 1+               return+                 (MkCreateNotify parent window x y width height border_width+                    override_redirect)+ +data DestroyNotify = MkDestroyNotify{event_DestroyNotify :: WINDOW,+                                     window_DestroyNotify :: WINDOW}+                   deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event DestroyNotify+ +instance Deserialize DestroyNotify where+        deserialize+          = do skip 1+               skip 1+               skip 2+               event <- deserialize+               window <- deserialize+               return (MkDestroyNotify event window)+ +data UnmapNotify = MkUnmapNotify{event_UnmapNotify :: WINDOW,+                                 window_UnmapNotify :: WINDOW, from_configure_UnmapNotify :: Bool}+                 deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event UnmapNotify+ +instance Deserialize UnmapNotify where+        deserialize+          = do skip 1+               skip 1+               skip 2+               event <- deserialize+               window <- deserialize+               from_configure <- deserialize+               skip 3+               return (MkUnmapNotify event window from_configure)+ +data MapNotify = MkMapNotify{event_MapNotify :: WINDOW,+                             window_MapNotify :: WINDOW, override_redirect_MapNotify :: Bool}+               deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event MapNotify+ +instance Deserialize MapNotify where+        deserialize+          = do skip 1+               skip 1+               skip 2+               event <- deserialize+               window <- deserialize+               override_redirect <- deserialize+               skip 3+               return (MkMapNotify event window override_redirect)+ +data MapRequest = MkMapRequest{parent_MapRequest :: WINDOW,+                               window_MapRequest :: WINDOW}+                deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event MapRequest+ +instance Deserialize MapRequest where+        deserialize+          = do skip 1+               skip 1+               skip 2+               parent <- deserialize+               window <- deserialize+               return (MkMapRequest parent window)+ +data ReparentNotify = MkReparentNotify{event_ReparentNotify ::+                                       WINDOW,+                                       window_ReparentNotify :: WINDOW,+                                       parent_ReparentNotify :: WINDOW, x_ReparentNotify :: Int16,+                                       y_ReparentNotify :: Int16,+                                       override_redirect_ReparentNotify :: Bool}+                    deriving (Show, Typeable)++ +data ClientMessageData = ClientData8  [Word8]  -- ^length 20+                       | ClientData16 [Word16] -- ^length 10+                       | ClientData32 [Word32] -- ^length 5+                   deriving (Show, Typeable)++ +data ClientMessageDataType = CDType8+                           | CDType16+                           | CDType32+ +clientMessageDataType :: ClientMessageData -> ClientMessageDataType+clientMessageDataType ClientData8{}  = CDType8+clientMessageDataType ClientData16{} = CDType16+clientMessageDataType ClientData32{} = CDType32+ +instance Serialize ClientMessageData where+    serialize (ClientData8 xs) = assert (length xs == 20) $+                                    serializeList xs+    serialize (ClientData16 xs) = assert (length xs == 10) $+                                     serializeList xs+    serialize (ClientData32 xs) = assert (length xs == 5) $+                                     serializeList xs+    size cd = assert+         (case cd of+            ClientData8  xs -> length xs == 20+            ClientData16 xs -> length xs == 10+            ClientData32 xs -> length xs == 5)+         20++deserializeClientData :: ClientMessageDataType -> Get ClientMessageData+deserializeClientData CDType8+    = ClientData8 `liftM` deserializeList 20+deserializeClientData CDType16+    = ClientData16 `liftM` deserializeList 10+deserializeClientData CDType32+    = ClientData32 `liftM` deserializeList 5+ +clientDataFormatToType :: Word8 -> ClientMessageDataType+clientDataFormatToType 8 = CDType8+clientDataFormatToType 16 = CDType16+clientDataFormatToType 32 = CDType32+clientDataFormatToType _ = CDType8 -- should we throw an error here?++ +instance Graphics.XHB.Shared.Event ReparentNotify+ +instance Deserialize ReparentNotify where+        deserialize+          = do skip 1+               skip 1+               skip 2+               event <- deserialize+               window <- deserialize+               parent <- deserialize+               x <- deserialize+               y <- deserialize+               override_redirect <- deserialize+               skip 3+               return (MkReparentNotify event window parent x y override_redirect)+ +data ConfigureNotify = MkConfigureNotify{event_ConfigureNotify ::+                                         WINDOW,+                                         window_ConfigureNotify :: WINDOW,+                                         above_sibling_ConfigureNotify :: WINDOW,+                                         x_ConfigureNotify :: Int16, y_ConfigureNotify :: Int16,+                                         width_ConfigureNotify :: Word16,+                                         height_ConfigureNotify :: Word16,+                                         border_width_ConfigureNotify :: Word16,+                                         override_redirect_ConfigureNotify :: Bool}+                     deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event ConfigureNotify+ +instance Deserialize ConfigureNotify where+        deserialize+          = do skip 1+               skip 1+               skip 2+               event <- deserialize+               window <- deserialize+               above_sibling <- deserialize+               x <- deserialize+               y <- deserialize+               width <- deserialize+               height <- deserialize+               border_width <- deserialize+               override_redirect <- deserialize+               skip 1+               return+                 (MkConfigureNotify event window above_sibling x y width height+                    border_width+                    override_redirect)+ +data ConfigureRequest = MkConfigureRequest{stack_mode_ConfigureRequest+                                           :: Word8,+                                           parent_ConfigureRequest :: WINDOW,+                                           window_ConfigureRequest :: WINDOW,+                                           sibling_ConfigureRequest :: WINDOW,+                                           x_ConfigureRequest :: Int16, y_ConfigureRequest :: Int16,+                                           width_ConfigureRequest :: Word16,+                                           height_ConfigureRequest :: Word16,+                                           border_width_ConfigureRequest :: Word16,+                                           value_mask_ConfigureRequest :: Word16}+                      deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event ConfigureRequest+ +instance Deserialize ConfigureRequest where+        deserialize+          = do skip 1+               stack_mode <- deserialize+               skip 2+               parent <- deserialize+               window <- deserialize+               sibling <- deserialize+               x <- deserialize+               y <- deserialize+               width <- deserialize+               height <- deserialize+               border_width <- deserialize+               value_mask <- deserialize+               return+                 (MkConfigureRequest stack_mode parent window sibling x y width+                    height+                    border_width+                    value_mask)+ +data GravityNotify = MkGravityNotify{event_GravityNotify :: WINDOW,+                                     window_GravityNotify :: WINDOW, x_GravityNotify :: Int16,+                                     y_GravityNotify :: Int16}+                   deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event GravityNotify+ +instance Deserialize GravityNotify where+        deserialize+          = do skip 1+               skip 1+               skip 2+               event <- deserialize+               window <- deserialize+               x <- deserialize+               y <- deserialize+               return (MkGravityNotify event window x y)+ +data ResizeRequest = MkResizeRequest{window_ResizeRequest ::+                                     WINDOW,+                                     width_ResizeRequest :: Word16, height_ResizeRequest :: Word16}+                   deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event ResizeRequest+ +instance Deserialize ResizeRequest where+        deserialize+          = do skip 1+               skip 1+               skip 2+               window <- deserialize+               width <- deserialize+               height <- deserialize+               return (MkResizeRequest window width height)+ +data Place = PlaceOnTop+           | PlaceOnBottom+ +instance SimpleEnum Place where+        toValue PlaceOnTop{} = 0+        toValue PlaceOnBottom{} = 1+        fromValue 0 = PlaceOnTop+        fromValue 1 = PlaceOnBottom+ +data CirculateNotify = MkCirculateNotify{event_CirculateNotify ::+                                         WINDOW,+                                         window_CirculateNotify :: WINDOW,+                                         place_CirculateNotify :: Word8}+                     deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event CirculateNotify+ +instance Deserialize CirculateNotify where+        deserialize+          = do skip 1+               skip 1+               skip 2+               event <- deserialize+               window <- deserialize+               skip 4+               place <- deserialize+               skip 3+               return (MkCirculateNotify event window place)+ +data CirculateRequest = MkCirculateRequest{event_CirculateRequest+                                           :: WINDOW,+                                           window_CirculateRequest :: WINDOW,+                                           place_CirculateRequest :: Word8}+                      deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event CirculateRequest+ +instance Deserialize CirculateRequest where+        deserialize+          = do skip 1+               skip 1+               skip 2+               event <- deserialize+               window <- deserialize+               skip 4+               place <- deserialize+               skip 3+               return (MkCirculateRequest event window place)+ +data Property = PropertyNewValue+              | PropertyDelete+ +instance SimpleEnum Property where+        toValue PropertyNewValue{} = 0+        toValue PropertyDelete{} = 1+        fromValue 0 = PropertyNewValue+        fromValue 1 = PropertyDelete+ +data PropertyNotify = MkPropertyNotify{window_PropertyNotify ::+                                       WINDOW,+                                       atom_PropertyNotify :: ATOM,+                                       time_PropertyNotify :: TIMESTAMP,+                                       state_PropertyNotify :: Word8}+                    deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event PropertyNotify+ +instance Deserialize PropertyNotify where+        deserialize+          = do skip 1+               skip 1+               skip 2+               window <- deserialize+               atom <- deserialize+               time <- deserialize+               state <- deserialize+               skip 3+               return (MkPropertyNotify window atom time state)+ +data SelectionClear = MkSelectionClear{time_SelectionClear ::+                                       TIMESTAMP,+                                       owner_SelectionClear :: WINDOW,+                                       selection_SelectionClear :: ATOM}+                    deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event SelectionClear+ +instance Deserialize SelectionClear where+        deserialize+          = do skip 1+               skip 1+               skip 2+               time <- deserialize+               owner <- deserialize+               selection <- deserialize+               return (MkSelectionClear time owner selection)+ +data SelectionRequest = MkSelectionRequest{time_SelectionRequest ::+                                           TIMESTAMP,+                                           owner_SelectionRequest :: WINDOW,+                                           requestor_SelectionRequest :: WINDOW,+                                           selection_SelectionRequest :: ATOM,+                                           target_SelectionRequest :: ATOM,+                                           property_SelectionRequest :: ATOM}+                      deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event SelectionRequest+ +instance Deserialize SelectionRequest where+        deserialize+          = do skip 1+               skip 1+               skip 2+               time <- deserialize+               owner <- deserialize+               requestor <- deserialize+               selection <- deserialize+               target <- deserialize+               property <- deserialize+               return+                 (MkSelectionRequest time owner requestor selection target property)+ +data SelectionNotify = MkSelectionNotify{time_SelectionNotify ::+                                         TIMESTAMP,+                                         requestor_SelectionNotify :: WINDOW,+                                         selection_SelectionNotify :: ATOM,+                                         target_SelectionNotify :: ATOM,+                                         property_SelectionNotify :: ATOM}+                     deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event SelectionNotify+ +instance Deserialize SelectionNotify where+        deserialize+          = do skip 1+               skip 1+               skip 2+               time <- deserialize+               requestor <- deserialize+               selection <- deserialize+               target <- deserialize+               property <- deserialize+               return (MkSelectionNotify time requestor selection target property)+ +data ColormapState = ColormapStateUninstalled+                   | ColormapStateInstalled+ +instance SimpleEnum ColormapState where+        toValue ColormapStateUninstalled{} = 0+        toValue ColormapStateInstalled{} = 1+        fromValue 0 = ColormapStateUninstalled+        fromValue 1 = ColormapStateInstalled+ +data ColormapNotify = MkColormapNotify{window_ColormapNotify ::+                                       WINDOW,+                                       colormap_ColormapNotify :: COLORMAP,+                                       new_ColormapNotify :: Bool, state_ColormapNotify :: Word8}+                    deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event ColormapNotify+ +instance Deserialize ColormapNotify where+        deserialize+          = do skip 1+               skip 1+               skip 2+               window <- deserialize+               colormap <- deserialize+               new <- deserialize+               state <- deserialize+               skip 2+               return (MkColormapNotify window colormap new state)+ +data ClientMessage = MkClientMessage{format_ClientMessage :: Word8,+                                     window_ClientMessage :: WINDOW, type_ClientMessage :: ATOM,+                                     data_ClientMessage :: ClientMessageData}+                   deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event ClientMessage+ +instance Deserialize ClientMessage where+        deserialize+          = do skip 1+               format <- deserialize+               skip 2+               window <- deserialize+               type_ <- deserialize+               data_ <- deserializeClientData (clientDataFormatToType format)+               return (MkClientMessage format window type_ data_)+ +data Mapping = MappingModifier+             | MappingKeyboard+             | MappingPointer+ +instance SimpleEnum Mapping where+        toValue MappingModifier{} = 0+        toValue MappingKeyboard{} = 1+        toValue MappingPointer{} = 2+        fromValue 0 = MappingModifier+        fromValue 1 = MappingKeyboard+        fromValue 2 = MappingPointer+ +data MappingNotify = MkMappingNotify{request_MappingNotify ::+                                     Word8,+                                     first_keycode_MappingNotify :: KEYCODE,+                                     count_MappingNotify :: Word8}+                   deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Event MappingNotify+ +instance Deserialize MappingNotify where+        deserialize+          = do skip 1+               skip 1+               skip 2+               request <- deserialize+               first_keycode <- deserialize+               count <- deserialize+               skip 1+               return (MkMappingNotify request first_keycode count)+ +data Request = MkRequest{bad_value_Request :: Word32,+                         minor_opcode_Request :: Word16, major_opcode_Request :: Word8}+             deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Error Request+ +instance Deserialize Request where+        deserialize+          = do skip 4+               bad_value <- deserialize+               minor_opcode <- deserialize+               major_opcode <- deserialize+               skip 1+               return (MkRequest bad_value minor_opcode major_opcode)+ +data Value = MkValue{bad_value_Value :: Word32,+                     minor_opcode_Value :: Word16, major_opcode_Value :: Word8}+           deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Error Value+ +instance Deserialize Value where+        deserialize+          = do skip 4+               bad_value <- deserialize+               minor_opcode <- deserialize+               major_opcode <- deserialize+               skip 1+               return (MkValue bad_value minor_opcode major_opcode)+ +data Window = MkWindow{bad_value_Window :: Word32,+                       minor_opcode_Window :: Word16, major_opcode_Window :: Word8}+            deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Error Window+ +instance Deserialize Window where+        deserialize+          = do skip 4+               bad_value <- deserialize+               minor_opcode <- deserialize+               major_opcode <- deserialize+               skip 1+               return (MkWindow bad_value minor_opcode major_opcode)+ +data Pixmap = MkPixmap{bad_value_Pixmap :: Word32,+                       minor_opcode_Pixmap :: Word16, major_opcode_Pixmap :: Word8}+            deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Error Pixmap+ +instance Deserialize Pixmap where+        deserialize+          = do skip 4+               bad_value <- deserialize+               minor_opcode <- deserialize+               major_opcode <- deserialize+               skip 1+               return (MkPixmap bad_value minor_opcode major_opcode)+ +data Atom = MkAtom{bad_value_Atom :: Word32,+                   minor_opcode_Atom :: Word16, major_opcode_Atom :: Word8}+          deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Error Atom+ +instance Deserialize Atom where+        deserialize+          = do skip 4+               bad_value <- deserialize+               minor_opcode <- deserialize+               major_opcode <- deserialize+               skip 1+               return (MkAtom bad_value minor_opcode major_opcode)+ +data Cursor = MkCursor{bad_value_Cursor :: Word32,+                       minor_opcode_Cursor :: Word16, major_opcode_Cursor :: Word8}+            deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Error Cursor+ +instance Deserialize Cursor where+        deserialize+          = do skip 4+               bad_value <- deserialize+               minor_opcode <- deserialize+               major_opcode <- deserialize+               skip 1+               return (MkCursor bad_value minor_opcode major_opcode)+ +data Font = MkFont{bad_value_Font :: Word32,+                   minor_opcode_Font :: Word16, major_opcode_Font :: Word8}+          deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Error Font+ +instance Deserialize Font where+        deserialize+          = do skip 4+               bad_value <- deserialize+               minor_opcode <- deserialize+               major_opcode <- deserialize+               skip 1+               return (MkFont bad_value minor_opcode major_opcode)+ +data Match = MkMatch{bad_value_Match :: Word32,+                     minor_opcode_Match :: Word16, major_opcode_Match :: Word8}+           deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Error Match+ +instance Deserialize Match where+        deserialize+          = do skip 4+               bad_value <- deserialize+               minor_opcode <- deserialize+               major_opcode <- deserialize+               skip 1+               return (MkMatch bad_value minor_opcode major_opcode)+ +data Drawable = MkDrawable{bad_value_Drawable :: Word32,+                           minor_opcode_Drawable :: Word16, major_opcode_Drawable :: Word8}+              deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Error Drawable+ +instance Deserialize Drawable where+        deserialize+          = do skip 4+               bad_value <- deserialize+               minor_opcode <- deserialize+               major_opcode <- deserialize+               skip 1+               return (MkDrawable bad_value minor_opcode major_opcode)+ +data Access = MkAccess{bad_value_Access :: Word32,+                       minor_opcode_Access :: Word16, major_opcode_Access :: Word8}+            deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Error Access+ +instance Deserialize Access where+        deserialize+          = do skip 4+               bad_value <- deserialize+               minor_opcode <- deserialize+               major_opcode <- deserialize+               skip 1+               return (MkAccess bad_value minor_opcode major_opcode)+ +data Alloc = MkAlloc{bad_value_Alloc :: Word32,+                     minor_opcode_Alloc :: Word16, major_opcode_Alloc :: Word8}+           deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Error Alloc+ +instance Deserialize Alloc where+        deserialize+          = do skip 4+               bad_value <- deserialize+               minor_opcode <- deserialize+               major_opcode <- deserialize+               skip 1+               return (MkAlloc bad_value minor_opcode major_opcode)+ +data Colormap = MkColormap{bad_value_Colormap :: Word32,+                           minor_opcode_Colormap :: Word16, major_opcode_Colormap :: Word8}+              deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Error Colormap+ +instance Deserialize Colormap where+        deserialize+          = do skip 4+               bad_value <- deserialize+               minor_opcode <- deserialize+               major_opcode <- deserialize+               skip 1+               return (MkColormap bad_value minor_opcode major_opcode)+ +data GContext = MkGContext{bad_value_GContext :: Word32,+                           minor_opcode_GContext :: Word16, major_opcode_GContext :: Word8}+              deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Error GContext+ +instance Deserialize GContext where+        deserialize+          = do skip 4+               bad_value <- deserialize+               minor_opcode <- deserialize+               major_opcode <- deserialize+               skip 1+               return (MkGContext bad_value minor_opcode major_opcode)+ +data IDChoice = MkIDChoice{bad_value_IDChoice :: Word32,+                           minor_opcode_IDChoice :: Word16, major_opcode_IDChoice :: Word8}+              deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Error IDChoice+ +instance Deserialize IDChoice where+        deserialize+          = do skip 4+               bad_value <- deserialize+               minor_opcode <- deserialize+               major_opcode <- deserialize+               skip 1+               return (MkIDChoice bad_value minor_opcode major_opcode)+ +data Name = MkName{bad_value_Name :: Word32,+                   minor_opcode_Name :: Word16, major_opcode_Name :: Word8}+          deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Error Name+ +instance Deserialize Name where+        deserialize+          = do skip 4+               bad_value <- deserialize+               minor_opcode <- deserialize+               major_opcode <- deserialize+               skip 1+               return (MkName bad_value minor_opcode major_opcode)+ +data Length = MkLength{bad_value_Length :: Word32,+                       minor_opcode_Length :: Word16, major_opcode_Length :: Word8}+            deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Error Length+ +instance Deserialize Length where+        deserialize+          = do skip 4+               bad_value <- deserialize+               minor_opcode <- deserialize+               major_opcode <- deserialize+               skip 1+               return (MkLength bad_value minor_opcode major_opcode)+ +data Implementation = MkImplementation{bad_value_Implementation ::+                                       Word32,+                                       minor_opcode_Implementation :: Word16,+                                       major_opcode_Implementation :: Word8}+                    deriving (Show, Typeable)+ +instance Graphics.XHB.Shared.Error Implementation+ +instance Deserialize Implementation where+        deserialize+          = do skip 4+               bad_value <- deserialize+               minor_opcode <- deserialize+               major_opcode <- deserialize+               skip 1+               return (MkImplementation bad_value minor_opcode major_opcode)+ +data WindowClass = WindowClassCopyFromParent+                 | WindowClassInputOutput+                 | WindowClassInputOnly+ +instance SimpleEnum WindowClass where+        toValue WindowClassCopyFromParent{} = 0+        toValue WindowClassInputOutput{} = 1+        toValue WindowClassInputOnly{} = 2+        fromValue 0 = WindowClassCopyFromParent+        fromValue 1 = WindowClassInputOutput+        fromValue 2 = WindowClassInputOnly+ +data CW = CWBackPixmap+        | CWBackPixel+        | CWBorderPixmap+        | CWBorderPixel+        | CWBitGravity+        | CWWinGravity+        | CWBackingStore+        | CWBackingPlanes+        | CWBackingPixel+        | CWOverrideRedirect+        | CWSaveUnder+        | CWEventMask+        | CWDontPropagate+        | CWColormap+        | CWCursor+ +instance BitEnum CW where+        toBit CWBackPixmap{} = 0+        toBit CWBackPixel{} = 1+        toBit CWBorderPixmap{} = 2+        toBit CWBorderPixel{} = 3+        toBit CWBitGravity{} = 4+        toBit CWWinGravity{} = 5+        toBit CWBackingStore{} = 6+        toBit CWBackingPlanes{} = 7+        toBit CWBackingPixel{} = 8+        toBit CWOverrideRedirect{} = 9+        toBit CWSaveUnder{} = 10+        toBit CWEventMask{} = 11+        toBit CWDontPropagate{} = 12+        toBit CWColormap{} = 13+        toBit CWCursor{} = 14+        fromBit 0 = CWBackPixmap+        fromBit 1 = CWBackPixel+        fromBit 2 = CWBorderPixmap+        fromBit 3 = CWBorderPixel+        fromBit 4 = CWBitGravity+        fromBit 5 = CWWinGravity+        fromBit 6 = CWBackingStore+        fromBit 7 = CWBackingPlanes+        fromBit 8 = CWBackingPixel+        fromBit 9 = CWOverrideRedirect+        fromBit 10 = CWSaveUnder+        fromBit 11 = CWEventMask+        fromBit 12 = CWDontPropagate+        fromBit 13 = CWColormap+        fromBit 14 = CWCursor+ +data BackPixmap = BackPixmapNone+                | BackPixmapParentRelative+ +instance SimpleEnum BackPixmap where+        toValue BackPixmapNone{} = 0+        toValue BackPixmapParentRelative{} = 1+        fromValue 0 = BackPixmapNone+        fromValue 1 = BackPixmapParentRelative+ +data Gravity = GravityBitForget+             | GravityWinUnmap+             | GravityNorthWest+             | GravityNorth+             | GravityNorthEast+             | GravityWest+             | GravityCenter+             | GravityEast+             | GravitySouthWest+             | GravitySouth+             | GravitySouthEast+             | GravityStatic+ +instance SimpleEnum Gravity where+        toValue GravityBitForget{} = 0+        toValue GravityWinUnmap{} = 0+        toValue GravityNorthWest{} = 1+        toValue GravityNorth{} = 2+        toValue GravityNorthEast{} = 3+        toValue GravityWest{} = 4+        toValue GravityCenter{} = 5+        toValue GravityEast{} = 6+        toValue GravitySouthWest{} = 7+        toValue GravitySouth{} = 8+        toValue GravitySouthEast{} = 9+        toValue GravityStatic{} = 10+        fromValue 0 = GravityBitForget+        fromValue 0 = GravityWinUnmap+        fromValue 1 = GravityNorthWest+        fromValue 2 = GravityNorth+        fromValue 3 = GravityNorthEast+        fromValue 4 = GravityWest+        fromValue 5 = GravityCenter+        fromValue 6 = GravityEast+        fromValue 7 = GravitySouthWest+        fromValue 8 = GravitySouth+        fromValue 9 = GravitySouthEast+        fromValue 10 = GravityStatic+ +data BackingStore = BackingStoreNotUseful+                  | BackingStoreWhenMapped+                  | BackingStoreAlways+ +instance SimpleEnum BackingStore where+        toValue BackingStoreNotUseful{} = 0+        toValue BackingStoreWhenMapped{} = 1+        toValue BackingStoreAlways{} = 2+        fromValue 0 = BackingStoreNotUseful+        fromValue 1 = BackingStoreWhenMapped+        fromValue 2 = BackingStoreAlways+ +data EventMask = EventMaskKeyPress+               | EventMaskKeyRelease+               | EventMaskButtonPress+               | EventMaskButtonRelease+               | EventMaskEnterWindow+               | EventMaskLeaveWindow+               | EventMaskPointerMotion+               | EventMaskPointerMotionHint+               | EventMaskButton1Motion+               | EventMaskButton2Motion+               | EventMaskButton3Motion+               | EventMaskButton4Motion+               | EventMaskButton5Motion+               | EventMaskButtonMotion+               | EventMaskKeymapState+               | EventMaskExposure+               | EventMaskVisibilityChange+               | EventMaskStructureNotify+               | EventMaskResizeRedirect+               | EventMaskSubstructureNotify+               | EventMaskSubstructureRedirect+               | EventMaskFocusChange+               | EventMaskPropertyChange+               | EventMaskColorMapChange+               | EventMaskOwnerGrabButton+ +instance BitEnum EventMask where+        toBit EventMaskKeyPress{} = 0+        toBit EventMaskKeyRelease{} = 1+        toBit EventMaskButtonPress{} = 2+        toBit EventMaskButtonRelease{} = 3+        toBit EventMaskEnterWindow{} = 4+        toBit EventMaskLeaveWindow{} = 5+        toBit EventMaskPointerMotion{} = 6+        toBit EventMaskPointerMotionHint{} = 7+        toBit EventMaskButton1Motion{} = 8+        toBit EventMaskButton2Motion{} = 9+        toBit EventMaskButton3Motion{} = 10+        toBit EventMaskButton4Motion{} = 11+        toBit EventMaskButton5Motion{} = 12+        toBit EventMaskButtonMotion{} = 13+        toBit EventMaskKeymapState{} = 14+        toBit EventMaskExposure{} = 15+        toBit EventMaskVisibilityChange{} = 16+        toBit EventMaskStructureNotify{} = 17+        toBit EventMaskResizeRedirect{} = 18+        toBit EventMaskSubstructureNotify{} = 19+        toBit EventMaskSubstructureRedirect{} = 20+        toBit EventMaskFocusChange{} = 21+        toBit EventMaskPropertyChange{} = 22+        toBit EventMaskColorMapChange{} = 23+        toBit EventMaskOwnerGrabButton{} = 24+        fromBit 0 = EventMaskKeyPress+        fromBit 1 = EventMaskKeyRelease+        fromBit 2 = EventMaskButtonPress+        fromBit 3 = EventMaskButtonRelease+        fromBit 4 = EventMaskEnterWindow+        fromBit 5 = EventMaskLeaveWindow+        fromBit 6 = EventMaskPointerMotion+        fromBit 7 = EventMaskPointerMotionHint+        fromBit 8 = EventMaskButton1Motion+        fromBit 9 = EventMaskButton2Motion+        fromBit 10 = EventMaskButton3Motion+        fromBit 11 = EventMaskButton4Motion+        fromBit 12 = EventMaskButton5Motion+        fromBit 13 = EventMaskButtonMotion+        fromBit 14 = EventMaskKeymapState+        fromBit 15 = EventMaskExposure+        fromBit 16 = EventMaskVisibilityChange+        fromBit 17 = EventMaskStructureNotify+        fromBit 18 = EventMaskResizeRedirect+        fromBit 19 = EventMaskSubstructureNotify+        fromBit 20 = EventMaskSubstructureRedirect+        fromBit 21 = EventMaskFocusChange+        fromBit 22 = EventMaskPropertyChange+        fromBit 23 = EventMaskColorMapChange+        fromBit 24 = EventMaskOwnerGrabButton+ +data CreateWindow = MkCreateWindow{depth_CreateWindow :: Word8,+                                   wid_CreateWindow :: WINDOW, parent_CreateWindow :: WINDOW,+                                   x_CreateWindow :: Int16, y_CreateWindow :: Int16,+                                   width_CreateWindow :: Word16, height_CreateWindow :: Word16,+                                   border_width_CreateWindow :: Word16,+                                   class_CreateWindow :: Word16, visual_CreateWindow :: VISUALID,+                                   value_CreateWindow :: ValueParam Word32}+                  deriving (Show, Typeable)+ +instance Serialize CreateWindow where+        serialize x+          = do putWord8 1+               serialize (depth_CreateWindow x)+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (wid_CreateWindow x)+               serialize (parent_CreateWindow x)+               serialize (x_CreateWindow x)+               serialize (y_CreateWindow x)+               serialize (width_CreateWindow x)+               serialize (height_CreateWindow x)+               serialize (border_width_CreateWindow x)+               serialize (class_CreateWindow x)+               serialize (visual_CreateWindow x)+               serialize (value_CreateWindow x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + size (depth_CreateWindow x) + size (wid_CreateWindow x) ++              size (parent_CreateWindow x)+              + size (x_CreateWindow x)+              + size (y_CreateWindow x)+              + size (width_CreateWindow x)+              + size (height_CreateWindow x)+              + size (border_width_CreateWindow x)+              + size (class_CreateWindow x)+              + size (visual_CreateWindow x)+              + size (value_CreateWindow x)+ +data ChangeWindowAttributes = MkChangeWindowAttributes{window_ChangeWindowAttributes+                                                       :: WINDOW,+                                                       value_ChangeWindowAttributes ::+                                                       ValueParam Word32}+                            deriving (Show, Typeable)+ +instance Serialize ChangeWindowAttributes where+        serialize x+          = do putWord8 2+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (window_ChangeWindowAttributes x)+               serialize (value_ChangeWindowAttributes x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + 1 + size (window_ChangeWindowAttributes x) ++              size (value_ChangeWindowAttributes x)+ +data MapState = MapStateUnmapped+              | MapStateUnviewable+              | MapStateViewable+ +instance SimpleEnum MapState where+        toValue MapStateUnmapped{} = 0+        toValue MapStateUnviewable{} = 1+        toValue MapStateViewable{} = 2+        fromValue 0 = MapStateUnmapped+        fromValue 1 = MapStateUnviewable+        fromValue 2 = MapStateViewable+ +data GetWindowAttributes = MkGetWindowAttributes{window_GetWindowAttributes+                                                 :: WINDOW}+                         deriving (Show, Typeable)+ +instance Serialize GetWindowAttributes where+        serialize x+          = do putWord8 3+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (window_GetWindowAttributes x)+               putSkip (requiredPadding (size x))+        size x = 3 + 1 + size (window_GetWindowAttributes x)+ +data GetWindowAttributesReply = MkGetWindowAttributesReply{backing_store_GetWindowAttributesReply+                                                           :: Word8,+                                                           visual_GetWindowAttributesReply ::+                                                           VISUALID,+                                                           class_GetWindowAttributesReply :: Word16,+                                                           bit_gravity_GetWindowAttributesReply ::+                                                           Word8,+                                                           win_gravity_GetWindowAttributesReply ::+                                                           Word8,+                                                           backing_planes_GetWindowAttributesReply+                                                           :: Word32,+                                                           backing_pixel_GetWindowAttributesReply ::+                                                           Word32,+                                                           save_under_GetWindowAttributesReply ::+                                                           Bool,+                                                           map_is_installed_GetWindowAttributesReply+                                                           :: Bool,+                                                           map_state_GetWindowAttributesReply ::+                                                           Word8,+                                                           override_redirect_GetWindowAttributesReply+                                                           :: Bool,+                                                           colormap_GetWindowAttributesReply ::+                                                           COLORMAP,+                                                           all_event_masks_GetWindowAttributesReply+                                                           :: Word32,+                                                           your_event_mask_GetWindowAttributesReply+                                                           :: Word32,+                                                           do_not_propagate_mask_GetWindowAttributesReply+                                                           :: Word16}+                              deriving (Show, Typeable)+ +instance Deserialize GetWindowAttributesReply where+        deserialize+          = do skip 1+               backing_store <- deserialize+               skip 2+               length <- deserialize+               visual <- deserialize+               class_ <- deserialize+               bit_gravity <- deserialize+               win_gravity <- deserialize+               backing_planes <- deserialize+               backing_pixel <- deserialize+               save_under <- deserialize+               map_is_installed <- deserialize+               map_state <- deserialize+               override_redirect <- deserialize+               colormap <- deserialize+               all_event_masks <- deserialize+               your_event_mask <- deserialize+               do_not_propagate_mask <- deserialize+               skip 2+               let _ = isCard32 length+               return+                 (MkGetWindowAttributesReply backing_store visual class_ bit_gravity+                    win_gravity+                    backing_planes+                    backing_pixel+                    save_under+                    map_is_installed+                    map_state+                    override_redirect+                    colormap+                    all_event_masks+                    your_event_mask+                    do_not_propagate_mask)+ +data DestroyWindow = MkDestroyWindow{window_DestroyWindow ::+                                     WINDOW}+                   deriving (Show, Typeable)+ +instance Serialize DestroyWindow where+        serialize x+          = do putWord8 4+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (window_DestroyWindow x)+               putSkip (requiredPadding (size x))+        size x = 3 + 1 + size (window_DestroyWindow x)+ +data DestroySubwindows = MkDestroySubwindows{window_DestroySubwindows+                                             :: WINDOW}+                       deriving (Show, Typeable)+ +instance Serialize DestroySubwindows where+        serialize x+          = do putWord8 5+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (window_DestroySubwindows x)+               putSkip (requiredPadding (size x))+        size x = 3 + 1 + size (window_DestroySubwindows x)+ +data SetMode = SetModeInsert+             | SetModeDelete+ +instance SimpleEnum SetMode where+        toValue SetModeInsert{} = 0+        toValue SetModeDelete{} = 1+        fromValue 0 = SetModeInsert+        fromValue 1 = SetModeDelete+ +data ChangeSaveSet = MkChangeSaveSet{mode_ChangeSaveSet :: Word8,+                                     window_ChangeSaveSet :: WINDOW}+                   deriving (Show, Typeable)+ +instance Serialize ChangeSaveSet where+        serialize x+          = do putWord8 6+               serialize (mode_ChangeSaveSet x)+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (window_ChangeSaveSet x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + size (mode_ChangeSaveSet x) + size (window_ChangeSaveSet x)+ +data ReparentWindow = MkReparentWindow{window_ReparentWindow ::+                                       WINDOW,+                                       parent_ReparentWindow :: WINDOW, x_ReparentWindow :: Int16,+                                       y_ReparentWindow :: Int16}+                    deriving (Show, Typeable)+ +instance Serialize ReparentWindow where+        serialize x+          = do putWord8 7+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (window_ReparentWindow x)+               serialize (parent_ReparentWindow x)+               serialize (x_ReparentWindow x)+               serialize (y_ReparentWindow x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + 1 + size (window_ReparentWindow x) ++              size (parent_ReparentWindow x)+              + size (x_ReparentWindow x)+              + size (y_ReparentWindow x)+ +data MapWindow = MkMapWindow{window_MapWindow :: WINDOW}+               deriving (Show, Typeable)+ +instance Serialize MapWindow where+        serialize x+          = do putWord8 8+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (window_MapWindow x)+               putSkip (requiredPadding (size x))+        size x = 3 + 1 + size (window_MapWindow x)+ +data MapSubwindows = MkMapSubwindows{window_MapSubwindows ::+                                     WINDOW}+                   deriving (Show, Typeable)+ +instance Serialize MapSubwindows where+        serialize x+          = do putWord8 9+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (window_MapSubwindows x)+               putSkip (requiredPadding (size x))+        size x = 3 + 1 + size (window_MapSubwindows x)+ +data UnmapWindow = MkUnmapWindow{window_UnmapWindow :: WINDOW}+                 deriving (Show, Typeable)+ +instance Serialize UnmapWindow where+        serialize x+          = do putWord8 10+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (window_UnmapWindow x)+               putSkip (requiredPadding (size x))+        size x = 3 + 1 + size (window_UnmapWindow x)+ +data UnmapSubwindows = MkUnmapSubwindows{window_UnmapSubwindows ::+                                         WINDOW}+                     deriving (Show, Typeable)+ +instance Serialize UnmapSubwindows where+        serialize x+          = do putWord8 11+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (window_UnmapSubwindows x)+               putSkip (requiredPadding (size x))+        size x = 3 + 1 + size (window_UnmapSubwindows x)+ +data ConfigWindow = ConfigWindowX+                  | ConfigWindowY+                  | ConfigWindowWidth+                  | ConfigWindowHeight+                  | ConfigWindowBorderWidth+                  | ConfigWindowSibling+                  | ConfigWindowStackMode+ +instance BitEnum ConfigWindow where+        toBit ConfigWindowX{} = 0+        toBit ConfigWindowY{} = 1+        toBit ConfigWindowWidth{} = 2+        toBit ConfigWindowHeight{} = 3+        toBit ConfigWindowBorderWidth{} = 4+        toBit ConfigWindowSibling{} = 5+        toBit ConfigWindowStackMode{} = 6+        fromBit 0 = ConfigWindowX+        fromBit 1 = ConfigWindowY+        fromBit 2 = ConfigWindowWidth+        fromBit 3 = ConfigWindowHeight+        fromBit 4 = ConfigWindowBorderWidth+        fromBit 5 = ConfigWindowSibling+        fromBit 6 = ConfigWindowStackMode+ +data StackMode = StackModeAbove+               | StackModeBelow+               | StackModeTopIf+               | StackModeBottomIf+               | StackModeOpposite+ +instance SimpleEnum StackMode where+        toValue StackModeAbove{} = 0+        toValue StackModeBelow{} = 1+        toValue StackModeTopIf{} = 2+        toValue StackModeBottomIf{} = 3+        toValue StackModeOpposite{} = 4+        fromValue 0 = StackModeAbove+        fromValue 1 = StackModeBelow+        fromValue 2 = StackModeTopIf+        fromValue 3 = StackModeBottomIf+        fromValue 4 = StackModeOpposite+ +data ConfigureWindow = MkConfigureWindow{window_ConfigureWindow ::+                                         WINDOW,+                                         value_ConfigureWindow :: ValueParam Word16}+                     deriving (Show, Typeable)+ +instance Serialize ConfigureWindow where+        serialize x+          = do putWord8 12+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (window_ConfigureWindow x)+               serializeValueParam 2 (value_ConfigureWindow x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + 1 + size (window_ConfigureWindow x) ++              size (value_ConfigureWindow x)+              + 2+ +data Circulate = CirculateRaiseLowest+               | CirculateLowerHighest+ +instance SimpleEnum Circulate where+        toValue CirculateRaiseLowest{} = 0+        toValue CirculateLowerHighest{} = 1+        fromValue 0 = CirculateRaiseLowest+        fromValue 1 = CirculateLowerHighest+ +data CirculateWindow = MkCirculateWindow{direction_CirculateWindow+                                         :: Word8,+                                         window_CirculateWindow :: WINDOW}+                     deriving (Show, Typeable)+ +instance Serialize CirculateWindow where+        serialize x+          = do putWord8 13+               serialize (direction_CirculateWindow x)+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (window_CirculateWindow x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + size (direction_CirculateWindow x) ++              size (window_CirculateWindow x)+ +data GetGeometry = MkGetGeometry{drawable_GetGeometry :: DRAWABLE}+                 deriving (Show, Typeable)+ +instance Serialize GetGeometry where+        serialize x+          = do putWord8 14+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (drawable_GetGeometry x)+               putSkip (requiredPadding (size x))+        size x = 3 + 1 + size (drawable_GetGeometry x)+ +data GetGeometryReply = MkGetGeometryReply{depth_GetGeometryReply+                                           :: Word8,+                                           root_GetGeometryReply :: WINDOW,+                                           x_GetGeometryReply :: Int16, y_GetGeometryReply :: Int16,+                                           width_GetGeometryReply :: Word16,+                                           height_GetGeometryReply :: Word16,+                                           border_width_GetGeometryReply :: Word16}+                      deriving (Show, Typeable)+ +instance Deserialize GetGeometryReply where+        deserialize+          = do skip 1+               depth <- deserialize+               skip 2+               length <- deserialize+               root <- deserialize+               x <- deserialize+               y <- deserialize+               width <- deserialize+               height <- deserialize+               border_width <- deserialize+               skip 2+               let _ = isCard32 length+               return+                 (MkGetGeometryReply depth root x y width height border_width)+ +data QueryTree = MkQueryTree{window_QueryTree :: WINDOW}+               deriving (Show, Typeable)+ +instance Serialize QueryTree where+        serialize x+          = do putWord8 15+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (window_QueryTree x)+               putSkip (requiredPadding (size x))+        size x = 3 + 1 + size (window_QueryTree x)+ +data QueryTreeReply = MkQueryTreeReply{root_QueryTreeReply ::+                                       WINDOW,+                                       parent_QueryTreeReply :: WINDOW,+                                       children_len_QueryTreeReply :: Word16,+                                       children_QueryTreeReply :: [WINDOW]}+                    deriving (Show, Typeable)+ +instance Deserialize QueryTreeReply where+        deserialize+          = do skip 1+               skip 1+               skip 2+               length <- deserialize+               root <- deserialize+               parent <- deserialize+               children_len <- deserialize+               skip 14+               children <- deserializeList (fromIntegral children_len)+               let _ = isCard32 length+               return (MkQueryTreeReply root parent children_len children)+ +data InternAtom = MkInternAtom{only_if_exists_InternAtom :: Bool,+                               name_len_InternAtom :: Word16, name_InternAtom :: [CChar]}+                deriving (Show, Typeable)+ +instance Serialize InternAtom where+        serialize x+          = do putWord8 16+               serialize (only_if_exists_InternAtom x)+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (name_len_InternAtom x)+               putSkip 2+               serializeList (name_InternAtom x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + size (only_if_exists_InternAtom x) ++              size (name_len_InternAtom x)+              + 2+              + sum (map size (name_InternAtom x))+ +data InternAtomReply = MkInternAtomReply{atom_InternAtomReply ::+                                         ATOM}+                     deriving (Show, Typeable)+ +instance Deserialize InternAtomReply where+        deserialize+          = do skip 1+               skip 1+               skip 2+               length <- deserialize+               atom <- deserialize+               let _ = isCard32 length+               return (MkInternAtomReply atom)+ +data GetAtomName = MkGetAtomName{atom_GetAtomName :: ATOM}+                 deriving (Show, Typeable)+ +instance Serialize GetAtomName where+        serialize x+          = do putWord8 17+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (atom_GetAtomName x)+               putSkip (requiredPadding (size x))+        size x = 3 + 1 + size (atom_GetAtomName x)+ +data GetAtomNameReply = MkGetAtomNameReply{name_len_GetAtomNameReply+                                           :: Word16,+                                           name_GetAtomNameReply :: [CChar]}+                      deriving (Show, Typeable)+ +instance Deserialize GetAtomNameReply where+        deserialize+          = do skip 1+               skip 1+               skip 2+               length <- deserialize+               name_len <- deserialize+               skip 22+               name <- deserializeList (fromIntegral name_len)+               let _ = isCard32 length+               return (MkGetAtomNameReply name_len name)+ +data PropMode = PropModeReplace+              | PropModePrepend+              | PropModeAppend+ +instance SimpleEnum PropMode where+        toValue PropModeReplace{} = 0+        toValue PropModePrepend{} = 1+        toValue PropModeAppend{} = 2+        fromValue 0 = PropModeReplace+        fromValue 1 = PropModePrepend+        fromValue 2 = PropModeAppend+ +data ChangeProperty = MkChangeProperty{mode_ChangeProperty ::+                                       Word8,+                                       window_ChangeProperty :: WINDOW,+                                       property_ChangeProperty :: ATOM, type_ChangeProperty :: ATOM,+                                       format_ChangeProperty :: Word8,+                                       data_len_ChangeProperty :: Word32,+                                       data_ChangeProperty :: [Word8]}+                    deriving (Show, Typeable)+ +instance Serialize ChangeProperty where+        serialize x+          = do putWord8 18+               serialize (mode_ChangeProperty x)+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (window_ChangeProperty x)+               serialize (property_ChangeProperty x)+               serialize (type_ChangeProperty x)+               serialize (format_ChangeProperty x)+               putSkip 3+               serialize (data_len_ChangeProperty x)+               serializeList (data_ChangeProperty x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + size (mode_ChangeProperty x) + size (window_ChangeProperty x)+              + size (property_ChangeProperty x)+              + size (type_ChangeProperty x)+              + size (format_ChangeProperty x)+              + 3+              + size (data_len_ChangeProperty x)+              + sum (map size (data_ChangeProperty x))+ +data DeleteProperty = MkDeleteProperty{window_DeleteProperty ::+                                       WINDOW,+                                       property_DeleteProperty :: ATOM}+                    deriving (Show, Typeable)+ +instance Serialize DeleteProperty where+        serialize x+          = do putWord8 19+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (window_DeleteProperty x)+               serialize (property_DeleteProperty x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + 1 + size (window_DeleteProperty x) ++              size (property_DeleteProperty x)+ +data GetPropertyType = GetPropertyTypeAny+ +instance SimpleEnum GetPropertyType where+        toValue GetPropertyTypeAny{} = 0+        fromValue 0 = GetPropertyTypeAny+ +data GetProperty = MkGetProperty{delete_GetProperty :: Bool,+                                 window_GetProperty :: WINDOW, property_GetProperty :: ATOM,+                                 type_GetProperty :: ATOM, long_offset_GetProperty :: Word32,+                                 long_length_GetProperty :: Word32}+                 deriving (Show, Typeable)+ +instance Serialize GetProperty where+        serialize x+          = do putWord8 20+               serialize (delete_GetProperty x)+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (window_GetProperty x)+               serialize (property_GetProperty x)+               serialize (type_GetProperty x)+               serialize (long_offset_GetProperty x)+               serialize (long_length_GetProperty x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + size (delete_GetProperty x) + size (window_GetProperty x) ++              size (property_GetProperty x)+              + size (type_GetProperty x)+              + size (long_offset_GetProperty x)+              + size (long_length_GetProperty x)+ +data GetPropertyReply = MkGetPropertyReply{format_GetPropertyReply+                                           :: Word8,+                                           type_GetPropertyReply :: ATOM,+                                           bytes_after_GetPropertyReply :: Word32,+                                           value_len_GetPropertyReply :: Word32,+                                           value_GetPropertyReply :: [Word8]}+                      deriving (Show, Typeable)+ +instance Deserialize GetPropertyReply where+        deserialize+          = do skip 1+               format <- deserialize+               skip 2+               length <- deserialize+               type_ <- deserialize+               bytes_after <- deserialize+               value_len <- deserialize+               skip 12+               value <- deserializeList (fromIntegral value_len)+               let _ = isCard32 length+               return+                 (MkGetPropertyReply format type_ bytes_after value_len value)+ +data ListProperties = MkListProperties{window_ListProperties ::+                                       WINDOW}+                    deriving (Show, Typeable)+ +instance Serialize ListProperties where+        serialize x+          = do putWord8 21+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (window_ListProperties x)+               putSkip (requiredPadding (size x))+        size x = 3 + 1 + size (window_ListProperties x)+ +data ListPropertiesReply = MkListPropertiesReply{atoms_len_ListPropertiesReply+                                                 :: Word16,+                                                 atoms_ListPropertiesReply :: [ATOM]}+                         deriving (Show, Typeable)+ +instance Deserialize ListPropertiesReply where+        deserialize+          = do skip 1+               skip 1+               skip 2+               length <- deserialize+               atoms_len <- deserialize+               skip 22+               atoms <- deserializeList (fromIntegral atoms_len)+               let _ = isCard32 length+               return (MkListPropertiesReply atoms_len atoms)+ +data SetSelectionOwner = MkSetSelectionOwner{owner_SetSelectionOwner+                                             :: WINDOW,+                                             selection_SetSelectionOwner :: ATOM,+                                             time_SetSelectionOwner :: TIMESTAMP}+                       deriving (Show, Typeable)+ +instance Serialize SetSelectionOwner where+        serialize x+          = do putWord8 22+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (owner_SetSelectionOwner x)+               serialize (selection_SetSelectionOwner x)+               serialize (time_SetSelectionOwner x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + 1 + size (owner_SetSelectionOwner x) ++              size (selection_SetSelectionOwner x)+              + size (time_SetSelectionOwner x)+ +data GetSelectionOwner = MkGetSelectionOwner{selection_GetSelectionOwner+                                             :: ATOM}+                       deriving (Show, Typeable)+ +instance Serialize GetSelectionOwner where+        serialize x+          = do putWord8 23+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (selection_GetSelectionOwner x)+               putSkip (requiredPadding (size x))+        size x = 3 + 1 + size (selection_GetSelectionOwner x)+ +data GetSelectionOwnerReply = MkGetSelectionOwnerReply{owner_GetSelectionOwnerReply+                                                       :: WINDOW}+                            deriving (Show, Typeable)+ +instance Deserialize GetSelectionOwnerReply where+        deserialize+          = do skip 1+               skip 1+               skip 2+               length <- deserialize+               owner <- deserialize+               let _ = isCard32 length+               return (MkGetSelectionOwnerReply owner)+ +data ConvertSelection = MkConvertSelection{requestor_ConvertSelection+                                           :: WINDOW,+                                           selection_ConvertSelection :: ATOM,+                                           target_ConvertSelection :: ATOM,+                                           property_ConvertSelection :: ATOM,+                                           time_ConvertSelection :: TIMESTAMP}+                      deriving (Show, Typeable)+ +instance Serialize ConvertSelection where+        serialize x+          = do putWord8 24+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (requestor_ConvertSelection x)+               serialize (selection_ConvertSelection x)+               serialize (target_ConvertSelection x)+               serialize (property_ConvertSelection x)+               serialize (time_ConvertSelection x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + 1 + size (requestor_ConvertSelection x) ++              size (selection_ConvertSelection x)+              + size (target_ConvertSelection x)+              + size (property_ConvertSelection x)+              + size (time_ConvertSelection x)+ +data SendEventDest = SendEventDestPointerWindow+                   | SendEventDestItemFocus+ +instance SimpleEnum SendEventDest where+        toValue SendEventDestPointerWindow{} = 0+        toValue SendEventDestItemFocus{} = 1+        fromValue 0 = SendEventDestPointerWindow+        fromValue 1 = SendEventDestItemFocus+ +data SendEvent = MkSendEvent{propagate_SendEvent :: Bool,+                             destination_SendEvent :: WINDOW, event_mask_SendEvent :: Word32,+                             event_SendEvent :: [CChar]}+               deriving (Show, Typeable)+ +instance Serialize SendEvent where+        serialize x+          = do putWord8 25+               serialize (propagate_SendEvent x)+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (destination_SendEvent x)+               serialize (event_mask_SendEvent x)+               serializeList (event_SendEvent x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + size (propagate_SendEvent x) + size (destination_SendEvent x)+              + size (event_mask_SendEvent x)+              + sum (map size (event_SendEvent x))+ +data GrabMode = GrabModeSync+              | GrabModeAsync+ +instance SimpleEnum GrabMode where+        toValue GrabModeSync{} = 0+        toValue GrabModeAsync{} = 1+        fromValue 0 = GrabModeSync+        fromValue 1 = GrabModeAsync+ +data GrabStatus = GrabStatusSuccess+                | GrabStatusAlreadyGrabbed+                | GrabStatusInvalidTime+                | GrabStatusNotViewable+                | GrabStatusFrozen+ +instance SimpleEnum GrabStatus where+        toValue GrabStatusSuccess{} = 0+        toValue GrabStatusAlreadyGrabbed{} = 1+        toValue GrabStatusInvalidTime{} = 2+        toValue GrabStatusNotViewable{} = 3+        toValue GrabStatusFrozen{} = 4+        fromValue 0 = GrabStatusSuccess+        fromValue 1 = GrabStatusAlreadyGrabbed+        fromValue 2 = GrabStatusInvalidTime+        fromValue 3 = GrabStatusNotViewable+        fromValue 4 = GrabStatusFrozen+ +data GrabPointer = MkGrabPointer{owner_events_GrabPointer :: Bool,+                                 grab_window_GrabPointer :: WINDOW,+                                 event_mask_GrabPointer :: Word16,+                                 pointer_mode_GrabPointer :: Word8,+                                 keyboard_mode_GrabPointer :: Word8,+                                 confine_to_GrabPointer :: WINDOW, cursor_GrabPointer :: CURSOR,+                                 time_GrabPointer :: TIMESTAMP}+                 deriving (Show, Typeable)+ +instance Serialize GrabPointer where+        serialize x+          = do putWord8 26+               serialize (owner_events_GrabPointer x)+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (grab_window_GrabPointer x)+               serialize (event_mask_GrabPointer x)+               serialize (pointer_mode_GrabPointer x)+               serialize (keyboard_mode_GrabPointer x)+               serialize (confine_to_GrabPointer x)+               serialize (cursor_GrabPointer x)+               serialize (time_GrabPointer x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + size (owner_events_GrabPointer x) ++              size (grab_window_GrabPointer x)+              + size (event_mask_GrabPointer x)+              + size (pointer_mode_GrabPointer x)+              + size (keyboard_mode_GrabPointer x)+              + size (confine_to_GrabPointer x)+              + size (cursor_GrabPointer x)+              + size (time_GrabPointer x)+ +data GrabPointerReply = MkGrabPointerReply{status_GrabPointerReply+                                           :: Word8}+                      deriving (Show, Typeable)+ +instance Deserialize GrabPointerReply where+        deserialize+          = do skip 1+               status <- deserialize+               skip 2+               length <- deserialize+               let _ = isCard32 length+               return (MkGrabPointerReply status)+ +data UngrabPointer = MkUngrabPointer{time_UngrabPointer ::+                                     TIMESTAMP}+                   deriving (Show, Typeable)+ +instance Serialize UngrabPointer where+        serialize x+          = do putWord8 27+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (time_UngrabPointer x)+               putSkip (requiredPadding (size x))+        size x = 3 + 1 + size (time_UngrabPointer x)+ +data ButtonIndex = ButtonIndexAny+                 | ButtonIndex1+                 | ButtonIndex2+                 | ButtonIndex3+                 | ButtonIndex4+                 | ButtonIndex5+ +instance SimpleEnum ButtonIndex where+        toValue ButtonIndexAny{} = 0+        toValue ButtonIndex1{} = 1+        toValue ButtonIndex2{} = 2+        toValue ButtonIndex3{} = 3+        toValue ButtonIndex4{} = 4+        toValue ButtonIndex5{} = 5+        fromValue 0 = ButtonIndexAny+        fromValue 1 = ButtonIndex1+        fromValue 2 = ButtonIndex2+        fromValue 3 = ButtonIndex3+        fromValue 4 = ButtonIndex4+        fromValue 5 = ButtonIndex5+ +data GrabButton = MkGrabButton{owner_events_GrabButton :: Bool,+                               grab_window_GrabButton :: WINDOW, event_mask_GrabButton :: Word16,+                               pointer_mode_GrabButton :: Word8,+                               keyboard_mode_GrabButton :: Word8, confine_to_GrabButton :: WINDOW,+                               cursor_GrabButton :: CURSOR, button_GrabButton :: Word8,+                               modifiers_GrabButton :: Word16}+                deriving (Show, Typeable)+ +instance Serialize GrabButton where+        serialize x+          = do putWord8 28+               serialize (owner_events_GrabButton x)+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (grab_window_GrabButton x)+               serialize (event_mask_GrabButton x)+               serialize (pointer_mode_GrabButton x)+               serialize (keyboard_mode_GrabButton x)+               serialize (confine_to_GrabButton x)+               serialize (cursor_GrabButton x)+               serialize (button_GrabButton x)+               putSkip 1+               serialize (modifiers_GrabButton x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + size (owner_events_GrabButton x) ++              size (grab_window_GrabButton x)+              + size (event_mask_GrabButton x)+              + size (pointer_mode_GrabButton x)+              + size (keyboard_mode_GrabButton x)+              + size (confine_to_GrabButton x)+              + size (cursor_GrabButton x)+              + size (button_GrabButton x)+              + 1+              + size (modifiers_GrabButton x)+ +data UngrabButton = MkUngrabButton{button_UngrabButton :: Word8,+                                   grab_window_UngrabButton :: WINDOW,+                                   modifiers_UngrabButton :: Word16}+                  deriving (Show, Typeable)+ +instance Serialize UngrabButton where+        serialize x+          = do putWord8 29+               serialize (button_UngrabButton x)+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (grab_window_UngrabButton x)+               serialize (modifiers_UngrabButton x)+               putSkip 2+               putSkip (requiredPadding (size x))+        size x+          = 3 + size (button_UngrabButton x) ++              size (grab_window_UngrabButton x)+              + size (modifiers_UngrabButton x)+              + 2+ +data ChangeActivePointerGrab = MkChangeActivePointerGrab{cursor_ChangeActivePointerGrab+                                                         :: CURSOR,+                                                         time_ChangeActivePointerGrab :: TIMESTAMP,+                                                         event_mask_ChangeActivePointerGrab ::+                                                         Word16}+                             deriving (Show, Typeable)+ +instance Serialize ChangeActivePointerGrab where+        serialize x+          = do putWord8 30+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (cursor_ChangeActivePointerGrab x)+               serialize (time_ChangeActivePointerGrab x)+               serialize (event_mask_ChangeActivePointerGrab x)+               putSkip 2+               putSkip (requiredPadding (size x))+        size x+          = 3 + 1 + size (cursor_ChangeActivePointerGrab x) ++              size (time_ChangeActivePointerGrab x)+              + size (event_mask_ChangeActivePointerGrab x)+              + 2+ +data GrabKeyboard = MkGrabKeyboard{owner_events_GrabKeyboard ::+                                   Bool,+                                   grab_window_GrabKeyboard :: WINDOW,+                                   time_GrabKeyboard :: TIMESTAMP,+                                   pointer_mode_GrabKeyboard :: Word8,+                                   keyboard_mode_GrabKeyboard :: Word8}+                  deriving (Show, Typeable)+ +instance Serialize GrabKeyboard where+        serialize x+          = do putWord8 31+               serialize (owner_events_GrabKeyboard x)+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (grab_window_GrabKeyboard x)+               serialize (time_GrabKeyboard x)+               serialize (pointer_mode_GrabKeyboard x)+               serialize (keyboard_mode_GrabKeyboard x)+               putSkip 2+               putSkip (requiredPadding (size x))+        size x+          = 3 + size (owner_events_GrabKeyboard x) ++              size (grab_window_GrabKeyboard x)+              + size (time_GrabKeyboard x)+              + size (pointer_mode_GrabKeyboard x)+              + size (keyboard_mode_GrabKeyboard x)+              + 2+ +data GrabKeyboardReply = MkGrabKeyboardReply{status_GrabKeyboardReply+                                             :: Word8}+                       deriving (Show, Typeable)+ +instance Deserialize GrabKeyboardReply where+        deserialize+          = do skip 1+               status <- deserialize+               skip 2+               length <- deserialize+               let _ = isCard32 length+               return (MkGrabKeyboardReply status)+ +data UngrabKeyboard = MkUngrabKeyboard{time_UngrabKeyboard ::+                                       TIMESTAMP}+                    deriving (Show, Typeable)+ +instance Serialize UngrabKeyboard where+        serialize x+          = do putWord8 32+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (time_UngrabKeyboard x)+               putSkip (requiredPadding (size x))+        size x = 3 + 1 + size (time_UngrabKeyboard x)+ +data Grab = GrabAny+ +instance SimpleEnum Grab where+        toValue GrabAny{} = 0+        fromValue 0 = GrabAny+ +data GrabKey = MkGrabKey{owner_events_GrabKey :: Bool,+                         grab_window_GrabKey :: WINDOW, modifiers_GrabKey :: Word16,+                         key_GrabKey :: KEYCODE, pointer_mode_GrabKey :: Word8,+                         keyboard_mode_GrabKey :: Word8}+             deriving (Show, Typeable)+ +instance Serialize GrabKey where+        serialize x+          = do putWord8 33+               serialize (owner_events_GrabKey x)+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (grab_window_GrabKey x)+               serialize (modifiers_GrabKey x)+               serialize (key_GrabKey x)+               serialize (pointer_mode_GrabKey x)+               serialize (keyboard_mode_GrabKey x)+               putSkip 3+               putSkip (requiredPadding (size x))+        size x+          = 3 + size (owner_events_GrabKey x) + size (grab_window_GrabKey x)+              + size (modifiers_GrabKey x)+              + size (key_GrabKey x)+              + size (pointer_mode_GrabKey x)+              + size (keyboard_mode_GrabKey x)+              + 3+ +data UngrabKey = MkUngrabKey{key_UngrabKey :: KEYCODE,+                             grab_window_UngrabKey :: WINDOW, modifiers_UngrabKey :: Word16}+               deriving (Show, Typeable)+ +instance Serialize UngrabKey where+        serialize x+          = do putWord8 34+               serialize (key_UngrabKey x)+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (grab_window_UngrabKey x)+               serialize (modifiers_UngrabKey x)+               putSkip 2+               putSkip (requiredPadding (size x))+        size x+          = 3 + size (key_UngrabKey x) + size (grab_window_UngrabKey x) ++              size (modifiers_UngrabKey x)+              + 2+ +data Allow = AllowAsyncPointer+           | AllowSyncPointer+           | AllowReplayPointer+           | AllowAsyncKeyboard+           | AllowSyncKeyboard+           | AllowReplayKeyboard+           | AllowAsyncBoth+           | AllowSyncBoth+ +instance SimpleEnum Allow where+        toValue AllowAsyncPointer{} = 0+        toValue AllowSyncPointer{} = 1+        toValue AllowReplayPointer{} = 2+        toValue AllowAsyncKeyboard{} = 3+        toValue AllowSyncKeyboard{} = 4+        toValue AllowReplayKeyboard{} = 5+        toValue AllowAsyncBoth{} = 6+        toValue AllowSyncBoth{} = 7+        fromValue 0 = AllowAsyncPointer+        fromValue 1 = AllowSyncPointer+        fromValue 2 = AllowReplayPointer+        fromValue 3 = AllowAsyncKeyboard+        fromValue 4 = AllowSyncKeyboard+        fromValue 5 = AllowReplayKeyboard+        fromValue 6 = AllowAsyncBoth+        fromValue 7 = AllowSyncBoth+ +data AllowEvents = MkAllowEvents{mode_AllowEvents :: Word8,+                                 time_AllowEvents :: TIMESTAMP}+                 deriving (Show, Typeable)+ +instance Serialize AllowEvents where+        serialize x+          = do putWord8 35+               serialize (mode_AllowEvents x)+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (time_AllowEvents x)+               putSkip (requiredPadding (size x))+        size x = 3 + size (mode_AllowEvents x) + size (time_AllowEvents x)+ +data QueryPointer = MkQueryPointer{window_QueryPointer :: WINDOW}+                  deriving (Show, Typeable)+ +instance Serialize QueryPointer where+        serialize x+          = do putWord8 38+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (window_QueryPointer x)+               putSkip (requiredPadding (size x))+        size x = 3 + 1 + size (window_QueryPointer x)+ +data QueryPointerReply = MkQueryPointerReply{same_screen_QueryPointerReply+                                             :: Bool,+                                             root_QueryPointerReply :: WINDOW,+                                             child_QueryPointerReply :: WINDOW,+                                             root_x_QueryPointerReply :: Int16,+                                             root_y_QueryPointerReply :: Int16,+                                             win_x_QueryPointerReply :: Int16,+                                             win_y_QueryPointerReply :: Int16,+                                             mask_QueryPointerReply :: Word16}+                       deriving (Show, Typeable)+ +instance Deserialize QueryPointerReply where+        deserialize+          = do skip 1+               same_screen <- deserialize+               skip 2+               length <- deserialize+               root <- deserialize+               child <- deserialize+               root_x <- deserialize+               root_y <- deserialize+               win_x <- deserialize+               win_y <- deserialize+               mask <- deserialize+               skip 2+               let _ = isCard32 length+               return+                 (MkQueryPointerReply same_screen root child root_x root_y win_x+                    win_y+                    mask)+ +data TIMECOORD = MkTIMECOORD{time_TIMECOORD :: TIMESTAMP,+                             x_TIMECOORD :: Int16, y_TIMECOORD :: Int16}+               deriving (Show, Typeable)+ +instance Serialize TIMECOORD where+        serialize x+          = do serialize (time_TIMECOORD x)+               serialize (x_TIMECOORD x)+               serialize (y_TIMECOORD x)+        size x+          = size (time_TIMECOORD x) + size (x_TIMECOORD x) ++              size (y_TIMECOORD x)+ +instance Deserialize TIMECOORD where+        deserialize+          = do time <- deserialize+               x <- deserialize+               y <- deserialize+               return (MkTIMECOORD time x y)+ +data GetMotionEvents = MkGetMotionEvents{window_GetMotionEvents ::+                                         WINDOW,+                                         start_GetMotionEvents :: TIMESTAMP,+                                         stop_GetMotionEvents :: TIMESTAMP}+                     deriving (Show, Typeable)+ +instance Serialize GetMotionEvents where+        serialize x+          = do putWord8 39+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (window_GetMotionEvents x)+               serialize (start_GetMotionEvents x)+               serialize (stop_GetMotionEvents x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + 1 + size (window_GetMotionEvents x) ++              size (start_GetMotionEvents x)+              + size (stop_GetMotionEvents x)+ +data GetMotionEventsReply = MkGetMotionEventsReply{events_len_GetMotionEventsReply+                                                   :: Word32,+                                                   events_GetMotionEventsReply :: [TIMECOORD]}+                          deriving (Show, Typeable)+ +instance Deserialize GetMotionEventsReply where+        deserialize+          = do skip 1+               skip 1+               skip 2+               length <- deserialize+               events_len <- deserialize+               skip 20+               events <- deserializeList (fromIntegral events_len)+               let _ = isCard32 length+               return (MkGetMotionEventsReply events_len events)+ +data TranslateCoordinates = MkTranslateCoordinates{src_window_TranslateCoordinates+                                                   :: WINDOW,+                                                   dst_window_TranslateCoordinates :: WINDOW,+                                                   src_x_TranslateCoordinates :: Int16,+                                                   src_y_TranslateCoordinates :: Int16}+                          deriving (Show, Typeable)+ +instance Serialize TranslateCoordinates where+        serialize x+          = do putWord8 40+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (src_window_TranslateCoordinates x)+               serialize (dst_window_TranslateCoordinates x)+               serialize (src_x_TranslateCoordinates x)+               serialize (src_y_TranslateCoordinates x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + 1 + size (src_window_TranslateCoordinates x) ++              size (dst_window_TranslateCoordinates x)+              + size (src_x_TranslateCoordinates x)+              + size (src_y_TranslateCoordinates x)+ +data TranslateCoordinatesReply = MkTranslateCoordinatesReply{same_screen_TranslateCoordinatesReply+                                                             :: Bool,+                                                             child_TranslateCoordinatesReply ::+                                                             WINDOW,+                                                             dst_x_TranslateCoordinatesReply ::+                                                             Word16,+                                                             dst_y_TranslateCoordinatesReply ::+                                                             Word16}+                               deriving (Show, Typeable)+ +instance Deserialize TranslateCoordinatesReply where+        deserialize+          = do skip 1+               same_screen <- deserialize+               skip 2+               length <- deserialize+               child <- deserialize+               dst_x <- deserialize+               dst_y <- deserialize+               let _ = isCard32 length+               return (MkTranslateCoordinatesReply same_screen child dst_x dst_y)+ +data WarpPointer = MkWarpPointer{src_window_WarpPointer :: WINDOW,+                                 dst_window_WarpPointer :: WINDOW, src_x_WarpPointer :: Int16,+                                 src_y_WarpPointer :: Int16, src_width_WarpPointer :: Word16,+                                 src_height_WarpPointer :: Word16, dst_x_WarpPointer :: Int16,+                                 dst_y_WarpPointer :: Int16}+                 deriving (Show, Typeable)+ +instance Serialize WarpPointer where+        serialize x+          = do putWord8 41+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (src_window_WarpPointer x)+               serialize (dst_window_WarpPointer x)+               serialize (src_x_WarpPointer x)+               serialize (src_y_WarpPointer x)+               serialize (src_width_WarpPointer x)+               serialize (src_height_WarpPointer x)+               serialize (dst_x_WarpPointer x)+               serialize (dst_y_WarpPointer x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + 1 + size (src_window_WarpPointer x) ++              size (dst_window_WarpPointer x)+              + size (src_x_WarpPointer x)+              + size (src_y_WarpPointer x)+              + size (src_width_WarpPointer x)+              + size (src_height_WarpPointer x)+              + size (dst_x_WarpPointer x)+              + size (dst_y_WarpPointer x)+ +data InputFocus = InputFocusNone+                | InputFocusPointerRoot+                | InputFocusParent+ +instance SimpleEnum InputFocus where+        toValue InputFocusNone{} = 0+        toValue InputFocusPointerRoot{} = 1+        toValue InputFocusParent{} = 2+        fromValue 0 = InputFocusNone+        fromValue 1 = InputFocusPointerRoot+        fromValue 2 = InputFocusParent+ +data SetInputFocus = MkSetInputFocus{revert_to_SetInputFocus ::+                                     Word8,+                                     focus_SetInputFocus :: WINDOW, time_SetInputFocus :: TIMESTAMP}+                   deriving (Show, Typeable)+ +instance Serialize SetInputFocus where+        serialize x+          = do putWord8 42+               serialize (revert_to_SetInputFocus x)+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (focus_SetInputFocus x)+               serialize (time_SetInputFocus x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + size (revert_to_SetInputFocus x) ++              size (focus_SetInputFocus x)+              + size (time_SetInputFocus x)+ +data GetInputFocus = MkGetInputFocus{}+                   deriving (Show, Typeable)+ +instance Serialize GetInputFocus where+        serialize x+          = do putWord8 43+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               putSkip (requiredPadding (size x))+        size x = 4+ +data GetInputFocusReply = MkGetInputFocusReply{revert_to_GetInputFocusReply+                                               :: Word8,+                                               focus_GetInputFocusReply :: WINDOW}+                        deriving (Show, Typeable)+ +instance Deserialize GetInputFocusReply where+        deserialize+          = do skip 1+               revert_to <- deserialize+               skip 2+               length <- deserialize+               focus <- deserialize+               let _ = isCard32 length+               return (MkGetInputFocusReply revert_to focus)+ +data QueryKeymap = MkQueryKeymap{}+                 deriving (Show, Typeable)+ +instance Serialize QueryKeymap where+        serialize x+          = do putWord8 44+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               putSkip (requiredPadding (size x))+        size x = 4+ +data QueryKeymapReply = MkQueryKeymapReply{keys_QueryKeymapReply ::+                                           [Word8]}+                      deriving (Show, Typeable)+ +instance Deserialize QueryKeymapReply where+        deserialize+          = do skip 1+               skip 1+               skip 2+               length <- deserialize+               keys <- deserializeList (fromIntegral 32)+               let _ = isCard32 length+               return (MkQueryKeymapReply keys)+ +data OpenFont = MkOpenFont{fid_OpenFont :: FONT,+                           name_len_OpenFont :: Word16, name_OpenFont :: [CChar]}+              deriving (Show, Typeable)+ +instance Serialize OpenFont where+        serialize x+          = do putWord8 45+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (fid_OpenFont x)+               serialize (name_len_OpenFont x)+               putSkip 2+               serializeList (name_OpenFont x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + 1 + size (fid_OpenFont x) + size (name_len_OpenFont x) + 2 ++              sum (map size (name_OpenFont x))+ +data CloseFont = MkCloseFont{font_CloseFont :: FONT}+               deriving (Show, Typeable)+ +instance Serialize CloseFont where+        serialize x+          = do putWord8 46+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (font_CloseFont x)+               putSkip (requiredPadding (size x))+        size x = 3 + 1 + size (font_CloseFont x)+ +data FontDraw = FontDrawLeftToRight+              | FontDrawRightToLeft+ +instance SimpleEnum FontDraw where+        toValue FontDrawLeftToRight{} = 0+        toValue FontDrawRightToLeft{} = 1+        fromValue 0 = FontDrawLeftToRight+        fromValue 1 = FontDrawRightToLeft+ +data FONTPROP = MkFONTPROP{name_FONTPROP :: ATOM,+                           value_FONTPROP :: Word32}+              deriving (Show, Typeable)+ +instance Serialize FONTPROP where+        serialize x+          = do serialize (name_FONTPROP x)+               serialize (value_FONTPROP x)+        size x = size (name_FONTPROP x) + size (value_FONTPROP x)+ +instance Deserialize FONTPROP where+        deserialize+          = do name <- deserialize+               value <- deserialize+               return (MkFONTPROP name value)+ +data CHARINFO = MkCHARINFO{left_side_bearing_CHARINFO :: Int16,+                           right_side_bearing_CHARINFO :: Int16,+                           character_width_CHARINFO :: Int16, ascent_CHARINFO :: Int16,+                           descent_CHARINFO :: Int16, attributes_CHARINFO :: Word16}+              deriving (Show, Typeable)+ +instance Serialize CHARINFO where+        serialize x+          = do serialize (left_side_bearing_CHARINFO x)+               serialize (right_side_bearing_CHARINFO x)+               serialize (character_width_CHARINFO x)+               serialize (ascent_CHARINFO x)+               serialize (descent_CHARINFO x)+               serialize (attributes_CHARINFO x)+        size x+          = size (left_side_bearing_CHARINFO x) ++              size (right_side_bearing_CHARINFO x)+              + size (character_width_CHARINFO x)+              + size (ascent_CHARINFO x)+              + size (descent_CHARINFO x)+              + size (attributes_CHARINFO x)+ +instance Deserialize CHARINFO where+        deserialize+          = do left_side_bearing <- deserialize+               right_side_bearing <- deserialize+               character_width <- deserialize+               ascent <- deserialize+               descent <- deserialize+               attributes <- deserialize+               return+                 (MkCHARINFO left_side_bearing right_side_bearing character_width+                    ascent+                    descent+                    attributes)+ +data QueryFont = MkQueryFont{font_QueryFont :: FONTABLE}+               deriving (Show, Typeable)+ +instance Serialize QueryFont where+        serialize x+          = do putWord8 47+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (font_QueryFont x)+               putSkip (requiredPadding (size x))+        size x = 3 + 1 + size (font_QueryFont x)+ +data QueryFontReply = MkQueryFontReply{min_bounds_QueryFontReply ::+                                       CHARINFO,+                                       max_bounds_QueryFontReply :: CHARINFO,+                                       min_char_or_byte2_QueryFontReply :: Word16,+                                       max_char_or_byte2_QueryFontReply :: Word16,+                                       default_char_QueryFontReply :: Word16,+                                       properties_len_QueryFontReply :: Word16,+                                       draw_direction_QueryFontReply :: Word8,+                                       min_byte1_QueryFontReply :: Word8,+                                       max_byte1_QueryFontReply :: Word8,+                                       all_chars_exist_QueryFontReply :: Bool,+                                       font_ascent_QueryFontReply :: Int16,+                                       font_descent_QueryFontReply :: Int16,+                                       char_infos_len_QueryFontReply :: Word32,+                                       properties_QueryFontReply :: [FONTPROP],+                                       char_infos_QueryFontReply :: [CHARINFO]}+                    deriving (Show, Typeable)+ +instance Deserialize QueryFontReply where+        deserialize+          = do skip 1+               skip 1+               skip 2+               length <- deserialize+               min_bounds <- deserialize+               skip 4+               max_bounds <- deserialize+               skip 4+               min_char_or_byte2 <- deserialize+               max_char_or_byte2 <- deserialize+               default_char <- deserialize+               properties_len <- deserialize+               draw_direction <- deserialize+               min_byte1 <- deserialize+               max_byte1 <- deserialize+               all_chars_exist <- deserialize+               font_ascent <- deserialize+               font_descent <- deserialize+               char_infos_len <- deserialize+               properties <- deserializeList (fromIntegral properties_len)+               char_infos <- deserializeList (fromIntegral char_infos_len)+               let _ = isCard32 length+               return+                 (MkQueryFontReply min_bounds max_bounds min_char_or_byte2+                    max_char_or_byte2+                    default_char+                    properties_len+                    draw_direction+                    min_byte1+                    max_byte1+                    all_chars_exist+                    font_ascent+                    font_descent+                    char_infos_len+                    properties+                    char_infos)+ +data QueryTextExtents = MkQueryTextExtents{font_QueryTextExtents ::+                                           FONTABLE,+                                           string_QueryTextExtents :: [CHAR2B]}+                      deriving (Show, Typeable)+ +odd_length_QueryTextExtents :: QueryTextExtents -> Bool+odd_length_QueryTextExtents x+  = wordToBool (string_len_QueryTextExtents x .&. 1)++string_len_QueryTextExtents :: QueryTextExtents -> Word8+string_len_QueryTextExtents x = genericLength $ string_QueryTextExtents x+ +instance Serialize QueryTextExtents where+        serialize x+          = do putWord8 48+               serialize (odd_length_QueryTextExtents x)+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (font_QueryTextExtents x)+               serializeList (string_QueryTextExtents x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + size (odd_length_QueryTextExtents x) ++              size (font_QueryTextExtents x)+              + sum (map size (string_QueryTextExtents x))+ +data QueryTextExtentsReply = MkQueryTextExtentsReply{draw_direction_QueryTextExtentsReply+                                                     :: Word8,+                                                     font_ascent_QueryTextExtentsReply :: Int16,+                                                     font_descent_QueryTextExtentsReply :: Int16,+                                                     overall_ascent_QueryTextExtentsReply :: Int16,+                                                     overall_descent_QueryTextExtentsReply :: Int16,+                                                     overall_width_QueryTextExtentsReply :: Int32,+                                                     overall_left_QueryTextExtentsReply :: Int32,+                                                     overall_right_QueryTextExtentsReply :: Int32}+                           deriving (Show, Typeable)+ +instance Deserialize QueryTextExtentsReply where+        deserialize+          = do skip 1+               draw_direction <- deserialize+               skip 2+               length <- deserialize+               font_ascent <- deserialize+               font_descent <- deserialize+               overall_ascent <- deserialize+               overall_descent <- deserialize+               overall_width <- deserialize+               overall_left <- deserialize+               overall_right <- deserialize+               let _ = isCard32 length+               return+                 (MkQueryTextExtentsReply draw_direction font_ascent font_descent+                    overall_ascent+                    overall_descent+                    overall_width+                    overall_left+                    overall_right)+ +data STR = MkSTR{name_len_STR :: Word8, name_STR :: [CChar]}+         deriving (Show, Typeable)+ +instance Serialize STR where+        serialize x+          = do serialize (name_len_STR x)+               serializeList (name_STR x)+        size x = size (name_len_STR x) + sum (map size (name_STR x))+ +instance Deserialize STR where+        deserialize+          = do name_len <- deserialize+               name <- deserializeList (fromIntegral name_len)+               return (MkSTR name_len name)+ +data ListFonts = MkListFonts{max_names_ListFonts :: Word16,+                             pattern_len_ListFonts :: Word16, pattern_ListFonts :: [CChar]}+               deriving (Show, Typeable)+ +instance Serialize ListFonts where+        serialize x+          = do putWord8 49+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (max_names_ListFonts x)+               serialize (pattern_len_ListFonts x)+               serializeList (pattern_ListFonts x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + 1 + size (max_names_ListFonts x) ++              size (pattern_len_ListFonts x)+              + sum (map size (pattern_ListFonts x))+ +data ListFontsReply = MkListFontsReply{names_len_ListFontsReply ::+                                       Word16,+                                       names_ListFontsReply :: [STR]}+                    deriving (Show, Typeable)+ +instance Deserialize ListFontsReply where+        deserialize+          = do skip 1+               skip 1+               skip 2+               length <- deserialize+               names_len <- deserialize+               skip 22+               names <- deserializeList (fromIntegral names_len)+               let _ = isCard32 length+               return (MkListFontsReply names_len names)+ +data ListFontsWithInfo = MkListFontsWithInfo{max_names_ListFontsWithInfo+                                             :: Word16,+                                             pattern_len_ListFontsWithInfo :: Word16,+                                             pattern_ListFontsWithInfo :: [CChar]}+                       deriving (Show, Typeable)+ +instance Serialize ListFontsWithInfo where+        serialize x+          = do putWord8 50+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (max_names_ListFontsWithInfo x)+               serialize (pattern_len_ListFontsWithInfo x)+               serializeList (pattern_ListFontsWithInfo x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + 1 + size (max_names_ListFontsWithInfo x) ++              size (pattern_len_ListFontsWithInfo x)+              + sum (map size (pattern_ListFontsWithInfo x))+ +data ListFontsWithInfoReply = MkListFontsWithInfoReply{name_len_ListFontsWithInfoReply+                                                       :: Word8,+                                                       min_bounds_ListFontsWithInfoReply ::+                                                       CHARINFO,+                                                       max_bounds_ListFontsWithInfoReply ::+                                                       CHARINFO,+                                                       min_char_or_byte2_ListFontsWithInfoReply ::+                                                       Word16,+                                                       max_char_or_byte2_ListFontsWithInfoReply ::+                                                       Word16,+                                                       default_char_ListFontsWithInfoReply ::+                                                       Word16,+                                                       properties_len_ListFontsWithInfoReply ::+                                                       Word16,+                                                       draw_direction_ListFontsWithInfoReply ::+                                                       Word8,+                                                       min_byte1_ListFontsWithInfoReply :: Word8,+                                                       max_byte1_ListFontsWithInfoReply :: Word8,+                                                       all_chars_exist_ListFontsWithInfoReply ::+                                                       Bool,+                                                       font_ascent_ListFontsWithInfoReply :: Int16,+                                                       font_descent_ListFontsWithInfoReply :: Int16,+                                                       replies_hint_ListFontsWithInfoReply ::+                                                       Word32,+                                                       properties_ListFontsWithInfoReply ::+                                                       [FONTPROP],+                                                       name_ListFontsWithInfoReply :: [CChar]}+                            deriving (Show, Typeable)+ +instance Deserialize ListFontsWithInfoReply where+        deserialize+          = do skip 1+               name_len <- deserialize+               skip 2+               length <- deserialize+               min_bounds <- deserialize+               skip 4+               max_bounds <- deserialize+               skip 4+               min_char_or_byte2 <- deserialize+               max_char_or_byte2 <- deserialize+               default_char <- deserialize+               properties_len <- deserialize+               draw_direction <- deserialize+               min_byte1 <- deserialize+               max_byte1 <- deserialize+               all_chars_exist <- deserialize+               font_ascent <- deserialize+               font_descent <- deserialize+               replies_hint <- deserialize+               properties <- deserializeList (fromIntegral properties_len)+               name <- deserializeList (fromIntegral name_len)+               let _ = isCard32 length+               return+                 (MkListFontsWithInfoReply name_len min_bounds max_bounds+                    min_char_or_byte2+                    max_char_or_byte2+                    default_char+                    properties_len+                    draw_direction+                    min_byte1+                    max_byte1+                    all_chars_exist+                    font_ascent+                    font_descent+                    replies_hint+                    properties+                    name)+ +data SetFontPath = MkSetFontPath{font_qty_SetFontPath :: Word16,+                                 path_SetFontPath :: [CChar]}+                 deriving (Show, Typeable)+ +instance Serialize SetFontPath where+        serialize x+          = do putWord8 51+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (font_qty_SetFontPath x)+               serializeList (path_SetFontPath x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + 1 + size (font_qty_SetFontPath x) ++              sum (map size (path_SetFontPath x))+ +data GetFontPath = MkGetFontPath{}+                 deriving (Show, Typeable)+ +instance Serialize GetFontPath where+        serialize x+          = do putWord8 52+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               putSkip (requiredPadding (size x))+        size x = 4+ +data GetFontPathReply = MkGetFontPathReply{path_len_GetFontPathReply+                                           :: Word16,+                                           path_GetFontPathReply :: [STR]}+                      deriving (Show, Typeable)+ +instance Deserialize GetFontPathReply where+        deserialize+          = do skip 1+               skip 1+               skip 2+               length <- deserialize+               path_len <- deserialize+               skip 22+               path <- deserializeList (fromIntegral path_len)+               let _ = isCard32 length+               return (MkGetFontPathReply path_len path)+ +data CreatePixmap = MkCreatePixmap{depth_CreatePixmap :: Word8,+                                   pid_CreatePixmap :: PIXMAP, drawable_CreatePixmap :: DRAWABLE,+                                   width_CreatePixmap :: Word16, height_CreatePixmap :: Word16}+                  deriving (Show, Typeable)+ +instance Serialize CreatePixmap where+        serialize x+          = do putWord8 53+               serialize (depth_CreatePixmap x)+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (pid_CreatePixmap x)+               serialize (drawable_CreatePixmap x)+               serialize (width_CreatePixmap x)+               serialize (height_CreatePixmap x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + size (depth_CreatePixmap x) + size (pid_CreatePixmap x) ++              size (drawable_CreatePixmap x)+              + size (width_CreatePixmap x)+              + size (height_CreatePixmap x)+ +data FreePixmap = MkFreePixmap{pixmap_FreePixmap :: PIXMAP}+                deriving (Show, Typeable)+ +instance Serialize FreePixmap where+        serialize x+          = do putWord8 54+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (pixmap_FreePixmap x)+               putSkip (requiredPadding (size x))+        size x = 3 + 1 + size (pixmap_FreePixmap x)+ +data GC = GCFunction+        | GCPlaneMask+        | GCForeground+        | GCBackground+        | GCLineWidth+        | GCLineStyle+        | GCCapStyle+        | GCJoinStyle+        | GCFillStyle+        | GCFillRule+        | GCTile+        | GCStipple+        | GCTileStippleOriginX+        | GCTileStippleOriginY+        | GCFont+        | GCSubwindowMode+        | GCGraphicsExposures+        | GCClipOriginX+        | GCClipOriginY+        | GCClipMask+        | GCDashOffset+        | GCDashList+        | GCArcMode+ +instance BitEnum GC where+        toBit GCFunction{} = 0+        toBit GCPlaneMask{} = 1+        toBit GCForeground{} = 2+        toBit GCBackground{} = 3+        toBit GCLineWidth{} = 4+        toBit GCLineStyle{} = 5+        toBit GCCapStyle{} = 6+        toBit GCJoinStyle{} = 7+        toBit GCFillStyle{} = 8+        toBit GCFillRule{} = 9+        toBit GCTile{} = 10+        toBit GCStipple{} = 11+        toBit GCTileStippleOriginX{} = 12+        toBit GCTileStippleOriginY{} = 13+        toBit GCFont{} = 14+        toBit GCSubwindowMode{} = 15+        toBit GCGraphicsExposures{} = 16+        toBit GCClipOriginX{} = 17+        toBit GCClipOriginY{} = 18+        toBit GCClipMask{} = 19+        toBit GCDashOffset{} = 20+        toBit GCDashList{} = 21+        toBit GCArcMode{} = 22+        fromBit 0 = GCFunction+        fromBit 1 = GCPlaneMask+        fromBit 2 = GCForeground+        fromBit 3 = GCBackground+        fromBit 4 = GCLineWidth+        fromBit 5 = GCLineStyle+        fromBit 6 = GCCapStyle+        fromBit 7 = GCJoinStyle+        fromBit 8 = GCFillStyle+        fromBit 9 = GCFillRule+        fromBit 10 = GCTile+        fromBit 11 = GCStipple+        fromBit 12 = GCTileStippleOriginX+        fromBit 13 = GCTileStippleOriginY+        fromBit 14 = GCFont+        fromBit 15 = GCSubwindowMode+        fromBit 16 = GCGraphicsExposures+        fromBit 17 = GCClipOriginX+        fromBit 18 = GCClipOriginY+        fromBit 19 = GCClipMask+        fromBit 20 = GCDashOffset+        fromBit 21 = GCDashList+        fromBit 22 = GCArcMode+ +data GX = GXclear+        | GXand+        | GXandReverse+        | GXcopy+        | GXandInverted+        | GXnoop+        | GXxor+        | GXor+        | GXnor+        | GXequiv+        | GXinvert+        | GXorReverse+        | GXcopyInverted+        | GXorInverted+        | GXnand+        | GXset+ +instance SimpleEnum GX where+        toValue GXclear{} = 0+        toValue GXand{} = 1+        toValue GXandReverse{} = 2+        toValue GXcopy{} = 3+        toValue GXandInverted{} = 4+        toValue GXnoop{} = 5+        toValue GXxor{} = 6+        toValue GXor{} = 7+        toValue GXnor{} = 8+        toValue GXequiv{} = 9+        toValue GXinvert{} = 10+        toValue GXorReverse{} = 11+        toValue GXcopyInverted{} = 12+        toValue GXorInverted{} = 13+        toValue GXnand{} = 14+        toValue GXset{} = 15+        fromValue 0 = GXclear+        fromValue 1 = GXand+        fromValue 2 = GXandReverse+        fromValue 3 = GXcopy+        fromValue 4 = GXandInverted+        fromValue 5 = GXnoop+        fromValue 6 = GXxor+        fromValue 7 = GXor+        fromValue 8 = GXnor+        fromValue 9 = GXequiv+        fromValue 10 = GXinvert+        fromValue 11 = GXorReverse+        fromValue 12 = GXcopyInverted+        fromValue 13 = GXorInverted+        fromValue 14 = GXnand+        fromValue 15 = GXset+ +data LineStyle = LineStyleSolid+               | LineStyleOnOffDash+               | LineStyleDoubleDash+ +instance SimpleEnum LineStyle where+        toValue LineStyleSolid{} = 0+        toValue LineStyleOnOffDash{} = 1+        toValue LineStyleDoubleDash{} = 2+        fromValue 0 = LineStyleSolid+        fromValue 1 = LineStyleOnOffDash+        fromValue 2 = LineStyleDoubleDash+ +data CapStyle = CapStyleNotLast+              | CapStyleButt+              | CapStyleRound+              | CapStyleProjecting+ +instance SimpleEnum CapStyle where+        toValue CapStyleNotLast{} = 0+        toValue CapStyleButt{} = 1+        toValue CapStyleRound{} = 2+        toValue CapStyleProjecting{} = 3+        fromValue 0 = CapStyleNotLast+        fromValue 1 = CapStyleButt+        fromValue 2 = CapStyleRound+        fromValue 3 = CapStyleProjecting+ +data JoinStyle = JoinStyleMitre+               | JoinStyleRound+               | JoinStyleBevel+ +instance SimpleEnum JoinStyle where+        toValue JoinStyleMitre{} = 0+        toValue JoinStyleRound{} = 1+        toValue JoinStyleBevel{} = 2+        fromValue 0 = JoinStyleMitre+        fromValue 1 = JoinStyleRound+        fromValue 2 = JoinStyleBevel+ +data FillStyle = FillStyleSolid+               | FillStyleTiled+               | FillStyleStippled+               | FillStyleOpaqueStippled+ +instance SimpleEnum FillStyle where+        toValue FillStyleSolid{} = 0+        toValue FillStyleTiled{} = 1+        toValue FillStyleStippled{} = 2+        toValue FillStyleOpaqueStippled{} = 3+        fromValue 0 = FillStyleSolid+        fromValue 1 = FillStyleTiled+        fromValue 2 = FillStyleStippled+        fromValue 3 = FillStyleOpaqueStippled+ +data FillRule = FillRuleEvenOdd+              | FillRuleWinding+ +instance SimpleEnum FillRule where+        toValue FillRuleEvenOdd{} = 0+        toValue FillRuleWinding{} = 1+        fromValue 0 = FillRuleEvenOdd+        fromValue 1 = FillRuleWinding+ +data SubwindowMode = SubwindowModeClipByChildren+                   | SubwindowModeIncludeInferiors+ +instance SimpleEnum SubwindowMode where+        toValue SubwindowModeClipByChildren{} = 0+        toValue SubwindowModeIncludeInferiors{} = 1+        fromValue 0 = SubwindowModeClipByChildren+        fromValue 1 = SubwindowModeIncludeInferiors+ +data ArcMode = ArcModeChord+             | ArcModePieSlice+ +instance SimpleEnum ArcMode where+        toValue ArcModeChord{} = 0+        toValue ArcModePieSlice{} = 1+        fromValue 0 = ArcModeChord+        fromValue 1 = ArcModePieSlice+ +data CreateGC = MkCreateGC{cid_CreateGC :: GCONTEXT,+                           drawable_CreateGC :: DRAWABLE, value_CreateGC :: ValueParam Word32}+              deriving (Show, Typeable)+ +instance Serialize CreateGC where+        serialize x+          = do putWord8 55+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (cid_CreateGC x)+               serialize (drawable_CreateGC x)+               serialize (value_CreateGC x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + 1 + size (cid_CreateGC x) + size (drawable_CreateGC x) ++              size (value_CreateGC x)+ +data ChangeGC = MkChangeGC{gc_ChangeGC :: GCONTEXT,+                           value_ChangeGC :: ValueParam Word32}+              deriving (Show, Typeable)+ +instance Serialize ChangeGC where+        serialize x+          = do putWord8 56+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (gc_ChangeGC x)+               serialize (value_ChangeGC x)+               putSkip (requiredPadding (size x))+        size x = 3 + 1 + size (gc_ChangeGC x) + size (value_ChangeGC x)+ +data CopyGC = MkCopyGC{src_gc_CopyGC :: GCONTEXT,+                       dst_gc_CopyGC :: GCONTEXT, value_mask_CopyGC :: Word32}+            deriving (Show, Typeable)+ +instance Serialize CopyGC where+        serialize x+          = do putWord8 57+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (src_gc_CopyGC x)+               serialize (dst_gc_CopyGC x)+               serialize (value_mask_CopyGC x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + 1 + size (src_gc_CopyGC x) + size (dst_gc_CopyGC x) ++              size (value_mask_CopyGC x)+ +data SetDashes = MkSetDashes{gc_SetDashes :: GCONTEXT,+                             dash_offset_SetDashes :: Word16, dashes_len_SetDashes :: Word16,+                             dashes_SetDashes :: [Word8]}+               deriving (Show, Typeable)+ +instance Serialize SetDashes where+        serialize x+          = do putWord8 58+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (gc_SetDashes x)+               serialize (dash_offset_SetDashes x)+               serialize (dashes_len_SetDashes x)+               serializeList (dashes_SetDashes x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + 1 + size (gc_SetDashes x) + size (dash_offset_SetDashes x) ++              size (dashes_len_SetDashes x)+              + sum (map size (dashes_SetDashes x))+ +data ClipOrdering = ClipOrderingUnsorted+                  | ClipOrderingYSorted+                  | ClipOrderingYXSorted+                  | ClipOrderingYXBanded+ +instance SimpleEnum ClipOrdering where+        toValue ClipOrderingUnsorted{} = 0+        toValue ClipOrderingYSorted{} = 1+        toValue ClipOrderingYXSorted{} = 2+        toValue ClipOrderingYXBanded{} = 3+        fromValue 0 = ClipOrderingUnsorted+        fromValue 1 = ClipOrderingYSorted+        fromValue 2 = ClipOrderingYXSorted+        fromValue 3 = ClipOrderingYXBanded+ +data SetClipRectangles = MkSetClipRectangles{ordering_SetClipRectangles+                                             :: Word8,+                                             gc_SetClipRectangles :: GCONTEXT,+                                             clip_x_origin_SetClipRectangles :: Int16,+                                             clip_y_origin_SetClipRectangles :: Int16,+                                             rectangles_SetClipRectangles :: [RECTANGLE]}+                       deriving (Show, Typeable)+ +instance Serialize SetClipRectangles where+        serialize x+          = do putWord8 59+               serialize (ordering_SetClipRectangles x)+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (gc_SetClipRectangles x)+               serialize (clip_x_origin_SetClipRectangles x)+               serialize (clip_y_origin_SetClipRectangles x)+               serializeList (rectangles_SetClipRectangles x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + size (ordering_SetClipRectangles x) ++              size (gc_SetClipRectangles x)+              + size (clip_x_origin_SetClipRectangles x)+              + size (clip_y_origin_SetClipRectangles x)+              + sum (map size (rectangles_SetClipRectangles x))+ +data FreeGC = MkFreeGC{gc_FreeGC :: GCONTEXT}+            deriving (Show, Typeable)+ +instance Serialize FreeGC where+        serialize x+          = do putWord8 60+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (gc_FreeGC x)+               putSkip (requiredPadding (size x))+        size x = 3 + 1 + size (gc_FreeGC x)+ +data ClearArea = MkClearArea{exposures_ClearArea :: Bool,+                             window_ClearArea :: WINDOW, x_ClearArea :: Int16,+                             y_ClearArea :: Int16, width_ClearArea :: Word16,+                             height_ClearArea :: Word16}+               deriving (Show, Typeable)+ +instance Serialize ClearArea where+        serialize x+          = do putWord8 61+               serialize (exposures_ClearArea x)+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (window_ClearArea x)+               serialize (x_ClearArea x)+               serialize (y_ClearArea x)+               serialize (width_ClearArea x)+               serialize (height_ClearArea x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + size (exposures_ClearArea x) + size (window_ClearArea x) ++              size (x_ClearArea x)+              + size (y_ClearArea x)+              + size (width_ClearArea x)+              + size (height_ClearArea x)+ +data CopyArea = MkCopyArea{src_drawable_CopyArea :: DRAWABLE,+                           dst_drawable_CopyArea :: DRAWABLE, gc_CopyArea :: GCONTEXT,+                           src_x_CopyArea :: Int16, src_y_CopyArea :: Int16,+                           dst_x_CopyArea :: Int16, dst_y_CopyArea :: Int16,+                           width_CopyArea :: Word16, height_CopyArea :: Word16}+              deriving (Show, Typeable)+ +instance Serialize CopyArea where+        serialize x+          = do putWord8 62+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (src_drawable_CopyArea x)+               serialize (dst_drawable_CopyArea x)+               serialize (gc_CopyArea x)+               serialize (src_x_CopyArea x)+               serialize (src_y_CopyArea x)+               serialize (dst_x_CopyArea x)+               serialize (dst_y_CopyArea x)+               serialize (width_CopyArea x)+               serialize (height_CopyArea x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + 1 + size (src_drawable_CopyArea x) ++              size (dst_drawable_CopyArea x)+              + size (gc_CopyArea x)+              + size (src_x_CopyArea x)+              + size (src_y_CopyArea x)+              + size (dst_x_CopyArea x)+              + size (dst_y_CopyArea x)+              + size (width_CopyArea x)+              + size (height_CopyArea x)+ +data CopyPlane = MkCopyPlane{src_drawable_CopyPlane :: DRAWABLE,+                             dst_drawable_CopyPlane :: DRAWABLE, gc_CopyPlane :: GCONTEXT,+                             src_x_CopyPlane :: Int16, src_y_CopyPlane :: Int16,+                             dst_x_CopyPlane :: Int16, dst_y_CopyPlane :: Int16,+                             width_CopyPlane :: Word16, height_CopyPlane :: Word16,+                             bit_plane_CopyPlane :: Word32}+               deriving (Show, Typeable)+ +instance Serialize CopyPlane where+        serialize x+          = do putWord8 63+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (src_drawable_CopyPlane x)+               serialize (dst_drawable_CopyPlane x)+               serialize (gc_CopyPlane x)+               serialize (src_x_CopyPlane x)+               serialize (src_y_CopyPlane x)+               serialize (dst_x_CopyPlane x)+               serialize (dst_y_CopyPlane x)+               serialize (width_CopyPlane x)+               serialize (height_CopyPlane x)+               serialize (bit_plane_CopyPlane x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + 1 + size (src_drawable_CopyPlane x) ++              size (dst_drawable_CopyPlane x)+              + size (gc_CopyPlane x)+              + size (src_x_CopyPlane x)+              + size (src_y_CopyPlane x)+              + size (dst_x_CopyPlane x)+              + size (dst_y_CopyPlane x)+              + size (width_CopyPlane x)+              + size (height_CopyPlane x)+              + size (bit_plane_CopyPlane x)+ +data CoordMode = CoordModeOrigin+               | CoordModePrevious+ +instance SimpleEnum CoordMode where+        toValue CoordModeOrigin{} = 0+        toValue CoordModePrevious{} = 1+        fromValue 0 = CoordModeOrigin+        fromValue 1 = CoordModePrevious+ +data PolyPoint = MkPolyPoint{coordinate_mode_PolyPoint :: Word8,+                             drawable_PolyPoint :: DRAWABLE, gc_PolyPoint :: GCONTEXT,+                             points_PolyPoint :: [POINT]}+               deriving (Show, Typeable)+ +instance Serialize PolyPoint where+        serialize x+          = do putWord8 64+               serialize (coordinate_mode_PolyPoint x)+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (drawable_PolyPoint x)+               serialize (gc_PolyPoint x)+               serializeList (points_PolyPoint x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + size (coordinate_mode_PolyPoint x) ++              size (drawable_PolyPoint x)+              + size (gc_PolyPoint x)+              + sum (map size (points_PolyPoint x))+ +data PolyLine = MkPolyLine{coordinate_mode_PolyLine :: Word8,+                           drawable_PolyLine :: DRAWABLE, gc_PolyLine :: GCONTEXT,+                           points_PolyLine :: [POINT]}+              deriving (Show, Typeable)+ +instance Serialize PolyLine where+        serialize x+          = do putWord8 65+               serialize (coordinate_mode_PolyLine x)+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (drawable_PolyLine x)+               serialize (gc_PolyLine x)+               serializeList (points_PolyLine x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + size (coordinate_mode_PolyLine x) ++              size (drawable_PolyLine x)+              + size (gc_PolyLine x)+              + sum (map size (points_PolyLine x))+ +data SEGMENT = MkSEGMENT{x1_SEGMENT :: Int16, y1_SEGMENT :: Int16,+                         x2_SEGMENT :: Int16, y2_SEGMENT :: Int16}+             deriving (Show, Typeable)+ +instance Serialize SEGMENT where+        serialize x+          = do serialize (x1_SEGMENT x)+               serialize (y1_SEGMENT x)+               serialize (x2_SEGMENT x)+               serialize (y2_SEGMENT x)+        size x+          = size (x1_SEGMENT x) + size (y1_SEGMENT x) + size (x2_SEGMENT x) ++              size (y2_SEGMENT x)+ +instance Deserialize SEGMENT where+        deserialize+          = do x1 <- deserialize+               y1 <- deserialize+               x2 <- deserialize+               y2 <- deserialize+               return (MkSEGMENT x1 y1 x2 y2)+ +data PolySegment = MkPolySegment{drawable_PolySegment :: DRAWABLE,+                                 gc_PolySegment :: GCONTEXT, segments_PolySegment :: [SEGMENT]}+                 deriving (Show, Typeable)+ +instance Serialize PolySegment where+        serialize x+          = do putWord8 66+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (drawable_PolySegment x)+               serialize (gc_PolySegment x)+               serializeList (segments_PolySegment x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + 1 + size (drawable_PolySegment x) + size (gc_PolySegment x) ++              sum (map size (segments_PolySegment x))+ +data PolyRectangle = MkPolyRectangle{drawable_PolyRectangle ::+                                     DRAWABLE,+                                     gc_PolyRectangle :: GCONTEXT,+                                     rectangles_PolyRectangle :: [RECTANGLE]}+                   deriving (Show, Typeable)+ +instance Serialize PolyRectangle where+        serialize x+          = do putWord8 67+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (drawable_PolyRectangle x)+               serialize (gc_PolyRectangle x)+               serializeList (rectangles_PolyRectangle x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + 1 + size (drawable_PolyRectangle x) ++              size (gc_PolyRectangle x)+              + sum (map size (rectangles_PolyRectangle x))+ +data PolyArc = MkPolyArc{drawable_PolyArc :: DRAWABLE,+                         gc_PolyArc :: GCONTEXT, arcs_PolyArc :: [ARC]}+             deriving (Show, Typeable)+ +instance Serialize PolyArc where+        serialize x+          = do putWord8 68+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (drawable_PolyArc x)+               serialize (gc_PolyArc x)+               serializeList (arcs_PolyArc x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + 1 + size (drawable_PolyArc x) + size (gc_PolyArc x) ++              sum (map size (arcs_PolyArc x))+ +data PolyShape = PolyShapeComplex+               | PolyShapeNonconvex+               | PolyShapeConvex+ +instance SimpleEnum PolyShape where+        toValue PolyShapeComplex{} = 0+        toValue PolyShapeNonconvex{} = 1+        toValue PolyShapeConvex{} = 2+        fromValue 0 = PolyShapeComplex+        fromValue 1 = PolyShapeNonconvex+        fromValue 2 = PolyShapeConvex+ +data FillPoly = MkFillPoly{drawable_FillPoly :: DRAWABLE,+                           gc_FillPoly :: GCONTEXT, shape_FillPoly :: Word8,+                           coordinate_mode_FillPoly :: Word8, points_FillPoly :: [POINT]}+              deriving (Show, Typeable)+ +instance Serialize FillPoly where+        serialize x+          = do putWord8 69+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (drawable_FillPoly x)+               serialize (gc_FillPoly x)+               serialize (shape_FillPoly x)+               serialize (coordinate_mode_FillPoly x)+               putSkip 2+               serializeList (points_FillPoly x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + 1 + size (drawable_FillPoly x) + size (gc_FillPoly x) ++              size (shape_FillPoly x)+              + size (coordinate_mode_FillPoly x)+              + 2+              + sum (map size (points_FillPoly x))+ +data PolyFillRectangle = MkPolyFillRectangle{drawable_PolyFillRectangle+                                             :: DRAWABLE,+                                             gc_PolyFillRectangle :: GCONTEXT,+                                             rectangles_PolyFillRectangle :: [RECTANGLE]}+                       deriving (Show, Typeable)+ +instance Serialize PolyFillRectangle where+        serialize x+          = do putWord8 70+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (drawable_PolyFillRectangle x)+               serialize (gc_PolyFillRectangle x)+               serializeList (rectangles_PolyFillRectangle x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + 1 + size (drawable_PolyFillRectangle x) ++              size (gc_PolyFillRectangle x)+              + sum (map size (rectangles_PolyFillRectangle x))+ +data PolyFillArc = MkPolyFillArc{drawable_PolyFillArc :: DRAWABLE,+                                 gc_PolyFillArc :: GCONTEXT, arcs_PolyFillArc :: [ARC]}+                 deriving (Show, Typeable)+ +instance Serialize PolyFillArc where+        serialize x+          = do putWord8 71+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (drawable_PolyFillArc x)+               serialize (gc_PolyFillArc x)+               serializeList (arcs_PolyFillArc x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + 1 + size (drawable_PolyFillArc x) + size (gc_PolyFillArc x) ++              sum (map size (arcs_PolyFillArc x))+ +data ImageFormat = ImageFormatXYBitmap+                 | ImageFormatXYPixmap+                 | ImageFormatZPixmap+ +instance SimpleEnum ImageFormat where+        toValue ImageFormatXYBitmap{} = 0+        toValue ImageFormatXYPixmap{} = 1+        toValue ImageFormatZPixmap{} = 2+        fromValue 0 = ImageFormatXYBitmap+        fromValue 1 = ImageFormatXYPixmap+        fromValue 2 = ImageFormatZPixmap+ +data PutImage = MkPutImage{format_PutImage :: Word8,+                           drawable_PutImage :: DRAWABLE, gc_PutImage :: GCONTEXT,+                           width_PutImage :: Word16, height_PutImage :: Word16,+                           dst_x_PutImage :: Int16, dst_y_PutImage :: Int16,+                           left_pad_PutImage :: Word8, depth_PutImage :: Word8,+                           data_PutImage :: [Word8]}+              deriving (Show, Typeable)+ +instance Serialize PutImage where+        serialize x+          = do putWord8 72+               serialize (format_PutImage x)+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (drawable_PutImage x)+               serialize (gc_PutImage x)+               serialize (width_PutImage x)+               serialize (height_PutImage x)+               serialize (dst_x_PutImage x)+               serialize (dst_y_PutImage x)+               serialize (left_pad_PutImage x)+               serialize (depth_PutImage x)+               putSkip 2+               serializeList (data_PutImage x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + size (format_PutImage x) + size (drawable_PutImage x) ++              size (gc_PutImage x)+              + size (width_PutImage x)+              + size (height_PutImage x)+              + size (dst_x_PutImage x)+              + size (dst_y_PutImage x)+              + size (left_pad_PutImage x)+              + size (depth_PutImage x)+              + 2+              + sum (map size (data_PutImage x))+ +data GetImage = MkGetImage{format_GetImage :: Word8,+                           drawable_GetImage :: DRAWABLE, x_GetImage :: Int16,+                           y_GetImage :: Int16, width_GetImage :: Word16,+                           height_GetImage :: Word16, plane_mask_GetImage :: Word32}+              deriving (Show, Typeable)+ +instance Serialize GetImage where+        serialize x+          = do putWord8 73+               serialize (format_GetImage x)+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (drawable_GetImage x)+               serialize (x_GetImage x)+               serialize (y_GetImage x)+               serialize (width_GetImage x)+               serialize (height_GetImage x)+               serialize (plane_mask_GetImage x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + size (format_GetImage x) + size (drawable_GetImage x) ++              size (x_GetImage x)+              + size (y_GetImage x)+              + size (width_GetImage x)+              + size (height_GetImage x)+              + size (plane_mask_GetImage x)+ +data GetImageReply = MkGetImageReply{depth_GetImageReply :: Word8,+                                     visual_GetImageReply :: VISUALID,+                                     data_GetImageReply :: [Word8]}+                   deriving (Show, Typeable)+ +instance Deserialize GetImageReply where+        deserialize+          = do skip 1+               depth <- deserialize+               skip 2+               length <- deserialize+               visual <- deserialize+               skip 20+               data_ <- deserializeList (fromIntegral (fromIntegral (length * 4)))+               let _ = isCard32 length+               return (MkGetImageReply depth visual data_)+ +data PolyText8 = MkPolyText8{drawable_PolyText8 :: DRAWABLE,+                             gc_PolyText8 :: GCONTEXT, x_PolyText8 :: Int16,+                             y_PolyText8 :: Int16, items_PolyText8 :: [Word8]}+               deriving (Show, Typeable)+ +instance Serialize PolyText8 where+        serialize x+          = do putWord8 74+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (drawable_PolyText8 x)+               serialize (gc_PolyText8 x)+               serialize (x_PolyText8 x)+               serialize (y_PolyText8 x)+               serializeList (items_PolyText8 x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + 1 + size (drawable_PolyText8 x) + size (gc_PolyText8 x) ++              size (x_PolyText8 x)+              + size (y_PolyText8 x)+              + sum (map size (items_PolyText8 x))+ +data PolyText16 = MkPolyText16{drawable_PolyText16 :: DRAWABLE,+                               gc_PolyText16 :: GCONTEXT, x_PolyText16 :: Int16,+                               y_PolyText16 :: Int16, items_PolyText16 :: [Word8]}+                deriving (Show, Typeable)+ +instance Serialize PolyText16 where+        serialize x+          = do putWord8 75+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (drawable_PolyText16 x)+               serialize (gc_PolyText16 x)+               serialize (x_PolyText16 x)+               serialize (y_PolyText16 x)+               serializeList (items_PolyText16 x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + 1 + size (drawable_PolyText16 x) + size (gc_PolyText16 x) ++              size (x_PolyText16 x)+              + size (y_PolyText16 x)+              + sum (map size (items_PolyText16 x))+ +data ImageText8 = MkImageText8{string_len_ImageText8 :: Word8,+                               drawable_ImageText8 :: DRAWABLE, gc_ImageText8 :: GCONTEXT,+                               x_ImageText8 :: Int16, y_ImageText8 :: Int16,+                               string_ImageText8 :: [CChar]}+                deriving (Show, Typeable)+ +instance Serialize ImageText8 where+        serialize x+          = do putWord8 76+               serialize (string_len_ImageText8 x)+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (drawable_ImageText8 x)+               serialize (gc_ImageText8 x)+               serialize (x_ImageText8 x)+               serialize (y_ImageText8 x)+               serializeList (string_ImageText8 x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + size (string_len_ImageText8 x) + size (drawable_ImageText8 x)+              + size (gc_ImageText8 x)+              + size (x_ImageText8 x)+              + size (y_ImageText8 x)+              + sum (map size (string_ImageText8 x))+ +data ImageText16 = MkImageText16{string_len_ImageText16 :: Word8,+                                 drawable_ImageText16 :: DRAWABLE, gc_ImageText16 :: GCONTEXT,+                                 x_ImageText16 :: Int16, y_ImageText16 :: Int16,+                                 string_ImageText16 :: [CHAR2B]}+                 deriving (Show, Typeable)+ +instance Serialize ImageText16 where+        serialize x+          = do putWord8 77+               serialize (string_len_ImageText16 x)+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (drawable_ImageText16 x)+               serialize (gc_ImageText16 x)+               serialize (x_ImageText16 x)+               serialize (y_ImageText16 x)+               serializeList (string_ImageText16 x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + size (string_len_ImageText16 x) ++              size (drawable_ImageText16 x)+              + size (gc_ImageText16 x)+              + size (x_ImageText16 x)+              + size (y_ImageText16 x)+              + sum (map size (string_ImageText16 x))+ +data ColormapAlloc = ColormapAllocNone+                   | ColormapAllocAll+ +instance SimpleEnum ColormapAlloc where+        toValue ColormapAllocNone{} = 0+        toValue ColormapAllocAll{} = 1+        fromValue 0 = ColormapAllocNone+        fromValue 1 = ColormapAllocAll+ +data CreateColormap = MkCreateColormap{alloc_CreateColormap ::+                                       Word8,+                                       mid_CreateColormap :: COLORMAP,+                                       window_CreateColormap :: WINDOW,+                                       visual_CreateColormap :: VISUALID}+                    deriving (Show, Typeable)+ +instance Serialize CreateColormap where+        serialize x+          = do putWord8 78+               serialize (alloc_CreateColormap x)+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (mid_CreateColormap x)+               serialize (window_CreateColormap x)+               serialize (visual_CreateColormap x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + size (alloc_CreateColormap x) + size (mid_CreateColormap x) ++              size (window_CreateColormap x)+              + size (visual_CreateColormap x)+ +data FreeColormap = MkFreeColormap{cmap_FreeColormap :: COLORMAP}+                  deriving (Show, Typeable)+ +instance Serialize FreeColormap where+        serialize x+          = do putWord8 79+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (cmap_FreeColormap x)+               putSkip (requiredPadding (size x))+        size x = 3 + 1 + size (cmap_FreeColormap x)+ +data CopyColormapAndFree = MkCopyColormapAndFree{mid_CopyColormapAndFree+                                                 :: COLORMAP,+                                                 src_cmap_CopyColormapAndFree :: COLORMAP}+                         deriving (Show, Typeable)+ +instance Serialize CopyColormapAndFree where+        serialize x+          = do putWord8 80+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (mid_CopyColormapAndFree x)+               serialize (src_cmap_CopyColormapAndFree x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + 1 + size (mid_CopyColormapAndFree x) ++              size (src_cmap_CopyColormapAndFree x)+ +data InstallColormap = MkInstallColormap{cmap_InstallColormap ::+                                         COLORMAP}+                     deriving (Show, Typeable)+ +instance Serialize InstallColormap where+        serialize x+          = do putWord8 81+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (cmap_InstallColormap x)+               putSkip (requiredPadding (size x))+        size x = 3 + 1 + size (cmap_InstallColormap x)+ +data UninstallColormap = MkUninstallColormap{cmap_UninstallColormap+                                             :: COLORMAP}+                       deriving (Show, Typeable)+ +instance Serialize UninstallColormap where+        serialize x+          = do putWord8 82+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (cmap_UninstallColormap x)+               putSkip (requiredPadding (size x))+        size x = 3 + 1 + size (cmap_UninstallColormap x)+ +data ListInstalledColormaps = MkListInstalledColormaps{window_ListInstalledColormaps+                                                       :: WINDOW}+                            deriving (Show, Typeable)+ +instance Serialize ListInstalledColormaps where+        serialize x+          = do putWord8 83+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (window_ListInstalledColormaps x)+               putSkip (requiredPadding (size x))+        size x = 3 + 1 + size (window_ListInstalledColormaps x)+ +data ListInstalledColormapsReply = MkListInstalledColormapsReply{cmaps_len_ListInstalledColormapsReply+                                                                 :: Word16,+                                                                 cmaps_ListInstalledColormapsReply+                                                                 :: [COLORMAP]}+                                 deriving (Show, Typeable)+ +instance Deserialize ListInstalledColormapsReply where+        deserialize+          = do skip 1+               skip 1+               skip 2+               length <- deserialize+               cmaps_len <- deserialize+               skip 22+               cmaps <- deserializeList (fromIntegral cmaps_len)+               let _ = isCard32 length+               return (MkListInstalledColormapsReply cmaps_len cmaps)+ +data AllocColor = MkAllocColor{cmap_AllocColor :: COLORMAP,+                               red_AllocColor :: Word16, green_AllocColor :: Word16,+                               blue_AllocColor :: Word16}+                deriving (Show, Typeable)+ +instance Serialize AllocColor where+        serialize x+          = do putWord8 84+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (cmap_AllocColor x)+               serialize (red_AllocColor x)+               serialize (green_AllocColor x)+               serialize (blue_AllocColor x)+               putSkip 2+               putSkip (requiredPadding (size x))+        size x+          = 3 + 1 + size (cmap_AllocColor x) + size (red_AllocColor x) ++              size (green_AllocColor x)+              + size (blue_AllocColor x)+              + 2+ +data AllocColorReply = MkAllocColorReply{red_AllocColorReply ::+                                         Word16,+                                         green_AllocColorReply :: Word16,+                                         blue_AllocColorReply :: Word16,+                                         pixel_AllocColorReply :: Word32}+                     deriving (Show, Typeable)+ +instance Deserialize AllocColorReply where+        deserialize+          = do skip 1+               skip 1+               skip 2+               length <- deserialize+               red <- deserialize+               green <- deserialize+               blue <- deserialize+               skip 2+               pixel <- deserialize+               let _ = isCard32 length+               return (MkAllocColorReply red green blue pixel)+ +data AllocNamedColor = MkAllocNamedColor{cmap_AllocNamedColor ::+                                         COLORMAP,+                                         name_len_AllocNamedColor :: Word16,+                                         name_AllocNamedColor :: [CChar]}+                     deriving (Show, Typeable)+ +instance Serialize AllocNamedColor where+        serialize x+          = do putWord8 85+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (cmap_AllocNamedColor x)+               serialize (name_len_AllocNamedColor x)+               putSkip 2+               serializeList (name_AllocNamedColor x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + 1 + size (cmap_AllocNamedColor x) ++              size (name_len_AllocNamedColor x)+              + 2+              + sum (map size (name_AllocNamedColor x))+ +data AllocNamedColorReply = MkAllocNamedColorReply{pixel_AllocNamedColorReply+                                                   :: Word32,+                                                   exact_red_AllocNamedColorReply :: Word16,+                                                   exact_green_AllocNamedColorReply :: Word16,+                                                   exact_blue_AllocNamedColorReply :: Word16,+                                                   visual_red_AllocNamedColorReply :: Word16,+                                                   visual_green_AllocNamedColorReply :: Word16,+                                                   visual_blue_AllocNamedColorReply :: Word16}+                          deriving (Show, Typeable)+ +instance Deserialize AllocNamedColorReply where+        deserialize+          = do skip 1+               skip 1+               skip 2+               length <- deserialize+               pixel <- deserialize+               exact_red <- deserialize+               exact_green <- deserialize+               exact_blue <- deserialize+               visual_red <- deserialize+               visual_green <- deserialize+               visual_blue <- deserialize+               let _ = isCard32 length+               return+                 (MkAllocNamedColorReply pixel exact_red exact_green exact_blue+                    visual_red+                    visual_green+                    visual_blue)+ +data AllocColorCells = MkAllocColorCells{contiguous_AllocColorCells+                                         :: Bool,+                                         cmap_AllocColorCells :: COLORMAP,+                                         colors_AllocColorCells :: Word16,+                                         planes_AllocColorCells :: Word16}+                     deriving (Show, Typeable)+ +instance Serialize AllocColorCells where+        serialize x+          = do putWord8 86+               serialize (contiguous_AllocColorCells x)+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (cmap_AllocColorCells x)+               serialize (colors_AllocColorCells x)+               serialize (planes_AllocColorCells x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + size (contiguous_AllocColorCells x) ++              size (cmap_AllocColorCells x)+              + size (colors_AllocColorCells x)+              + size (planes_AllocColorCells x)+ +data AllocColorCellsReply = MkAllocColorCellsReply{pixels_len_AllocColorCellsReply+                                                   :: Word16,+                                                   masks_len_AllocColorCellsReply :: Word16,+                                                   pixels_AllocColorCellsReply :: [Word32],+                                                   masks_AllocColorCellsReply :: [Word32]}+                          deriving (Show, Typeable)+ +instance Deserialize AllocColorCellsReply where+        deserialize+          = do skip 1+               skip 1+               skip 2+               length <- deserialize+               pixels_len <- deserialize+               masks_len <- deserialize+               skip 20+               pixels <- deserializeList (fromIntegral pixels_len)+               masks <- deserializeList (fromIntegral masks_len)+               let _ = isCard32 length+               return (MkAllocColorCellsReply pixels_len masks_len pixels masks)+ +data AllocColorPlanes = MkAllocColorPlanes{contiguous_AllocColorPlanes+                                           :: Bool,+                                           cmap_AllocColorPlanes :: COLORMAP,+                                           colors_AllocColorPlanes :: Word16,+                                           reds_AllocColorPlanes :: Word16,+                                           greens_AllocColorPlanes :: Word16,+                                           blues_AllocColorPlanes :: Word16}+                      deriving (Show, Typeable)+ +instance Serialize AllocColorPlanes where+        serialize x+          = do putWord8 87+               serialize (contiguous_AllocColorPlanes x)+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (cmap_AllocColorPlanes x)+               serialize (colors_AllocColorPlanes x)+               serialize (reds_AllocColorPlanes x)+               serialize (greens_AllocColorPlanes x)+               serialize (blues_AllocColorPlanes x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + size (contiguous_AllocColorPlanes x) ++              size (cmap_AllocColorPlanes x)+              + size (colors_AllocColorPlanes x)+              + size (reds_AllocColorPlanes x)+              + size (greens_AllocColorPlanes x)+              + size (blues_AllocColorPlanes x)+ +data AllocColorPlanesReply = MkAllocColorPlanesReply{pixels_len_AllocColorPlanesReply+                                                     :: Word16,+                                                     red_mask_AllocColorPlanesReply :: Word32,+                                                     green_mask_AllocColorPlanesReply :: Word32,+                                                     blue_mask_AllocColorPlanesReply :: Word32,+                                                     pixels_AllocColorPlanesReply :: [Word32]}+                           deriving (Show, Typeable)+ +instance Deserialize AllocColorPlanesReply where+        deserialize+          = do skip 1+               skip 1+               skip 2+               length <- deserialize+               pixels_len <- deserialize+               skip 2+               red_mask <- deserialize+               green_mask <- deserialize+               blue_mask <- deserialize+               skip 8+               pixels <- deserializeList (fromIntegral pixels_len)+               let _ = isCard32 length+               return+                 (MkAllocColorPlanesReply pixels_len red_mask green_mask blue_mask+                    pixels)+ +data FreeColors = MkFreeColors{cmap_FreeColors :: COLORMAP,+                               plane_mask_FreeColors :: Word32, pixels_FreeColors :: [Word32]}+                deriving (Show, Typeable)+ +instance Serialize FreeColors where+        serialize x+          = do putWord8 88+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (cmap_FreeColors x)+               serialize (plane_mask_FreeColors x)+               serializeList (pixels_FreeColors x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + 1 + size (cmap_FreeColors x) + size (plane_mask_FreeColors x)+              + sum (map size (pixels_FreeColors x))+ +data ColorFlag = ColorFlagRed+               | ColorFlagGreen+               | ColorFlagBlue+ +instance BitEnum ColorFlag where+        toBit ColorFlagRed{} = 0+        toBit ColorFlagGreen{} = 1+        toBit ColorFlagBlue{} = 2+        fromBit 0 = ColorFlagRed+        fromBit 1 = ColorFlagGreen+        fromBit 2 = ColorFlagBlue+ +data COLORITEM = MkCOLORITEM{pixel_COLORITEM :: Word32,+                             red_COLORITEM :: Word16, green_COLORITEM :: Word16,+                             blue_COLORITEM :: Word16, flags_COLORITEM :: Word8}+               deriving (Show, Typeable)+ +instance Serialize COLORITEM where+        serialize x+          = do serialize (pixel_COLORITEM x)+               serialize (red_COLORITEM x)+               serialize (green_COLORITEM x)+               serialize (blue_COLORITEM x)+               serialize (flags_COLORITEM x)+               putSkip 1+        size x+          = size (pixel_COLORITEM x) + size (red_COLORITEM x) ++              size (green_COLORITEM x)+              + size (blue_COLORITEM x)+              + size (flags_COLORITEM x)+              + 1+ +instance Deserialize COLORITEM where+        deserialize+          = do pixel <- deserialize+               red <- deserialize+               green <- deserialize+               blue <- deserialize+               flags <- deserialize+               skip 1+               return (MkCOLORITEM pixel red green blue flags)+ +data StoreColors = MkStoreColors{cmap_StoreColors :: COLORMAP,+                                 items_StoreColors :: [COLORITEM]}+                 deriving (Show, Typeable)+ +instance Serialize StoreColors where+        serialize x+          = do putWord8 89+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (cmap_StoreColors x)+               serializeList (items_StoreColors x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + 1 + size (cmap_StoreColors x) ++              sum (map size (items_StoreColors x))+ +data StoreNamedColor = MkStoreNamedColor{flags_StoreNamedColor ::+                                         Word8,+                                         cmap_StoreNamedColor :: COLORMAP,+                                         pixel_StoreNamedColor :: Word32,+                                         name_len_StoreNamedColor :: Word16,+                                         name_StoreNamedColor :: [CChar]}+                     deriving (Show, Typeable)+ +instance Serialize StoreNamedColor where+        serialize x+          = do putWord8 90+               serialize (flags_StoreNamedColor x)+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (cmap_StoreNamedColor x)+               serialize (pixel_StoreNamedColor x)+               serialize (name_len_StoreNamedColor x)+               putSkip 2+               serializeList (name_StoreNamedColor x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + size (flags_StoreNamedColor x) ++              size (cmap_StoreNamedColor x)+              + size (pixel_StoreNamedColor x)+              + size (name_len_StoreNamedColor x)+              + 2+              + sum (map size (name_StoreNamedColor x))+ +data RGB = MkRGB{red_RGB :: Word16, green_RGB :: Word16,+                 blue_RGB :: Word16}+         deriving (Show, Typeable)+ +instance Serialize RGB where+        serialize x+          = do serialize (red_RGB x)+               serialize (green_RGB x)+               serialize (blue_RGB x)+               putSkip 2+        size x+          = size (red_RGB x) + size (green_RGB x) + size (blue_RGB x) + 2+ +instance Deserialize RGB where+        deserialize+          = do red <- deserialize+               green <- deserialize+               blue <- deserialize+               skip 2+               return (MkRGB red green blue)+ +data QueryColors = MkQueryColors{cmap_QueryColors :: COLORMAP,+                                 pixels_QueryColors :: [Word32]}+                 deriving (Show, Typeable)+ +instance Serialize QueryColors where+        serialize x+          = do putWord8 91+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (cmap_QueryColors x)+               serializeList (pixels_QueryColors x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + 1 + size (cmap_QueryColors x) ++              sum (map size (pixels_QueryColors x))+ +data QueryColorsReply = MkQueryColorsReply{colors_len_QueryColorsReply+                                           :: Word16,+                                           colors_QueryColorsReply :: [RGB]}+                      deriving (Show, Typeable)+ +instance Deserialize QueryColorsReply where+        deserialize+          = do skip 1+               skip 1+               skip 2+               length <- deserialize+               colors_len <- deserialize+               skip 22+               colors <- deserializeList (fromIntegral colors_len)+               let _ = isCard32 length+               return (MkQueryColorsReply colors_len colors)+ +data LookupColor = MkLookupColor{cmap_LookupColor :: COLORMAP,+                                 name_len_LookupColor :: Word16, name_LookupColor :: [CChar]}+                 deriving (Show, Typeable)+ +instance Serialize LookupColor where+        serialize x+          = do putWord8 92+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (cmap_LookupColor x)+               serialize (name_len_LookupColor x)+               putSkip 2+               serializeList (name_LookupColor x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + 1 + size (cmap_LookupColor x) + size (name_len_LookupColor x)+              + 2+              + sum (map size (name_LookupColor x))+ +data LookupColorReply = MkLookupColorReply{exact_red_LookupColorReply+                                           :: Word16,+                                           exact_green_LookupColorReply :: Word16,+                                           exact_blue_LookupColorReply :: Word16,+                                           visual_red_LookupColorReply :: Word16,+                                           visual_green_LookupColorReply :: Word16,+                                           visual_blue_LookupColorReply :: Word16}+                      deriving (Show, Typeable)+ +instance Deserialize LookupColorReply where+        deserialize+          = do skip 1+               skip 1+               skip 2+               length <- deserialize+               exact_red <- deserialize+               exact_green <- deserialize+               exact_blue <- deserialize+               visual_red <- deserialize+               visual_green <- deserialize+               visual_blue <- deserialize+               let _ = isCard32 length+               return+                 (MkLookupColorReply exact_red exact_green exact_blue visual_red+                    visual_green+                    visual_blue)+ +data CreateCursor = MkCreateCursor{cid_CreateCursor :: CURSOR,+                                   source_CreateCursor :: PIXMAP, mask_CreateCursor :: PIXMAP,+                                   fore_red_CreateCursor :: Word16,+                                   fore_green_CreateCursor :: Word16,+                                   fore_blue_CreateCursor :: Word16,+                                   back_red_CreateCursor :: Word16,+                                   back_green_CreateCursor :: Word16,+                                   back_blue_CreateCursor :: Word16, x_CreateCursor :: Word16,+                                   y_CreateCursor :: Word16}+                  deriving (Show, Typeable)+ +instance Serialize CreateCursor where+        serialize x+          = do putWord8 93+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (cid_CreateCursor x)+               serialize (source_CreateCursor x)+               serialize (mask_CreateCursor x)+               serialize (fore_red_CreateCursor x)+               serialize (fore_green_CreateCursor x)+               serialize (fore_blue_CreateCursor x)+               serialize (back_red_CreateCursor x)+               serialize (back_green_CreateCursor x)+               serialize (back_blue_CreateCursor x)+               serialize (x_CreateCursor x)+               serialize (y_CreateCursor x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + 1 + size (cid_CreateCursor x) + size (source_CreateCursor x)+              + size (mask_CreateCursor x)+              + size (fore_red_CreateCursor x)+              + size (fore_green_CreateCursor x)+              + size (fore_blue_CreateCursor x)+              + size (back_red_CreateCursor x)+              + size (back_green_CreateCursor x)+              + size (back_blue_CreateCursor x)+              + size (x_CreateCursor x)+              + size (y_CreateCursor x)+ +data CreateGlyphCursor = MkCreateGlyphCursor{cid_CreateGlyphCursor+                                             :: CURSOR,+                                             source_font_CreateGlyphCursor :: FONT,+                                             mask_font_CreateGlyphCursor :: FONT,+                                             source_char_CreateGlyphCursor :: Word16,+                                             mask_char_CreateGlyphCursor :: Word16,+                                             fore_red_CreateGlyphCursor :: Word16,+                                             fore_green_CreateGlyphCursor :: Word16,+                                             fore_blue_CreateGlyphCursor :: Word16,+                                             back_red_CreateGlyphCursor :: Word16,+                                             back_green_CreateGlyphCursor :: Word16,+                                             back_blue_CreateGlyphCursor :: Word16}+                       deriving (Show, Typeable)+ +instance Serialize CreateGlyphCursor where+        serialize x+          = do putWord8 94+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (cid_CreateGlyphCursor x)+               serialize (source_font_CreateGlyphCursor x)+               serialize (mask_font_CreateGlyphCursor x)+               serialize (source_char_CreateGlyphCursor x)+               serialize (mask_char_CreateGlyphCursor x)+               serialize (fore_red_CreateGlyphCursor x)+               serialize (fore_green_CreateGlyphCursor x)+               serialize (fore_blue_CreateGlyphCursor x)+               serialize (back_red_CreateGlyphCursor x)+               serialize (back_green_CreateGlyphCursor x)+               serialize (back_blue_CreateGlyphCursor x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + 1 + size (cid_CreateGlyphCursor x) ++              size (source_font_CreateGlyphCursor x)+              + size (mask_font_CreateGlyphCursor x)+              + size (source_char_CreateGlyphCursor x)+              + size (mask_char_CreateGlyphCursor x)+              + size (fore_red_CreateGlyphCursor x)+              + size (fore_green_CreateGlyphCursor x)+              + size (fore_blue_CreateGlyphCursor x)+              + size (back_red_CreateGlyphCursor x)+              + size (back_green_CreateGlyphCursor x)+              + size (back_blue_CreateGlyphCursor x)+ +data FreeCursor = MkFreeCursor{cursor_FreeCursor :: CURSOR}+                deriving (Show, Typeable)+ +instance Serialize FreeCursor where+        serialize x+          = do putWord8 95+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (cursor_FreeCursor x)+               putSkip (requiredPadding (size x))+        size x = 3 + 1 + size (cursor_FreeCursor x)+ +data RecolorCursor = MkRecolorCursor{cursor_RecolorCursor ::+                                     CURSOR,+                                     fore_red_RecolorCursor :: Word16,+                                     fore_green_RecolorCursor :: Word16,+                                     fore_blue_RecolorCursor :: Word16,+                                     back_red_RecolorCursor :: Word16,+                                     back_green_RecolorCursor :: Word16,+                                     back_blue_RecolorCursor :: Word16}+                   deriving (Show, Typeable)+ +instance Serialize RecolorCursor where+        serialize x+          = do putWord8 96+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (cursor_RecolorCursor x)+               serialize (fore_red_RecolorCursor x)+               serialize (fore_green_RecolorCursor x)+               serialize (fore_blue_RecolorCursor x)+               serialize (back_red_RecolorCursor x)+               serialize (back_green_RecolorCursor x)+               serialize (back_blue_RecolorCursor x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + 1 + size (cursor_RecolorCursor x) ++              size (fore_red_RecolorCursor x)+              + size (fore_green_RecolorCursor x)+              + size (fore_blue_RecolorCursor x)+              + size (back_red_RecolorCursor x)+              + size (back_green_RecolorCursor x)+              + size (back_blue_RecolorCursor x)+ +data QueryShapeOf = QueryShapeOfLargestCursor+                  | QueryShapeOfFastestTile+                  | QueryShapeOfFastestStipple+ +instance SimpleEnum QueryShapeOf where+        toValue QueryShapeOfLargestCursor{} = 0+        toValue QueryShapeOfFastestTile{} = 1+        toValue QueryShapeOfFastestStipple{} = 2+        fromValue 0 = QueryShapeOfLargestCursor+        fromValue 1 = QueryShapeOfFastestTile+        fromValue 2 = QueryShapeOfFastestStipple+ +data QueryBestSize = MkQueryBestSize{class_QueryBestSize :: Word8,+                                     drawable_QueryBestSize :: DRAWABLE,+                                     width_QueryBestSize :: Word16, height_QueryBestSize :: Word16}+                   deriving (Show, Typeable)+ +instance Serialize QueryBestSize where+        serialize x+          = do putWord8 97+               serialize (class_QueryBestSize x)+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (drawable_QueryBestSize x)+               serialize (width_QueryBestSize x)+               serialize (height_QueryBestSize x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + size (class_QueryBestSize x) ++              size (drawable_QueryBestSize x)+              + size (width_QueryBestSize x)+              + size (height_QueryBestSize x)+ +data QueryBestSizeReply = MkQueryBestSizeReply{width_QueryBestSizeReply+                                               :: Word16,+                                               height_QueryBestSizeReply :: Word16}+                        deriving (Show, Typeable)+ +instance Deserialize QueryBestSizeReply where+        deserialize+          = do skip 1+               skip 1+               skip 2+               length <- deserialize+               width <- deserialize+               height <- deserialize+               let _ = isCard32 length+               return (MkQueryBestSizeReply width height)+ +data QueryExtension = MkQueryExtension{name_len_QueryExtension ::+                                       Word16,+                                       name_QueryExtension :: [CChar]}+                    deriving (Show, Typeable)+ +instance Serialize QueryExtension where+        serialize x+          = do putWord8 98+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (name_len_QueryExtension x)+               putSkip 2+               serializeList (name_QueryExtension x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + 1 + size (name_len_QueryExtension x) + 2 ++              sum (map size (name_QueryExtension x))+ +data QueryExtensionReply = MkQueryExtensionReply{present_QueryExtensionReply+                                                 :: Bool,+                                                 major_opcode_QueryExtensionReply :: Word8,+                                                 first_event_QueryExtensionReply :: Word8,+                                                 first_error_QueryExtensionReply :: Word8}+                         deriving (Show, Typeable)+ +instance Deserialize QueryExtensionReply where+        deserialize+          = do skip 1+               skip 1+               skip 2+               length <- deserialize+               present <- deserialize+               major_opcode <- deserialize+               first_event <- deserialize+               first_error <- deserialize+               let _ = isCard32 length+               return+                 (MkQueryExtensionReply present major_opcode first_event+                    first_error)+ +data ListExtensions = MkListExtensions{}+                    deriving (Show, Typeable)+ +instance Serialize ListExtensions where+        serialize x+          = do putWord8 99+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               putSkip (requiredPadding (size x))+        size x = 4+ +data ListExtensionsReply = MkListExtensionsReply{names_len_ListExtensionsReply+                                                 :: Word8,+                                                 names_ListExtensionsReply :: [STR]}+                         deriving (Show, Typeable)+ +instance Deserialize ListExtensionsReply where+        deserialize+          = do skip 1+               names_len <- deserialize+               skip 2+               length <- deserialize+               skip 24+               names <- deserializeList (fromIntegral names_len)+               let _ = isCard32 length+               return (MkListExtensionsReply names_len names)+ +data ChangeKeyboardMapping = MkChangeKeyboardMapping{keycode_count_ChangeKeyboardMapping+                                                     :: Word8,+                                                     first_keycode_ChangeKeyboardMapping :: KEYCODE,+                                                     keysyms_per_keycode_ChangeKeyboardMapping ::+                                                     Word8,+                                                     keysyms_ChangeKeyboardMapping :: [KEYSYM]}+                           deriving (Show, Typeable)+ +instance Serialize ChangeKeyboardMapping where+        serialize x+          = do putWord8 100+               serialize (keycode_count_ChangeKeyboardMapping x)+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (first_keycode_ChangeKeyboardMapping x)+               serialize (keysyms_per_keycode_ChangeKeyboardMapping x)+               serializeList (keysyms_ChangeKeyboardMapping x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + size (keycode_count_ChangeKeyboardMapping x) ++              size (first_keycode_ChangeKeyboardMapping x)+              + size (keysyms_per_keycode_ChangeKeyboardMapping x)+              + sum (map size (keysyms_ChangeKeyboardMapping x))+ +data GetKeyboardMapping = MkGetKeyboardMapping{first_keycode_GetKeyboardMapping+                                               :: KEYCODE,+                                               count_GetKeyboardMapping :: Word8}+                        deriving (Show, Typeable)+ +instance Serialize GetKeyboardMapping where+        serialize x+          = do putWord8 101+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (first_keycode_GetKeyboardMapping x)+               serialize (count_GetKeyboardMapping x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + 1 + size (first_keycode_GetKeyboardMapping x) ++              size (count_GetKeyboardMapping x)+ +data GetKeyboardMappingReply = MkGetKeyboardMappingReply{keysyms_per_keycode_GetKeyboardMappingReply+                                                         :: Word8,+                                                         keysyms_GetKeyboardMappingReply ::+                                                         [KEYSYM]}+                             deriving (Show, Typeable)+ +instance Deserialize GetKeyboardMappingReply where+        deserialize+          = do skip 1+               keysyms_per_keycode <- deserialize+               skip 2+               length <- deserialize+               skip 24+               keysyms <- deserializeList (fromIntegral length)+               let _ = isCard32 length+               return (MkGetKeyboardMappingReply keysyms_per_keycode keysyms)+ +data KB = KBKeyClickPercent+        | KBBellPercent+        | KBBellPitch+        | KBBellDuration+        | KBLed+        | KBLedMode+        | KBKey+        | KBAutoRepeatMode+ +instance BitEnum KB where+        toBit KBKeyClickPercent{} = 0+        toBit KBBellPercent{} = 1+        toBit KBBellPitch{} = 2+        toBit KBBellDuration{} = 3+        toBit KBLed{} = 4+        toBit KBLedMode{} = 5+        toBit KBKey{} = 6+        toBit KBAutoRepeatMode{} = 7+        fromBit 0 = KBKeyClickPercent+        fromBit 1 = KBBellPercent+        fromBit 2 = KBBellPitch+        fromBit 3 = KBBellDuration+        fromBit 4 = KBLed+        fromBit 5 = KBLedMode+        fromBit 6 = KBKey+        fromBit 7 = KBAutoRepeatMode+ +data LedMode = LedModeOff+             | LedModeOn+ +instance SimpleEnum LedMode where+        toValue LedModeOff{} = 0+        toValue LedModeOn{} = 1+        fromValue 0 = LedModeOff+        fromValue 1 = LedModeOn+ +data AutoRepeatMode = AutoRepeatModeOff+                    | AutoRepeatModeOn+                    | AutoRepeatModeDefault+ +instance SimpleEnum AutoRepeatMode where+        toValue AutoRepeatModeOff{} = 0+        toValue AutoRepeatModeOn{} = 1+        toValue AutoRepeatModeDefault{} = 2+        fromValue 0 = AutoRepeatModeOff+        fromValue 1 = AutoRepeatModeOn+        fromValue 2 = AutoRepeatModeDefault+ +data ChangeKeyboardControl = MkChangeKeyboardControl{value_ChangeKeyboardControl+                                                     :: ValueParam Word32}+                           deriving (Show, Typeable)+ +instance Serialize ChangeKeyboardControl where+        serialize x+          = do putWord8 102+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (value_ChangeKeyboardControl x)+               putSkip (requiredPadding (size x))+        size x = 3 + 1 + size (value_ChangeKeyboardControl x)+ +data GetKeyboardControl = MkGetKeyboardControl{}+                        deriving (Show, Typeable)+ +instance Serialize GetKeyboardControl where+        serialize x+          = do putWord8 103+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               putSkip (requiredPadding (size x))+        size x = 4+ +data GetKeyboardControlReply = MkGetKeyboardControlReply{global_auto_repeat_GetKeyboardControlReply+                                                         :: Word8,+                                                         led_mask_GetKeyboardControlReply :: Word32,+                                                         key_click_percent_GetKeyboardControlReply+                                                         :: Word8,+                                                         bell_percent_GetKeyboardControlReply ::+                                                         Word8,+                                                         bell_pitch_GetKeyboardControlReply ::+                                                         Word16,+                                                         bell_duration_GetKeyboardControlReply ::+                                                         Word16,+                                                         auto_repeats_GetKeyboardControlReply ::+                                                         [Word8]}+                             deriving (Show, Typeable)+ +instance Deserialize GetKeyboardControlReply where+        deserialize+          = do skip 1+               global_auto_repeat <- deserialize+               skip 2+               length <- deserialize+               led_mask <- deserialize+               key_click_percent <- deserialize+               bell_percent <- deserialize+               bell_pitch <- deserialize+               bell_duration <- deserialize+               skip 2+               auto_repeats <- deserializeList (fromIntegral 32)+               let _ = isCard32 length+               return+                 (MkGetKeyboardControlReply global_auto_repeat led_mask+                    key_click_percent+                    bell_percent+                    bell_pitch+                    bell_duration+                    auto_repeats)+ +data Bell = MkBell{percent_Bell :: Int8}+          deriving (Show, Typeable)+ +instance Serialize Bell where+        serialize x+          = do putWord8 104+               serialize (percent_Bell x)+               serialize (convertBytesToRequestSize (size x) :: Int16)+               putSkip (requiredPadding (size x))+        size x = 3 + size (percent_Bell x)+ +data ChangePointerControl = MkChangePointerControl{acceleration_numerator_ChangePointerControl+                                                   :: Int16,+                                                   acceleration_denominator_ChangePointerControl ::+                                                   Int16,+                                                   threshold_ChangePointerControl :: Int16,+                                                   do_acceleration_ChangePointerControl :: Bool,+                                                   do_threshold_ChangePointerControl :: Bool}+                          deriving (Show, Typeable)+ +instance Serialize ChangePointerControl where+        serialize x+          = do putWord8 105+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (acceleration_numerator_ChangePointerControl x)+               serialize (acceleration_denominator_ChangePointerControl x)+               serialize (threshold_ChangePointerControl x)+               serialize (do_acceleration_ChangePointerControl x)+               serialize (do_threshold_ChangePointerControl x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + 1 + size (acceleration_numerator_ChangePointerControl x) ++              size (acceleration_denominator_ChangePointerControl x)+              + size (threshold_ChangePointerControl x)+              + size (do_acceleration_ChangePointerControl x)+              + size (do_threshold_ChangePointerControl x)+ +data GetPointerControl = MkGetPointerControl{}+                       deriving (Show, Typeable)+ +instance Serialize GetPointerControl where+        serialize x+          = do putWord8 106+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               putSkip (requiredPadding (size x))+        size x = 4+ +data GetPointerControlReply = MkGetPointerControlReply{acceleration_numerator_GetPointerControlReply+                                                       :: Word16,+                                                       acceleration_denominator_GetPointerControlReply+                                                       :: Word16,+                                                       threshold_GetPointerControlReply :: Word16}+                            deriving (Show, Typeable)+ +instance Deserialize GetPointerControlReply where+        deserialize+          = do skip 1+               skip 1+               skip 2+               length <- deserialize+               acceleration_numerator <- deserialize+               acceleration_denominator <- deserialize+               threshold <- deserialize+               skip 18+               let _ = isCard32 length+               return+                 (MkGetPointerControlReply acceleration_numerator+                    acceleration_denominator+                    threshold)+ +data Blanking = BlankingNotPreferred+              | BlankingPreferred+              | BlankingDefault+ +instance SimpleEnum Blanking where+        toValue BlankingNotPreferred{} = 0+        toValue BlankingPreferred{} = 1+        toValue BlankingDefault{} = 2+        fromValue 0 = BlankingNotPreferred+        fromValue 1 = BlankingPreferred+        fromValue 2 = BlankingDefault+ +data Exposures = ExposuresNotAllowed+               | ExposuresAllowed+               | ExposuresDefault+ +instance SimpleEnum Exposures where+        toValue ExposuresNotAllowed{} = 0+        toValue ExposuresAllowed{} = 1+        toValue ExposuresDefault{} = 2+        fromValue 0 = ExposuresNotAllowed+        fromValue 1 = ExposuresAllowed+        fromValue 2 = ExposuresDefault+ +data SetScreenSaver = MkSetScreenSaver{timeout_SetScreenSaver ::+                                       Int16,+                                       interval_SetScreenSaver :: Int16,+                                       prefer_blanking_SetScreenSaver :: Word8,+                                       allow_exposures_SetScreenSaver :: Word8}+                    deriving (Show, Typeable)+ +instance Serialize SetScreenSaver where+        serialize x+          = do putWord8 107+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (timeout_SetScreenSaver x)+               serialize (interval_SetScreenSaver x)+               serialize (prefer_blanking_SetScreenSaver x)+               serialize (allow_exposures_SetScreenSaver x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + 1 + size (timeout_SetScreenSaver x) ++              size (interval_SetScreenSaver x)+              + size (prefer_blanking_SetScreenSaver x)+              + size (allow_exposures_SetScreenSaver x)+ +data GetScreenSaver = MkGetScreenSaver{}+                    deriving (Show, Typeable)+ +instance Serialize GetScreenSaver where+        serialize x+          = do putWord8 108+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               putSkip (requiredPadding (size x))+        size x = 4+ +data GetScreenSaverReply = MkGetScreenSaverReply{timeout_GetScreenSaverReply+                                                 :: Word16,+                                                 interval_GetScreenSaverReply :: Word16,+                                                 prefer_blanking_GetScreenSaverReply :: Word8,+                                                 allow_exposures_GetScreenSaverReply :: Word8}+                         deriving (Show, Typeable)+ +instance Deserialize GetScreenSaverReply where+        deserialize+          = do skip 1+               skip 1+               skip 2+               length <- deserialize+               timeout <- deserialize+               interval <- deserialize+               prefer_blanking <- deserialize+               allow_exposures <- deserialize+               skip 18+               let _ = isCard32 length+               return+                 (MkGetScreenSaverReply timeout interval prefer_blanking+                    allow_exposures)+ +data HostMode = HostModeInsert+              | HostModeDelete+ +instance SimpleEnum HostMode where+        toValue HostModeInsert{} = 0+        toValue HostModeDelete{} = 1+        fromValue 0 = HostModeInsert+        fromValue 1 = HostModeDelete+ +data Family = FamilyInternet+            | FamilyDECnet+            | FamilyChaos+            | FamilyServerInterpreted+            | FamilyInternet6+ +instance SimpleEnum Family where+        toValue FamilyInternet{} = 0+        toValue FamilyDECnet{} = 1+        toValue FamilyChaos{} = 2+        toValue FamilyServerInterpreted{} = 5+        toValue FamilyInternet6{} = 6+        fromValue 0 = FamilyInternet+        fromValue 1 = FamilyDECnet+        fromValue 2 = FamilyChaos+        fromValue 5 = FamilyServerInterpreted+        fromValue 6 = FamilyInternet6+ +data ChangeHosts = MkChangeHosts{mode_ChangeHosts :: Word8,+                                 family_ChangeHosts :: Word8, address_len_ChangeHosts :: Word16,+                                 address_ChangeHosts :: [CChar]}+                 deriving (Show, Typeable)+ +instance Serialize ChangeHosts where+        serialize x+          = do putWord8 109+               serialize (mode_ChangeHosts x)+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (family_ChangeHosts x)+               putSkip 1+               serialize (address_len_ChangeHosts x)+               serializeList (address_ChangeHosts x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + size (mode_ChangeHosts x) + size (family_ChangeHosts x) + 1 ++              size (address_len_ChangeHosts x)+              + sum (map size (address_ChangeHosts x))+ +data HOST = MkHOST{family_HOST :: Word8,+                   address_len_HOST :: Word16, address_HOST :: [Word8]}+          deriving (Show, Typeable)+ +instance Serialize HOST where+        serialize x+          = do serialize (family_HOST x)+               putSkip 1+               serialize (address_len_HOST x)+               serializeList (address_HOST x)+        size x+          = size (family_HOST x) + 1 + size (address_len_HOST x) ++              sum (map size (address_HOST x))+ +instance Deserialize HOST where+        deserialize+          = do family <- deserialize+               skip 1+               address_len <- deserialize+               address <- deserializeList (fromIntegral address_len)+               return (MkHOST family address_len address)+ +data ListHosts = MkListHosts{}+               deriving (Show, Typeable)+ +instance Serialize ListHosts where+        serialize x+          = do putWord8 110+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               putSkip (requiredPadding (size x))+        size x = 4+ +data ListHostsReply = MkListHostsReply{mode_ListHostsReply ::+                                       Word8,+                                       hosts_len_ListHostsReply :: Word16,+                                       hosts_ListHostsReply :: [HOST]}+                    deriving (Show, Typeable)+ +instance Deserialize ListHostsReply where+        deserialize+          = do skip 1+               mode <- deserialize+               skip 2+               length <- deserialize+               hosts_len <- deserialize+               skip 22+               hosts <- deserializeList (fromIntegral hosts_len)+               let _ = isCard32 length+               return (MkListHostsReply mode hosts_len hosts)+ +data AccessControl = AccessControlDisable+                   | AccessControlEnable+ +instance SimpleEnum AccessControl where+        toValue AccessControlDisable{} = 0+        toValue AccessControlEnable{} = 1+        fromValue 0 = AccessControlDisable+        fromValue 1 = AccessControlEnable+ +data SetAccessControl = MkSetAccessControl{mode_SetAccessControl ::+                                           Word8}+                      deriving (Show, Typeable)+ +instance Serialize SetAccessControl where+        serialize x+          = do putWord8 111+               serialize (mode_SetAccessControl x)+               serialize (convertBytesToRequestSize (size x) :: Int16)+               putSkip (requiredPadding (size x))+        size x = 3 + size (mode_SetAccessControl x)+ +data CloseDown = CloseDownDestroyAll+               | CloseDownRetainPermanent+               | CloseDownRetainTemporary+ +instance SimpleEnum CloseDown where+        toValue CloseDownDestroyAll{} = 0+        toValue CloseDownRetainPermanent{} = 1+        toValue CloseDownRetainTemporary{} = 2+        fromValue 0 = CloseDownDestroyAll+        fromValue 1 = CloseDownRetainPermanent+        fromValue 2 = CloseDownRetainTemporary+ +data SetCloseDownMode = MkSetCloseDownMode{mode_SetCloseDownMode ::+                                           Word8}+                      deriving (Show, Typeable)+ +instance Serialize SetCloseDownMode where+        serialize x+          = do putWord8 112+               serialize (mode_SetCloseDownMode x)+               serialize (convertBytesToRequestSize (size x) :: Int16)+               putSkip (requiredPadding (size x))+        size x = 3 + size (mode_SetCloseDownMode x)+ +data Kill = KillAllTemporary+ +instance SimpleEnum Kill where+        toValue KillAllTemporary{} = 0+        fromValue 0 = KillAllTemporary+ +data KillClient = MkKillClient{resource_KillClient :: Word32}+                deriving (Show, Typeable)+ +instance Serialize KillClient where+        serialize x+          = do putWord8 113+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (resource_KillClient x)+               putSkip (requiredPadding (size x))+        size x = 3 + 1 + size (resource_KillClient x)+ +data RotateProperties = MkRotateProperties{window_RotateProperties+                                           :: WINDOW,+                                           atoms_len_RotateProperties :: Word16,+                                           delta_RotateProperties :: Int16,+                                           atoms_RotateProperties :: [ATOM]}+                      deriving (Show, Typeable)+ +instance Serialize RotateProperties where+        serialize x+          = do putWord8 114+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serialize (window_RotateProperties x)+               serialize (atoms_len_RotateProperties x)+               serialize (delta_RotateProperties x)+               serializeList (atoms_RotateProperties x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + 1 + size (window_RotateProperties x) ++              size (atoms_len_RotateProperties x)+              + size (delta_RotateProperties x)+              + sum (map size (atoms_RotateProperties x))+ +data ScreenSaver = ScreenSaverReset+                 | ScreenSaverActive+ +instance SimpleEnum ScreenSaver where+        toValue ScreenSaverReset{} = 0+        toValue ScreenSaverActive{} = 1+        fromValue 0 = ScreenSaverReset+        fromValue 1 = ScreenSaverActive+ +data ForceScreenSaver = MkForceScreenSaver{mode_ForceScreenSaver ::+                                           Word8}+                      deriving (Show, Typeable)+ +instance Serialize ForceScreenSaver where+        serialize x+          = do putWord8 115+               serialize (mode_ForceScreenSaver x)+               serialize (convertBytesToRequestSize (size x) :: Int16)+               putSkip (requiredPadding (size x))+        size x = 3 + size (mode_ForceScreenSaver x)+ +data MappingStatus = MappingStatusSuccess+                   | MappingStatusBusy+                   | MappingStatusFailure+ +instance SimpleEnum MappingStatus where+        toValue MappingStatusSuccess{} = 0+        toValue MappingStatusBusy{} = 1+        toValue MappingStatusFailure{} = 2+        fromValue 0 = MappingStatusSuccess+        fromValue 1 = MappingStatusBusy+        fromValue 2 = MappingStatusFailure+ +data SetPointerMapping = MkSetPointerMapping{map_len_SetPointerMapping+                                             :: Word8,+                                             map_SetPointerMapping :: [Word8]}+                       deriving (Show, Typeable)+ +instance Serialize SetPointerMapping where+        serialize x+          = do putWord8 116+               serialize (map_len_SetPointerMapping x)+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serializeList (map_SetPointerMapping x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + size (map_len_SetPointerMapping x) ++              sum (map size (map_SetPointerMapping x))+ +data SetPointerMappingReply = MkSetPointerMappingReply{status_SetPointerMappingReply+                                                       :: Word8}+                            deriving (Show, Typeable)+ +instance Deserialize SetPointerMappingReply where+        deserialize+          = do skip 1+               status <- deserialize+               skip 2+               length <- deserialize+               let _ = isCard32 length+               return (MkSetPointerMappingReply status)+ +data GetPointerMapping = MkGetPointerMapping{}+                       deriving (Show, Typeable)+ +instance Serialize GetPointerMapping where+        serialize x+          = do putWord8 117+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               putSkip (requiredPadding (size x))+        size x = 4+ +data GetPointerMappingReply = MkGetPointerMappingReply{map_len_GetPointerMappingReply+                                                       :: Word8,+                                                       map_GetPointerMappingReply :: [Word8]}+                            deriving (Show, Typeable)+ +instance Deserialize GetPointerMappingReply where+        deserialize+          = do skip 1+               map_len <- deserialize+               skip 2+               length <- deserialize+               skip 24+               map <- deserializeList (fromIntegral map_len)+               let _ = isCard32 length+               return (MkGetPointerMappingReply map_len map)+ +data MapIndex = MapIndexShift+              | MapIndexLock+              | MapIndexControl+              | MapIndex1+              | MapIndex2+              | MapIndex3+              | MapIndex4+              | MapIndex5+ +instance SimpleEnum MapIndex where+        toValue MapIndexShift{} = 0+        toValue MapIndexLock{} = 1+        toValue MapIndexControl{} = 2+        toValue MapIndex1{} = 3+        toValue MapIndex2{} = 4+        toValue MapIndex3{} = 5+        toValue MapIndex4{} = 6+        toValue MapIndex5{} = 7+        fromValue 0 = MapIndexShift+        fromValue 1 = MapIndexLock+        fromValue 2 = MapIndexControl+        fromValue 3 = MapIndex1+        fromValue 4 = MapIndex2+        fromValue 5 = MapIndex3+        fromValue 6 = MapIndex4+        fromValue 7 = MapIndex5+ +data SetModifierMapping = MkSetModifierMapping{keycodes_per_modifier_SetModifierMapping+                                               :: Word8,+                                               keycodes_SetModifierMapping :: [KEYCODE]}+                        deriving (Show, Typeable)+ +instance Serialize SetModifierMapping where+        serialize x+          = do putWord8 118+               serialize (keycodes_per_modifier_SetModifierMapping x)+               serialize (convertBytesToRequestSize (size x) :: Int16)+               serializeList (keycodes_SetModifierMapping x)+               putSkip (requiredPadding (size x))+        size x+          = 3 + size (keycodes_per_modifier_SetModifierMapping x) ++              sum (map size (keycodes_SetModifierMapping x))+ +data SetModifierMappingReply = MkSetModifierMappingReply{status_SetModifierMappingReply+                                                         :: Word8}+                             deriving (Show, Typeable)+ +instance Deserialize SetModifierMappingReply where+        deserialize+          = do skip 1+               status <- deserialize+               skip 2+               length <- deserialize+               let _ = isCard32 length+               return (MkSetModifierMappingReply status)+ +data GetModifierMapping = MkGetModifierMapping{}+                        deriving (Show, Typeable)+ +instance Serialize GetModifierMapping where+        serialize x+          = do putWord8 119+               putSkip 1+               serialize (convertBytesToRequestSize (size x) :: Int16)+               putSkip (requiredPadding (size x))+        size x = 4+ +data GetModifierMappingReply = MkGetModifierMappingReply{keycodes_per_modifier_GetModifierMappingReply+                                                         :: Word8,                                                          keycodes_GetModifierMappingReply ::                                                          [KEYCODE]}                              deriving (Show, Typeable)
patched/Graphics/XHB/Gen/Xv.hs view
@@ -12,6 +12,9 @@ import Graphics.XHB.Connection.Types import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import Data.Binary.Put (runPut) import Graphics.XHB.Shared hiding (Event(..), Error(..)) import Graphics.XHB.Gen.Xproto.Types@@ -30,44 +33,45 @@                  Graphics.XHB.Connection.Types.Connection ->                    IO (Receipt QueryExtensionReply) queryExtension c-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkQueryExtension        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   queryAdaptors ::                 Graphics.XHB.Connection.Types.Connection ->                   WINDOW -> IO (Receipt QueryAdaptorsReply) queryAdaptors c window-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkQueryAdaptors window        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   queryEncodings ::                  Graphics.XHB.Connection.Types.Connection ->                    PORT -> IO (Receipt QueryEncodingsReply) queryEncodings c port-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkQueryEncodings port        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   grabPort ::            Graphics.XHB.Connection.Types.Connection ->-             PORT -> TIMESTAMP -> IO (Receipt GrabPortReply)+             PORT -> TIMESTAMP -> IO (Receipt Word8) grabPort c port time-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet (result_GrabPortReply `fmap` deserialize))        let req = MkGrabPort port time        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   ungrabPort ::@@ -118,7 +122,7 @@   selectVideoNotify ::                     Graphics.XHB.Connection.Types.Connection ->-                      DRAWABLE -> BOOL -> IO ()+                      DRAWABLE -> Bool -> IO () selectVideoNotify c drawable onoff   = do let req = MkSelectVideoNotify drawable onoff        putAction <- serializeExtensionRequest c req@@ -126,7 +130,7 @@        sendRequest c chunk   selectPortNotify ::-                   Graphics.XHB.Connection.Types.Connection -> PORT -> BOOL -> IO ()+                   Graphics.XHB.Connection.Types.Connection -> PORT -> Bool -> IO () selectPortNotify c port onoff   = do let req = MkSelectPortNotify port onoff        putAction <- serializeExtensionRequest c req@@ -137,10 +141,10 @@                 Graphics.XHB.Connection.Types.Connection ->                   QueryBestSize -> IO (Receipt QueryBestSizeReply) queryBestSize c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   setPortAttribute ::@@ -153,45 +157,46 @@   getPortAttribute ::                    Graphics.XHB.Connection.Types.Connection ->-                     PORT -> ATOM -> IO (Receipt GetPortAttributeReply)+                     PORT -> ATOM -> IO (Receipt Int32) getPortAttribute c port attribute-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet (value_GetPortAttributeReply `fmap` deserialize))        let req = MkGetPortAttribute port attribute        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   queryPortAttributes ::                       Graphics.XHB.Connection.Types.Connection ->                         PORT -> IO (Receipt QueryPortAttributesReply) queryPortAttributes c port-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkQueryPortAttributes port        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   listImageFormats ::                    Graphics.XHB.Connection.Types.Connection ->                      PORT -> IO (Receipt ListImageFormatsReply) listImageFormats c port-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkListImageFormats port        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   queryImageAttributes ::                        Graphics.XHB.Connection.Types.Connection ->                          QueryImageAttributes -> IO (Receipt QueryImageAttributesReply) queryImageAttributes c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   putImage ::
patched/Graphics/XHB/Gen/Xv/Types.hs view
@@ -18,6 +18,7 @@        where import Prelude hiding (Rational) import Data.Word+import Data.Int import Foreign.C.Types import Data.Bits import Data.Binary.Put@@ -98,8 +99,8 @@         fromBit 0 = AttributeFlagGettable         fromBit 1 = AttributeFlagSettable  -data Rational = MkRational{numerator_Rational :: INT32,-                           denominator_Rational :: INT32}+data Rational = MkRational{numerator_Rational :: Int32,+                           denominator_Rational :: Int32}               deriving (Show, Typeable)   instance Serialize Rational where@@ -116,7 +117,7 @@                return (MkRational numerator denominator)   data Format = MkFormat{visual_Format :: VISUALID,-                       depth_Format :: CARD8}+                       depth_Format :: Word8}             deriving (Show, Typeable)   instance Serialize Format where@@ -134,8 +135,8 @@                return (MkFormat visual depth)   data AdaptorInfo = MkAdaptorInfo{base_id_AdaptorInfo :: PORT,-                                 name_size_AdaptorInfo :: CARD16, num_ports_AdaptorInfo :: CARD16,-                                 num_formats_AdaptorInfo :: CARD16, type_AdaptorInfo :: CARD8,+                                 name_size_AdaptorInfo :: Word16, num_ports_AdaptorInfo :: Word16,+                                 num_formats_AdaptorInfo :: Word16, type_AdaptorInfo :: Word8,                                  name_AdaptorInfo :: [CChar], formats_AdaptorInfo :: [Format]}                  deriving (Show, Typeable)  @@ -174,8 +175,8 @@   data EncodingInfo = MkEncodingInfo{encoding_EncodingInfo ::                                    ENCODING,-                                   name_size_EncodingInfo :: CARD16, width_EncodingInfo :: CARD16,-                                   height_EncodingInfo :: CARD16, rate_EncodingInfo :: Rational,+                                   name_size_EncodingInfo :: Word16, width_EncodingInfo :: Word16,+                                   height_EncodingInfo :: Word16, rate_EncodingInfo :: Rational,                                    name_EncodingInfo :: [CChar]}                   deriving (Show, Typeable)  @@ -207,10 +208,10 @@                name <- deserializeList (fromIntegral name_size)                return (MkEncodingInfo encoding name_size width height rate name)  -data Image = MkImage{id_Image :: CARD32, width_Image :: CARD16,-                     height_Image :: CARD16, data_size_Image :: CARD32,-                     num_planes_Image :: CARD32, pitches_Image :: [CARD32],-                     offsets_Image :: [CARD32], data_Image :: [CARD8]}+data Image = MkImage{id_Image :: Word32, width_Image :: Word16,+                     height_Image :: Word16, data_size_Image :: Word32,+                     num_planes_Image :: Word32, pitches_Image :: [Word32],+                     offsets_Image :: [Word32], data_Image :: [Word8]}            deriving (Show, Typeable)   instance Serialize Image where@@ -245,9 +246,9 @@                  (MkImage id width height data_size num_planes pitches offsets                     data_)  -data AttributeInfo = MkAttributeInfo{flags_AttributeInfo :: CARD32,-                                     min_AttributeInfo :: INT32, max_AttributeInfo :: INT32,-                                     size_AttributeInfo :: CARD32, name_AttributeInfo :: [CChar]}+data AttributeInfo = MkAttributeInfo{flags_AttributeInfo :: Word32,+                                     min_AttributeInfo :: Int32, max_AttributeInfo :: Int32,+                                     size_AttributeInfo :: Word32, name_AttributeInfo :: [CChar]}                    deriving (Show, Typeable)   instance Serialize AttributeInfo where@@ -273,28 +274,28 @@                return (MkAttributeInfo flags min max size name)   data ImageFormatInfo = MkImageFormatInfo{id_ImageFormatInfo ::-                                         CARD32,-                                         type_ImageFormatInfo :: CARD8,-                                         byte_order_ImageFormatInfo :: CARD8,-                                         guid_ImageFormatInfo :: [CARD8],-                                         bpp_ImageFormatInfo :: CARD8,-                                         num_planes_ImageFormatInfo :: CARD8,-                                         depth_ImageFormatInfo :: CARD8,-                                         red_mask_ImageFormatInfo :: CARD32,-                                         green_mask_ImageFormatInfo :: CARD32,-                                         blue_mask_ImageFormatInfo :: CARD32,-                                         format_ImageFormatInfo :: CARD8,-                                         y_sample_bits_ImageFormatInfo :: CARD32,-                                         u_sample_bits_ImageFormatInfo :: CARD32,-                                         v_sample_bits_ImageFormatInfo :: CARD32,-                                         vhorz_y_period_ImageFormatInfo :: CARD32,-                                         vhorz_u_period_ImageFormatInfo :: CARD32,-                                         vhorz_v_period_ImageFormatInfo :: CARD32,-                                         vvert_y_period_ImageFormatInfo :: CARD32,-                                         vvert_u_period_ImageFormatInfo :: CARD32,-                                         vvert_v_period_ImageFormatInfo :: CARD32,-                                         vcomp_order_ImageFormatInfo :: [CARD8],-                                         vscanline_order_ImageFormatInfo :: CARD8}+                                         Word32,+                                         type_ImageFormatInfo :: Word8,+                                         byte_order_ImageFormatInfo :: Word8,+                                         guid_ImageFormatInfo :: [Word8],+                                         bpp_ImageFormatInfo :: Word8,+                                         num_planes_ImageFormatInfo :: Word8,+                                         depth_ImageFormatInfo :: Word8,+                                         red_mask_ImageFormatInfo :: Word32,+                                         green_mask_ImageFormatInfo :: Word32,+                                         blue_mask_ImageFormatInfo :: Word32,+                                         format_ImageFormatInfo :: Word8,+                                         y_sample_bits_ImageFormatInfo :: Word32,+                                         u_sample_bits_ImageFormatInfo :: Word32,+                                         v_sample_bits_ImageFormatInfo :: Word32,+                                         vhorz_y_period_ImageFormatInfo :: Word32,+                                         vhorz_u_period_ImageFormatInfo :: Word32,+                                         vhorz_v_period_ImageFormatInfo :: Word32,+                                         vvert_y_period_ImageFormatInfo :: Word32,+                                         vvert_u_period_ImageFormatInfo :: Word32,+                                         vvert_v_period_ImageFormatInfo :: Word32,+                                         vcomp_order_ImageFormatInfo :: [Word8],+                                         vscanline_order_ImageFormatInfo :: Word8}                      deriving (Show, Typeable)   instance Serialize ImageFormatInfo where@@ -401,7 +402,7 @@                     vcomp_order                     vscanline_order)  -data VideoNotify = MkVideoNotify{reason_VideoNotify :: BYTE,+data VideoNotify = MkVideoNotify{reason_VideoNotify :: Word8,                                  time_VideoNotify :: TIMESTAMP, drawable_VideoNotify :: DRAWABLE,                                  port_VideoNotify :: PORT}                  deriving (Show, Typeable)@@ -420,7 +421,7 @@   data PortNotify = MkPortNotify{time_PortNotify :: TIMESTAMP,                                port_PortNotify :: PORT, attribute_PortNotify :: ATOM,-                               value_PortNotify :: INT32}+                               value_PortNotify :: Int32}                 deriving (Show, Typeable)   instance Graphics.XHB.Shared.Event PortNotify@@ -445,12 +446,12 @@           = do putWord8 extOpCode                putWord8 0                let size__ = 4-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                putSkip (requiredPadding size__)   data QueryExtensionReply = MkQueryExtensionReply{major_QueryExtensionReply-                                                 :: CARD16,-                                                 minor_QueryExtensionReply :: CARD16}+                                                 :: Word16,+                                                 minor_QueryExtensionReply :: Word16}                          deriving (Show, Typeable)   instance Deserialize QueryExtensionReply where@@ -474,12 +475,12 @@           = do putWord8 extOpCode                putWord8 1                let size__ = 4 + size (window_QueryAdaptors x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (window_QueryAdaptors x)                putSkip (requiredPadding size__)   data QueryAdaptorsReply = MkQueryAdaptorsReply{num_adaptors_QueryAdaptorsReply-                                               :: CARD16,+                                               :: Word16,                                                info_QueryAdaptorsReply :: [AdaptorInfo]}                         deriving (Show, Typeable)  @@ -504,12 +505,12 @@           = do putWord8 extOpCode                putWord8 2                let size__ = 4 + size (port_QueryEncodings x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (port_QueryEncodings x)                putSkip (requiredPadding size__)   data QueryEncodingsReply = MkQueryEncodingsReply{num_encodings_QueryEncodingsReply-                                                 :: CARD16,+                                                 :: Word16,                                                  info_QueryEncodingsReply :: [EncodingInfo]}                          deriving (Show, Typeable)  @@ -535,12 +536,12 @@           = do putWord8 extOpCode                putWord8 3                let size__ = 4 + size (port_GrabPort x) + size (time_GrabPort x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (port_GrabPort x)                serialize (time_GrabPort x)                putSkip (requiredPadding size__)  -data GrabPortReply = MkGrabPortReply{result_GrabPortReply :: BYTE}+data GrabPortReply = MkGrabPortReply{result_GrabPortReply :: Word8}                    deriving (Show, Typeable)   instance Deserialize GrabPortReply where@@ -563,17 +564,17 @@                putWord8 4                let size__                      = 4 + size (port_UngrabPort x) + size (time_UngrabPort x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (port_UngrabPort x)                serialize (time_UngrabPort x)                putSkip (requiredPadding size__)   data PutVideo = MkPutVideo{port_PutVideo :: PORT,                            drawable_PutVideo :: DRAWABLE, gc_PutVideo :: GCONTEXT,-                           vid_x_PutVideo :: INT16, vid_y_PutVideo :: INT16,-                           vid_w_PutVideo :: CARD16, vid_h_PutVideo :: CARD16,-                           drw_x_PutVideo :: INT16, drw_y_PutVideo :: INT16,-                           drw_w_PutVideo :: CARD16, drw_h_PutVideo :: CARD16}+                           vid_x_PutVideo :: Int16, vid_y_PutVideo :: Int16,+                           vid_w_PutVideo :: Word16, vid_h_PutVideo :: Word16,+                           drw_x_PutVideo :: Int16, drw_y_PutVideo :: Int16,+                           drw_w_PutVideo :: Word16, drw_h_PutVideo :: Word16}               deriving (Show, Typeable)   instance ExtensionRequest PutVideo where@@ -592,7 +593,7 @@                          + size (drw_y_PutVideo x)                          + size (drw_w_PutVideo x)                          + size (drw_h_PutVideo x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (port_PutVideo x)                serialize (drawable_PutVideo x)                serialize (gc_PutVideo x)@@ -608,10 +609,10 @@   data PutStill = MkPutStill{port_PutStill :: PORT,                            drawable_PutStill :: DRAWABLE, gc_PutStill :: GCONTEXT,-                           vid_x_PutStill :: INT16, vid_y_PutStill :: INT16,-                           vid_w_PutStill :: CARD16, vid_h_PutStill :: CARD16,-                           drw_x_PutStill :: INT16, drw_y_PutStill :: INT16,-                           drw_w_PutStill :: CARD16, drw_h_PutStill :: CARD16}+                           vid_x_PutStill :: Int16, vid_y_PutStill :: Int16,+                           vid_w_PutStill :: Word16, vid_h_PutStill :: Word16,+                           drw_x_PutStill :: Int16, drw_y_PutStill :: Int16,+                           drw_w_PutStill :: Word16, drw_h_PutStill :: Word16}               deriving (Show, Typeable)   instance ExtensionRequest PutStill where@@ -630,7 +631,7 @@                          + size (drw_y_PutStill x)                          + size (drw_w_PutStill x)                          + size (drw_h_PutStill x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (port_PutStill x)                serialize (drawable_PutStill x)                serialize (gc_PutStill x)@@ -646,10 +647,10 @@   data GetVideo = MkGetVideo{port_GetVideo :: PORT,                            drawable_GetVideo :: DRAWABLE, gc_GetVideo :: GCONTEXT,-                           vid_x_GetVideo :: INT16, vid_y_GetVideo :: INT16,-                           vid_w_GetVideo :: CARD16, vid_h_GetVideo :: CARD16,-                           drw_x_GetVideo :: INT16, drw_y_GetVideo :: INT16,-                           drw_w_GetVideo :: CARD16, drw_h_GetVideo :: CARD16}+                           vid_x_GetVideo :: Int16, vid_y_GetVideo :: Int16,+                           vid_w_GetVideo :: Word16, vid_h_GetVideo :: Word16,+                           drw_x_GetVideo :: Int16, drw_y_GetVideo :: Int16,+                           drw_w_GetVideo :: Word16, drw_h_GetVideo :: Word16}               deriving (Show, Typeable)   instance ExtensionRequest GetVideo where@@ -668,7 +669,7 @@                          + size (drw_y_GetVideo x)                          + size (drw_w_GetVideo x)                          + size (drw_h_GetVideo x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (port_GetVideo x)                serialize (drawable_GetVideo x)                serialize (gc_GetVideo x)@@ -684,10 +685,10 @@   data GetStill = MkGetStill{port_GetStill :: PORT,                            drawable_GetStill :: DRAWABLE, gc_GetStill :: GCONTEXT,-                           vid_x_GetStill :: INT16, vid_y_GetStill :: INT16,-                           vid_w_GetStill :: CARD16, vid_h_GetStill :: CARD16,-                           drw_x_GetStill :: INT16, drw_y_GetStill :: INT16,-                           drw_w_GetStill :: CARD16, drw_h_GetStill :: CARD16}+                           vid_x_GetStill :: Int16, vid_y_GetStill :: Int16,+                           vid_w_GetStill :: Word16, vid_h_GetStill :: Word16,+                           drw_x_GetStill :: Int16, drw_y_GetStill :: Int16,+                           drw_w_GetStill :: Word16, drw_h_GetStill :: Word16}               deriving (Show, Typeable)   instance ExtensionRequest GetStill where@@ -706,7 +707,7 @@                          + size (drw_y_GetStill x)                          + size (drw_w_GetStill x)                          + size (drw_h_GetStill x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (port_GetStill x)                serialize (drawable_GetStill x)                serialize (gc_GetStill x)@@ -731,14 +732,14 @@                putWord8 9                let size__                      = 4 + size (port_StopVideo x) + size (drawable_StopVideo x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (port_StopVideo x)                serialize (drawable_StopVideo x)                putSkip (requiredPadding size__)   data SelectVideoNotify = MkSelectVideoNotify{drawable_SelectVideoNotify                                              :: DRAWABLE,-                                             onoff_SelectVideoNotify :: BOOL}+                                             onoff_SelectVideoNotify :: Bool}                        deriving (Show, Typeable)   instance ExtensionRequest SelectVideoNotify where@@ -750,7 +751,7 @@                      = 4 + size (drawable_SelectVideoNotify x) +                          size (onoff_SelectVideoNotify x)                          + 3-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (drawable_SelectVideoNotify x)                serialize (onoff_SelectVideoNotify x)                putSkip 3@@ -758,7 +759,7 @@   data SelectPortNotify = MkSelectPortNotify{port_SelectPortNotify ::                                            PORT,-                                           onoff_SelectPortNotify :: BOOL}+                                           onoff_SelectPortNotify :: Bool}                       deriving (Show, Typeable)   instance ExtensionRequest SelectPortNotify where@@ -770,16 +771,16 @@                      = 4 + size (port_SelectPortNotify x) +                          size (onoff_SelectPortNotify x)                          + 3-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (port_SelectPortNotify x)                serialize (onoff_SelectPortNotify x)                putSkip 3                putSkip (requiredPadding size__)   data QueryBestSize = MkQueryBestSize{port_QueryBestSize :: PORT,-                                     vid_w_QueryBestSize :: CARD16, vid_h_QueryBestSize :: CARD16,-                                     drw_w_QueryBestSize :: CARD16, drw_h_QueryBestSize :: CARD16,-                                     motion_QueryBestSize :: BOOL}+                                     vid_w_QueryBestSize :: Word16, vid_h_QueryBestSize :: Word16,+                                     drw_w_QueryBestSize :: Word16, drw_h_QueryBestSize :: Word16,+                                     motion_QueryBestSize :: Bool}                    deriving (Show, Typeable)   instance ExtensionRequest QueryBestSize where@@ -794,7 +795,7 @@                          + size (drw_h_QueryBestSize x)                          + size (motion_QueryBestSize x)                          + 3-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (port_QueryBestSize x)                serialize (vid_w_QueryBestSize x)                serialize (vid_h_QueryBestSize x)@@ -805,8 +806,8 @@                putSkip (requiredPadding size__)   data QueryBestSizeReply = MkQueryBestSizeReply{actual_width_QueryBestSizeReply-                                               :: CARD16,-                                               actual_height_QueryBestSizeReply :: CARD16}+                                               :: Word16,+                                               actual_height_QueryBestSizeReply :: Word16}                         deriving (Show, Typeable)   instance Deserialize QueryBestSizeReply where@@ -823,7 +824,7 @@ data SetPortAttribute = MkSetPortAttribute{port_SetPortAttribute ::                                            PORT,                                            attribute_SetPortAttribute :: ATOM,-                                           value_SetPortAttribute :: INT32}+                                           value_SetPortAttribute :: Int32}                       deriving (Show, Typeable)   instance ExtensionRequest SetPortAttribute where@@ -835,7 +836,7 @@                      = 4 + size (port_SetPortAttribute x) +                          size (attribute_SetPortAttribute x)                          + size (value_SetPortAttribute x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (port_SetPortAttribute x)                serialize (attribute_SetPortAttribute x)                serialize (value_SetPortAttribute x)@@ -854,13 +855,13 @@                let size__                      = 4 + size (port_GetPortAttribute x) +                          size (attribute_GetPortAttribute x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (port_GetPortAttribute x)                serialize (attribute_GetPortAttribute x)                putSkip (requiredPadding size__)   data GetPortAttributeReply = MkGetPortAttributeReply{value_GetPortAttributeReply-                                                     :: INT32}+                                                     :: Int32}                            deriving (Show, Typeable)   instance Deserialize GetPortAttributeReply where@@ -883,14 +884,14 @@           = do putWord8 extOpCode                putWord8 15                let size__ = 4 + size (port_QueryPortAttributes x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (port_QueryPortAttributes x)                putSkip (requiredPadding size__)   data QueryPortAttributesReply = MkQueryPortAttributesReply{num_attributes_QueryPortAttributesReply-                                                           :: CARD32,+                                                           :: Word32,                                                            text_size_QueryPortAttributesReply ::-                                                           CARD32,+                                                           Word32,                                                            attributes_QueryPortAttributesReply ::                                                            [AttributeInfo]}                               deriving (Show, Typeable)@@ -919,12 +920,12 @@           = do putWord8 extOpCode                putWord8 16                let size__ = 4 + size (port_ListImageFormats x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (port_ListImageFormats x)                putSkip (requiredPadding size__)   data ListImageFormatsReply = MkListImageFormatsReply{num_formats_ListImageFormatsReply-                                                     :: CARD32,+                                                     :: Word32,                                                      format_ListImageFormatsReply ::                                                      [ImageFormatInfo]}                            deriving (Show, Typeable)@@ -943,9 +944,9 @@   data QueryImageAttributes = MkQueryImageAttributes{port_QueryImageAttributes                                                    :: PORT,-                                                   id_QueryImageAttributes :: CARD32,-                                                   width_QueryImageAttributes :: CARD16,-                                                   height_QueryImageAttributes :: CARD16}+                                                   id_QueryImageAttributes :: Word32,+                                                   width_QueryImageAttributes :: Word16,+                                                   height_QueryImageAttributes :: Word16}                           deriving (Show, Typeable)   instance ExtensionRequest QueryImageAttributes where@@ -958,7 +959,7 @@                          size (id_QueryImageAttributes x)                          + size (width_QueryImageAttributes x)                          + size (height_QueryImageAttributes x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (port_QueryImageAttributes x)                serialize (id_QueryImageAttributes x)                serialize (width_QueryImageAttributes x)@@ -966,17 +967,17 @@                putSkip (requiredPadding size__)   data QueryImageAttributesReply = MkQueryImageAttributesReply{num_planes_QueryImageAttributesReply-                                                             :: CARD32,+                                                             :: Word32,                                                              data_size_QueryImageAttributesReply ::-                                                             CARD32,+                                                             Word32,                                                              width_QueryImageAttributesReply ::-                                                             CARD16,+                                                             Word16,                                                              height_QueryImageAttributesReply ::-                                                             CARD16,+                                                             Word16,                                                              pitches_QueryImageAttributesReply ::-                                                             [CARD32],+                                                             [Word32],                                                              offsets_QueryImageAttributesReply ::-                                                             [CARD32]}+                                                             [Word32]}                                deriving (Show, Typeable)   instance Deserialize QueryImageAttributesReply where@@ -1000,12 +1001,12 @@   data PutImage = MkPutImage{port_PutImage :: PORT,                            drawable_PutImage :: DRAWABLE, gc_PutImage :: GCONTEXT,-                           id_PutImage :: CARD32, src_x_PutImage :: INT16,-                           src_y_PutImage :: INT16, src_w_PutImage :: CARD16,-                           src_h_PutImage :: CARD16, drw_x_PutImage :: INT16,-                           drw_y_PutImage :: INT16, drw_w_PutImage :: CARD16,-                           drw_h_PutImage :: CARD16, width_PutImage :: CARD16,-                           height_PutImage :: CARD16, data_PutImage :: [CARD8]}+                           id_PutImage :: Word32, src_x_PutImage :: Int16,+                           src_y_PutImage :: Int16, src_w_PutImage :: Word16,+                           src_h_PutImage :: Word16, drw_x_PutImage :: Int16,+                           drw_y_PutImage :: Int16, drw_w_PutImage :: Word16,+                           drw_h_PutImage :: Word16, width_PutImage :: Word16,+                           height_PutImage :: Word16, data_PutImage :: [Word8]}               deriving (Show, Typeable)   instance ExtensionRequest PutImage where@@ -1028,7 +1029,7 @@                          + size (width_PutImage x)                          + size (height_PutImage x)                          + sum (map size (data_PutImage x))-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (port_PutImage x)                serialize (drawable_PutImage x)                serialize (gc_PutImage x)@@ -1048,13 +1049,13 @@   data ShmPutImage = MkShmPutImage{port_ShmPutImage :: PORT,                                  drawable_ShmPutImage :: DRAWABLE, gc_ShmPutImage :: GCONTEXT,-                                 shmseg_ShmPutImage :: SEG, id_ShmPutImage :: CARD32,-                                 offset_ShmPutImage :: CARD32, src_x_ShmPutImage :: INT16,-                                 src_y_ShmPutImage :: INT16, src_w_ShmPutImage :: CARD16,-                                 src_h_ShmPutImage :: CARD16, drw_x_ShmPutImage :: INT16,-                                 drw_y_ShmPutImage :: INT16, drw_w_ShmPutImage :: CARD16,-                                 drw_h_ShmPutImage :: CARD16, width_ShmPutImage :: CARD16,-                                 height_ShmPutImage :: CARD16, send_event_ShmPutImage :: CARD8}+                                 shmseg_ShmPutImage :: SEG, id_ShmPutImage :: Word32,+                                 offset_ShmPutImage :: Word32, src_x_ShmPutImage :: Int16,+                                 src_y_ShmPutImage :: Int16, src_w_ShmPutImage :: Word16,+                                 src_h_ShmPutImage :: Word16, drw_x_ShmPutImage :: Int16,+                                 drw_y_ShmPutImage :: Int16, drw_w_ShmPutImage :: Word16,+                                 drw_h_ShmPutImage :: Word16, width_ShmPutImage :: Word16,+                                 height_ShmPutImage :: Word16, send_event_ShmPutImage :: Word8}                  deriving (Show, Typeable)   instance ExtensionRequest ShmPutImage where@@ -1080,7 +1081,7 @@                          + size (height_ShmPutImage x)                          + size (send_event_ShmPutImage x)                          + 3-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (port_ShmPutImage x)                serialize (drawable_ShmPutImage x)                serialize (gc_ShmPutImage x)
patched/Graphics/XHB/Gen/XvMC.hs view
@@ -10,6 +10,9 @@ import Graphics.XHB.Connection.Types import Control.Concurrent.STM import Foreign.C.Types+import Data.Word+import Data.Int+import Data.Binary.Get import Data.Binary.Put (runPut) import Graphics.XHB.Shared hiding (Event(..), Error(..)) import Graphics.XHB.Gen.Xv.Types@@ -23,32 +26,32 @@                Graphics.XHB.Connection.Types.Connection ->                  IO (Receipt QueryVersionReply) queryVersion c-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkQueryVersion        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   listSurfaceTypes ::                    Graphics.XHB.Connection.Types.Connection ->                      PORT -> IO (Receipt ListSurfaceTypesReply) listSurfaceTypes c port_id-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkListSurfaceTypes port_id        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   createContext ::                 Graphics.XHB.Connection.Types.Connection ->                   CreateContext -> IO (Receipt CreateContextReply) createContext c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   destroyContext ::@@ -61,13 +64,14 @@   createSurface ::                 Graphics.XHB.Connection.Types.Connection ->-                  SURFACE -> CONTEXT -> IO (Receipt CreateSurfaceReply)+                  SURFACE -> CONTEXT -> IO (Receipt [Word32]) createSurface c surface_id context_id-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newEmptyReceipt+                                (runGet (priv_data_CreateSurfaceReply `fmap` deserialize))        let req = MkCreateSurface surface_id context_id        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   destroySurface ::@@ -82,10 +86,10 @@                    Graphics.XHB.Connection.Types.Connection ->                      CreateSubpicture -> IO (Receipt CreateSubpictureReply) createSubpicture c req-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt   destroySubpicture ::@@ -100,9 +104,9 @@                       Graphics.XHB.Connection.Types.Connection ->                         PORT -> SURFACE -> IO (Receipt ListSubpictureTypesReply) listSubpictureTypes c port_id surface_id-  = do receipt <- newEmptyReceiptIO+  = do (receipt, rReceipt) <- newDeserReceipt        let req = MkListSubpictureTypes port_id surface_id        putAction <- serializeExtensionRequest c req        let chunk = runPut putAction-       sendRequestWithReply c chunk receipt+       sendRequestWithReply c chunk rReceipt        return receipt
patched/Graphics/XHB/Gen/XvMC/Types.hs view
@@ -8,6 +8,7 @@         ListSubpictureTypes(..), ListSubpictureTypesReply(..))        where import Data.Word+import Data.Int import Foreign.C.Types import Data.Bits import Data.Binary.Put@@ -38,11 +39,11 @@                      deriving (Eq, Ord, Show, Serialize, Deserialize, XidLike)   data SurfaceInfo = MkSurfaceInfo{id_SurfaceInfo :: SURFACE,-                                 chroma_format_SurfaceInfo :: CARD16, pad0_SurfaceInfo :: CARD16,-                                 max_width_SurfaceInfo :: CARD16, max_height_SurfaceInfo :: CARD16,-                                 subpicture_max_width_SurfaceInfo :: CARD16,-                                 subpicture_max_height_SurfaceInfo :: CARD16,-                                 mc_type_SurfaceInfo :: CARD32, flags_SurfaceInfo :: CARD32}+                                 chroma_format_SurfaceInfo :: Word16, pad0_SurfaceInfo :: Word16,+                                 max_width_SurfaceInfo :: Word16, max_height_SurfaceInfo :: Word16,+                                 subpicture_max_width_SurfaceInfo :: Word16,+                                 subpicture_max_height_SurfaceInfo :: Word16,+                                 mc_type_SurfaceInfo :: Word32, flags_SurfaceInfo :: Word32}                  deriving (Show, Typeable)   instance Serialize SurfaceInfo where@@ -93,12 +94,12 @@           = do putWord8 extOpCode                putWord8 0                let size__ = 4-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                putSkip (requiredPadding size__)   data QueryVersionReply = MkQueryVersionReply{major_QueryVersionReply-                                             :: CARD32,-                                             minor_QueryVersionReply :: CARD32}+                                             :: Word32,+                                             minor_QueryVersionReply :: Word32}                        deriving (Show, Typeable)   instance Deserialize QueryVersionReply where@@ -122,12 +123,12 @@           = do putWord8 extOpCode                putWord8 1                let size__ = 4 + size (port_id_ListSurfaceTypes x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (port_id_ListSurfaceTypes x)                putSkip (requiredPadding size__)   data ListSurfaceTypesReply = MkListSurfaceTypesReply{num_ListSurfaceTypesReply-                                                     :: CARD32,+                                                     :: Word32,                                                      surfaces_ListSurfaceTypesReply ::                                                      [SurfaceInfo]}                            deriving (Show, Typeable)@@ -148,8 +149,8 @@                                      CONTEXT,                                      port_id_CreateContext :: PORT,                                      surface_id_CreateContext :: SURFACE,-                                     width_CreateContext :: CARD16, height_CreateContext :: CARD16,-                                     flags_CreateContext :: CARD32}+                                     width_CreateContext :: Word16, height_CreateContext :: Word16,+                                     flags_CreateContext :: Word32}                    deriving (Show, Typeable)   instance ExtensionRequest CreateContext where@@ -164,7 +165,7 @@                          + size (width_CreateContext x)                          + size (height_CreateContext x)                          + size (flags_CreateContext x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_id_CreateContext x)                serialize (port_id_CreateContext x)                serialize (surface_id_CreateContext x)@@ -174,10 +175,10 @@                putSkip (requiredPadding size__)   data CreateContextReply = MkCreateContextReply{width_actual_CreateContextReply-                                               :: CARD16,-                                               height_actual_CreateContextReply :: CARD16,-                                               flags_return_CreateContextReply :: CARD32,-                                               priv_data_CreateContextReply :: [CARD32]}+                                               :: Word16,+                                               height_actual_CreateContextReply :: Word16,+                                               flags_return_CreateContextReply :: Word32,+                                               priv_data_CreateContextReply :: [Word32]}                         deriving (Show, Typeable)   instance Deserialize CreateContextReply where@@ -206,7 +207,7 @@           = do putWord8 extOpCode                putWord8 3                let size__ = 4 + size (context_id_DestroyContext x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (context_id_DestroyContext x)                putSkip (requiredPadding size__)  @@ -223,13 +224,13 @@                let size__                      = 4 + size (surface_id_CreateSurface x) +                          size (context_id_CreateSurface x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (surface_id_CreateSurface x)                serialize (context_id_CreateSurface x)                putSkip (requiredPadding size__)   data CreateSurfaceReply = MkCreateSurfaceReply{priv_data_CreateSurfaceReply-                                               :: [CARD32]}+                                               :: [Word32]}                         deriving (Show, Typeable)   instance Deserialize CreateSurfaceReply where@@ -253,16 +254,16 @@           = do putWord8 extOpCode                putWord8 5                let size__ = 4 + size (surface_id_DestroySurface x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (surface_id_DestroySurface x)                putSkip (requiredPadding size__)   data CreateSubpicture = MkCreateSubpicture{subpicture_id_CreateSubpicture                                            :: SUBPICTURE,                                            context_CreateSubpicture :: CONTEXT,-                                           xvimage_id_CreateSubpicture :: CARD32,-                                           width_CreateSubpicture :: CARD16,-                                           height_CreateSubpicture :: CARD16}+                                           xvimage_id_CreateSubpicture :: Word32,+                                           width_CreateSubpicture :: Word16,+                                           height_CreateSubpicture :: Word16}                       deriving (Show, Typeable)   instance ExtensionRequest CreateSubpicture where@@ -276,7 +277,7 @@                          + size (xvimage_id_CreateSubpicture x)                          + size (width_CreateSubpicture x)                          + size (height_CreateSubpicture x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (subpicture_id_CreateSubpicture x)                serialize (context_CreateSubpicture x)                serialize (xvimage_id_CreateSubpicture x)@@ -285,14 +286,14 @@                putSkip (requiredPadding size__)   data CreateSubpictureReply = MkCreateSubpictureReply{width_actual_CreateSubpictureReply-                                                     :: CARD16,-                                                     height_actual_CreateSubpictureReply :: CARD16,+                                                     :: Word16,+                                                     height_actual_CreateSubpictureReply :: Word16,                                                      num_palette_entries_CreateSubpictureReply ::-                                                     CARD16,-                                                     entry_bytes_CreateSubpictureReply :: CARD16,+                                                     Word16,+                                                     entry_bytes_CreateSubpictureReply :: Word16,                                                      component_order_CreateSubpictureReply ::-                                                     [CARD8],-                                                     priv_data_CreateSubpictureReply :: [CARD32]}+                                                     [Word8],+                                                     priv_data_CreateSubpictureReply :: [Word32]}                            deriving (Show, Typeable)   instance Deserialize CreateSubpictureReply where@@ -326,7 +327,7 @@           = do putWord8 extOpCode                putWord8 7                let size__ = 4 + size (subpicture_id_DestroySubpicture x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (subpicture_id_DestroySubpicture x)                putSkip (requiredPadding size__)  @@ -343,13 +344,13 @@                let size__                      = 4 + size (port_id_ListSubpictureTypes x) +                          size (surface_id_ListSubpictureTypes x)-               serialize (convertBytesToRequestSize size__ :: INT16)+               serialize (convertBytesToRequestSize size__ :: Int16)                serialize (port_id_ListSubpictureTypes x)                serialize (surface_id_ListSubpictureTypes x)                putSkip (requiredPadding size__)   data ListSubpictureTypesReply = MkListSubpictureTypesReply{num_ListSubpictureTypesReply-                                                           :: CARD32,+                                                           :: Word32,                                                            types_ListSubpictureTypesReply ::                                                            [ImageFormatInfo]}                               deriving (Show, Typeable)
xhb.cabal view
@@ -1,5 +1,5 @@ Name:         xhb-Version:      0.0.2009.1.6+Version:      0.1.2009.2.8 Cabal-Version:  >= 1.2.3 Synopsis:     X Haskell Bindings Description: