Skip to content
Browse files

Clean up of the exposed module

  • Loading branch information...
1 parent ccf0569 commit a45c1f19efedd02976f34d6db7429974bab8311b @dybber dybber committed
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
--

0 comments on commit a45c1f1

Please sign in to comment.
Something went wrong with that request. Please try again.