diff options
| author | Krzysztof Gogolewski <krzysztof.gogolewski@tweag.io> | 2022-10-24 19:52:40 +0200 |
|---|---|---|
| committer | Krzysztof Gogolewski <krzysztof.gogolewski@tweag.io> | 2022-10-24 22:05:40 +0200 |
| commit | 4c0877d05463d767f632eb540a59e756b48f46a5 (patch) | |
| tree | f41ef3c5067247615f5e70aaca0febd3f2f6bb67 /compiler/GHC/Tc | |
| parent | 8d2dbe2db4cc7c8b6d39b1ea64b0508304a3273c (diff) | |
| download | haskell-wip/strings-refactor.tar.gz | |
Cleanup String/FastString conversionswip/strings-refactor
Remove unused mkPtrString and isUnderscoreFS.
We no longer use mkPtrString since 1d03d8bef96.
Remove unnecessary conversions between FastString and String and back.
Diffstat (limited to 'compiler/GHC/Tc')
| -rw-r--r-- | compiler/GHC/Tc/Errors/Ppr.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/compiler/GHC/Tc/Errors/Ppr.hs b/compiler/GHC/Tc/Errors/Ppr.hs index 84338000b9..bb4b0718cc 100644 --- a/compiler/GHC/Tc/Errors/Ppr.hs +++ b/compiler/GHC/Tc/Errors/Ppr.hs @@ -3781,13 +3781,13 @@ pprConversionFailReason = \case text "Illegal" <+> pprNameSpace ctxt_ns <+> text "name:" <+> quotes (text occ) SumAltArityExceeded alt arity -> - text "Sum alternative" <+> text (show alt) - <+> text "exceeds its arity," <+> text (show arity) + text "Sum alternative" <+> int alt + <+> text "exceeds its arity," <+> int arity IllegalSumAlt alt -> - vcat [ text "Illegal sum alternative:" <+> text (show alt) + vcat [ text "Illegal sum alternative:" <+> int alt , nest 2 $ text "Sum alternatives must start from 1" ] IllegalSumArity arity -> - vcat [ text "Illegal sum arity:" <+> text (show arity) + vcat [ text "Illegal sum arity:" <+> int arity , nest 2 $ text "Sums must have an arity of at least 2" ] MalformedType typeOrKind ty -> text "Malformed " <> text ty_str <+> text (show ty) |