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