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.Eq (Eq(..))
  12 import           Data.Typeable (Typeable)
  13 import           Prelude (Show)
  14
  15 data Posting_Type
  16  =   Posting_Type_Regular
  17  |   Posting_Type_Virtual
  18  |   Posting_Type_Virtual_Balanced
  19  deriving (Data, Eq, Show, Typeable)