jcc/Hcompta/Format/JCC/Quantity.hs

   1 {-# LANGUAGE DeriveDataTypeable #-}
   2 {-# LANGUAGE FlexibleContexts #-}
   3 {-# LANGUAGE FlexibleInstances #-}
   4 {-# LANGUAGE GeneralizedNewtypeDeriving #-}
   5 {-# LANGUAGE OverloadedStrings #-}
   6 {-# LANGUAGE StandaloneDeriving #-}
   7 {-# LANGUAGE TypeFamilies #-}
   8 {-# OPTIONS_GHC -fno-warn-orphans #-}
   9 module Hcompta.Format.JCC.Quantity where
  10
  11 import           Data.Decimal
  12 import           Data.Typeable ()
  13 import           Data.Word (Word8)
  14
  15 import qualified Hcompta.Filter.Amount as Filter.Amount
  16
  17 -- * Type 'Quantity'
  18 type Quantity = Filter.Amount.Quantity
  19
  20 quantity_round :: Word8 -> Quantity -> Quantity
  21 quantity_round = Data.Decimal.roundTo