diff options
Diffstat (limited to 'compiler/typecheck/TcDeriv.lhs')
| -rw-r--r-- | compiler/typecheck/TcDeriv.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/typecheck/TcDeriv.lhs b/compiler/typecheck/TcDeriv.lhs index aac4a7b94e..786cea9277 100644 --- a/compiler/typecheck/TcDeriv.lhs +++ b/compiler/typecheck/TcDeriv.lhs @@ -1438,7 +1438,7 @@ checkFlag flag (dflags, _, _) where why = ptext (sLit "You need ") <> text flag_str <+> ptext (sLit "to derive an instance for this class") - flag_str = case [ s | (s, f, _) <- xFlags, f==flag ] of + flag_str = case [ flagSpecName f | f <- xFlags , flagSpecFlag f == flag ] of [s] -> s other -> pprPanic "checkFlag" (ppr other) |