national-australia-bank 0.0.4 → 0.0.5
raw patch · 3 files changed
+18/−2 lines, 3 files
Files
- changelog.md +4/−0
- national-australia-bank.cabal +1/−1
- src/Data/Bank/NationalAustraliaBank/NationalAustraliaBank.hs +13/−1
changelog.md view
@@ -1,3 +1,7 @@+0.0.5++* Add `encodeTransactionNoEmptyField`+ 0.0.4 * Use classy lens/prism
national-australia-bank.cabal view
@@ -1,5 +1,5 @@ name: national-australia-bank-version: 0.0.4+version: 0.0.5 synopsis: Functions for National Australia Bank transactions description: Parsing, Processing and other functions for National Australia Bank transactions license: BSD3
src/Data/Bank/NationalAustraliaBank/NationalAustraliaBank.hs view
@@ -24,7 +24,7 @@ DecDigit(DecDigit0) ) import Data.Foldable ( asum, toList ) import Data.List.NonEmpty ( NonEmpty(..), some1 )-import Data.Ord+import Data.Ord( comparing ) import Data.String ( IsString(fromString) ) import Data.Sv ( parseDecodeFromFile,@@ -537,6 +537,18 @@ contramap _amount (encodeAmount "Amount") <> fromString "Account Number" =: contramap _accountNumber E.string <> fromString "" =: contramap _emptyField E.string <>+ fromString "Transaction Type" =: contramap _transactionType E.string <>+ fromString "Transaction Details" =: contramap _details E.string <>+ contramap _balance (encodeAmount "Balance") <>+ fromString "Category" =: contramap _category E.string <>+ fromString "Merchant Name" =: contramap _merchantName E.string++encodeTransactionNoEmptyField ::+ NameEncode Transaction+encodeTransactionNoEmptyField =+ contramap _date encodeDate <>+ contramap _amount (encodeAmount "Amount") <>+ fromString "Account Number" =: contramap _accountNumber E.string <> fromString "Transaction Type" =: contramap _transactionType E.string <> fromString "Transaction Details" =: contramap _details E.string <> contramap _balance (encodeAmount "Balance") <>