Fixpoint detection

2 files changed, 7 insertions, 1 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"
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