File: error.ml

package info (click to toggle)
coq-quickchick 2.1.1-1
  • links: PTS, VCS
  • area: main
  • in suites: experimental
  • size: 2,432 kB
  • sloc: ml: 4,367; ansic: 789; makefile: 388; sh: 27; python: 4; perl: 2; lisp: 2
file content (5 lines) | stat: -rw-r--r-- 206 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
 
let flag_debug = Summary.ref ~name:"QC_flag_debug" false

let qcfail s = failwith (Printf.sprintf "Internal QuickChick Error : %s" s)

let msg_debug   s = if !flag_debug then Feedback.msg_debug   s else ()