{-# LANGUAGE NoImplicitPrelude #-}

module Miso.FFI.Audio where

import GHCJS.Types
import Protolude

{-
Usage:

obj <- Miso.FFI.Document.getElementById "myAudioPlayer"
play obj
pause obj

-}

foreign import javascript unsafe "$1.play();"
  play :: JSVal -> IO ()

foreign import javascript unsafe "$1.pause();"
  pause :: JSVal -> IO ()