Text.Playlist

Playlist Types

data Track

A single music file or streaming URL.

Constructors

Track

Fields

trackURL :: Text

URL for a file or streaming resource.

trackTitle :: Maybe Text

Optional title.

Instances

Eq Track

Show Track

type Playlist = [Track]

A list of Tracks.

Playlist Formats

data Format

Playlist formats.

Constructors

PLS

http://en.wikipedia.org/wiki/PLS_(file_format)

M3U

M3U and M3U8. http://en.wikipedia.org/wiki/M3U

Instances

Eq Format

Read Format

Show Format

Parsing and Generating

parsePlaylist :: Format -> ByteString -> Either String Playlist

Parse a playlist from a ByteString. Parsing may fail in which case an error message is returned in Left.

content <- BS.getContents
case parsePlaylist M3U content of
 Left err -> fail $ "failed to parse playlist: " ++ err
 Right x  -> return x

generatePlaylist :: Format -> Playlist -> ByteString

Generate a lazy ByteString containing playlist data from the given playlist and in the given format.

BL.putStr $ generatePlaylist M3U somePlaylist

fileNameToFormat :: FilePath -> Maybe Format

Try to figure out a file's format from it's file extension.

>>> fileNameToFormat "foo.m3u"
Just M3U

>>> fileNameToFormat "foo.txt"
Nothing

appendExtension :: Format -> FilePath -> FilePath

Given a file name that does not have a file extension, return a file name with the appropriate extension included based on the given format.

>>> appendExtension M3U "foo"
"foo.m3u"