diff --git a/lib/mobility-core/src/Kernel/Types/Price.hs b/lib/mobility-core/src/Kernel/Types/Price.hs index 1767ded24..9c86282bb 100644 --- a/lib/mobility-core/src/Kernel/Types/Price.hs +++ b/lib/mobility-core/src/Kernel/Types/Price.hs @@ -172,8 +172,7 @@ instance ToJSON PriceAPIEntity where ] roundAmountByCurrency :: Currency -> HighPrecMoney -> HighPrecMoney -roundAmountByCurrency EUR amount = roundHighPrecMoney @HighPrecMoney (getAccuracy EUR) amount -roundAmountByCurrency _ amount = amount -- for backward compatibility +roundAmountByCurrency currency amount = roundHighPrecMoney @HighPrecMoney (getAccuracy currency) amount mkPriceAPIEntity :: Price -> PriceAPIEntity mkPriceAPIEntity Price {..} = PriceAPIEntity {..}