consolidate under Hledger.Cli

This commit is contained in:
Simon Michael 2010-05-19 23:20:52 +00:00
parent 0282aa4697
commit 6d18b8c0af
10 changed files with 17 additions and 18 deletions

View File

@ -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,

View File

@ -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)

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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.

View File

@ -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

View File

@ -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

View File

@ -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 \

View File

@ -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