blob: f7358a75d0123eafed6ad1b03b6162c11e0c840f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
type audio
external create : string -> audio = "Audio" [@@bs.new]
external play : audio -> unit = "play" [@@bs.send]
external currentTime : audio -> int = "currentTime" [@@bs.get]
external setCurrentTime : audio -> int -> unit = "currentTime" [@@bs.set]
let playOrReplay audio =
let () = if currentTime audio > 0 then setCurrentTime audio 0 else () in
play audio
|
