 
 replyResponseType :: GenericReply -> IO Int
 replyResponseType rep = withGenericReply rep $ \repPtr ->
-                        liftM fromIntegral $ {#get generic_reply_t->response_type#} repPtr
+                        fromIntegral <$> {#get generic_reply_t->response_type#} repPtr
 
 -- | Unchecked conversion
 unsafeReplyToError :: GenericReply -> GenericError

-- Other
generateId :: Connection -> IO Word32
generateId c = withConnection c $ \cPtr ->
               liftM fromIntegral $ {#call generate_id#} cPtr


-- Internal utils

-- | Flush the write buffers.
flush :: Connection -> IO Bool
flush c = withConnection c $ \cPtr ->
          toBool <$> {#call flush as flush_#} cPtr

-- | The memory backing this data structure is owned
-- by the passed in Connection - and will magicaly vanish
