From 469550b6406e60c945aa99324829ca70ff3aec3e Mon Sep 17 00:00:00 2001
From: "marko.kocic" <marko.kocic@gmail.com>
Date: Tue, 22 Sep 2009 12:40:12 +0000
Subject: [PATCH] Hlint: Error: Use uncurry

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

diff --git a/Commands/Stats.hs b/Commands/Stats.hs
index 5aff00a0c..a9254c64a 100644
--- a/Commands/Stats.hs
+++ b/Commands/Stats.hs
@@ -20,7 +20,7 @@ stats opts args l = do
 
 showStats :: [Opt] -> [String] -> Ledger -> Day -> String
 showStats _ _ l today =
-    heading ++ unlines (map (\(a,b) -> printf fmt a b) stats)
+    heading ++ unlines (map (uncurry (printf fmt)) stats)
     where
       heading = underline $ printf "Ledger statistics as of %s" (show today)
       fmt = "%-" ++ show w1 ++ "s: %-" ++ show w2 ++ "s"