From 346516b3930d677616e5108499d3a82b51f58853 Mon Sep 17 00:00:00 2001 From: Roman Leshchinskiy Date: Tue, 7 Aug 2007 05:31:45 +0000 Subject: [PATCH] Trace more vectorisation failures --- compiler/vectorise/VectMonad.hs | 2 +- compiler/vectorise/VectUtils.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/vectorise/VectMonad.hs b/compiler/vectorise/VectMonad.hs index 6838338..f91ca48 100644 --- a/compiler/vectorise/VectMonad.hs +++ b/compiler/vectorise/VectMonad.hs @@ -2,7 +2,7 @@ module VectMonad ( Scope(..), VM, - noV, tryV, maybeV, orElseV, fixV, localV, closedV, initV, + noV, tryV, maybeV, traceMaybeV, orElseV, fixV, localV, closedV, initV, cloneName, cloneId, newExportedVar, newLocalVar, newDummyVar, newTyVar, diff --git a/compiler/vectorise/VectUtils.hs b/compiler/vectorise/VectUtils.hs index 27dd330..df8c23f 100644 --- a/compiler/vectorise/VectUtils.hs +++ b/compiler/vectorise/VectUtils.hs @@ -140,7 +140,7 @@ paDictOfTyApp (TyVarTy tv) ty_args paDFunApply dfun ty_args paDictOfTyApp (TyConApp tc _) ty_args = do - dfun <- maybeV (lookupTyConPA tc) + dfun <- traceMaybeV "paDictOfTyApp" (ppr tc) (lookupTyConPA tc) paDFunApply (Var dfun) ty_args paDictOfTyApp ty ty_args = pprPanic "paDictOfTyApp" (ppr ty) -- 1.7.10.4