From 59a43e6286b2b5cebbdc427768efdcd28dc71dad Mon Sep 17 00:00:00 2001 From: Matthijs Kooijman Date: Thu, 6 Aug 2009 17:54:03 +0200 Subject: [PATCH] Remove the getType field name from OrdType. This conflicted with the getType method from TypedThing. The field label was never used. --- "c\316\273ash/CLasH/Translator/TranslatorTypes.hs" | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 2.30.2