[simantics/platform.git] / StringMatching1.scl

main :: Integer
main = match "Bar" with
  "Foo" -> 1
  "Bar" -> 2
  _ -> 3
--
2