1 files changed, 2 insertions, 2 deletions
diff --git a/src/Trivmix/Types.hs b/src/Trivmix/Types.hs
index 01418bf..9822449 100644
--- a/src/Trivmix/Types.hs
+++ b/src/Trivmix/Types.hs
@@ -91,9 +91,9 @@ class Adjustable a where
 --   sub = (-)
 instance Adjustable Level where
-  add (DB x) (DB y) = DB $ ((+) `on` linToDb) x y
+  add (DB x) (DB y) = DB $ dBToLin $ ((+) `on` linToDb) x y
  add x y = x + y
-  sub (DB x) (DB y) = DB $ ((-) `on` linToDb) x y
+  sub (DB x) (DB y) = DB $ dBToLin $ ((-) `on` linToDb) x y
  sub x y = x - y
 doAdjustment :: Adjustable a => a -> Adjustment a -> a

diff --git a/src/Trivmix/Types.hs b/src/Trivmix/Types.hs index 01418bf..9822449 100644 --- a/src/Trivmix/Types.hs +++ b/src/Trivmix/Types.hs
@@ -91,9 +91,9 @@ class Adjustable a where
91	-- sub = (-)	91	-- sub = (-)
92		92
93	instance Adjustable Level where	93	instance Adjustable Level where
94	add (DB x) (DB y) = DB $ ((+) `on` linToDb) x y	94	add (DB x) (DB y) = DB $ dBToLin $ ((+) `on` linToDb) x y
95	add x y = x + y	95	add x y = x + y
96	sub (DB x) (DB y) = DB $ ((-) `on` linToDb) x y	96	sub (DB x) (DB y) = DB $ dBToLin $ ((-) `on` linToDb) x y
97	sub x y = x - y	97	sub x y = x - y
98		98
99	doAdjustment :: Adjustable a => a -> Adjustment a -> a	99	doAdjustment :: Adjustable a => a -> Adjustment a -> a