minor stuff

This commit is contained in:
Nicole Dresselhaus 2013-11-15 18:15:32 +01:00
parent 27c4349f53
commit a0437a7f43
3 changed files with 3 additions and 3 deletions

Binary file not shown.

Binary file not shown.

View File

@ -32,14 +32,14 @@ import Data.Either (lefts, rights)
import Debug.Trace
import qualified Data.Text as T
import Data.Text.Encoding
import Stream hiding (map)
import qualified Data.Array.Accelerate as A
-- change to Data.Array.Accelerate.CUDA as I and link accelerate-cuda to use GPU instead of CPU
import Data.Array.Accelerate.Interpreter as I
import Stream hiding (map)
type Matrix e = A.Array A.DIM2 e
createGraph :: T.Text -> Either [Int] T.Text
createGraph input = createGraph' input (Left [])
where