From 84e81d9b4b087324c2f9d1e3011c795febc3044e Mon Sep 17 00:00:00 2001 From: Roman Leshchinskiy Date: Tue, 10 Jul 2007 11:35:43 +0000 Subject: [PATCH] Add dsLookupClass --- compiler/deSugar/DsMonad.lhs | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/compiler/deSugar/DsMonad.lhs b/compiler/deSugar/DsMonad.lhs index c9fe054..a38b291 100644 --- a/compiler/deSugar/DsMonad.lhs +++ b/compiler/deSugar/DsMonad.lhs @@ -20,6 +20,7 @@ module DsMonad ( UniqSupply, newUniqueSupply, getDOptsDs, getGhcModeDs, doptDs, dsLookupGlobal, dsLookupGlobalId, dsLookupTyCon, dsLookupDataCon, + dsLookupClass, DsMetaEnv, DsMetaVal(..), dsLookupMetaEnv, dsExtendMetaEnv, @@ -43,6 +44,7 @@ import HscTypes import Bag import DataCon import TyCon +import Class import Id import Module import Var @@ -314,6 +316,11 @@ dsLookupDataCon :: Name -> DsM DataCon dsLookupDataCon name = dsLookupGlobal name `thenDs` \ thing -> returnDs (tyThingDataCon thing) + +dsLookupClass :: Name -> DsM Class +dsLookupClass name + = dsLookupGlobal name `thenDs` \ thing -> + returnDs (tyThingClass thing) \end{code} \begin{code} -- 1.7.10.4