From 2fbebc6c64c537c0d46d9deeb93de453d61ae8fd Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Sat, 14 Jul 2018 10:57:05 +0100
Subject: [PATCH] lib: clarify

---
 hledger/Hledger/Cli/Commands/Prices.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/hledger/Hledger/Cli/Commands/Prices.hs b/hledger/Hledger/Cli/Commands/Prices.hs
index 0e6f9e8ca..e7a28ba5e 100755
--- a/hledger/Hledger/Cli/Commands/Prices.hs
+++ b/hledger/Hledger/Cli/Commands/Prices.hs
@@ -30,12 +30,12 @@ prices opts j = do
   let cprices = concatMap postingCosts . allPostings $ j
       icprices = concatMap postingCosts . mapAmount invertPrice . allPostings $ j
       printPrices = mapM_ (putStrLn . showPrice)
-      forBoolOpt opt | boolopt opt $ rawopts_ opts = id
+      ifBoolOpt opt | boolopt opt $ rawopts_ opts = id
                      | otherwise = const []
       allPrices = sortOn mpdate . concat $
           [ jmarketprices j
-          , forBoolOpt "costs" cprices
-          , forBoolOpt "inverted-costs" icprices
+          , ifBoolOpt "costs" cprices
+          , ifBoolOpt "inverted-costs" icprices
           ]
   
   printPrices allPrices