lib/Hcompta/Model/Transaction.hs

   1 {-# LANGUAGE DeriveDataTypeable #-}
   2 module Hcompta.Model.Transaction where
   3
   4 import Data.Data
   5 import Data.Typeable ()
   6 import Text.Parsec.Pos (SourcePos)
   7
   8 import qualified Hcompta.Model.Date    as Date
   9 import qualified Hcompta.Model.Posting as Posting
  10 import qualified Hcompta.Model.Tag     as Tag
  11
  12 data T
  13  = T
  14  { sourcepos :: SourcePos
  15  , date :: Date.Day
  16  , date2 :: Maybe Date.Day
  17  , status :: Bool
  18  , code :: String
  19  , description :: String
  20  , comment :: String
  21  , tags :: [Tag.T]
  22  , postings :: [Posting.T]
  23  , preceding_comment_lines :: String
  24  } deriving (Data, Eq, Show, Typeable)