Merge "List the unsatisfied dependencies in CanvasContext"

[simantics/platform.git] / tests / org.simantics.scl.compiler.tests / src / org / simantics / scl / compiler / tests / scl / ViewPatterns1.scl

import "Prelude"\r
\r
f :: String -> String\r
f (split "/" -> [a,b]) = "\(a)foo\(b)"\r
f (split "/" -> [a,b,c]) = "\(a)foo\(b)bar\(c)"\r
f str = str\r
\r
main = f "123" + f "abc/def" + f "123/456/789"\r
--\r
123abcfoodef123foo456bar789\r