git.iko.soy/elk
on master help sign in
Fix bug in cycle detection of patterns with only one variable
261b7ffEvan Czaplicki
src/Canonicalize/Expression.hs+1−1
compare with master
unifiedsplit
@@ -436,7 +436,7 @@ addDefNodes env nodes def =
436 (\freeLocals warnings cbody ->
436 (\freeLocals warnings cbody ->
437 let
437 let
438 names = getPatternNames [] pattern
438 names = getPatternNames [] pattern
439− name = Text.intercalate "$" (map A.toValue names)
439+ name = Text.cons '$' (Text.intercalate "$" (map A.toValue names))
440 node = ( Destruct cpattern cbody, name, Map.keys freeLocals )
440 node = ( Destruct cpattern cbody, name, Map.keys freeLocals )
441 in
441 in
442 good
442 good