Merge pull request #5 from mizlan/master

fix: normal form on rational constructor
thma · Aug 31, 2022 · f1bedca · f1bedca
2 parents fdea3ef + cc08cdd
commit f1bedca
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)