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