Source file `i18n_chrome.ml`

1
2
3
4
5
6
open Ezjs_min
include Chrome_common.I18n

let getAcceptLanguages f =
  i18n##getAcceptLanguages (wrap_callback (fun a -> f (of_listf string a)))
let detectLanguage text f = i18n##detectLanguage (string text) (wrap_callback f)