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