Buchhaltung.Common

CONFIGURATION

CSV PARSER

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

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

p_csvrow :: Char -> T.Parser [T.Text]

p_csvfield :: Char -> T.Parser T.Text

p_csvstring :: T.Parser String

escapedDoubleQuotes :: IsString t => t

parens :: Parsec T.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)

=> (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 -> T.Text

trimnl :: T.Text -> T.Text

make CSV data easier to handle

type MyRecord = HM.HashMap T.Text T.Text

parseCsv

Arguments

:: Char

separator

-> TL.Text

-> ([T.Text], [MyRecord])

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

getCsv :: T.Text -> MyRecord -> T.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 a, Show s) => 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, T.Text) 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 -> T.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 :: T.Text -> CommonM (env, Maybe Version) [ImportedEntry]

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

parseDatum :: T.Text -> Day

type Getter a = MyRecord -> a

retrieval function

data CsvImport a

Constructors

CSV

Fields

• cFilter :: MyRecord -> Bool

  should this csv line be processed?

• cAmount :: Getter T.Text

  Amount parsable by 'mamoumtp\''

• cDate :: Getter Day
• cVDate :: Getter (Maybe Day)
• cBank :: a -> Getter T.Text
• cAccount :: a -> Getter T.Text
• cHeader :: [T.Text]
• cBayes :: [T.Text]
• cDescription :: [T.Text]
• cVersion :: Version
• cSeparator :: Char

data CheckedCsvImport a

Constructors

UnsafeCSV

Fields

• cRaw :: CsvImport a

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

type VersionedCSV a

Arguments

 = MonadError Msg m

=> m (SFormat DefaultVersion, M.Map Version (CheckedCsvImport a))

(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

-> [T.Text]

Header

-> [[T.Text]]

list of cols

-> P.Box

table1

Arguments

:: E.NonEmpty [P.Box]

list of rows

-> P.Box

table2

Arguments

:: [Int]

max width

-> [T.Text]

Header

-> [[T.Text]]

list of cols

-> E.NonEmpty [P.Box]

list of rows

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

text' :: T.Text -> P.Box

module Buchhaltung.Utils

module Buchhaltung.Types

textstrip :: T.Text -> T.Text