genCudaKernel :: Name -> Env -> IC -> GenState String 
genCudaKernel name env ic = do 
  mstate <- get
  return $ (kernelHead name env (ct mstate)) ++ (printICKernel ic) ++ "\n}\n"


-- -----------------------------------------------------------------------------
-- test leading towards an "execute function" 
genCudaKernel :: Name -> Env -> IC -> GenState String
genCudaKernel name env ic = do 
  mstate <- get
  return $ (kernelHead name env (ct mstate)) ++ (printICKernel ic) ++ "\n}\n"


-- -----------------------------------------------------------------------------
-- test leading towards an "execute function" 
genCudaKernel name env ic = do 
  mstate <- get
  return $ (kernelHead name env (ct mstate)) ++ (printICKernel ic) ++ "\n}\n"


-- -----------------------------------------------------------------------------
-- test leading towards an "execute function" 