clGetDeviceInfo always fails

[zhensydow]

First, thanks for the OpenCLRaw library.

I'm using it in a project and i found a error. When I call clGetDeviceInfo function, it always fail. I think the problem is the function wrapGetInfo check for Just clSuccess, but when the call is a succes wrapError returns Nothing. It's possible the functions have a bad signature, eg: instead of:

wrapError :: IO CLint -> IO (Maybe ErrorCode)

It's possible to use directly, because clSuccess is a ErrorCode also:

wrapError :: IO CLint -> IO ErrorCode