module Literate.Accounting (
  module Literate.Accounting,
  module Literate.Accounting.Amount,
  module Literate.Accounting.Quantity,
  module Literate.Accounting.Unit,
) where

import Literate.Accounting.Amount
import Literate.Accounting.Quantity
import Literate.Accounting.Unit
import Literate.Invoice
import Literate.Organization
import Literate.Prelude
import Literate.Time

type Euro = Amount 100 (UnitName "€")

data Account
  = AccountOrga Organization
  deriving (Eq, Show)

data Cause
  = CauseInvoice InvoiceId

data Movement
  = Movement
  { moveDate :: LocalTime
  , moveFrom :: Account
  , moveTo :: Account
  , moveAmount :: Euro
  , moveCause :: Cause
  }
  deriving (Eq, Show)