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

lib: clarify

Browse Source
This commit is contained in:
Simon Michael 2018-07-14 10:57:05 +01:00
parent acff169dba
commit 2fbebc6c64
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hledger/Hledger/Cli/Commands/Prices.hs
View File

@ -30,12 +30,12 @@ prices opts j = do
let cprices = concatMap postingCosts . allPostings $ j let cprices = concatMap postingCosts . allPostings $ j
icprices = concatMap postingCosts . mapAmount invertPrice . allPostings $ j icprices = concatMap postingCosts . mapAmount invertPrice . allPostings $ j
printPrices = mapM_ (putStrLn . showPrice) printPrices = mapM_ (putStrLn . showPrice)
forBoolOpt opt | boolopt opt $ rawopts_ opts = id ifBoolOpt opt | boolopt opt $ rawopts_ opts = id
| otherwise = const [] | otherwise = const []
allPrices = sortOn mpdate . concat $ allPrices = sortOn mpdate . concat $
[ jmarketprices j [ jmarketprices j
, forBoolOpt "costs" cprices , ifBoolOpt "costs" cprices
, forBoolOpt "inverted-costs" icprices , ifBoolOpt "inverted-costs" icprices
] ]
printPrices allPrices printPrices allPrices