@@ -718,7 +718,7 @@ algorithm
718718 indexes = List . map3(nodes, findIndexofNodeInGraph, inGraph, inEqualFunc, 1 );
719719 indexes = List . select1(indexes, arrayElemetGtZero, inColored);
720720 indexesColor = List . map1(indexes, getArrayElem, inColored);
721- List . map2_0(indexesColor, arrayUpdateListAppend, forbiddenColor, inNode);
721+ List . map2_0(indexesColor, arrayUpdateListAppend, forbiddenColor, SOME ({ inNode}) );
722722 forbiddenColor1 = addForbiddenColors(inNode, rest, inColored, forbiddenColor, inGraph, inEqualFunc, inPrintFunc);
723723 then forbiddenColor1;
724724 else
@@ -740,17 +740,17 @@ end getArrayElem;
740740protected function arrayUpdateListAppend
741741 input Integer inIndex;
742742 input array< Option < list< NodeType >>> inArray;
743- input NodeType inNode;
743+ input Option < list < NodeType >> inNode;
744744 replaceable type NodeType subtypeof Any ;
745745protected
746746 list< NodeType > arrayElem;
747747algorithm
748- _ := matchcontinue(inIndex, inArray, inNode )
748+ _ := matchcontinue(inIndex, inArray)
749749 local
750750 list< NodeType > arrElem;
751- case (_, _, _ )
751+ case (_, _)
752752 equation
753- arrayUpdate(inArray, inIndex, SOME ({ inNode}) );
753+ arrayUpdate(inArray, inIndex, inNode);
754754 then ();
755755 else
756756 equation
@@ -999,11 +999,12 @@ protected function updateForbiddenColorArrayInt
999999 input Integer inNode;
10001000protected
10011001 Integer colorIndex;
1002+ Option < list< Integer >> opt = SOME ({inNode});
10021003algorithm
10031004 for index in inIndexes loop
10041005 colorIndex := arrayGet(inColored, index);
10051006 if colorIndex > 0 then
1006- arrayUpdate(inForbiddenColor, colorIndex, SOME ({inNode}) );
1007+ arrayUpdate(inForbiddenColor, colorIndex, opt );
10071008 end if ;
10081009 end for ;
10091010end updateForbiddenColorArrayInt;
0 commit comments