lib/Hcompta/Model/Amount/Quantity.hs

   1 {-# LANGUAGE CPP #-}
   2 {-# LANGUAGE DeriveDataTypeable #-}
   3 {-# LANGUAGE FlexibleInstances #-}
   4 {-# LANGUAGE StandaloneDeriving #-}
   5 {-# LANGUAGE TypeSynonymInstances #-}
   6 {-# OPTIONS_GHC -fno-warn-orphans #-}
   7 module Hcompta.Model.Amount.Quantity where
   8
   9 import Data.Data
  10 import Data.Typeable ()
  11 import Data.Decimal
  12
  13 representation :: String
  14 #ifdef DOUBLE
  15 type T = Double
  16 representation = "Double"
  17 #else
  18 type T = Decimal
  19 representation = "Decimal"
  20 deriving instance Data T
  21 #endif