UniqSupply, newUniqueSupply,
getDOptsDs, getGhcModeDs, doptDs,
dsLookupGlobal, dsLookupGlobalId, dsLookupTyCon, dsLookupDataCon,
+ dsLookupClass,
DsMetaEnv, DsMetaVal(..), dsLookupMetaEnv, dsExtendMetaEnv,
import Bag
import DataCon
import TyCon
+import Class
import Id
import Module
import Var
import OccName
import DynFlags
import ErrUtils
-import Bag
-import OccName
import Data.IORef
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}