parent
64d6878d6c
commit
45bb513eb8
@ -85,7 +85,7 @@ main = do
|
|||||||
-- into equivalent daily postings up to the next given end date,
|
-- into equivalent daily postings up to the next given end date,
|
||||||
-- keeping track of remaining end dates.
|
-- keeping track of remaining end dates.
|
||||||
splitTransactionPostings :: Query -> AccountName -> [Day] -> Transaction -> ([Day], Transaction)
|
splitTransactionPostings :: Query -> AccountName -> [Day] -> Transaction -> ([Day], Transaction)
|
||||||
splitTransactionPostings q acct dates t
|
splitTransactionPostings _q acct dates t
|
||||||
-- | q `matchesTransaction` t = (dates', t')
|
-- | q `matchesTransaction` t = (dates', t')
|
||||||
-- | otherwise = (dates, t)
|
-- | otherwise = (dates, t)
|
||||||
| otherwise = (dates', t')
|
| otherwise = (dates', t')
|
||||||
|
|||||||
@ -11,9 +11,7 @@
|
|||||||
{-# LANGUAGE QuasiQuotes #-}
|
{-# LANGUAGE QuasiQuotes #-}
|
||||||
{-# LANGUAGE RecordWildCards #-}
|
{-# LANGUAGE RecordWildCards #-}
|
||||||
|
|
||||||
import Data.List
|
|
||||||
import Data.String.Here
|
import Data.String.Here
|
||||||
import qualified Data.Text.IO as T
|
|
||||||
import Hledger
|
import Hledger
|
||||||
import Hledger.Cli
|
import Hledger.Cli
|
||||||
|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user