lib/Hcompta/Model/Amount/Style.hs

   1 {-# LANGUAGE DeriveDataTypeable #-}
   2 module Hcompta.Model.Amount.Style where
   3
   4 import Data.Data
   5 import Data.Typeable ()
   6
   7 data T
   8  = T
   9  { commodity_side :: Maybe Side
  10  , commodity_spaced :: Maybe Bool
  11  , precision :: Int
  12  , decimal_point :: Maybe Char
  13  , digit_group :: Maybe DigitGroup
  14  } deriving (Data, Eq, Ord, Read, Show, Typeable)
  15
  16 data Side
  17  = L
  18  | R
  19  deriving (Data, Eq, Ord, Read, Show, Typeable)
  20
  21 data DigitGroup
  22  = DigitGroup Char [Int]
  23  deriving (Data, Eq, Ord, Read, Show, Typeable)