Source file `browse_url.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
open! Core_kernel
open! Import

module Url = struct
  include String

  let type_ = Value.Type.string
  let t = type_
end

let browse_url =
  let browse_url = Funcall.("browse-url" <: Url.t @-> return nil) in
  fun url ->
    if am_running_test
    then message_s [%sexp "Would browse url", (url : Url.t)]
    else browse_url url
;;

let browse_url_chrome = Funcall.("browse-url-chrome" <: Url.t @-> return nil)