Commit 346516b3 authored by rl@cse.unsw.edu.au's avatar rl@cse.unsw.edu.au
Browse files

Trace more vectorisation failures

parent 63c02b8d
......@@ -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,
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment