{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE StandaloneDeriving #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-orphans #-}
module Hcompta.Format.JCC.Quantity where

import           Data.Decimal
import           Data.Typeable ()
import           Data.Word (Word8)

import qualified Hcompta.Filter.Amount as Filter.Amount

-- * Type 'Quantity'
type Quantity = Filter.Amount.Quantity

quantity_round :: Word8 -> Quantity -> Quantity
quantity_round = Data.Decimal.roundTo