diff options
| author | Jamey Sharp <jamey@minilop.net> | 2006-01-10 23:28:53 +0000 |
|---|---|---|
| committer | Jamey Sharp <jamey@minilop.net> | 2006-01-10 23:28:53 +0000 |
| commit | c7362fdf589d6b91e4a4a2c76dd691697b60e6ad (patch) | |
| tree | 221681d17d28d3d8b441556809d7cfab698579ae | |
| parent | 9d0f5600ed7a04e45092f8732236b6ea8adf6df3 (diff) | |
Add a type signature for request.
| -rw-r--r-- | xhsb/XCBExt.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/xhsb/XCBExt.hs b/xhsb/XCBExt.hs index 6067797..39624e2 100644 --- a/xhsb/XCBExt.hs +++ b/xhsb/XCBExt.hs @@ -49,6 +49,7 @@ readReply = ret foreign import ccall "X11/XCB/xcbext.h XCBWaitForReply" _waitForReply :: Ptr XCBConnection -> Word32 -> Ptr (Ptr XCBGenericError) -> IO (Ptr Word32) +request :: IO Word32 -> IO Word32 request = return . trace' "sent request" =<< throwIf (== 0) (const "couldn't send request") requestWithReply :: Data reply => Ptr XCBConnection -> IO Word32 -> IO reply |