Added parsing of currentsong for mpd protocoldevel

1 files changed, 16 insertions, 0 deletions

diff --git a/mpdwatch/parse.mli b/mpdwatch/parse.mli
new file mode 100644
index 0000000..6cd79dc
--- /dev/null
+++ b/mpdwatch/parse.mli
@@ -0,0 +1,16 @@
+type currentsong = {
+  artist: string list;
+  performer: string list;
+  composer: string list;
+  title: string option;
+  track: int option;
+  musicbrainz_albumid: string option;
+  musicbrainz_artistid: string list;
+  musicbrainz_trackid: string option;
+}
+
+exception ParseError of string
+
+val parse_string : 'a Angstrom.t -> string -> 'a
+
+val currentsong_parser : currentsong Angstrom.t