diff options
| -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 |