Hlint: Error: Use uncurry

2009-09-22 12:40:12 +00:00 · 2009-09-22 12:40:12 +00:00 · 469550b640
commit 469550b640
parent 1e6f38eb41
1 changed files with 1 additions and 1 deletions
--- 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"