Drezil/hgraph
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

minor stuff

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
dist/build/hgraph/hgraph vendored
View File

Binary file not shown.

BIN
dist/build/test-hgraph/test-hgraph vendored
View File

Binary file not shown.

6
src/Main.hs
View File

@ -32,14 +32,14 @@ import Data.Either (lefts, rights)
import Debug.Trace import Debug.Trace
import qualified Data.Text as T import qualified Data.Text as T
import Data.Text.Encoding import Data.Text.Encoding
import Stream hiding (map)
import qualified Data.Array.Accelerate as A 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 -- 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 Data.Array.Accelerate.Interpreter as I
import Stream hiding (map)
type Matrix e = A.Array A.DIM2 e type Matrix e = A.Array A.DIM2 e
createGraph :: T.Text -> Either [Int] T.Text createGraph :: T.Text -> Either [Int] T.Text
createGraph input = createGraph' input (Left []) createGraph input = createGraph' input (Left [])
where where