{-# LANGUAGE DeriveDataTypeable #-}
{-# OPTIONS_GHC -fno-warn-orphans #-}
module Hcompta.Model.Transaction where

import           Data.Data
import           Data.Typeable ()
import           Text.Parsec.Pos (SourcePos)

import qualified Hcompta.Model.Date                as Date ()
import           Hcompta.Model.Date                  (Date)
import qualified Hcompta.Model.Transaction.Posting as Posting
import qualified Hcompta.Model.Transaction.Tag     as Tag

-- * The 'Transaction' type

data Transaction
 =   Transaction
 { code :: String
 , comment :: String
 , date :: Date
 , date2 :: Maybe Date
 , description :: String
 , postings :: Posting.By_Account
 , preceding_comment_lines :: String
 , sourcepos :: SourcePos
 , status :: Bool
 , tags :: Tag.By_Name
 } deriving (Data, Eq, Read, Show, Typeable)

-- * Types to submodules

type Posting = Posting.Posting
type Tag     = Tag.Tag