From ae455b67f12eb090d84e2ebcbaf81be658a6c4aa Mon Sep 17 00:00:00 2001
From: tailor <joachim.fasting@gmail.com>
Date: Mon, 23 Jul 2007 15:17:17 +0000
Subject: [PATCH] [gitconv @ MPD.hs: implement 'playlistclear'.]

---
 MPD.hs | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/MPD.hs b/MPD.hs
index 9f1d2ab..faf1989 100644
--- a/MPD.hs
+++ b/MPD.hs
@@ -43,6 +43,7 @@ module MPD (
             add, add_, addid, clear, currentSong, delete, load, move,
             playlistinfo, getPlaylist, plchanges, plchangesposid, rm, rename,
             save, shuffle, swap,
+            playlistclear,
 
             -- * Playback commands
             crossfade, next, pause, play, previous, random, repeat, seek,
@@ -427,6 +428,11 @@ currentSong conn = do
                 return $ if null ls then Nothing
                                     else Just (takeSongInfo ls)
 
+-- | Like 'clear' but takes the name of a playlist to operate on.
+-- Creates a new playlist if it does not exist.
+playlistclear :: Connection -> String -> IO ()
+playlistclear conn plname = getResponse_ conn ("playlistclear " ++ show plname)
+
 --
 -- Playback commands
 --
-- 
2.11.4.GIT