consolidate under Hledger.Cli
This commit is contained in:
		
							parent
							
								
									0282aa4697
								
							
						
					
					
						commit
						6d18b8c0af
					
				| @ -19,7 +19,7 @@ import System.IO ( stderr, hFlush, hPutStrLn, hPutStr ) | |||||||
| #endif | #endif | ||||||
| import System.IO.Error | import System.IO.Error | ||||||
| import Text.ParserCombinators.Parsec | import Text.ParserCombinators.Parsec | ||||||
| import Hledger.Utils (ledgerFromStringWithOpts) | import Hledger.Cli.Utils (ledgerFromStringWithOpts) | ||||||
| import qualified Data.Foldable as Foldable (find) | import qualified Data.Foldable as Foldable (find) | ||||||
| 
 | 
 | ||||||
| -- | Read ledger transactions from the terminal, prompting for each field, | -- | Read ledger transactions from the terminal, prompting for each field, | ||||||
|  | |||||||
| @ -5,7 +5,7 @@ format, and print it on stdout. See the manual for more details. | |||||||
| 
 | 
 | ||||||
| module Hledger.Cli.Commands.Convert where | module Hledger.Cli.Commands.Convert where | ||||||
| import Hledger.Cli.Options (Opt(Debug)) | import Hledger.Cli.Options (Opt(Debug)) | ||||||
| import Hledger.Version (versionstr) | import Hledger.Cli.Version (versionstr) | ||||||
| import Hledger.Data.Types (Ledger,AccountName,Transaction(..),Posting(..),PostingType(..)) | import Hledger.Data.Types (Ledger,AccountName,Transaction(..),Posting(..),PostingType(..)) | ||||||
| import Hledger.Data.Utils (strip, spacenonewline, restofline, parseWithCtx, assertParse, assertParseEqual) | import Hledger.Data.Utils (strip, spacenonewline, restofline, parseWithCtx, assertParse, assertParseEqual) | ||||||
| import Hledger.Data.Parse (someamount, emptyCtx, ledgeraccountname) | import Hledger.Data.Parse (someamount, emptyCtx, ledgeraccountname) | ||||||
|  | |||||||
| @ -50,7 +50,7 @@ import Paths_hledger_make (getDataFileName) | |||||||
| #else | #else | ||||||
| import Paths_hledger (getDataFileName) | import Paths_hledger (getDataFileName) | ||||||
| #endif | #endif | ||||||
| import Hledger.Utils (openBrowserOn) | import Hledger.Cli.Utils (openBrowserOn) | ||||||
| 
 | 
 | ||||||
| -- import Debug.Trace | -- import Debug.Trace | ||||||
| -- strace :: Show a => a -> a | -- strace :: Show a => a -> a | ||||||
|  | |||||||
| @ -47,9 +47,9 @@ import System.IO.UTF8 | |||||||
| import Hledger.Cli.Commands.All | import Hledger.Cli.Commands.All | ||||||
| import Hledger.Data | import Hledger.Data | ||||||
| import Hledger.Cli.Options | import Hledger.Cli.Options | ||||||
| import Hledger.Tests | import Hledger.Cli.Tests | ||||||
| import Hledger.Utils (withLedgerDo) | import Hledger.Cli.Utils (withLedgerDo) | ||||||
| import Hledger.Version (versionmsg, binaryfilename) | import Hledger.Cli.Version (versionmsg, binaryfilename) | ||||||
| 
 | 
 | ||||||
| main :: IO () | main :: IO () | ||||||
| main = do | main = do | ||||||
|  | |||||||
| @ -7,7 +7,7 @@ module Hledger.Cli.Options | |||||||
| where | where | ||||||
| import System.Console.GetOpt | import System.Console.GetOpt | ||||||
| import System.Environment | import System.Environment | ||||||
| import Hledger.Version (timeprogname) | import Hledger.Cli.Version (timeprogname) | ||||||
| import Hledger.Data.IO (myLedgerPath,myTimelogPath) | import Hledger.Data.IO (myLedgerPath,myTimelogPath) | ||||||
| import Hledger.Data.Utils | import Hledger.Data.Utils | ||||||
| import Hledger.Data.Types | import Hledger.Data.Types | ||||||
|  | |||||||
| @ -26,7 +26,7 @@ $ hledger -f sample.ledger balance o | |||||||
| 
 | 
 | ||||||
| -} | -} | ||||||
| 
 | 
 | ||||||
| module Hledger.Tests | module Hledger.Cli.Tests | ||||||
| where | where | ||||||
| import qualified Data.Map as Map | import qualified Data.Map as Map | ||||||
| import Test.HUnit.Tools (runVerboseTests) | import Test.HUnit.Tools (runVerboseTests) | ||||||
| @ -36,7 +36,7 @@ import System.Time (ClockTime(TOD)) | |||||||
| import Hledger.Cli.Commands.All | import Hledger.Cli.Commands.All | ||||||
| import Hledger.Data  -- including testing utils in Hledger.Data.Utils | import Hledger.Data  -- including testing utils in Hledger.Data.Utils | ||||||
| import Hledger.Cli.Options | import Hledger.Cli.Options | ||||||
| import Hledger.Utils | import Hledger.Cli.Utils | ||||||
| 
 | 
 | ||||||
| 
 | 
 | ||||||
| -- | Run unit tests. | -- | Run unit tests. | ||||||
| @ -6,7 +6,7 @@ Hledger.Data.Utils. | |||||||
| 
 | 
 | ||||||
| -} | -} | ||||||
| 
 | 
 | ||||||
| module Hledger.Utils | module Hledger.Cli.Utils | ||||||
| where | where | ||||||
| import Control.Monad.Error | import Control.Monad.Error | ||||||
| import Hledger.Data | import Hledger.Data | ||||||
| @ -4,7 +4,7 @@ Version-related utilities. See the Makefile for details of our version | |||||||
| numbering policy. | numbering policy. | ||||||
| -} | -} | ||||||
| 
 | 
 | ||||||
| module Hledger.Version | module Hledger.Cli.Version | ||||||
| where | where | ||||||
| import System.Info (os, arch) | import System.Info (os, arch) | ||||||
| import Hledger.Data.Utils | import Hledger.Data.Utils | ||||||
							
								
								
									
										1
									
								
								Makefile
									
									
									
									
									
								
							
							
						
						
									
										1
									
								
								Makefile
									
									
									
									
									
								
							| @ -32,7 +32,6 @@ MAIN=hledger.hs | |||||||
| SOURCEFILES:= \
 | SOURCEFILES:= \
 | ||||||
| 	$(MAIN) \
 | 	$(MAIN) \
 | ||||||
| 	[A-Z]*hs \
 | 	[A-Z]*hs \
 | ||||||
| 	Hledger/*hs \
 |  | ||||||
| 	Hledger/Cli/*hs \
 | 	Hledger/Cli/*hs \
 | ||||||
| 	Hledger/Cli/Commands/*hs \
 | 	Hledger/Cli/Commands/*hs \
 | ||||||
| 	hledger-lib/*hs \
 | 	hledger-lib/*hs \
 | ||||||
|  | |||||||
| @ -51,11 +51,11 @@ executable hledger | |||||||
|   main-is:        hledger.hs |   main-is:        hledger.hs | ||||||
|   other-modules: |   other-modules: | ||||||
|                   Paths_hledger |                   Paths_hledger | ||||||
|                   Hledger.Tests |  | ||||||
|                   Hledger.Utils |  | ||||||
|                   Hledger.Version |  | ||||||
|                   Hledger.Cli.Main |                   Hledger.Cli.Main | ||||||
|                   Hledger.Cli.Options |                   Hledger.Cli.Options | ||||||
|  |                   Hledger.Cli.Tests | ||||||
|  |                   Hledger.Cli.Utils | ||||||
|  |                   Hledger.Cli.Version | ||||||
|                   Hledger.Cli.Commands.Add |                   Hledger.Cli.Commands.Add | ||||||
|                   Hledger.Cli.Commands.All |                   Hledger.Cli.Commands.All | ||||||
|                   Hledger.Cli.Commands.Balance |                   Hledger.Cli.Commands.Balance | ||||||
| @ -116,11 +116,11 @@ executable hledger | |||||||
| 
 | 
 | ||||||
| library | library | ||||||
|   exposed-modules: |   exposed-modules: | ||||||
|                   Hledger.Tests |  | ||||||
|                   Hledger.Utils |  | ||||||
|                   Hledger.Version |  | ||||||
|                   Hledger.Cli.Main |                   Hledger.Cli.Main | ||||||
|                   Hledger.Cli.Options |                   Hledger.Cli.Options | ||||||
|  |                   Hledger.Cli.Tests | ||||||
|  |                   Hledger.Cli.Utils | ||||||
|  |                   Hledger.Cli.Version | ||||||
|                   Hledger.Cli.Commands.Add |                   Hledger.Cli.Commands.Add | ||||||
|                   Hledger.Cli.Commands.All |                   Hledger.Cli.Commands.All | ||||||
|                   Hledger.Cli.Commands.Balance |                   Hledger.Cli.Commands.Balance | ||||||
|  | |||||||
		Loading…
	
		Reference in New Issue
	
	Block a user