unison/unison-src/errors/seq-concat-constant-length.u

4 lines
63 B
Plaintext

test : [a] -> ([a], [a])
test l = case l of
x ++ y -> (x, y)