diff options
-rw-r--r-- | src/Trivmix.hs | 6 | ||||
-rw-r--r-- | trivmix.cabal | 2 |
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 | |||
65 | unit = "dB" | 65 | unit = "dB" |
66 | lU = length unit | 66 | lU = length unit |
67 | 67 | ||
68 | instance Eq Level where | ||
69 | (Lin a) == (Lin b) = a == b | ||
70 | (Lin a) == (DB b) = a == b | ||
71 | (DB a) == (Lin b) = a == b | ||
72 | (DB a) == (DB b) = a == b | ||
73 | |||
68 | optionParser :: Parser Options | 74 | optionParser :: Parser Options |
69 | optionParser = Options <$> | 75 | optionParser = Options <$> |
70 | (fromMaybe "in" <$> optional (strOption ( long "input" | 76 | (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 @@ | |||
2 | -- documentation, see http://haskell.org/cabal/users-guide/ | 2 | -- documentation, see http://haskell.org/cabal/users-guide/ |
3 | 3 | ||
4 | name: trivmix | 4 | name: trivmix |
5 | version: 2.2.5 | 5 | version: 2.2.6 |
6 | -- synopsis: | 6 | -- synopsis: |
7 | -- description: | 7 | -- description: |
8 | license: PublicDomain | 8 | license: PublicDomain |