replace Models with a top-level Ledger module
This commit is contained in:
		
							parent
							
								
									9a72298a4c
								
							
						
					
					
						commit
						b19fe33476
					
				| @ -1,7 +1,6 @@ | |||||||
| {-|  | {-|  | ||||||
| Import this module to get all the hledger \"models\" and their \"methods\". |  | ||||||
| -} | -} | ||||||
| module Ledger.Models ( | module Ledger ( | ||||||
|                module Ledger.Types, |                module Ledger.Types, | ||||||
|                module Ledger.Currency, |                module Ledger.Currency, | ||||||
|                module Ledger.Amount, |                module Ledger.Amount, | ||||||
| @ -110,7 +110,10 @@ import qualified Text.ParserCombinators.Parsec.Token as P | |||||||
| import System.IO | import System.IO | ||||||
| 
 | 
 | ||||||
| import Ledger.Utils | import Ledger.Utils | ||||||
| import Ledger.Models | import Ledger.Types | ||||||
|  | import Ledger.LedgerEntry (autofillEntry) | ||||||
|  | import Ledger.Currency (getcurrency) | ||||||
|  | import Ledger.TimeLog (ledgerFromTimeLog) | ||||||
| 
 | 
 | ||||||
| -- utils | -- utils | ||||||
| 
 | 
 | ||||||
|  | |||||||
							
								
								
									
										2
									
								
								Tests.hs
									
									
									
									
									
								
							
							
						
						
									
										2
									
								
								Tests.hs
									
									
									
									
									
								
							| @ -4,7 +4,7 @@ import qualified Data.Map as Map | |||||||
| import Text.ParserCombinators.Parsec | import Text.ParserCombinators.Parsec | ||||||
| 
 | 
 | ||||||
| import Options | import Options | ||||||
| import Ledger.Models | import Ledger | ||||||
| import Ledger.Parse | import Ledger.Parse | ||||||
| import Ledger.Utils | import Ledger.Utils | ||||||
| 
 | 
 | ||||||
|  | |||||||
| @ -22,7 +22,6 @@ hledger ("Main") | |||||||
|  "Tests" |  "Tests" | ||||||
|  "Parse" |  "Parse" | ||||||
|   "Options" |   "Options" | ||||||
|   "Models" |  | ||||||
|    "TimeLog" |    "TimeLog" | ||||||
|    "Ledger" |    "Ledger" | ||||||
|     "Account" |     "Account" | ||||||
| @ -63,7 +62,7 @@ import qualified Data.Map as Map (lookup) | |||||||
| 
 | 
 | ||||||
| import Options | import Options | ||||||
| import Tests (hunit, quickcheck) | import Tests (hunit, quickcheck) | ||||||
| import Ledger.Models | import Ledger | ||||||
| import Ledger.Parse (parseLedgerFile) | import Ledger.Parse (parseLedgerFile) | ||||||
| import Ledger.Utils hiding (test) | import Ledger.Utils hiding (test) | ||||||
| 
 | 
 | ||||||
|  | |||||||
		Loading…
	
		Reference in New Issue
	
	Block a user