From: Matthijs Kooijman Date: Thu, 6 Aug 2009 15:54:03 +0000 (+0200) Subject: Remove the getType field name from OrdType. X-Git-Url: https://git.stderr.nl/gitweb?a=commitdiff_plain;h=59a43e6286b2b5cebbdc427768efdcd28dc71dad;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git Remove the getType field name from OrdType. This conflicted with the getType method from TypedThing. The field label was never used. --- diff --git "a/c\316\273ash/CLasH/Translator/TranslatorTypes.hs" "b/c\316\273ash/CLasH/Translator/TranslatorTypes.hs" index 075871a..47deeef 100644 --- "a/c\316\273ash/CLasH/Translator/TranslatorTypes.hs" +++ "b/c\316\273ash/CLasH/Translator/TranslatorTypes.hs" @@ -39,7 +39,7 @@ type Finder = ----------------------------------------------------------------------------- -- A orderable equivalent of CoreSyn's Type for use as a map key -newtype OrdType = OrdType { getType :: Type.Type } +newtype OrdType = OrdType Type.Type instance Eq OrdType where (OrdType a) == (OrdType b) = Type.tcEqType a b instance Ord OrdType where