Simplified the deriving clause for Var in UsageCheckUtils, effectively using the GHC NewTypeDeriving extension

This commit is contained in:
Neil Brown 2008-05-30 18:39:59 +00:00
parent 600ce667cb
commit fe525fa088

View File

@ -34,19 +34,12 @@ import ShowCode
import Types
import Utils
newtype Var = Var A.Variable deriving (Data, Show, Typeable)
newtype Var = Var A.Variable
deriving (ASTTypeable, Data, Ord, Show, ShowOccam, ShowRain, Typeable)
instance Eq Var where
a == b = EQ == compare a b
instance Ord Var where
compare (Var a) (Var b) = compare a b
instance ShowOccam Var where
showOccamM (Var v) = showOccamM v
instance ShowRain Var where
showRainM (Var v) = showRainM v
instance ShowOccam (Set.Set Var) where
showOccamM s
= do tell ["{"]