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

added strictness at correct spot

Browse Source
This commit is contained in:
tpajenka 2014-01-12 13:37:40 +01:00
parent 9d839ecd74
commit 79fc923174
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Main.hs
View File

@ -211,9 +211,9 @@ main = do
paramRef <- return $ L.filter (not . emptyLine) (B.lines (head $ tail $ tail input)) paramRef <- return $ L.filter (not . emptyLine) (B.lines (head $ tail $ tail input))
unrefined_graph <- return $ (L.map (parseAdjMat) adjMat) unrefined_graph <- return $!! (L.map (parseAdjMat) adjMat)
-- +|| (parBuffer 25 rseq) --run parallel, evaluate fully -- +|| (parBuffer 25 rseq) --run parallel, evaluate fully
unrefined_attr <- return $ (L.map (parseAttr '\t') attrMat) unrefined_attr <- return $!! (L.map (parseAttr '\t') attrMat)
-- +|| (parBuffer 25 rseq) --run parallel, evaluate fully -- +|| (parBuffer 25 rseq) --run parallel, evaluate fully
paramsParsed <- return $ parseParams '\t' paramRef paramsParsed <- return $ parseParams '\t' paramRef
@ -254,9 +254,9 @@ main = do
else return () else return ()
----- EXTRACT MATRICES ----- EXTRACT MATRICES
graph <- return $!! A.fromListUnboxed (Z :. adjLines :. adjLines) (L.foldl1 (++) (lefts unrefined_graph)) -- concatenated graph graph <- return $ A.fromListUnboxed (Z :. adjLines :. adjLines) (L.foldl1 (++) (lefts unrefined_graph)) -- concatenated graph
attr <- return $!! A.fromListUnboxed (Z :. attrLines :. attrNum) (L.foldl1 (++) (lefts unrefined_attr)) -- concatenated attr attr <- return $ A.fromListUnboxed (Z :. attrLines :. attrNum) (L.foldl1 (++) (lefts unrefined_attr)) -- concatenated attr
timeEndParse <- getCPUTime timeEndParse <- getCPUTime
----- CALCULATE & OUTPUT ----- CALCULATE & OUTPUT