remove unused typeclass derivations

This commit is contained in:
Zachary Snow 2021-07-07 22:15:51 -04:00
parent 2f860ff220
commit 190c2488cc
4 changed files with 8 additions and 10 deletions

View File

@ -24,13 +24,13 @@ data Exclude
| Interface
| Logic
| Succinct
deriving (Show, Typeable, Data, Eq)
deriving (Typeable, Data, Eq)
data Write
= Stdout
| Adjacent
| File FilePath
deriving (Show, Typeable, Data, Eq)
deriving (Typeable, Data)
data Job = Job
{ files :: [FilePath]
@ -43,7 +43,7 @@ data Job = Job
, verbose :: Bool
, write :: Write
, writeRaw :: String
} deriving (Show, Typeable, Data)
} deriving (Typeable, Data)
version :: String
version =

View File

@ -102,7 +102,7 @@ data AsgnOp
= AsgnOpEq
| AsgnOpNonBlocking
| AsgnOp BinOp
deriving (Eq, Ord)
deriving Eq
instance Show AsgnOp where
show AsgnOpEq = "="

View File

@ -226,7 +226,7 @@ data Strength
= DefaultStrength
| DriveStrength Strength0 Strength1
| ChargeStrength ChargeStrength
deriving (Eq, Ord)
deriving Eq
instance Show Strength where
show DefaultStrength = ""
@ -239,7 +239,7 @@ data Strength0
| Pull0
| Weak0
| Highz0
deriving (Eq, Ord)
deriving Eq
instance Show Strength0 where
show Supply0 = "supply0"
@ -254,7 +254,7 @@ data Strength1
| Pull1
| Weak1
| Highz1
deriving (Eq, Ord)
deriving Eq
instance Show Strength1 where
show Supply1 = "supply1"
@ -267,7 +267,7 @@ data ChargeStrength
= Small
| Medium
| Large
deriving (Eq, Ord)
deriving Eq
instance Show ChargeStrength where
show Small = "small"

View File

@ -32,14 +32,12 @@ pattern TokenEOF = Token Unknown "" (Position "" 0 0)
data Position
= Position String Int Int
deriving Eq
instance Show Position where
show (Position f l c) = printf "%s:%d:%d" f l c
data Token
= Token TokenName String Position
deriving (Show, Eq)
data TokenName
= KW_dollar_bits