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
import System.IO.Error
import Text.ParserCombinators.Parsec
import Hledger.Utils (ledgerFromStringWithOpts)
import Hledger.Cli.Utils (ledgerFromStringWithOpts)
import qualified Data.Foldable as Foldable (find)
-- | 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
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.Utils (strip, spacenonewline, restofline, parseWithCtx, assertParse, assertParseEqual)
import Hledger.Data.Parse (someamount, emptyCtx, ledgeraccountname)

View File

@ -50,7 +50,7 @@ import Paths_hledger_make (getDataFileName)
#else
import Paths_hledger (getDataFileName)
#endif
import Hledger.Utils (openBrowserOn)
import Hledger.Cli.Utils (openBrowserOn)
-- import Debug.Trace
-- strace :: Show a => a -> a

View File

@ -47,9 +47,9 @@ import System.IO.UTF8
import Hledger.Cli.Commands.All
import Hledger.Data
import Hledger.Cli.Options
import Hledger.Tests
import Hledger.Utils (withLedgerDo)
import Hledger.Version (versionmsg, binaryfilename)
import Hledger.Cli.Tests
import Hledger.Cli.Utils (withLedgerDo)
import Hledger.Cli.Version (versionmsg, binaryfilename)
main :: IO ()
main = do

View File

@ -7,7 +7,7 @@ module Hledger.Cli.Options
where
import System.Console.GetOpt
import System.Environment
import Hledger.Version (timeprogname)
import Hledger.Cli.Version (timeprogname)
import Hledger.Data.IO (myLedgerPath,myTimelogPath)
import Hledger.Data.Utils
import Hledger.Data.Types

View File

@ -26,7 +26,7 @@ $ hledger -f sample.ledger balance o
-}
module Hledger.Tests
module Hledger.Cli.Tests
where
import qualified Data.Map as Map
import Test.HUnit.Tools (runVerboseTests)
@ -36,7 +36,7 @@ import System.Time (ClockTime(TOD))
import Hledger.Cli.Commands.All
import Hledger.Data -- including testing utils in Hledger.Data.Utils
import Hledger.Cli.Options
import Hledger.Utils
import Hledger.Cli.Utils
-- | Run unit tests.

View File

@ -6,7 +6,7 @@ Hledger.Data.Utils.
-}
module Hledger.Utils
module Hledger.Cli.Utils
where
import Control.Monad.Error
import Hledger.Data

View File

@ -4,7 +4,7 @@ Version-related utilities. See the Makefile for details of our version
numbering policy.
-}
module Hledger.Version
module Hledger.Cli.Version
where
import System.Info (os, arch)
import Hledger.Data.Utils

View File

@ -32,7 +32,6 @@ MAIN=hledger.hs
SOURCEFILES:= \
$(MAIN) \
[A-Z]*hs \
Hledger/*hs \
Hledger/Cli/*hs \
Hledger/Cli/Commands/*hs \
hledger-lib/*hs \

View File

@ -51,11 +51,11 @@ executable hledger
main-is: hledger.hs
other-modules:
Paths_hledger
Hledger.Tests
Hledger.Utils
Hledger.Version
Hledger.Cli.Main
Hledger.Cli.Options
Hledger.Cli.Tests
Hledger.Cli.Utils
Hledger.Cli.Version
Hledger.Cli.Commands.Add
Hledger.Cli.Commands.All
Hledger.Cli.Commands.Balance
@ -116,11 +116,11 @@ executable hledger
library
exposed-modules:
Hledger.Tests
Hledger.Utils
Hledger.Version
Hledger.Cli.Main
Hledger.Cli.Options
Hledger.Cli.Tests
Hledger.Cli.Utils
Hledger.Cli.Version
Hledger.Cli.Commands.Add
Hledger.Cli.Commands.All
Hledger.Cli.Commands.Balance