1 files changed, 6 insertions, 0 deletions

diff --git a/src/Trivmix.hs b/src/Trivmix.hs
index 425de4a..3542e0d 100644
--- a/src/Trivmix.hs
+++ b/src/Trivmix.hs
@@ -65,6 +65,12 @@ instance Read Level where
           unit = "dB"
           lU = length unit
 
+instance Eq Level where
+  (Lin a) == (Lin b) = a == b
+  (Lin a) == (DB b) = a == b
+  (DB a) == (Lin b) = a == b
+  (DB a) == (DB b) = a == b
+
 optionParser :: Parser Options
 optionParser = Options <$>
                (fromMaybe "in" <$> optional (strOption ( long "input"