From b41e13d23a15c7109afdfc96518629678d0554ca Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Mon, 2 Jul 2007 14:54:36 +0000 Subject: [PATCH] BasicTypes -> Types --- Account.hs | 2 +- AccountName.hs | 2 +- Amount.hs | 2 +- Entry.hs | 2 +- EntryTransaction.hs | 2 +- Ledger.hs | 2 +- Models.hs | 4 ++-- TimeLog.hs | 2 +- Transaction.hs | 2 +- BasicTypes.hs => Types.hs | 2 +- hledger.hs | 2 +- 11 files changed, 12 insertions(+), 12 deletions(-) rename BasicTypes.hs => Types.hs (77%) diff --git a/Account.hs b/Account.hs index f7d878184..15d3adeaa 100644 --- a/Account.hs +++ b/Account.hs @@ -3,7 +3,7 @@ where import qualified Data.Map as Map import Utils -import BasicTypes +import Types import AccountName import Amount import Entry diff --git a/AccountName.hs b/AccountName.hs index 8141cc55c..94ba6fd28 100644 --- a/AccountName.hs +++ b/AccountName.hs @@ -1,7 +1,7 @@ module AccountName where import Utils -import BasicTypes +import Types -- AccountNames are strings like "assets:cash:petty"; from these we build -- the chart of accounts, which should be a simple hierarchy. diff --git a/Amount.hs b/Amount.hs index 9406c1c33..07bb8176c 100644 --- a/Amount.hs +++ b/Amount.hs @@ -1,7 +1,7 @@ module Amount where import Utils -import BasicTypes +import Types {- a simple amount is a currency, quantity pair: diff --git a/Entry.hs b/Entry.hs index c0156c123..dc4b4ca96 100644 --- a/Entry.hs +++ b/Entry.hs @@ -2,7 +2,7 @@ module Entry where import Utils -import BasicTypes +import Types import Transaction diff --git a/EntryTransaction.hs b/EntryTransaction.hs index af277f317..a1cfffec2 100644 --- a/EntryTransaction.hs +++ b/EntryTransaction.hs @@ -2,7 +2,7 @@ module EntryTransaction where import Utils -import BasicTypes +import Types import Entry import Transaction import Amount diff --git a/Ledger.hs b/Ledger.hs index d7c2656ed..dc7335f8f 100644 --- a/Ledger.hs +++ b/Ledger.hs @@ -4,7 +4,7 @@ import qualified Data.Map as Map import Utils import AccountName -import BasicTypes +import Types import Entry import EntryTransaction diff --git a/Models.hs b/Models.hs index cafd7d7fc..0ce22872d 100644 --- a/Models.hs +++ b/Models.hs @@ -1,6 +1,6 @@ -- data types & behaviours module Models ( - module BasicTypes, + module Types, module Amount, module AccountName, module Transaction, @@ -13,7 +13,7 @@ module Models ( where import qualified Data.Map as Map -import BasicTypes +import Types import Amount import AccountName import Transaction diff --git a/TimeLog.hs b/TimeLog.hs index 97ba910e0..eb057cc39 100644 --- a/TimeLog.hs +++ b/TimeLog.hs @@ -1,7 +1,7 @@ module TimeLog where import Utils -import BasicTypes +import Types import Amount import Transaction import Entry diff --git a/Transaction.hs b/Transaction.hs index 6e9896d6d..8333b31e2 100644 --- a/Transaction.hs +++ b/Transaction.hs @@ -2,7 +2,7 @@ module Transaction where import Utils -import BasicTypes +import Types import AccountName import Amount diff --git a/BasicTypes.hs b/Types.hs similarity index 77% rename from BasicTypes.hs rename to Types.hs index f49509761..b2796531d 100644 --- a/BasicTypes.hs +++ b/Types.hs @@ -1,4 +1,4 @@ -module BasicTypes +module Types where import Utils diff --git a/hledger.hs b/hledger.hs index 39e6e2a4f..52124d067 100644 --- a/hledger.hs +++ b/hledger.hs @@ -20,7 +20,7 @@ hledger Transaction AccountName Amount - BasicTypes + Types Utils -}