From ca983a3b8789c968741c1c08928a031501e89ff0 Mon Sep 17 00:00:00 2001
From: Joachim Fasting <joachim.fasting@gmail.com>
Date: Fri, 14 Mar 2008 15:13:38 +0000
Subject: [PATCH] [gitconv @ N.M.Commands.takeSongInfo: redundant parens]

---
 Network/MPD/Commands.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Network/MPD/Commands.hs b/Network/MPD/Commands.hs
index 1fdc2c6..f2c48e1 100644
--- a/Network/MPD/Commands.hs
+++ b/Network/MPD/Commands.hs
@@ -787,7 +787,7 @@ takeSongInfo xs = foldM f song xs
           -- We prefer Id.
           f a ("Pos", _)       = return a
           -- Catch unrecognised keys
-          f _ x                = throwError (Unexpected (show x))
+          f _ x                = throwError . Unexpected $ show x
 
           parseTuple s = let (x, y) = breakChar '/' s in
                          -- Handle incomplete values. For example, songs might
-- 
2.11.4.GIT