diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2015-06-21 20:38:17 +0200 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2015-06-21 20:38:34 +0200 |
| commit | 79135b272877b2f5c8451787f083f914a25c1107 (patch) | |
| tree | 61e429f307d6deddc59f4c2aef50f9fd925ac390 /src | |
| parent | fb70a691c8879bb6fdfd2d3855e54aca34e07cd2 (diff) | |
| download | trivmix-79135b272877b2f5c8451787f083f914a25c1107.tar trivmix-79135b272877b2f5c8451787f083f914a25c1107.tar.gz trivmix-79135b272877b2f5c8451787f083f914a25c1107.tar.bz2 trivmix-79135b272877b2f5c8451787f083f914a25c1107.tar.xz trivmix-79135b272877b2f5c8451787f083f914a25c1107.zip | |
Fixed refinement
Diffstat (limited to 'src')
| -rw-r--r-- | src/Trivmix/Types.hs | 4 |
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 | |||
| 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 |