diff options
| -rw-r--r-- | compiler/typecheck/TcInteract.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/typecheck/TcInteract.hs b/compiler/typecheck/TcInteract.hs index 53ef0e6360..11c917dea2 100644 --- a/compiler/typecheck/TcInteract.hs +++ b/compiler/typecheck/TcInteract.hs @@ -1836,7 +1836,7 @@ matchTypeableClass clas k t loc -- Emit a `Typeable` constraint for the given type. subGoal ty = do let goal = mkClassPred clas [ typeKind ty, ty ] - (ev,_) <- newWantedEvVar loc goal + ev <- newWantedEvVarNC loc goal return ev |