   where
     offsets = scanl (\a b -> a + size b) 0 prs
 
-    size (IArg _)    = sizeOf (undefined::CUInt)
-    size (FArg _)    = sizeOf (undefined::CFloat)
+    size (IArg _)    = sizeOf (undefined :: CUInt)
+    size (FArg _)    = sizeOf (undefined :: CFloat)
     size (TArg _)    = 0
     size (VArg v)    = sizeOf v
 

      TArg _ -> error "launchKernel: TArg is deprecated"


{# fun unsafe cuLaunchKernel
  { useFun    `Fun'
  ,           `Int', `Int', `Int'

  setSharedSize fn (toInteger sm)
  setBlockShape fn (tx,ty,tz)
  launch        fn (gx,gy) mst

launchKernel' = launchKernel
#endif


