Permalink
Browse files

Fix compatibility with new clCreateContext interface.

  • Loading branch information...
1 parent 2d5923d commit 8f8450d2cf120cbcc612ae70d25ad7340a3182dd Anthony Cowley committed Jan 25, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/Control/Parallel/CLUtil.hs
@@ -37,7 +37,7 @@ initOutputBuffer s flags n = clCreateBuffer (clContext s) flags (n, nullPtr)
-- |Initialize the first device of the given type.
ezInit :: CLDeviceType -> IO OpenCLState
ezInit t = do (dev:_) <- clGetDeviceIDs nullPtr t
- context <- clCreateContext [dev] putStrLn
+ context <- clCreateContext [] [dev] putStrLn
q <- clCreateCommandQueue context dev []
return $ OpenCLState dev context q

0 comments on commit 8f8450d

Please sign in to comment.