package vcaml

  1. Overview
  2. Docs
package vcaml
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file import.ml

1
2
3
4
5
6
7
8
9
10
open Core

let tag_callsite here =
  let here =
    match !Backtrace.elide with
    | false -> [%sexp (here : Source_code_position.t)]
    | true -> Atom (sprintf !"%{Source_code_position.pos_fname}:LINE:COL" here)
  in
  Or_error.tag_s ~tag:[%message "Called from" ~_:(here : Sexp.t)]
;;