Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Clean up of the exposed module

  • Loading branch information...
commit a45c1f19efedd02976f34d6db7429974bab8311b 1 parent ccf0569
@dybber dybber authored
Showing with 3 additions and 10 deletions.
  1. +3 −10 Data/Array/Accelerate/OpenCL.hs
View
13 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
--
Please sign in to comment.
Something went wrong with that request. Please try again.