summaryrefslogtreecommitdiff
path: root/compiler/GHC/Unit/State.hs
diff options
context:
space:
mode:
authorKrzysztof Gogolewski <krzysztof.gogolewski@tweag.io>2022-10-24 19:52:40 +0200
committerKrzysztof Gogolewski <krzysztof.gogolewski@tweag.io>2022-10-24 22:05:40 +0200
commit4c0877d05463d767f632eb540a59e756b48f46a5 (patch)
treef41ef3c5067247615f5e70aaca0febd3f2f6bb67 /compiler/GHC/Unit/State.hs
parent8d2dbe2db4cc7c8b6d39b1ea64b0508304a3273c (diff)
downloadhaskell-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/Unit/State.hs')
-rw-r--r--compiler/GHC/Unit/State.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/Unit/State.hs b/compiler/GHC/Unit/State.hs
index 403216954f..ca361d69d2 100644
--- a/compiler/GHC/Unit/State.hs
+++ b/compiler/GHC/Unit/State.hs
@@ -2036,7 +2036,7 @@ mayThrowUnitErr = \case
instance Outputable UnitErr where
ppr = \case
CloseUnitErr p mb_parent
- -> (ftext (fsLit "unknown unit:") <+> ppr p)
+ -> (text "unknown unit:" <+> ppr p)
<> case mb_parent of
Nothing -> Outputable.empty
Just parent -> space <> parens (text "dependency of"