diff options
| author | Roman Leshchinskiy <rl@cse.unsw.edu.au> | 2009-10-16 10:44:07 +0000 |
|---|---|---|
| committer | Roman Leshchinskiy <rl@cse.unsw.edu.au> | 2009-10-16 10:44:07 +0000 |
| commit | 9f72be34f54e3bc24439bf09d030b394907a8ab0 (patch) | |
| tree | e0e030524accf2583483760bcade942312ccf3b4 /compiler/vectorise/VectUtils.hs | |
| parent | 9ccda9a0f26fa0f2f1db3d61d7d93ae32ca3c8b7 (diff) | |
| download | haskell-9f72be34f54e3bc24439bf09d030b394907a8ab0.tar.gz | |
Fix bug in data type vectorisation
Diffstat (limited to 'compiler/vectorise/VectUtils.hs')
| -rw-r--r-- | compiler/vectorise/VectUtils.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/vectorise/VectUtils.hs b/compiler/vectorise/VectUtils.hs index ea647c733f..9ff5b5a820 100644 --- a/compiler/vectorise/VectUtils.hs +++ b/compiler/vectorise/VectUtils.hs @@ -241,7 +241,7 @@ prDictOfTyApp ty_fn ty_args | Just ty_fn' <- coreView ty_fn = prDictOfTyApp ty_fn' ty_args prDictOfTyApp (TyConApp tc _) ty_args = do - dfun <- prDFunOfTyCon tc + dfun <- liftM Var $ maybeV (lookupTyConPR tc) prDFunApply dfun ty_args prDictOfTyApp _ _ = noV |