fix: normal form on rational constructor

thma · Aug 30, 2022 · cc08cdd · cc08cdd
1 parent fdea3ef
commit cc08cdd
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Data/BigDecimal.hs b/src/Data/BigDecimal.hs
@@ -116,7 +116,7 @@ instance Fractional BigDecimal where
 
 -- | creates a BigDecimal from a 'Rational' value. 'RoundingAdvice' defines precision and rounding mode.
 fromRatio :: Rational -> RoundingAdvice -> BigDecimal
-fromRatio (x :% y) = divide (fromInteger x, fromInteger y)
+fromRatio (x :% y) = nf . divide (fromInteger x, fromInteger y)
 
 instance Real BigDecimal where
   toRational (BigDecimal val scl) = toRational val * 10 ^^ (- fromNatural scl)