{-# LANGUAGE DeriveDataTypeable #-}
module Hcompta.Model.Transaction where

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

import qualified Hcompta.Model.Date    as Date
import qualified Hcompta.Model.Posting as Posting
import qualified Hcompta.Model.Tag     as Tag

data T
 = T
 { sourcepos :: SourcePos
 , date :: Date.Day
 , date2 :: Maybe Date.Day
 , status :: Bool
 , code :: String
 , description :: String
 , comment :: String
 , tags :: [Tag.T]
 , postings :: [Posting.T]
 , preceding_comment_lines :: String
 } deriving (Data, Eq, Show, Typeable)