promote Hledger.Query to second level

This commit is contained in:
Simon Michael 2012-05-16 07:57:10 +00:00
parent 91aae589ce
commit 294a350993
7 changed files with 12 additions and 12 deletions

View File

@ -1,6 +1,6 @@
module Hledger ( module Hledger (
module Hledger.Data module Hledger.Data
,module Hledger.Data.Query ,module Hledger.Query
,module Hledger.Read ,module Hledger.Read
,module Hledger.Reports ,module Hledger.Reports
,module Hledger.Utils ,module Hledger.Utils
@ -10,7 +10,7 @@ where
import Test.HUnit import Test.HUnit
import Hledger.Data import Hledger.Data
import Hledger.Data.Query import Hledger.Query
import Hledger.Read hiding (samplejournal) import Hledger.Read hiding (samplejournal)
import Hledger.Reports import Hledger.Reports
import Hledger.Utils import Hledger.Utils
@ -18,7 +18,7 @@ import Hledger.Utils
tests_Hledger = TestList tests_Hledger = TestList
[ [
tests_Hledger_Data tests_Hledger_Data
,tests_Hledger_Data_Query ,tests_Hledger_Query
,tests_Hledger_Read ,tests_Hledger_Read
,tests_Hledger_Reports ,tests_Hledger_Reports
] ]

View File

@ -73,7 +73,7 @@ import Hledger.Data.Dates
import Hledger.Data.Transaction import Hledger.Data.Transaction
import Hledger.Data.Posting import Hledger.Data.Posting
import Hledger.Data.TimeLog import Hledger.Data.TimeLog
import Hledger.Data.Query import Hledger.Query
instance Show Journal where instance Show Journal where

View File

@ -20,7 +20,7 @@ import Hledger.Data.Account (nullacct)
import Hledger.Data.AccountName import Hledger.Data.AccountName
import Hledger.Data.Journal import Hledger.Data.Journal
import Hledger.Data.Posting import Hledger.Data.Posting
import Hledger.Data.Query import Hledger.Query
instance Show Ledger where instance Show Ledger where

View File

@ -5,7 +5,7 @@ transactions..) by various criteria, and a parser for query expressions.
-} -}
module Hledger.Data.Query ( module Hledger.Query (
-- * Query and QueryOpt -- * Query and QueryOpt
Query(..), Query(..),
QueryOpt(..), QueryOpt(..),
@ -29,7 +29,7 @@ module Hledger.Data.Query (
matchesPosting, matchesPosting,
matchesTransaction, matchesTransaction,
-- * tests -- * tests
tests_Hledger_Data_Query tests_Hledger_Query
) )
where where
import Data.Either import Data.Either
@ -561,8 +561,8 @@ postingEffectiveDate p = maybe Nothing (Just . transactionEffectiveDate) $ ptran
-- tests -- tests
tests_Hledger_Data_Query :: Test tests_Hledger_Query :: Test
tests_Hledger_Data_Query = TestList $ tests_Hledger_Query = TestList $
tests_simplifyQuery tests_simplifyQuery
++ tests_words'' ++ tests_words''
++ tests_filterQuery ++ tests_filterQuery

View File

@ -63,7 +63,7 @@ import Text.Printf
import Hledger.Data import Hledger.Data
import Hledger.Read (amount') import Hledger.Read (amount')
import Hledger.Data.Query import Hledger.Query
import Hledger.Utils import Hledger.Utils
-- | Standard options for customising report filtering and output, -- | Standard options for customising report filtering and output,

View File

@ -46,7 +46,7 @@ library
Hledger.Data.TimeLog Hledger.Data.TimeLog
Hledger.Data.Transaction Hledger.Data.Transaction
Hledger.Data.Types Hledger.Data.Types
Hledger.Data.Query Hledger.Query
Hledger.Read Hledger.Read
Hledger.Read.CsvReader Hledger.Read.CsvReader
Hledger.Read.JournalReader Hledger.Read.JournalReader

View File

@ -14,7 +14,7 @@ import Text.Printf
import Hledger.Cli.Options import Hledger.Cli.Options
import Hledger.Data import Hledger.Data
import Hledger.Reports import Hledger.Reports
import Hledger.Data.Query import Hledger.Query
import Prelude hiding (putStr) import Prelude hiding (putStr)
import Hledger.Utils.UTF8IOCompat (putStr) import Hledger.Utils.UTF8IOCompat (putStr)