lib/Hcompta/Posting.hs

   1 {-# LANGUAGE DeriveDataTypeable #-}
   2 {-# LANGUAGE FlexibleContexts #-}
   3 {-# LANGUAGE NamedFieldPuns #-}
   4 {-# LANGUAGE OverloadedStrings #-}
   5 {-# LANGUAGE ScopedTypeVariables #-}
   6 {-# LANGUAGE TupleSections #-}
   7 {-# LANGUAGE TypeFamilies #-}
   8 module Hcompta.Posting where
   9
  10 import           Data.Data (Data(..))
  11 import           Data.Typeable (Typeable)
  12
  13 data Posting_Type
  14  =   Posting_Type_Regular
  15  |   Posting_Type_Virtual
  16  |   Posting_Type_Virtual_Balanced
  17  deriving (Data, Eq, Show, Typeable)