From c4d650e6ad20663818047f75a58f566b002a987d Mon Sep 17 00:00:00 2001
From: Dmitry Astapov <dastapov@gmail.com>
Date: Wed, 13 Nov 2019 09:24:50 +0000
Subject: [PATCH] lib: balance-style -> balance-type

---
 hledger-lib/Hledger/Read/CsvReader.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/hledger-lib/Hledger/Read/CsvReader.hs b/hledger-lib/Hledger/Read/CsvReader.hs
index 6d0ec5c31..6baef1110 100644
--- a/hledger-lib/Hledger/Read/CsvReader.hs
+++ b/hledger-lib/Hledger/Read/CsvReader.hs
@@ -523,7 +523,7 @@ directives =
   ,"newest-first"
    -- ,"base-account"
    -- ,"base-currency"
-  , "balance-style"
+  , "balance-type"
   ]
 
 directivevalp :: CsvRulesParser String
@@ -823,14 +823,14 @@ transactionFromCsvRecord sourcepos rules record = t
       }
 
     defaultAssertion =
-      case mdirective "balance-style" of
+      case mdirective "balance-type" of
         Nothing -> assertion
         Just "=" -> assertion
         Just "==" -> assertion {batotal=True}
         Just "=*" -> assertion {bainclusive=True}
         Just "==*" -> assertion{batotal=True, bainclusive=True}
         Just x -> error' $ unlines
-          [ "balance-style \"" ++ x ++"\" is invalid. Use =, ==, =* or ==*." 
+          [ "balance-type \"" ++ x ++"\" is invalid. Use =, ==, =* or ==*." 
           , showRecord record
           , showRules rules record
           ]