diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2015-06-09 23:45:16 +0200 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2015-06-09 23:45:16 +0200 |
| commit | 1e0590d9c7f63e3e829afe53e10431253ea59f68 (patch) | |
| tree | 8f818c07e74a2a5bb6bb8bc705b417cac0b369fc /src | |
| parent | b35d97949072de3223ef0a9b94e00631475acf43 (diff) | |
| download | trivmix-1e0590d9c7f63e3e829afe53e10431253ea59f68.tar trivmix-1e0590d9c7f63e3e829afe53e10431253ea59f68.tar.gz trivmix-1e0590d9c7f63e3e829afe53e10431253ea59f68.tar.bz2 trivmix-1e0590d9c7f63e3e829afe53e10431253ea59f68.tar.xz trivmix-1e0590d9c7f63e3e829afe53e10431253ea59f68.zip | |
Fixpoint detection
Diffstat (limited to 'src')
| -rw-r--r-- | src/Trivmix.hs | 6 |
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 | |||
| 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" |