From 1e0590d9c7f63e3e829afe53e10431253ea59f68 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Tue, 9 Jun 2015 23:45:16 +0200 Subject: Fixpoint detection --- src/Trivmix.hs | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'src/Trivmix.hs') 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" -- cgit v1.2.3