Fix read/show

1 files changed, 4 insertions, 2 deletions

diff --git a/src/Trivmix/Types.hs b/src/Trivmix/Types.hs
index f01e023..abfdc43 100644
--- a/src/Trivmix/Types.hs
+++ b/src/Trivmix/Types.hs
@@ -62,7 +62,7 @@ dBToLin :: Float -> Level'
 dBToLin x = either error id . refine $ 10 ** (0.05 * x)
 
 instance Show Level where
-  show (Lin x) = show x
+  show (Lin (unrefine -> x)) = show x
   show (DB (linToDb -> x)) = (show $ (withPrec x :: Milli)) ++ "dB"
 
 instance Read Level where
@@ -75,7 +75,9 @@ instance Read Level where
         unit' <- forM [1..lU] $ const get
         guard $ ((==) `on` CI.mk) unit unit'
         return . DB $ dBToLin db
-      parseLin = Lin <$> readS_to_Prec readsPrec
+      parseLin = do
+        lin <- readS_to_Prec readsPrec
+        either (const mzero) (return . Lin) $ refine lin
 
 instance Eq Level where
   (==) = (==) `on` toLin