src/Literate/Accounting.hs

   1 module Literate.Accounting (
   2   module Literate.Accounting,
   3   module Literate.Accounting.Amount,
   4   module Literate.Accounting.Quantity,
   5   module Literate.Accounting.Unit,
   6 ) where
   7
   8 import Literate.Accounting.Amount
   9 import Literate.Accounting.Quantity
  10 import Literate.Accounting.Unit
  11 import Literate.Invoice
  12 import Literate.Organization
  13 import Literate.Prelude
  14 import Literate.Time
  15
  16 type Euro = Amount 100 (UnitName "€")
  17
  18 data Account
  19   = AccountOrga Organization
  20   deriving (Eq, Show)
  21
  22 data Cause
  23   = CauseInvoice InvoiceId
  24
  25 data Movement
  26   = Movement
  27   { moveDate :: LocalTime
  28   , moveFrom :: Account
  29   , moveTo :: Account
  30   , moveAmount :: Euro
  31   , moveCause :: Cause
  32   }
  33   deriving (Eq, Show)