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