Buchhaltung.Common

CONFIGURATION

CSV PARSER

readcsv :: Char -> Text -> [[Text]]

readcsvrow :: Char -> Text -> [Text]

p_csvrow :: Char -> Parser [Text]

p_csvfield :: Char -> Parser Text

p_csvstring :: Parser String

escapedDoubleQuotes :: IsString p => p

parens :: Parsec Text () Int

dbacl output parser

testdbacl :: IO ()

dbacl_parse :: [AccountName] -> String -> Either ParseError [(AccountName, String)]

parse dbacl output (see testdbacl for the format of dbacl's output)

dbacl_parser :: [AccountName] -> Parsec String () [(AccountName, [String])]

Utilities

idx :: (Eq a, Show a) => [a] -> a -> Int

Dates

saveChanges

Arguments

:: (MonadReader (Options User config env) m, MonadIO m)

=> Maybe Journal

-> (Journal -> (Journal, Integer))

modifier, returning number of changed

-> m Journal

Read the journal file again, before applying Changes (to not overwrite possible changes, that were made in the mean time) saveChanges :: String -- ^ journal path -> (Journal-> (Journal, Integer)) -> IO Journal

mixed' :: Amount -> MixedAmount

showTransactions :: Journal -> [Char]

Lenses

jTrans :: Lens' Journal [Transaction]

tPosts :: Lens' Transaction [Posting]

pAcc :: Lens' Posting AccountName

changeTransaction :: [(Transaction, Transaction)] -> Journal -> (Journal, Integer)

replaces every matching transaction in the given journal counts the number of changed transactions

countUpdates :: Traversal' s a -> (a -> Maybe a) -> s -> (s, Integer)

Update a traversal and count the number of updates

data WithSource a

Constructors

WithSource

Fields

• wTx :: Transaction
• wIdx :: Int

  index of the posting with source

• wPosting :: Posting
• wSource :: Source
• wInfo :: a

Instances

Functor WithSource

Methods

fmap :: (a -> b) -> WithSource a -> WithSource b

(<$) :: a -> WithSource b -> WithSource a

extractSource :: ImportTag -> Transaction -> Either String (WithSource ())

extracts the source line from a Transaction

injectSource :: ImportTag -> Source -> Transaction -> Transaction

commentPrefix :: ImportTag -> Text

trimnl :: Text -> Text

make CSV data easier to handle

type MyRecord = HashMap Text Text

stripCsv :: ([Text], [MyRecord]) -> ([Text], [MyRecord])

parseCsv

Arguments

:: Char

separator

-> Text

-> ([Text], [MyRecord])

getCsvCreditDebit :: Text -> Text -> MyRecord -> Text

getCsvConcat :: [Text] -> MyRecord -> Text

getCsvConcatDescription :: env -> [Description env] -> MyRecord -> Text

getCsv :: Text -> MyRecord -> Text

Import Types

data ImportedEntry' a s

Constructors

ImportedEntry

Fields

• ieT :: Transaction

  transaction without postings (they will be inserted later)

• iePostings :: a
• ieSource :: s

  source to check for duplicates and for Bayesian matching

Instances

(Show s, Show a) => Show (ImportedEntry' a s)

Methods

showsPrec :: Int -> ImportedEntry' a s -> ShowS

show :: ImportedEntry' a s -> String

showList :: [ImportedEntry' a s] -> ShowS

type ImportedEntry

Arguments

 = ImportedEntry' [(AccountId, Text, Maybe Text, Bool)] Source

postings of [acount,amount]: only ImportedEntry with one posting is currently implemented in the statists functionality of Add.hs (See PROBLEM1) as well in the duplicates algorithm in addNew

type FilledEntry = ImportedEntry' () Source

fromFilled :: FilledEntry -> Entry

type Entry = ImportedEntry' () (Either String Source)

genTrans :: Day -> Maybe Day -> Text -> Transaction

helper function to create transaction for ImportedEntry

normalizeMixedAmountWith :: (Amount -> Decimal) -> MixedAmount -> MixedAmount

data Importer env

Constructors

Importer

Fields

• iModifyHandle :: Maybe (Handle -> IO ())

  e.g. windoof

• iImport :: Text -> CommonM (env, Maybe Version) [ImportedEntry]

windoof :: Maybe (Handle -> IO ())

parseDate :: String -> Text -> Day

parseDateM :: Monad m => String -> Text -> m Day

parseDateDE :: Text -> Day

parseDateUS :: Text -> Day

type Getter a = MyRecord -> a

retrieval function

data CsvPostingImport

Constructors

CsvPosting

Fields

• cAccount :: Getter Text
• cAmount :: Getter Text
• cSuffix :: Maybe (Getter Text)
• cNegate :: Getter Bool

  Amount parsable by 'mamoumtp\''

data CsvImport env

Constructors

CSV

Fields

• cFilter :: MyRecord -> Bool

  should this csv line be processed?

• cDate :: Getter Day
• cStrip :: Bool
• cVDate :: Getter (Maybe Day)
• cBank :: env -> Getter Text
• cHeader :: [Text]
• cBayes :: [Text]
• cDescription :: [Description env]
• cVersion :: Version
• cSeparator :: Char
• cPostings :: [env -> CsvPostingImport]

data Description env

Constructors

Field Text

Const Text

Read (env -> Text)

toField :: Description env -> Maybe Text

data CheckedCsvImport a

Constructors

UnsafeCSV

Fields

• cRaw :: CsvImport a

toVersionedCSV :: SFormat DefaultVersion -> [CsvImport a] -> VersionedCSV a

type VersionedCSV env

Arguments

 = MonadError Msg m

=> m (SFormat DefaultVersion, Map Version (CheckedCsvImport env))

(format with default version, _)

data DefaultVersion

Constructors

DefaultVersion

Fields

• fromDefaultVersion :: Version

checkRawCSV :: SFormat b -> CsvImport a -> CheckedCsvImport a

Pretty Printing

table

Arguments

:: [Int]

max width

-> [Text]

Header

-> [[Text]]

list of cols

-> Box

table1

Arguments

:: NonEmpty [Box]

list of rows

-> Box

table2

Arguments

:: [Int]

max width

-> [Text]

Header

-> [[Text]]

list of cols

-> NonEmpty [Box]

list of rows

mlen :: ListLike l e => [l] -> Int

text' :: Text -> Box

loadJournal :: (MonadError Msg m, MonadIO m) => [Ledgers -> Maybe FilePath] -> Options User config env -> m Journal

module Buchhaltung.Utils

module Buchhaltung.Types

textstrip :: Text -> Text

Remove leading and trailing whitespace.