Haddock in DCB, unnötiges Argument in 'preprocess' entfern (density) und Haddock in Utils korrigiert

2013-12-03 01:06:56 +01:00
parent 03a34eac8e
commit 52c3afa427
3 changed files with 71 additions and 33 deletions
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -117,7 +117,7 @@ emptyLine a
 -- TODO: implement calculation
 --doCalculation :: Matrix Int -> B.ByteString
 doCalculation adj attr =
-        let (adj_, graph_) = preprocess adj attr 0.8 (A.fromListUnboxed (ix1 3) [0.5,0.5,0.5]) 2 in
+        let (adj_, graph_) = preprocess adj attr {--0.8--} (A.fromListUnboxed (ix1 3) [0.5,0.5,0.5]) 2 in
                B.concat $
                        [
                                outputArray $ trace ("After: "++ show (sumAllS adj_)++"\n") adj_,