alpmestan

$ git diff
diff --git a/src/Text/Taggy/Parser.hs b/src/Text/Taggy/Parser.hs
index e7dc2cc..19b49e1 100644
--- a/src/Text/Taggy/Parser.hs
+++ b/src/Text/Taggy/Parser.hs
@@ -117,7 +117,7 @@ tagclose = do
   char '/'
   skipSpace
   i <- ident
-  char '>'

alpmestan

$ .cabal-sandbox/bin/accelerate-blas-test
Bus error: 10
$ .cabal-sandbox/bin/accelerate-blas-test +RTS -xc
*** Exception (reporting due to +RTS -xc): (THUNK_1_0), stack trace: 
  Data.Array.Accelerate.CUDA.Persistent.new,
  called from Data.Array.Accelerate.CUDA.State.theState,
  called from Data.Array.Accelerate.CUDA.State.CAF
*** Exception (reporting due to +RTS -xc): (THUNK_1_0), stack trace: 
  Data.Array.Accelerate.CUDA.Persistent.new,
  called from Data.Array.Accelerate.CUDA.State.theState,

alpmestan

import qualified Data.Array.Accelerate as A
import qualified Data.Array.Accelerate.CUDA as A

-- (v1 `outer` v2) . (v1 - v2)
h :: A.Vector Double -> A.Vector Double -> A.Vector Double
h v1 v2 = A.run $ accOuter v1' v2' `accApply` A.zipWith (-) v1' v2'
    where !v1' = A.use v1
    	  !v2' = A.use v2

-- outer product

alpmestan

{-# LANGUAGE CPP #-}

#define information data

information Dir = Up | Down