diff --git a/hls-retrie-plugin.cabal b/hls-retrie-plugin.cabal
--- a/hls-retrie-plugin.cabal
+++ b/hls-retrie-plugin.cabal
@@ -1,6 +1,6 @@
 cabal-version:      2.2
 name:               hls-retrie-plugin
-version:            1.0.2.0
+version:            1.0.2.1
 synopsis:           Retrie integration plugin for Haskell Language Server
 description:
   Please see the README on GitHub at <https://github.com/haskell/haskell-language-server#readme>
@@ -24,9 +24,9 @@
     , directory
     , extra
     , ghc
-    , ghcide                ^>=1.6
+    , ghcide                ^>=1.7
     , hashable
-    , hls-plugin-api        ^>=1.3
+    , hls-plugin-api        ^>=1.4
     , lsp
     , lsp-types
     , retrie                >=0.1.1.0
diff --git a/src/Ide/Plugin/Retrie.hs b/src/Ide/Plugin/Retrie.hs
--- a/src/Ide/Plugin/Retrie.hs
+++ b/src/Ide/Plugin/Retrie.hs
@@ -32,9 +32,9 @@
                                                        Value (Null),
                                                        genericParseJSON)
 import qualified Data.Aeson                           as Aeson
-import qualified Data.ByteString                      as BS
 import           Data.Bifunctor                       (Bifunctor (first),
                                                        second)
+import qualified Data.ByteString                      as BS
 import           Data.Coerce
 import           Data.Either                          (partitionEithers)
 import qualified Data.HashMap.Strict                  as HM
@@ -167,7 +167,7 @@
 extractImports :: ModSummary -> [HsBindLR GhcRn GhcRn] -> RewriteSpec -> [ImportSpec]
 extractImports ModSummary{ms_mod} topLevelBinds (Unfold thing)
   | Just FunBind {fun_matches}
-  <- find (\case FunBind{fun_id = L _ n} -> prettyPrint n == thing ; _ -> False) topLevelBinds
+  <- find (\case FunBind{fun_id = L _ n} -> T.unpack (printOutputable n) == thing ; _ -> False) topLevelBinds
   , names <- listify p fun_matches
   =
     [ AddImport {..}
@@ -249,8 +249,8 @@
   [(T.Text, CodeActionKind, RunRetrieParams)]
 suggestBindRewrites originatingFile pos ms_mod FunBind {fun_id = L l' rdrName}
   | pos `isInsideSrcSpan` l' =
-    let pprName = prettyPrint rdrName
-        pprNameText = T.pack pprName
+    let pprNameText = printOutputable rdrName
+        pprName = T.unpack pprNameText
         unfoldRewrite restrictToOriginatingFile =
             let rewrites = [Unfold (qualify ms_mod pprName)]
                 description = "Unfold " <> pprNameText <> describeRestriction restrictToOriginatingFile
@@ -273,8 +273,8 @@
   TyClDecl pass ->
   [(T.Text, CodeActionKind, RunRetrieParams)]
 suggestTypeRewrites originatingFile ms_mod SynDecl {tcdLName = L _ rdrName} =
-    let pprName = prettyPrint rdrName
-        pprNameText = T.pack pprName
+    let pprNameText = printOutputable rdrName
+        pprName = T.unpack pprNameText
         unfoldRewrite restrictToOriginatingFile =
             let rewrites = [TypeForward (qualify ms_mod pprName)]
                 description = "Unfold " <> pprNameText <> describeRestriction restrictToOriginatingFile
@@ -330,7 +330,7 @@
 suggestRuleRewrites _ _ _ _ = []
 
 qualify :: GHC.Module -> String -> String
-qualify ms_mod x = prettyPrint ms_mod <> "." <> x
+qualify ms_mod x = T.unpack (printOutputable ms_mod) <> "." <> x
 
 -------------------------------------------------------------------------------
 -- Retrie driving code