lib/Hcompta/Model/Transaction.hs

   1 {-# LANGUAGE DeriveDataTypeable #-}
   2 {-# OPTIONS_GHC -fno-warn-orphans #-}
   3 module Hcompta.Model.Transaction where
   4
   5 import           Data.Data
   6 import           Data.Typeable ()
   7 import           Text.Parsec.Pos (SourcePos)
   8
   9 import qualified Hcompta.Model.Date                as Date ()
  10 import           Hcompta.Model.Date                  (Date)
  11 import qualified Hcompta.Model.Transaction.Posting as Posting
  12 import qualified Hcompta.Model.Transaction.Tag     as Tag
  13
  14 -- * The 'Transaction' type
  15
  16 data Transaction
  17  =   Transaction
  18  { code :: String
  19  , comment :: String
  20  , date :: Date
  21  , date2 :: Maybe Date
  22  , description :: String
  23  , postings :: Posting.By_Account
  24  , preceding_comment_lines :: String
  25  , sourcepos :: SourcePos
  26  , status :: Bool
  27  , tags :: Tag.By_Name
  28  } deriving (Data, Eq, Read, Show, Typeable)
  29
  30 -- * Types to submodules
  31
  32 type Posting = Posting.Posting
  33 type Tag     = Tag.Tag