From 1e0590d9c7f63e3e829afe53e10431253ea59f68 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Tue, 9 Jun 2015 23:45:16 +0200
Subject: Fixpoint detection

---
 src/Trivmix.hs | 6 ++++++
 trivmix.cabal  | 2 +-
 2 files changed, 7 insertions(+), 1 deletion(-)

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"
diff --git a/trivmix.cabal b/trivmix.cabal
index 2dede74..9b66048 100644
--- a/trivmix.cabal
+++ b/trivmix.cabal
@@ -2,7 +2,7 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                trivmix
-version:             2.2.5
+version:             2.2.6
 -- synopsis:            
 -- description:         
 license:             PublicDomain
-- 
cgit v1.2.3