diff --git a/dist/build/hgraph/hgraph b/dist/build/hgraph/hgraph index abd87ff..b0c0dac 100755 Binary files a/dist/build/hgraph/hgraph and b/dist/build/hgraph/hgraph differ diff --git a/dist/build/test-hgraph/test-hgraph b/dist/build/test-hgraph/test-hgraph index 3418f4b..9625280 100755 Binary files a/dist/build/test-hgraph/test-hgraph and b/dist/build/test-hgraph/test-hgraph differ diff --git a/src/Main.hs b/src/Main.hs index 6b6aa18..265ad33 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -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