slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Hlint: Error: Use uncurry

Browse Source
This commit is contained in:
marko.kocic 2009-09-22 12:40:12 +00:00
parent 1e6f38eb41
commit 469550b640
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Commands/Stats.hs
View File

@ -20,7 +20,7 @@ stats opts args l = do
showStats :: [Opt] -> [String] -> Ledger -> Day -> String showStats :: [Opt] -> [String] -> Ledger -> Day -> String
showStats _ _ l today = showStats _ _ l today =
heading ++ unlines (map (\(a,b) -> printf fmt a b) stats) heading ++ unlines (map (uncurry (printf fmt)) stats)
where where
heading = underline $ printf "Ledger statistics as of %s" (show today) heading = underline $ printf "Ledger statistics as of %s" (show today)
fmt = "%-" ++ show w1 ++ "s: %-" ++ show w2 ++ "s" fmt = "%-" ++ show w1 ++ "s: %-" ++ show w2 ++ "s"