more .gitignore

.gitignore

@@ -1,6 +1,5 @@
 *.o
 *~
-dist/*
 *.hi
 *.eventlog
 *.lkshf

dist/build/autogen/Paths_hgraph.hs

@@ -0,0 +1,36 @@
+module Paths_hgraph (
+    version,
+    getBinDir, getLibDir, getDataDir, getLibexecDir,
+    getDataFileName, getSysconfDir
+  ) where
+
+import qualified Control.Exception as Exception
+import Data.Version (Version(..))
+import System.Environment (getEnv)
+import Prelude
+
+catchIO :: IO a -> (Exception.IOException -> IO a) -> IO a
+catchIO = Exception.catch
+
+
+version :: Version
+version = Version {versionBranch = [0,0,1], versionTags = []}
+bindir, libdir, datadir, libexecdir, sysconfdir :: FilePath
+
+bindir     = "/home/sdressel/.cabal/bin"
+libdir     = "/home/sdressel/.cabal/lib/x86_64-linux-ghc-7.6.3/hgraph-0.0.1"
+datadir    = "/home/sdressel/.cabal/share/x86_64-linux-ghc-7.6.3/hgraph-0.0.1"
+libexecdir = "/home/sdressel/.cabal/libexec"
+sysconfdir = "/home/sdressel/.cabal/etc"
+
+getBinDir, getLibDir, getDataDir, getLibexecDir, getSysconfDir :: IO FilePath
+getBinDir = catchIO (getEnv "hgraph_bindir") (\_ -> return bindir)
+getLibDir = catchIO (getEnv "hgraph_libdir") (\_ -> return libdir)
+getDataDir = catchIO (getEnv "hgraph_datadir") (\_ -> return datadir)
+getLibexecDir = catchIO (getEnv "hgraph_libexecdir") (\_ -> return libexecdir)
+getSysconfDir = catchIO (getEnv "hgraph_sysconfdir") (\_ -> return sysconfdir)
+
+getDataFileName :: FilePath -> IO FilePath
+getDataFileName name = do
+  dir <- getDataDir
+  return (dir ++ "/" ++ name)

dist/build/autogen/cabal_macros.h

@@ -0,0 +1,72 @@
+/* DO NOT EDIT: This file is automatically generated by Cabal */
+
+/* package QuickCheck-2.6 */
+#define VERSION_QuickCheck "2.6"
+#define MIN_VERSION_QuickCheck(major1,major2,minor) (\
+  (major1) <  2 || \
+  (major1) == 2 && (major2) <  6 || \
+  (major1) == 2 && (major2) == 6 && (minor) <= 0)
+
+/* package Stream-0.4.6.1 */
+#define VERSION_Stream "0.4.6.1"
+#define MIN_VERSION_Stream(major1,major2,minor) (\
+  (major1) <  0 || \
+  (major1) == 0 && (major2) <  4 || \
+  (major1) == 0 && (major2) == 4 && (minor) <= 6)
+
+/* package accelerate-0.14.0.0 */
+#define VERSION_accelerate "0.14.0.0"
+#define MIN_VERSION_accelerate(major1,major2,minor) (\
+  (major1) <  0 || \
+  (major1) == 0 && (major2) <  14 || \
+  (major1) == 0 && (major2) == 14 && (minor) <= 0)
+
+/* package base-4.6.0.1 */
+#define VERSION_base "4.6.0.1"
+#define MIN_VERSION_base(major1,major2,minor) (\
+  (major1) <  4 || \
+  (major1) == 4 && (major2) <  6 || \
+  (major1) == 4 && (major2) == 6 && (minor) <= 0)
+
+/* package bytestring-0.10.0.2 */
+#define VERSION_bytestring "0.10.0.2"
+#define MIN_VERSION_bytestring(major1,major2,minor) (\
+  (major1) <  0 || \
+  (major1) == 0 && (major2) <  10 || \
+  (major1) == 0 && (major2) == 10 && (minor) <= 0)
+
+/* package deepseq-1.3.0.1 */
+#define VERSION_deepseq "1.3.0.1"
+#define MIN_VERSION_deepseq(major1,major2,minor) (\
+  (major1) <  1 || \
+  (major1) == 1 && (major2) <  3 || \
+  (major1) == 1 && (major2) == 3 && (minor) <= 0)
+
+/* package ghc-7.6.3 */
+#define VERSION_ghc "7.6.3"
+#define MIN_VERSION_ghc(major1,major2,minor) (\
+  (major1) <  7 || \
+  (major1) == 7 && (major2) <  6 || \
+  (major1) == 7 && (major2) == 6 && (minor) <= 3)
+
+/* package monad-par-0.3.4.5 */
+#define VERSION_monad_par "0.3.4.5"
+#define MIN_VERSION_monad_par(major1,major2,minor) (\
+  (major1) <  0 || \
+  (major1) == 0 && (major2) <  3 || \
+  (major1) == 0 && (major2) == 3 && (minor) <= 4)
+
+/* package parallel-3.2.0.4 */
+#define VERSION_parallel "3.2.0.4"
+#define MIN_VERSION_parallel(major1,major2,minor) (\
+  (major1) <  3 || \
+  (major1) == 3 && (major2) <  2 || \
+  (major1) == 3 && (major2) == 2 && (minor) <= 0)
+
+/* package text-0.11.3.1 */
+#define VERSION_text "0.11.3.1"
+#define MIN_VERSION_text(major1,major2,minor) (\
+  (major1) <  0 || \
+  (major1) == 0 && (major2) <  11 || \
+  (major1) == 0 && (major2) == 11 && (minor) <= 3)
+

dist/package.conf.inplace

@@ -0,0 +1 @@
+[]

src/Main.hs

@@ -40,12 +40,12 @@ import Data.Array.Accelerate hiding (not,(++))
 import Data.Array.Accelerate.Interpreter as I
 type Matrix e = Array DIM2 e
 
-type Attr  = Matrix Int8
+type Attr  = Matrix Double
 -- Adjecency-Matrix
 type Adj   = Matrix Int8
 -- Vector of the Adjecency-Matrix
 type AdjV  = Vector Int8
-newtype Constraints = Matrix Float
+newtype Constraints = Matrix Double
 -- Graph consists of a Vector denoting which colums of the matrix represents wich originating
 -- column in the global adjencency-matrix, the reduces adjencency-matrix of the graph, a
 -- matrix of constraints and a scalar denoting the density