summaryrefslogtreecommitdiff
path: root/tests/TrivialMatch.ml
blob: 971eafb5a3897b66d3befbe49c4608b9ab377f3b (plain)
1
2
3
4
let x =
  match 1 < 0 with
  | true  -> "something is terribly wrong here"
  | false -> "correct"