diff options
| author | Krzysztof Gogolewski <krzysztof.gogolewski@tweag.io> | 2022-10-24 19:52:40 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-10-25 18:10:19 -0400 |
| commit | f5a486eb3233b0e577333f04d2087d0f6741af87 (patch) | |
| tree | ecb7fd5de195ccfd58859d8644b95852ac8367c6 /ghc | |
| parent | 1fd7f201a5afb9e8a26099da5ec86016bb487c92 (diff) | |
| download | haskell-f5a486eb3233b0e577333f04d2087d0f6741af87.tar.gz | |
Cleanup String/FastString conversions
Remove unused mkPtrString and isUnderscoreFS.
We no longer use mkPtrString since 1d03d8bef96.
Remove unnecessary conversions between FastString and String and back.
Diffstat (limited to 'ghc')
| -rw-r--r-- | ghc/GHCi/UI.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/GHCi/UI.hs b/ghc/GHCi/UI.hs index 4efb35f35e..519049cad7 100644 --- a/ghc/GHCi/UI.hs +++ b/ghc/GHCi/UI.hs @@ -3423,7 +3423,7 @@ pprStopped res = text "Stopped in" <+> ((case mb_mod_name of Nothing -> empty - Just mod_name -> text (moduleNameString mod_name) <> char '.') + Just mod_name -> ftext (moduleNameFS mod_name) <> char '.') <> text (GHC.resumeDecl res)) <> char ',' <+> ppr (GHC.resumeSpan res) where |