From b00126f374586af5f0740d8d73ba8933f614c139 Mon Sep 17 00:00:00 2001 From: Ben Sinclair Date: Tue, 6 Nov 2007 23:01:00 +0000 Subject: [PATCH] Commands.hs: put 'show' calls back into lsDirs and lsFiles. darcs-hash:20071106230155-87dc9-a43b78123d1258af0074830de07e912a1a114e28.gz --- Network/MPD/Commands.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Network/MPD/Commands.hs b/Network/MPD/Commands.hs index 53cab2e..675bb36 100644 --- a/Network/MPD/Commands.hs +++ b/Network/MPD/Commands.hs @@ -645,12 +645,12 @@ findDuplicates = -- | List directories non-recursively. lsDirs :: Path -> MPD [Path] lsDirs path = liftM ((\(x,_,_) -> x) . takeEntries) - (getResponse ("lsinfo " ++ path)) + (getResponse ("lsinfo " ++ show path)) -- | List files non-recursively. lsFiles :: Path -> MPD [Path] lsFiles path = liftM (map sgFilePath . (\(_,_,x) -> x) . takeEntries) - (getResponse ("lsinfo " ++ path)) + (getResponse ("lsinfo " ++ show path)) -- | List all playlists. lsPlaylists :: MPD [PlaylistName] -- 2.11.4.GIT