Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

20 lines (14 sloc) 0.551 kb
import Media.Timed.Timecode.Arith
import Media.Timed.Audio.SimpleFileIO
import Media.Timed.Audio.ALSAPlay
import System.Environment
import Control.Monad
main = do
args <- getArgs
when (length args /= 1) $
error "Need exactly one argument: the file name of a valid .wav file."
wavContents <- loadWAVfileChan 0 (timecode(0:0:[0])) $ head args
case wavContents of
Left problem -> print problem
Right audio -> aplaySimple -- Logged "testsound0-aplayed0.rawcdaa"
(timecode(0:0:[0])) audio
Jump to Line
Something went wrong with that request. Please try again.