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 |
