diff options
| author | Alina Banerjee <alina@glitchgirl.us> | 2019-11-02 01:34:28 +0000 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-11-10 01:06:12 -0500 |
| commit | 6f4c125017aa39dee3701134ac2a4882525f8471 (patch) | |
| tree | e3de62f2ff190f41fa6f9284ba2b84e857a158c1 /compiler/typecheck/TcInstDcls.hs | |
| parent | 3957bdf22ca9b813c6253edbf9743254f706eb15 (diff) | |
| download | haskell-6f4c125017aa39dee3701134ac2a4882525f8471.tar.gz | |
Improve SPECIALIZE pragma error messages (Fixes #12126)
Diffstat (limited to 'compiler/typecheck/TcInstDcls.hs')
| -rw-r--r-- | compiler/typecheck/TcInstDcls.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/typecheck/TcInstDcls.hs b/compiler/typecheck/TcInstDcls.hs index 16150dfec7..ff71a6f430 100644 --- a/compiler/typecheck/TcInstDcls.hs +++ b/compiler/typecheck/TcInstDcls.hs @@ -2133,7 +2133,7 @@ tcSpecInst dfun_id prag@(SpecInstSig _ _ hs_ty) ; co_fn <- tcSpecWrapper SpecInstCtxt (idType dfun_id) spec_dfun_ty ; return (SpecPrag dfun_id co_fn defaultInlinePragma) } where - spec_ctxt prag = hang (text "In the SPECIALISE pragma") 2 (ppr prag) + spec_ctxt prag = hang (text "In the pragma:") 2 (ppr prag) tcSpecInst _ _ = panic "tcSpecInst" |