File: test.ml

package info (click to toggle)
bisect-ppx 2.8.3%2Bdfsg-2
  • links: PTS, VCS
  • area: main
  • in suites: trixie
  • size: 1,352 kB
  • sloc: ml: 3,575; javascript: 813; makefile: 226; sh: 140
file content (16 lines) | stat: -rw-r--r-- 251 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
let f () =
  ()

let g () =
  ()

let () =
  f ()

(* Reproduces a HTML display bug that existed in development between 2.6.3 and
   2.7.0, starting with 1b8d7ec5985aa12a85e797e3d53fc72713e80c35. *)
let a () =
  if true then
    true
  else
    false