Show instance for level now has fixed precision for dB

1 files changed, 6 insertions, 1 deletions

diff --git a/src/Trivmix.hs b/src/Trivmix.hs
index 0f84f62..cedc3e3 100644
--- a/src/Trivmix.hs
+++ b/src/Trivmix.hs
@@ -48,9 +48,14 @@ data Options = Options
 
 data Level = Lin Float | DB Float
 
+fixedPrecision :: (RealFrac a, Num a) => a -> a
+fixedPrecision x = (fromInteger $ round $ p * x) / p
+  where
+    p = 1e3
+
 instance Show Level where
   show (Lin x) = show x
-  show (DB x) = (show x') ++ "dB"
+  show (DB x) = (show $ fixedPrecision x') ++ "dB"
     where
       x' = 20 * (logBase 10 x)