suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Corrected the order the nodes are folded to match reality (rather than unintentionally reversing them)

Browse Source
This commit is contained in:
Neil Brown 2008-02-01 10:52:16 +00:00
parent 0672730894
commit 83e04b92d4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
common/FlowGraph.hs
View File

@ -251,7 +251,7 @@ buildFlowGraph funcs s
foldEither (Left _) (Right n) = Right [n] foldEither (Left _) (Right n) = Right [n]
foldEither (Right ns) (Left _) = Right ns foldEither (Right ns) (Left _) = Right ns
foldEither (Left hadNode) (Left hadNode') = Left $ hadNode || hadNode' foldEither (Left hadNode) (Left hadNode') = Left $ hadNode || hadNode'
foldEither (Right ns) (Right n) = Right (n : ns) foldEither (Right ns) (Right n) = Right (ns ++ [n])
funcAndRoute :: (Int, inner) -> GraphMaker mLabel mAlter label (Either Bool (Node,Node)) funcAndRoute :: (Int, inner) -> GraphMaker mLabel mAlter label (Either Bool (Node,Node))
funcAndRoute (ind,x) = func x (outerRoute @-> routeList ind) funcAndRoute (ind,x) = func x (outerRoute @-> routeList ind)