diff options
| author | Roman Leshchinskiy <rl@cse.unsw.edu.au> | 2007-08-30 01:42:57 +0000 |
|---|---|---|
| committer | Roman Leshchinskiy <rl@cse.unsw.edu.au> | 2007-08-30 01:42:57 +0000 |
| commit | 9f695847ad2ace19c5fd0b937c34015af9735863 (patch) | |
| tree | 224b965b21f2e5644c0e1f28260e7acc642b4e85 /compiler/vectorise/VectMonad.hs | |
| parent | 8e3058a518acedf74306f95f06a7e78cc1145ca6 (diff) | |
| download | haskell-9f695847ad2ace19c5fd0b937c34015af9735863.tar.gz | |
Add code for looking up PA methods of primitive TyCons
Diffstat (limited to 'compiler/vectorise/VectMonad.hs')
| -rw-r--r-- | compiler/vectorise/VectMonad.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/compiler/vectorise/VectMonad.hs b/compiler/vectorise/VectMonad.hs index 320d192869..07638ac459 100644 --- a/compiler/vectorise/VectMonad.hs +++ b/compiler/vectorise/VectMonad.hs @@ -24,6 +24,7 @@ module VectMonad ( lookupDataCon, defDataCon, lookupTyConPA, defTyConPA, defTyConPAs, lookupTyConPR, + lookupPrimMethod, lookupTyVarPA, defLocalTyVar, defLocalTyVarWithPA, localTyVars, {-lookupInst,-} lookupFamInst @@ -354,6 +355,9 @@ defDataCon :: DataCon -> DataCon -> VM () defDataCon dc dc' = updGEnv $ \env -> env { global_datacons = extendNameEnv (global_datacons env) (dataConName dc) dc' } +lookupPrimMethod :: TyCon -> String -> VM (Maybe Var) +lookupPrimMethod tycon method = liftDs $ primMethod tycon method + lookupTyConPA :: TyCon -> VM (Maybe Var) lookupTyConPA tc = readGEnv $ \env -> lookupNameEnv (global_pa_funs env) (tyConName tc) |