From a45c1f19efedd02976f34d6db7429974bab8311b Mon Sep 17 00:00:00 2001 From: Martin Dybdal Date: Fri, 2 Dec 2011 16:13:57 +0100 Subject: [PATCH] Clean up of the exposed module --- Data/Array/Accelerate/OpenCL.hs | 13 +++---------- 1 file changed, 3 insertions(+), 10 deletions(-) diff --git a/Data/Array/Accelerate/OpenCL.hs b/Data/Array/Accelerate/OpenCL.hs index f4bbea8..ac60c4e 100644 --- a/Data/Array/Accelerate/OpenCL.hs +++ b/Data/Array/Accelerate/OpenCL.hs @@ -20,12 +20,7 @@ import System.IO.Unsafe -- standard library import Prelude hiding (catch) ---import Data.Record.Label ---import Control.Exception import Control.Applicative ---import System.IO.Unsafe ---import qualified Data.HashTable as Hash - -- friends import Data.Array.Accelerate.AST (Arrays(..), ArraysR(..)) @@ -33,11 +28,9 @@ import Data.Array.Accelerate.Smart (Acc, convertAcc, convertAccFu import Data.Array.Accelerate.Array.Representation (size) import Data.Array.Accelerate.Array.Sugar (Array(..)) import Data.Array.Accelerate.OpenCL.Array.Data -import Data.Array.Accelerate.OpenCL.State -import Data.Array.Accelerate.OpenCL.Compile -import Data.Array.Accelerate.OpenCL.Execute - -import Data.Array.Accelerate.OpenCL.CodeGen +import Data.Array.Accelerate.OpenCL.State (evalOpenCL, CIO) +import Data.Array.Accelerate.OpenCL.Compile (compileAcc) +import Data.Array.Accelerate.OpenCL.Execute (executeAcc) -- | Compile and run a complete embedded array program using the OpenCL backend --